Changeset 39 for trunk/Forms/UFormNew.lfm

Timestamp:

Mar 10, 2014, 11:01:14 PM (11 years ago)

Author:

chronos

Message:

• Added: Option to create hexagonal or square map. This is implemented using object inheritance and virtual methods of class TMap.
• Added: Dummy actions to load and save map.

File:

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

trunk/Forms/UFormNew.lfm

@@ -35 +35 @@
     Height = 24
     Top = 276
-    Width = 194
+    Width = 175
     Caption = 'Inaccessible places'
     OnChange = CheckBoxVoidChange
@@ -92 +92 @@
     Height = 22
     Top = 184
-    Width = 99
+    Width = 88
     Caption = 'Map width:'
     ParentColor = False
@@ -139 +139 @@
     Height = 22
     Top = 277
-    Width = 17
+    Width = 15
     Caption = '%'
     ParentColor = False
@@ -173 +173 @@
     Height = 22
     Top = 232
-    Width = 106
+    Width = 94
     Caption = 'Map height:'
     ParentColor = False
@@ -181 +181 @@
     Height = 24
     Top = 316
-    Width = 73
+    Width = 68
     Caption = 'Cities'
     OnChange = CheckBoxCityChange
@@ -199 +199 @@
     Height = 22
     Top = 317
-    Width = 17
+    Width = 15
     Caption = '%'
     ParentColor = False
@@ -248 +248 @@
     TabOrder = 15
   end
+  object ComboBoxGridType: TComboBox
+    Left = 320
+    Height = 32
+    Top = 376
+    Width = 208
+    ItemHeight = 0
+    Items.Strings = (
+      'Hexagonal'
+      'Square'
+    )
+    Style = csDropDownList
+    TabOrder = 16
+  end
+  object Label5: TLabel
+    Left = 224
+    Height = 22
+    Top = 376
+    Width = 79
+    Caption = 'Grid type:'
+    ParentColor = False
+  end
 end