enhance: turn two more TButtons into TBitBtn with icon

This commit is contained in:
Ansgar Becker
2026-01-16 13:49:57 +01:00
parent b100479b7e
commit 9300cbc67b
4 changed files with 9 additions and 5 deletions

View File

@@ -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

View File

@@ -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);

View File

@@ -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

View File

@@ -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);