Changeset 55 for trunk/Forms/UFormNew.pas

Timestamp:

Aug 18, 2014, 9:34:15 AM (10 years ago)

Author:

chronos

Message:

• Fixed: More translation of TGroupBox and TComboBox items.
• Fixed: Shape of hexagon was not regular due to rounding error in polygon generation and drawing. Cells are now generated internally as bigger to avoid rounding error.
• Fixed: After game end do not allow to execute End turn and End game actions.
• Added: Preparation for random voronoi map. So far hidden in developer mode as algorithm is missing.

File:

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

trunk/Forms/UFormNew.pas

@@ -69 +69 @@
     Players: TPlayers;
   public
+    procedure Translate;
     procedure ReloadView;
     procedure Load(Game: TGame);
@@ -82 +83 @@
 
 uses
-  UFormPlayer;
+  UFormPlayer, UCore;
+
+resourcestring
+  SGridTypeHexagon = 'Hexagonal';
+  SGridTypeSquare = 'Square';
+  SGridTypeTriangle = 'Triangonal';
+  SGridTypeVoronoi = 'Voronoi random';
+  SWinObjectiveDefeatAllOponents = 'Defeat all oponents';
+  SWinObjectiveDefeatAllCities = 'Defeat all oponents cities';
+  SWinObjectiveCapturePosition = 'Capture position';
+  SWinObjectiveStayAliveForTurns = 'Stay alive for number of turns';
+  SGrowNone = 'None';
+  SGrowPlayerCities = 'Player cities';
+  SGrowPlayerAllCells = 'Player all cells';
+  SGrowAmountByOne = 'By one';
+  SGrowAmountBySquareRoot = 'By square root';
+
 
 { TFormNew }
@@ -141 +158 @@
 end;
 
+procedure TFormNew.Translate;
+var
+  LastIndex: Integer;
+begin
+  with ComboBoxGridType do begin
+    LastIndex := ItemIndex;
+    Clear;
+    Items.Add(SGridTypeHexagon);
+    Items.Add(SGridTypeSquare);
+    Items.Add(SGridTypeTriangle);
+    if Core.DevelMode then
+      Items.Add(SGridTypeVoronoi);
+    ItemIndex := LastIndex;
+  end;
+  with ComboBoxWinObjective do begin
+    LastIndex := ItemIndex;
+    Clear;
+    Items.Add(SWinObjectiveDefeatAllOponents);
+    Items.Add(SWinObjectiveDefeatAllCities);
+    Items.Add(SWinObjectiveCapturePosition);
+    Items.Add(SWinObjectiveStayAliveForTurns);
+    ItemIndex := LastIndex;
+  end;
+  with RadioGroupGrowCells do begin
+    LastIndex := ItemIndex;
+    Items.Clear;
+    Items.Add(SGrowNone);
+    Items.Add(SGrowPlayerCities);
+    Items.Add(SGrowPlayerAllCells);
+    ItemIndex := LastIndex;
+  end;
+  with RadioGroupGrowAmount do begin
+    LastIndex := ItemIndex;
+    Items.Clear;
+    Items.Add(SGrowAmountByOne);
+    Items.Add(SGrowAmountBySquareRoot);
+    ItemIndex := LastIndex;
+  end;
+end;
+
 procedure TFormNew.ReloadView;
 begin
@@ -148 +205 @@
   ButtonPlayerAdd.Enabled := Players.Count < MaxPlayerCount;
   APlayerModify.Enabled := Assigned(ListView1.Selected);
+  Translate;
 end;