fix: prefer TBitBtn over TSpeedButton for native look on macOS

ansgarbecker · ansgarbecker · commit bee61ec929e8 · 2025-12-17T11:15:10.000+01:00
diff --git a/source/connections.lfm b/source/connections.lfm
@@ -1162,7 +1162,7 @@ object connform: Tconnform
     ClientWidth = 916
     ParentBackground = False
     TabOrder = 3
-    object btnSave: TSpeedButton
+    object btnSave: TBitBtn
       AnchorSideLeft.Control = btnNew
       AnchorSideLeft.Side = asrBottom
       Left = 68
@@ -1173,6 +1173,7 @@ object connform: Tconnform
       Caption = 'Save'
       Images = MainForm.ImageListMain
       ImageIndex = 10
+      TabOrder = 1
       OnClick = btnSaveClick
     end
     object btnOpen: TButton
@@ -1188,7 +1189,7 @@ object connform: Tconnform
       Constraints.MinWidth = 105
       Default = True
       Enabled = False
-      TabOrder = 0
+      TabOrder = 3
       OnClick = btnOpenClick
     end
     object btnCancel: TButton
@@ -1204,9 +1205,9 @@ object connform: Tconnform
       Caption = 'Cancel'
       Constraints.MinWidth = 105
       ModalResult = 2
-      TabOrder = 1
+      TabOrder = 4
     end
-    object btnNew: TSpeedButton
+    object btnNew: TBitBtn
       Left = 0
       Height = 31
       Top = 0
@@ -1215,9 +1216,10 @@ object connform: Tconnform
       Caption = 'New'
       Images = MainForm.ImageListMain
       ImageIndex = 45
+      TabOrder = 0
       OnClick = btnNewDropdown
     end
-    object btnDelete: TSpeedButton
+    object btnDelete: TBitBtn
       AnchorSideLeft.Control = btnSave
       AnchorSideLeft.Side = asrBottom
       Left = 136
@@ -1228,9 +1230,10 @@ object connform: Tconnform
       Caption = 'Delete'
       Images = MainForm.ImageListMain
       ImageIndex = 46
+      TabOrder = 2
       OnClick = btnDeleteClick
     end
-    object btnMore: TSpeedButton
+    object btnMore: TBitBtn
       AnchorSideRight.Control = pnlBottom
       AnchorSideRight.Side = asrBottom
       Left = 811
@@ -1240,8 +1243,9 @@ object connform: Tconnform
       Anchors = [akTop, akRight]
       AutoSize = True
       BorderSpacing.Left = 6
-      Constraints.MinWidth = 105
       Caption = 'More'
+      Constraints.MinWidth = 105
+      TabOrder = 5
       OnClick = btnMoreClick
     end
   end
diff --git a/source/connections.pas b/source/connections.pas
@@ -23,9 +23,9 @@ interface
   Tconnform = class(TExtForm)
     btnCancel: TButton;
     btnOpen: TButton;
-    btnSave: TSpeedButton;
-    btnNew: TSpeedButton;
-    btnDelete: TSpeedButton;
+    btnSave: TBitBtn;
+    btnNew: TBitBtn;
+    btnDelete: TBitBtn;
     lblSshPassHint: TLabel;
     pnlBottom: TPanel;
     popupSessions: TPopupMenu;
@@ -90,7 +90,7 @@   Tconnform = class(TExtForm)
     editStartupScript: TEditButton;
     lblStartupScript: TLabel;
     chkFullTableStatus: TCheckBox;
-    btnMore: TSpeedButton;
+    btnMore: TBitBtn;
     popupMore: TPopupMenu;
     Checkforupdates1: TMenuItem;
     About1: TMenuItem;
