Changeset 100 for trunk/Forms/UFormMain.lfm

Timestamp:

Dec 26, 2014, 8:10:40 PM (10 years ago)

Author:

chronos

Message:

• Added: Support for autogeneration of bridges between separated areas.

File:

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

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 775
   Caption = 'xTactics'
-  ClientHeight = 592
+  ClientHeight = 595
   ClientWidth = 775
   Menu = MainMenu1
@@ -18 +18 @@
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 29
-    Top = 563
+    Height = 26
+    Top = 569
     Width = 775
     Panels = <    
@@ -35 +35 @@
   object ToolBar1: TToolBar
     Left = 0
-    Height = 563
+    Height = 569
     Top = 0
     Width = 40
@@ -73 +73 @@
     object ToolButton6: TToolButton
       Left = 1
-      Top = 172
+      Top = 194
       Action = AZoomIn
     end
     object ToolButton7: TToolButton
       Left = 1
-      Top = 204
+      Top = 226
       Action = AZoomOut
     end
     object ToolButton8: TToolButton
       Left = 1
-      Top = 236
+      Top = 258
       Action = AZoomAll
     end
     object ToolButton9: TToolButton
       Left = 1
+      Height = 32
       Top = 162
       Width = 32
@@ -94 +95 @@
     object ToolButton10: TToolButton
       Left = 1
-      Top = 268
+      Height = 32
+      Top = 290
       Width = 32
       Style = tbsSeparator
@@ -100 +102 @@
     object ToolButton11: TToolButton
       Left = 1
-      Top = 278
+      Top = 322
       Action = Core.AGameLoad
     end
     object ToolButton12: TToolButton
       Left = 1
-      Top = 310
+      Top = 354
       Action = Core.AGameSave
     end
     object ToolButton13: TToolButton
       Left = 1
-      Top = 342
+      Top = 386
       Action = Core.AExit
     end
@@ -116 +118 @@
   object PaintBox1: TPaintBox
     Left = 40
-    Height = 563
+    Height = 569
     Top = 0
     Width = 735
     Align = alClient
     OnMouseDown = PaintBox1MouseDown
+    OnMouseLeave = PaintBox1MouseLeave
     OnMouseMove = PaintBox1MouseMove
     OnMouseUp = PaintBox1MouseUp
-    OnMouseLeave = PaintBox1MouseLeave
     OnMouseWheelDown = PaintBox1MouseWheelDown
     OnMouseWheelUp = PaintBox1MouseWheelUp