Changeset 274 for trunk/Forms/UFormMove.pas

Timestamp:

Feb 3, 2019, 8:32:20 PM (6 years ago)

Author:

chronos

Message:

• Added: Keep information about available unit moves during turn.
• Added: Allow to move units instantly during turn.
• Added: Game system parameter to play without possibility to merge/split units.

File:

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

trunk/Forms/UFormMove.pas

@@ -48 +48 @@
     AttackCount: Integer;
     ShowWinProbability: Boolean;
+    AllowChangeOnce: Boolean;
     procedure UpdateView;
   end;
@@ -102 +103 @@
     SpinEditRepeat.SetFocus;
   end else begin
-    SpinEditOnce.Enabled := True;
-    TrackBarOnce.Enabled := True;
-    SpinEditOnce.SetFocus;
+    SpinEditOnce.Enabled := AllowChangeOnce;
+    TrackBarOnce.Enabled := AllowChangeOnce;
+    ButtonOnceMax.Enabled := AllowChangeOnce;
+    ButtonOnceMin.Enabled := AllowChangeOnce;
+    if SpinEditOnce.Enabled then SpinEditOnce.SetFocus
+    else if SpinEditRepeat.Enabled then SpinEditRepeat.SetFocus
+    else ButtonOk.SetFocus;
   end;
   UpdateView;