Changeset 39 for trunk/Forms/UFormNew.pas

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.pas (modified) (3 diffs)

trunk/Forms/UFormNew.pas

@@ -21 +21 @@
     CheckBoxVoid: TCheckBox;
     CheckBoxCity: TCheckBox;
+    ComboBoxGridType: TComboBox;
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
     Label4: TLabel;
+    Label5: TLabel;
     ListView1: TListView;
     RadioGroupGrowCells: TRadioGroup;
@@ -194 +196 @@
   RadioGroupGrowAmount.ItemIndex := Integer(Game.GrowAmount);
   RadioGroupGrowCells.ItemIndex := Integer(Game.GrowCells);
+  ComboBoxGridType.ItemIndex := Integer(Game.MapType) - 1;
 end;
 
@@ -215 +218 @@
   Game.GrowAmount := TGrowAmount(RadioGroupGrowAmount.ItemIndex);
   Game.GrowCells := TGrowCells(RadioGroupGrowCells.ItemIndex);
+  Game.MapType := TMapType(ComboBoxGridType.ItemIndex + 1);
 end;