Changeset 282 for trunk/Forms/UFormPlayers.pas

Timestamp:

Mar 10, 2019, 4:48:41 PM (6 years ago)

Author:

chronos

Message:

• Modified: Allow to set nation in player settings.

File:

• trunk/Forms/UFormPlayers.pas (modified) (2 diffs)

trunk/Forms/UFormPlayers.pas

@@ -131 +131 @@
     TempEntry.Id := Players.GetNewId;
     TempEntry.Name := SPlayer + ' ' + IntToStr(TempEntry.Id);
-    TempEntry.Color := PlayerColors[Players.Count];
+    TempEntry.Nation := Core.Game.GameSystem.Nations.First;
+    TempEntry.Color := TempEntry.Nation.Color;
     TempEntry.Mode := pmComputer;
     TempEntry.Agressivity := caMedium;
@@ -204 +205 @@
     Item.SubItems.Add(PlayerModeText[Mode]);
     Item.SubItems.Add(''); // Do not show color text
+    if Assigned(Nation) then Item.SubItems.Add(Nation.Name)
+      else Item.SubItems.Add('');
     Item.SubItems.Add(IntToStr(StartUnits));
   end;