Changeset 42 for trunk/Forms/UFormNew.pas

Timestamp:

Mar 18, 2014, 12:16:04 AM (11 years ago)

Author:

chronos

Message:

• Added: Min and Max buttons on unit move form for easy usual actions.
• Added: Win objective can be selected on New game form.
• Added: Max number of netureal starting units per cell cen be adjusted.
• Added: Unit count is shown in move arrows.

File:

• trunk/Forms/UFormNew.pas (modified) (5 diffs)

trunk/Forms/UFormNew.pas

@@ -26 +26 @@
     CheckBoxVoid: TCheckBox;
     ComboBoxGridType: TComboBox;
+    ComboBoxWinObjective: TComboBox;
     Label1: TLabel;
     Label2: TLabel;
@@ -31 +32 @@
     Label4: TLabel;
     Label5: TLabel;
+    Label6: TLabel;
+    Label7: TLabel;
     ListView1: TListView;
     Panel1: TPanel;
@@ -39 +42 @@
     SpinEditMapSizeX: TSpinEdit;
     SpinEditMapSizeY: TSpinEdit;
+    SpinEditNeutralUnits: TSpinEdit;
     SpinEditVoidPercent: TSpinEdit;
     Splitter1: TSplitter;
@@ -228 +232 @@
   RadioGroupGrowCells.ItemIndex := Integer(Game.GrowCells);
   ComboBoxGridType.ItemIndex := Integer(Game.MapType) - 1;
+  ComboBoxWinObjective.ItemIndex := Integer(Game.WinObjective);
+  SpinEditNeutralUnits.Value := Game.MaxNeutralUnits;
 end;
 
@@ -250 +256 @@
   Game.GrowCells := TGrowCells(RadioGroupGrowCells.ItemIndex);
   Game.MapType := TMapType(ComboBoxGridType.ItemIndex + 1);
+  Game.WinObjective := TWinObjective(ComboBoxWinObjective.ItemIndex);
+  Game.MaxNeutralUnits := SpinEditNeutralUnits.Value;
 end;