mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix: ESC handle in About Dialog

Browse source 
(cherry picked from commit 8359ee6da1)
This commit is contained in:
rich2014 2023-07-23 18:32:18 +08:00 • committed by Alexander Koblov
commit 28ed87663c
2 changed files with 1 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/fAbout.lfm
View file

@ -382,6 +382,7 @@ object frmAbout: TfrmAbout
AutoSize = True
BorderSpacing.Bottom = 8
BorderSpacing.InnerBorder = 2
Cancel = True
Caption = '&Close'
Constraints.MinWidth = 100
Default = True

9
src/fAbout.pas
View file

@ -50,8 +50,6 @@ type
procedure lblHomePageAddressMouseEnter(Sender: TObject);
procedure lblHomePageAddressMouseLeave(Sender: TObject);
procedure OKButtonClick(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure frmAboutShow(Sender: TObject);
private
{ Private declarations }
@ -170,13 +168,6 @@ begin
ClipboardSetText(StrInfo);
end;
procedure TfrmAbout.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_Escape) then
Close;
end;
procedure TfrmAbout.frmAboutShow(Sender: TObject);
begin
memInfo.Lines.Text := cAboutMsg;