Changeset 373 for trunk

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.

Location:

trunk

Files:

• Start.lfm (modified) (1 diff)
• Start.pas (modified) (2 diffs)

trunk/Start.lfm

@@ -196 +196 @@
     ItemHeight = 0
     OnClick = ListClick
-    OnKeyDown = FormKeyDown
+    OnDblClick = StartBtnClick
+    OnKeyPress = ListKeyPress
+    OnKeyDown = ListKeyDown
     ParentFont = False
     ScrollWidth = 266

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;