Changeset 284 for trunk/Forms/UFormPlayers.pas

Timestamp:

Mar 10, 2019, 6:19:51 PM (6 years ago)

Author:

chronos

Message:

• Modified: TNation and TNations classes now uses generic TItem and TItemList classes.
• Added: Translation files for LCL.

File:

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

trunk/Forms/UFormPlayers.pas

@@ -69 +69 @@
 
 uses
-  UCore, UFormPlayer, UGame;
+  UCore, UFormPlayer, UGame, UNation;
 
 resourcestring
@@ -131 +131 @@
     TempEntry.Id := Players.GetNewId;
     TempEntry.Name := SPlayer + ' ' + IntToStr(TempEntry.Id);
-    TempEntry.Nation := Core.Game.GameSystem.Nations.First;
+    TempEntry.Nation := TNation(Core.Game.GameSystem.Nations.First);
     TempEntry.Color := TempEntry.Nation.Color;
     TempEntry.Mode := pmComputer;
     TempEntry.Agressivity := caMedium;
+    TempEntry.Game := Players.Game;
     FormPlayer.LoadData(TempEntry);
     if FormPlayer.ShowModal = mrOk then begin