From 9300cbc67b19c8f9cf0ef5782a07433d35a0311d Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Fri, 16 Jan 2026 13:49:57 +0100
Subject: [PATCH] enhance: turn two more TButtons into TBitBtn with icon

---
 source/about.lfm       | 4 +++-
 source/about.pas       | 2 +-
 source/updatecheck.lfm | 4 +++-
 source/updatecheck.pas | 4 ++--
 4 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/source/about.lfm b/source/about.lfm
index 4ad97f6e..c07006d1 100644
--- 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
index e41c0c6e..ac9f8241 100644
--- a/source/about.pas
+++ b/source/about.pas
@@ -28,7 +28,7 @@ type
     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
index a88e364c..7e1e20f6 100644
--- 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
index 75baed42..a87d6fa1 100644
--- 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 @@ type
     memoRelease: TMemo;
     popupDownloadRelease: TPopupMenu;
     CopydownloadURL1: TMenuItem;
-    btnDonate: TButton;
+    btnDonate: TBitBtn;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure LinkLabelReleaseLinkClick(Sender: TObject);