mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2026-03-13 09:24:25 +08:00
enhance: turn two more TButtons into TBitBtn with icon
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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);
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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);
|
||||
|
||||
Reference in New Issue
Block a user