gui: create a TImageList with famfamfam/silk resources

images.go

@@ -0,0 +1,50 @@
+package main
+
+import (
+	"embed"
+
+	"github.com/ying32/govcl/vcl"
+)
+
+//go:embed assets/*
+var assetsFs embed.FS
+
+const (
+	imgDatabase       = 0
+	imgDatabaseAdd    = 1
+	imgDatabaseDelete = 2
+	imgDatabaseSave   = 3
+	imgTable          = 4
+	imgTableAdd       = 5
+	imgTableDelete    = 6
+	imgTableSave      = 7
+)
+
+func loadImages(owner vcl.IComponent) *vcl.TImageList {
+
+	mustLoad := func(n string) *vcl.TBitmap {
+		imgData, err := assetsFs.ReadFile(n)
+		if err != nil {
+			panic(err)
+		}
+
+		png := vcl.NewPngImage()
+		png.LoadFromBytes(imgData)
+
+		ret := vcl.NewBitmap()
+		ret.Assign(png)
+		return ret
+	}
+
+	ilist := vcl.NewImageList(owner)
+	ilist.Add(mustLoad("assets/database.png"), nil)
+	ilist.Add(mustLoad("assets/database_add.png"), nil)
+	ilist.Add(mustLoad("assets/database_delete.png"), nil)
+	ilist.Add(mustLoad("assets/database_save.png"), nil)
+	ilist.Add(mustLoad("assets/table.png"), nil)
+	ilist.Add(mustLoad("assets/table_add.png"), nil)
+	ilist.Add(mustLoad("assets/table_delete.png"), nil)
+	ilist.Add(mustLoad("assets/table_save.png"), nil)
+	return ilist
+
+}

main.go

@@ -14,6 +14,8 @@ import (
 
 type TMainForm struct {
 	*vcl.TForm
+
+	ImageList     *vcl.TImageList
 	Menu          *vcl.TMainMenu
 	Buckets       *vcl.TTreeView
 	Tabs          *vcl.TPageControl
@@ -35,6 +37,8 @@ func (f *TMainForm) OnFormCreate(sender vcl.IObject) {
 	const MY_SPACING = 6
 	const MY_WIDTH = 180
 
+	f.ImageList = loadImages(f)
+
 	f.SetCaption("yvbolt")
 
 	mnuFile := vcl.NewMenuItem(f)