Changeset 124 for trunk/Forms

Timestamp:

Jan 4, 2017, 10:11:03 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Do not allow to move from single cell more units when available.

Location:

trunk/Forms

Files:

• UFormMove.lfm (modified) (6 diffs)
• UFormMove.pas (modified) (1 diff)

trunk/Forms/UFormMove.lfm

@@ -14 +14 @@
   OnShow = FormShow
   Position = poMainFormCenter
-  LCLVersion = '1.4.4.0'
+  LCLVersion = '1.6.0.4'
   object SpinEditOnce: TSpinEdit
     Left = 208
-    Height = 33
+    Height = 34
     Top = 40
     Width = 98
@@ -26 +26 @@
   object Label1: TLabel
     Left = 16
-    Height = 25
+    Height = 24
     Top = 40
-    Width = 45
+    Width = 49
     Caption = 'Once:'
     ParentColor = False
@@ -53 +53 @@
   object Label2: TLabel
     Left = 24
-    Height = 25
+    Height = 24
     Top = 136
-    Width = 83
+    Width = 91
     Caption = 'Every turn:'
     ParentColor = False
@@ -61 +61 @@
   object SpinEditRepeat: TSpinEdit
     Left = 208
-    Height = 33
+    Height = 34
     Top = 128
     Width = 98
@@ -134 +134 @@
   object Label3: TLabel
     Left = 16
-    Height = 25
+    Height = 24
     Top = 8
-    Width = 126
+    Width = 135
     Caption = 'Win probability:'
     ParentColor = False
@@ -142 +142 @@
   object LabelWinProbability: TLabel
     Left = 264
-    Height = 25
+    Height = 24
     Top = 8
     Width = 15

trunk/Forms/UFormMove.pas

@@ -90 +90 @@
 procedure TFormMove.FormShow(Sender: TObject);
 begin
-  SpinEditOnce.SetFocus;
+  if SpinEditOnce.MaxValue < SpinEditOnce.Value then begin
+    SpinEditOnce.Enabled := False;
+    SpinEditOnce.Value := 0;
+    TrackBarOnce.Enabled := False;
+    TrackBarOnce.Max := 0;
+    SpinEditRepeat.SetFocus;
+  end else begin
+    SpinEditOnce.Enabled := True;
+    TrackBarOnce.Enabled := True;
+    SpinEditOnce.SetFocus;
+  end;
   UpdateView;
 end;