Changeset 26 for trunk/UFormMove.lfm

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.lfm (modified) (5 diffs)

trunk/UFormMove.lfm

@@ -14 +14 @@
     Top = 16
     Width = 98
+    OnChange = SpinEditOnceChange
     TabOrder = 0
   end
   object Label1: TLabel
-    Left = 32
+    Left = 24
     Height = 22
-    Top = 32
+    Top = 16
     Width = 46
     Caption = 'Once:'
@@ -27 +28 @@
     Left = 192
     Height = 25
-    Top = 193
+    Top = 200
     Width = 75
     Caption = 'Ok'
@@ -37 +38 @@
     Left = 72
     Height = 25
-    Top = 192
+    Top = 200
     Width = 75
     Caption = 'Cancel'
@@ -44 +45 @@
   end
   object Label2: TLabel
-    Left = 32
+    Left = 24
     Height = 22
-    Top = 104
+    Top = 120
     Width = 87
     Caption = 'Every turn:'
@@ -54 +55 @@
     Left = 208
     Height = 32
-    Top = 96
+    Top = 112
     Width = 98
+    OnChange = SpinEditRepeatChange
     TabOrder = 3
   end
+  object TrackBarOnce: TTrackBar
+    Left = 8
+    Height = 43
+    Top = 55
+    Width = 296
+    OnChange = TrackBarOnceChange
+    Position = 0
+    TickStyle = tsNone
+    Anchors = [akTop, akLeft, akRight]
+    TabOrder = 4
+  end
+  object TrackBarRepeat: TTrackBar
+    Left = 8
+    Height = 43
+    Top = 152
+    Width = 304
+    OnChange = TrackBarRepeatChange
+    Position = 0
+    TickStyle = tsNone
+    Anchors = [akTop, akLeft, akRight]
+    TabOrder = 5
+  end
 end