Changeset 373 for trunk/Start.pas

Timestamp:

Apr 16, 2021, 1:36:07 PM (4 years ago)

Author:

chronos

Message:

• Added: Open game or editor map by mouse double click or by pressing Enter key.
• Added: Delete game or editor map by pressing Del key.

File:

• trunk/Start.pas (modified) (2 diffs)

trunk/Start.pas

@@ -57 +57 @@
     AutoEnemyDownBtn: TButtonC;
     ReplayBtn: TButtonB;
+    procedure ListKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure ListKeyPress(Sender: TObject; var Key: char);
     procedure StartBtnClick(Sender: TObject);
     procedure FormPaint(Sender: TObject);
@@ -1049 +1051 @@
       end;
   end;
+end;
+
+procedure TStartDlg.ListKeyPress(Sender: TObject; var Key: char);
+begin
+  if Key = #13 then StartBtnClick(Sender);
+end;
+
+procedure TStartDlg.ListKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+const
+  DelKey = 46;
+begin
+  if Key = DelKey then DeleteBtnClick(Sender)
+    else FormKeyDown(Sender, Key, Shift);
 end;