enhance: turn two more TButtons into TBitBtn with icon

ansgarbecker · ansgarbecker · commit 9300cbc67b19 · 2026-01-16T13:49:57.000+01:00
diff --git a/source/about.lfm b/source/about.lfm
@@ -408,7 +408,7 @@ object AboutBox: TAboutBox
     TabOrder = 3
     OnClick = btnDonatedOKClick
   end
-  object btnDonate: TButton
+  object btnDonate: TBitBtn
     AnchorSideLeft.Control = ImageHeidisql
     AnchorSideLeft.Side = asrBottom
     AnchorSideTop.Control = editDonated
@@ -426,6 +426,8 @@ object AboutBox: TAboutBox
     BorderSpacing.Around = 6
     Caption = 'Donate'
     Constraints.MinHeight = 50
+    Images = MainForm.ImageListMain
+    ImageIndex = 185
     ParentShowHint = False
     ShowHint = True
     TabOrder = 4
diff --git a/source/about.pas b/source/about.pas
@@ -28,7 +28,7 @@   TAboutBox = class(TForm)
     popupLabels: TPopupMenu;
     menuCopyLabel: TMenuItem;
     lblEnvironment: TLabel;
-    btnDonate: TButton;
+    btnDonate: TBitBtn;
     lnklblCompiler: TLabel;
     procedure OpenURL(Sender: TObject);
     procedure FormShow(Sender: TObject);
diff --git a/source/updatecheck.lfm b/source/updatecheck.lfm
@@ -103,7 +103,7 @@ object frmUpdateCheck: TfrmUpdateCheck
       OnClick = LinkLabelReleaseLinkClick
     end
   end
-  object btnDonate: TButton
+  object btnDonate: TBitBtn
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = Owner
     AnchorSideRight.Control = Owner
@@ -115,6 +115,8 @@ object frmUpdateCheck: TfrmUpdateCheck
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Around = 6
     Caption = 'Donate'
+    Images = MainForm.ImageListMain
+    ImageIndex = 185
     TabOrder = 0
   end
   object popupDownloadRelease: TPopupMenu
diff --git a/source/updatecheck.pas b/source/updatecheck.pas
@@ -7,7 +7,7 @@ interface
 uses
   SysUtils, Classes, Forms, StdCtrls, IniFiles, Controls, Graphics,
   apphelpers, ExtCtrls, extra_controls, StrUtils, Dialogs,
-  Menus, Clipbrd, generic_types, DateUtils;
+  Menus, Clipbrd, generic_types, DateUtils, Buttons;
 
 type
 
@@ -21,7 +21,7 @@   TfrmUpdateCheck = class(TExtForm)
     memoRelease: TMemo;
     popupDownloadRelease: TPopupMenu;
     CopydownloadURL1: TMenuItem;
-    btnDonate: TButton;
+    btnDonate: TBitBtn;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure LinkLabelReleaseLinkClick(Sender: TObject);
