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

ADD: Print setup dialog - close by escape key

Browse source
This commit is contained in:
Alexander Koblov 2019-06-20 18:37:29 +00:00
commit 1b753023f0
2 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/fprintsetup.lfm
View file

@ -11,8 +11,10 @@ object frmPrintSetup: TfrmPrintSetup
ClientHeight = 209
ClientWidth = 432
DesignTimePPI = 120
KeyPreview = True
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnKeyDown = FormKeyDown
Position = poOwnerFormCenter
LCLVersion = '2.0.2.0'
object gbMargins: TGroupBox

9
src/fprintsetup.pas
View file

@ -25,6 +25,7 @@ type
seeBottom: TFloatSpinEditEx;
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
private
public
@ -36,7 +37,7 @@ implementation
{$R *.lfm}
uses
uGlobs;
LCLType, uGlobs;
{ TfrmPrintSetup }
@ -59,5 +60,11 @@ begin
seeBottom.Value:= gPrintMargins.Bottom / 10;
end;
procedure TfrmPrintSetup.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_ESCAPE then ModalResult:= mrCancel;
end;
end.