Changeset 257 for trunk/Packages/CevoComponents/DrawDlg.pas

Timestamp:

Jun 10, 2020, 9:47:11 PM (4 years ago)

Author:

chronos

Message:

• Modified: Allow to close windows by Escape key.

File:

• trunk/Packages/CevoComponents/DrawDlg.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/DrawDlg.pas

@@ -29 +29 @@
     procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
     procedure MouseLeave; override;
+    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
   public
     constructor Create(AOwner: TComponent); override;
@@ -171 +172 @@
 end;
 
+procedure TDrawDlg.KeyDown(var Key: Word; Shift: TShiftState);
+begin
+  if Key = VK_ESCAPE then Close;
+  inherited KeyDown(Key, Shift);
+end;
+
 procedure TDrawDlg.VisibleChangedHandler(Sender: TObject);
 begin