gui: set main app icon

This commit is contained in:
mappu 2024-06-15 11:42:23 +12:00
parent 1035086ed4
commit 2481a1da20

View File

@ -41,6 +41,7 @@ func (f *TMainForm) OnFormCreate(sender vcl.IObject) {
f.ImageList = loadImages(f) f.ImageList = loadImages(f)
f.SetCaption("yvbolt") f.SetCaption("yvbolt")
f.ImageList.GetIcon(imgDatabaseLightning, f.Icon())
mnuFile := vcl.NewMenuItem(f) mnuFile := vcl.NewMenuItem(f)
mnuFile.SetCaption("File") mnuFile.SetCaption("File")