From aad92d27e96b4ffba7069a1e3c8cd1304d4695cc Mon Sep 17 00:00:00 2001
From: mappu <mappu04@gmail.com>
Date: Sat, 6 Jul 2024 11:54:48 +1200
Subject: [PATCH] gui: use icons for toolbar

---
 main.go | 25 ++++++++++++++++---------
 1 file changed, 16 insertions(+), 9 deletions(-)

diff --git a/main.go b/main.go
index 2b21195..b0a5739 100644
--- a/main.go
+++ b/main.go
@@ -147,7 +147,7 @@ func (f *TMainForm) OnFormCreate(sender vcl.IObject) {
 	mnuQueryExecute.SetCaption("Execute")
 	mnuQueryExecute.SetShortCutFromString("F5")
 	mnuQueryExecute.SetOnClick(f.OnQueryExecute)
-	mnuQueryExecute.SetImageIndex(imgLightning)
+	mnuQueryExecute.SetImageIndex(imgResultsetNext)
 	mnuQuery.Add(mnuQueryExecute)
 
 	mnuHelp := vcl.NewMenuItem(f)
@@ -228,27 +228,33 @@ func (f *TMainForm) OnFormCreate(sender vcl.IObject) {
 	dataButtonBar.BorderSpacing().SetRight(MY_SPACING)
 	dataButtonBar.SetEdgeBorders(0)
 	dataButtonBar.SetImages(f.ImageList)
-	dataButtonBar.SetShowCaptions(true)
 
 	dataRefreshBtn := vcl.NewToolButton(dataButtonBar)
 	dataRefreshBtn.SetParent(dataButtonBar)
-	dataRefreshBtn.SetCaption("Refresh")
-	// dataRefreshBtn.SetImageIndex(imgLightning)
+	dataRefreshBtn.SetHint("Refresh")
+	dataRefreshBtn.SetShowHint(true)
+	dataRefreshBtn.SetImageIndex(imgArrowRefresh)
 	dataRefreshBtn.SetOnClick(func(sender vcl.IObject) { f.RefreshCurrentItem() })
 
 	dataInsertBtn := vcl.NewToolButton(dataButtonBar)
 	dataInsertBtn.SetParent(dataButtonBar)
-	dataInsertBtn.SetCaption("Insert")
+	dataInsertBtn.SetImageIndex(imgAdd)
+	dataInsertBtn.SetHint("Insert")
+	dataInsertBtn.SetShowHint(true)
 	dataInsertBtn.SetOnClick(f.OnDataInsertClick)
 
 	dataDelRowBtn := vcl.NewToolButton(dataButtonBar)
 	dataDelRowBtn.SetParent(dataButtonBar)
-	dataDelRowBtn.SetCaption("Delete Row")
+	dataDelRowBtn.SetImageIndex(imgDelete)
+	dataDelRowBtn.SetHint("Delete Row")
+	dataDelRowBtn.SetShowHint(true)
 	dataDelRowBtn.SetOnClick(f.OnDataDeleteRowClick)
 
 	dataCommitBtn := vcl.NewToolButton(dataButtonBar)
 	dataCommitBtn.SetParent(dataButtonBar)
-	dataCommitBtn.SetCaption("Commit")
+	dataCommitBtn.SetImageIndex(imgPencilGo)
+	dataCommitBtn.SetHint("Commit")
+	dataCommitBtn.SetShowHint(true)
 	dataCommitBtn.SetOnClick(f.OnDataCommitClick)
 
 	f.contentBox = vcl.NewStringGrid(dataTab)
@@ -282,8 +288,9 @@ func (f *TMainForm) OnFormCreate(sender vcl.IObject) {
 
 	queryExecBtn := vcl.NewToolButton(queryButtonBar)
 	queryExecBtn.SetParent(queryButtonBar)
-	queryExecBtn.SetCaption("Execute")
-	// queryExecBtn.SetImageIndex(imgLightning)
+	queryExecBtn.SetHint("Execute")
+	queryExecBtn.SetShowHint(true)
+	queryExecBtn.SetImageIndex(imgResultsetNext)
 	queryExecBtn.SetOnClick(f.OnQueryExecute)
 
 	f.queryInput = vcl.NewMemo(queryTab)