From 3d185033f3c8083bcce7ce5cd0798274d4dc9196 Mon Sep 17 00:00:00 2001 From: mappu Date: Sun, 23 Jun 2024 14:56:00 +1200 Subject: [PATCH] main: allow scrolling long content on properties tab --- main.go | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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)