Changeset 62 for trunk/Forms/UFormMain.lfm

Timestamp:

Sep 26, 2014, 1:58:41 PM (10 years ago)

Author:

chronos

Message:

• Modified: Show one bigger arrow between two cells on unit move.
• Added: New move clear existing counter move.
• Modified: Move toolbar to left to have more space on top.

File:

• trunk/Forms/UFormMain.lfm (modified) (3 diffs)

trunk/Forms/UFormMain.lfm

@@ -16 +16 @@
   WindowState = wsMaximized
   object PaintBox1: TPaintBox
-    Left = 0
-    Height = 547
-    Top = 32
-    Width = 775
+    Left = 40
+    Height = 579
+    Top = 0
+    Width = 735
     Align = alClient
     OnMouseDown = PaintBox1MouseDown
@@ -49 +49 @@
   object ToolBar1: TToolBar
     Left = 0
+    Height = 579
     Top = 0
-    Width = 775
+    Width = 40
+    Align = alLeft
     ButtonHeight = 32
     ButtonWidth = 32
@@ -64 +66 @@
     end
     object ToolButton2: TToolButton
-      Left = 33
-      Top = 2
+      Left = 1
+      Top = 34
       Action = Core.AGameEndTurn
     end
     object ToolButton3: TToolButton
-      Left = 65
-      Top = 2
+      Left = 1
+      Top = 66
       Action = Core.AGameEnd
     end
     object ToolButton4: TToolButton
-      Left = 97
-      Top = 2
+      Left = 1
+      Top = 98
       Action = Core.AGameRestart
     end
     object ToolButton5: TToolButton
-      Left = 129
-      Top = 2
+      Left = 1
+      Top = 130
       Action = Core.ASettings
     end
     object ToolButton6: TToolButton
-      Left = 171
-      Top = 2
+      Left = 1
+      Top = 194
       Action = AZoomIn
     end
     object ToolButton7: TToolButton
-      Left = 203
-      Top = 2
+      Left = 1
+      Top = 226
       Action = AZoomOut
     end
     object ToolButton8: TToolButton
-      Left = 235
-      Top = 2
+      Left = 1
+      Top = 258
       Action = AZoomAll
     end
     object ToolButton9: TToolButton
-      Left = 161
-      Top = 2
-      Width = 10
+      Left = 1
+      Top = 162
+      Width = 32
       Caption = 'ToolButton9'
       Style = tbsSeparator