enhance: indicate drop-down menu through arrow-down image on buttons

2026-03-13 09:24:25 +08:00 · 2025-12-28 13:12:58 +01:00
parent 505e3ec141
commit 288b346f1a
1 changed files with 3 additions and 1 deletions
--- a/source/connections.lfm
+++ b/source/connections.lfm
@@ -1215,7 +1215,7 @@ object connform: Tconnform
      BorderSpacing.Right = 6
      Caption = 'New'
      Images = MainForm.ImageListMain
-      ImageIndex = 45
+      ImageIndex = 107
      TabOrder = 0
      OnClick = btnNewDropdown
    end
@@ -1245,6 +1245,8 @@ object connform: Tconnform
      BorderSpacing.Left = 6
      Caption = 'More'
      Constraints.MinWidth = 105
+      Images = MainForm.ImageListMain
+      ImageIndex = 107
      TabOrder = 5
      OnClick = btnMoreClick
    end