Changeset 124 for trunk/Forms/UFormMove.pas

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.

File:

• trunk/Forms/UFormMove.pas (modified) (1 diff)

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;