Changeset 170 for trunk/Forms/UFormMain.lfm

Timestamp:

Nov 23, 2017, 5:02:49 PM (6 years ago)

Author:

chronos

Message:

• Modified: UGeometry unit rewritten to use generics and define own TPoint and TRect types.

File:

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

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 775
   Caption = 'xTactics'
-  ClientHeight = 587
+  ClientHeight = 596
   ClientWidth = 775
   Menu = MainMenu1
@@ -13 +13 @@
   OnKeyUp = FormKeyUp
   OnShow = FormShow
-  LCLVersion = '1.8.0.4'
+  LCLVersion = '1.6.4.0'
   WindowState = wsMaximized
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 30
-    Top = 557
+    Height = 28
+    Top = 568
     Width = 775
     Panels = <    
@@ -34 +34 @@
   object ToolBar1: TToolBar
     Left = 0
-    Height = 557
+    Height = 568
     Top = 0
     Width = 32
@@ -72 +72 @@
     object ToolButton6: TToolButton
       Left = 1
-      Top = 170
+      Top = 194
       Action = AZoomIn
     end
     object ToolButton7: TToolButton
       Left = 1
-      Top = 202
+      Top = 226
       Action = AZoomOut
     end
     object ToolButton8: TToolButton
       Left = 1
-      Top = 234
+      Top = 258
       Action = AZoomAll
     end
     object ToolButton9: TToolButton
       Left = 1
+      Height = 32
       Top = 162
       Width = 32
@@ -93 +94 @@
     object ToolButton10: TToolButton
       Left = 1
-      Top = 266
+      Height = 32
+      Top = 290
       Width = 32
       Style = tbsSeparator
@@ -99 +101 @@
     object ToolButton11: TToolButton
       Left = 1
-      Top = 274
+      Top = 322
       Action = Core.AGameLoad
     end
     object ToolButton12: TToolButton
       Left = 1
-      Top = 306
+      Top = 354
       Action = Core.AGameSave
     end
     object ToolButton13: TToolButton
       Left = 1
-      Top = 338
+      Top = 386
       Action = Core.AExit
     end
@@ -115 +117 @@
   object PaintBox1: TPaintBox
     Left = 32
-    Height = 557
+    Height = 568
     Top = 0
     Width = 743