Changeset 330 for trunk/Forms/FormGameSystem.pas

Timestamp:

Jul 19, 2024, 9:46:33 PM (2 months ago)

Author:

chronos

Message:

• Fixed: New game symetric map units calcualtion.
• Fixed: Map preview with cell and unit borders.
• Fixed: Allow to set preferred game system grid type.

File:

• trunk/Forms/FormGameSystem.pas (modified) (7 diffs)

trunk/Forms/FormGameSystem.pas

@@ -19 +19 @@
     CheckBoxUnitsMoveImmediately: TCheckBox;
     CheckBoxUnitsSplitMerge: TCheckBox;
+    ComboBoxPreferredGridType: TComboBox;
+    Label5: TLabel;
     OpenDialog1: TOpenDialog;
     PageControl1: TPageControl;
@@ -36 +38 @@
     FormBuildingKinds: TFormList;
     procedure SetGameSystem(AValue: TGameSystem);
+    procedure Translate;
   public
     property GameSystem: TGameSystem read FGameSystem write SetGameSystem;
@@ -47 +50 @@
 {$R *.lfm}
 
+uses
+  MapType;
+
 resourcestring
   SFileDialogFilter = 'xTactics game system (.xts)|*.xts|All files|*.*';
+
 
 { TFormGameSystem }
@@ -88 +95 @@
   FormBuildingKinds.Align := alClient;
   FormBuildingKinds.Visible := True;
+  Translate;
 end;
 
@@ -114 +122 @@
 end;
 
+procedure TFormGameSystem.Translate;
+var
+  LastIndex: Integer;
+begin
+  with ComboBoxPreferredGridType do begin
+    LastIndex := ItemIndex;
+    Clear;
+    Items.AddObject(SGridTypeNone, TObject(mtNone));
+    Items.AddObject(SGridTypeHexagonVertical, TObject(mtHexagonVertical));
+    Items.AddObject(SGridTypeHexagonHorizontal, TObject(mtHexagonHorizontal));
+    Items.AddObject(SGridTypeSquare, TObject(mtSquare));
+    Items.AddObject(SGridTypeTriangle, TObject(mtTriangle));
+    Items.AddObject(SGridTypeRandom, TObject(mtRandom));
+    Items.AddObject(SGridTypeIsometric, TObject(mtIsometric));
+    ItemIndex := LastIndex;
+  end;
+end;
+
 procedure TFormGameSystem.LoadData(GameSystem: TGameSystem);
 begin
@@ -120 +146 @@
   CheckBoxUnitsSplitMerge.Checked := GameSystem.UnitsSplitMerge;
   CheckBoxUnitsMoveImmediately.Checked := GameSystem.UnitsMoveImmediately;
+  ComboBoxPreferredGridType.ItemIndex := Integer(GameSystem.PreferedMapType);
   FormNations.UpdateList;
   FormNations.UpdateInterface;
@@ -134 +161 @@
   GameSystem.UnitsSplitMerge := CheckBoxUnitsSplitMerge.Checked;
   GameSystem.UnitsMoveImmediately := CheckBoxUnitsMoveImmediately.Checked;
+  GameSystem.PreferedMapType := TMapType(ComboBoxPreferredGridType.ItemIndex);
 end;