Changeset 72 for trunk/Forms/UFormMove.pas

Timestamp:

Sep 28, 2014, 9:21:26 PM (10 years ago)

Author:

chronos

Message:

• Fixed: Unit move win probability was bad calculated if already existed move was modified.
• Added: Easier close of unit move dialog by Escape or Enter key.

File:

• trunk/Forms/UFormMove.pas (modified) (3 diffs)

trunk/Forms/UFormMove.pas

@@ -33 +33 @@
     procedure ButtonOnceMinClick(Sender: TObject);
     procedure ButtonRepeatMaxClick(Sender: TObject);
+    procedure FormKeyPress(Sender: TObject; var Key: char);
     procedure FormShow(Sender: TObject);
     procedure SpinEditOnceChange(Sender: TObject);
@@ -89 +90 @@
 procedure TFormMove.FormShow(Sender: TObject);
 begin
-  ButtonOk.SetFocus;
+  SpinEditOnce.SetFocus;
   UpdateView;
 end;
@@ -118 +119 @@
 end;
 
+procedure TFormMove.FormKeyPress(Sender: TObject; var Key: char);
+begin
+  if Key = #13 then ButtonOk.Click;
+  if Key = #27 then ButtonCancel.Click;
+end;
+
 procedure TFormMove.SpinEditRepeatChange(Sender: TObject);
 begin