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