gui: more icons on tables, tabs

This commit is contained in:
mappu 2024-06-15 11:43:58 +12:00
parent 79bce40581
commit f64522dfa1

View File

@ -103,11 +103,13 @@ func (f *TMainForm) OnFormCreate(sender vcl.IObject) {
f.Tabs = vcl.NewPageControl(f) f.Tabs = vcl.NewPageControl(f)
f.Tabs.SetParent(f) f.Tabs.SetParent(f)
f.Tabs.SetAlign(types.AlClient) f.Tabs.SetAlign(types.AlClient) // fill remaining space
f.Tabs.SetImages(f.ImageList)
propertiesTab := vcl.NewTabSheet(f.Tabs) propertiesTab := vcl.NewTabSheet(f.Tabs)
propertiesTab.SetParent(f.Tabs) propertiesTab.SetParent(f.Tabs)
propertiesTab.SetCaption("Properties") propertiesTab.SetCaption("Properties")
propertiesTab.SetImageIndex(imgChartBar)
f.propertiesBox = vcl.NewMemo(propertiesTab) f.propertiesBox = vcl.NewMemo(propertiesTab)
f.propertiesBox.SetParent(propertiesTab) f.propertiesBox.SetParent(propertiesTab)
@ -121,6 +123,7 @@ func (f *TMainForm) OnFormCreate(sender vcl.IObject) {
dataTab := vcl.NewTabSheet(f.Tabs) dataTab := vcl.NewTabSheet(f.Tabs)
dataTab.SetParent(f.Tabs) dataTab.SetParent(f.Tabs)
dataTab.SetCaption("Data") dataTab.SetCaption("Data")
dataTab.SetImageIndex(imgTable)
f.contentBox = vcl.NewListView(dataTab) f.contentBox = vcl.NewListView(dataTab)
f.contentBox.SetParent(dataTab) f.contentBox.SetParent(dataTab)
@ -210,6 +213,8 @@ func (f *TMainForm) OnNavExpanding(sender vcl.IObject, node *vcl.TTreeNode, allo
node := f.Buckets.Items().AddChild(node, formatUtf8([]byte(bucketName))) node := f.Buckets.Items().AddChild(node, formatUtf8([]byte(bucketName)))
node.SetHasChildren(true) // dynamically populate in OnNavExpanding node.SetHasChildren(true) // dynamically populate in OnNavExpanding
node.SetImageIndex(imgTable)
node.SetSelectedIndex(imgTable)
navData := &navData{ navData := &navData{
ld: ndata.ld, ld: ndata.ld,
childrenLoaded: false, // will be loaded dynamically childrenLoaded: false, // will be loaded dynamically