Changeset 26 for trunk/UFormMove.pas

Timestamp:

Mar 3, 2014, 12:59:49 AM (11 years ago)

Author:

chronos

Message:

• Fixed: Computer couldn't attack some cells.
• Added: Move dialog now have trackbar control to easily set desired value.

File:

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

trunk/UFormMove.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Spin,
-  StdCtrls;
+  StdCtrls, ComCtrls;
 
 type
@@ -20 +20 @@
     SpinEditOnce: TSpinEdit;
     SpinEditRepeat: TSpinEdit;
+    TrackBarOnce: TTrackBar;
+    TrackBarRepeat: TTrackBar;
+    procedure SpinEditOnceChange(Sender: TObject);
+    procedure SpinEditRepeatChange(Sender: TObject);
+    procedure TrackBarOnceChange(Sender: TObject);
+    procedure TrackBarRepeatChange(Sender: TObject);
   private
     { private declarations }
@@ -33 +39 @@
 {$R *.lfm}
 
+{ TFormMove }
+
+procedure TFormMove.TrackBarOnceChange(Sender: TObject);
+begin
+  if SpinEditOnce.Value <> TrackBarOnce.Position then
+    SpinEditOnce.Value := TrackBarOnce.Position;
+end;
+
+procedure TFormMove.TrackBarRepeatChange(Sender: TObject);
+begin
+  if SpinEditRepeat.Value <> TrackBarRepeat.Position then
+    SpinEditRepeat.Value := TrackBarRepeat.Position;
+end;
+
+procedure TFormMove.SpinEditOnceChange(Sender: TObject);
+begin
+  if SpinEditOnce.Value <> TrackBarOnce.Position then
+    TrackBarOnce.Position := SpinEditOnce.Value;
+end;
+
+procedure TFormMove.SpinEditRepeatChange(Sender: TObject);
+begin
+  if SpinEditRepeat.Value <> TrackBarRepeat.Position then
+    TrackBarRepeat.Position := SpinEditRepeat.Value;
+end;
+
 end.