Changeset 193 for trunk/Forms/UFormNew.pas

Timestamp:

May 14, 2018, 5:02:00 PM (6 years ago)

Author:

chronos

Message:

• Added: Isometric map type.
• Modified: Removed unneeded explicit typecast for list items.

File:

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

trunk/Forms/UFormNew.pas

@@ -125 +125 @@
   SGridTypeTriangle = 'Triangonal';
   SGridTypeVoronoi = 'Voronoi random';
+  SGridTypeIsometric = 'Isometric';
   SWinObjectiveDefeatAllOponents = 'Defeat all oponents';
   SWinObjectiveDefeatAllCities = 'Defeat all oponents cities';
@@ -143 +144 @@
 begin
   if (Item.Index >= 0) and (Item.Index < Players.Count) then
-  with TPlayer(Players[Item.Index]) do begin
+  with Players[Item.Index] do begin
     Item.Caption := Name;
     Item.Data := Players[Item.Index];
@@ -211 +212 @@
     Items.Add(SGridTypeTriangle);
     Items.Add(SGridTypeVoronoi);
+    Items.Add(SGridTypeIsometric);
     ItemIndex := LastIndex;
   end;