diff --git a/main.go b/main.go
index c60d43c..04364ac 100644
--- a/main.go
+++ b/main.go
@@ -136,8 +136,11 @@ func (f *TMainForm) OnFormCreate(sender vcl.IObject) {
 	f.propertiesBox.BorderSpacing().SetAround(MY_SPACING)
 	f.propertiesBox.SetAlign(types.AlClient) // fill remaining space
 	f.propertiesBox.SetReadOnly(true)
-	f.propertiesBox.SetEnabled(false)
+	f.propertiesBox.SetEnabled(true)     // Need to leave it enabled so scrolling works
+	f.propertiesBox.SetColor(0x00f0f0f0) // TODO get accurate disabled colour from the OS
+
 	f.propertiesBox.SetBorderStyle(types.BsNone)
+	f.propertiesBox.SetScrollBars(types.SsAutoVertical)
 
 	dataTab := vcl.NewTabSheet(f.Tabs)
 	dataTab.SetParent(f.Tabs)