opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Make ButtonCloseClick procedure in "About" window superflous

Browse Source
This commit is contained in:
Ansgar Becker
2008-06-15 17:54:34 +00:00
parent 7072481ed7
commit c1128f29bb
2 changed files with 1 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
source/about.dfm
View File

@@ -1455,8 +1455,8 @@ object AboutBox: TAboutBox
Cancel = True
Caption = 'Close'
Default = True
ModalResult = 1
TabOrder = 1
OnClick = ButtonCloseClick
end
object PanelMain: TPanel
Left = 1

7
source/about.pas
View File

@@ -33,7 +33,6 @@ type
btnUpdateCheck: TButton;
procedure btnUpdateCheckClick(Sender: TObject);
procedure OpenURL(Sender: TObject);
procedure ButtonCloseClick(Sender: TObject);
procedure MouseOver(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure FormShow(Sender: TObject);
@@ -79,12 +78,6 @@ begin
end;
procedure TAboutBox.ButtonCloseClick(Sender: TObject);
begin
Close();
end;
procedure TAboutBox.MouseOver(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin