Changeset 257 for trunk/LocalPlayer/TechTree.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/LocalPlayer/TechTree.pas (modified) (2 diffs)

trunk/LocalPlayer/TechTree.pas

@@ -23 +23 @@
       Shift: TShiftState; X, Y: Integer);
     procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
-    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure CloseBtnClick(Sender: TObject);
   private
@@ -228 +227 @@
 end;
 
-procedure TTechTreeDlg.FormKeyDown(Sender: TObject; var Key: Word;
-  Shift: TShiftState);
-begin
-  if Key = VK_ESCAPE then
-    Close;
-end;
-
 procedure TTechTreeDlg.CloseBtnClick(Sender: TObject);
 begin