Changeset 282 for trunk/Forms/UFormPlayer.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/UFormPlayer.pas (modified) (5 diffs)

trunk/Forms/UFormPlayer.pas

@@ -20 +20 @@
     ComboBoxMode: TComboBox;
     ComboBoxAgressivity: TComboBox;
+    ComboBoxNation: TComboBox;
     EditName: TEdit;
     Label1: TLabel;
@@ -26 +27 @@
     Label4: TLabel;
     Label5: TLabel;
+    Label6: TLabel;
     SpinEditStartUnits: TSpinEdit;
     procedure ComboBoxModeChange(Sender: TObject);
@@ -48 +50 @@
 
 uses
-  UCore;
+  UCore, UNation;
 
 resourcestring
@@ -111 +113 @@
 
 procedure TFormPlayer.LoadData(Player: TPlayer);
+var
+  I: Integer;
 begin
+  while ComboBoxNation.Items.Count > TGame(Player.Game).GameSystem.Nations.Count do
+    ComboBoxNation.Items.Delete(ComboBoxNation.Items.Count - 1);
+  while ComboBoxNation.Items.Count < TGame(Player.Game).GameSystem.Nations.Count do
+    ComboBoxNation.Items.Add('');
+  for I := 0 to TGame(Player.Game).GameSystem.Nations.Count - 1 do begin
+    ComboBoxNation.Items[I] := TGame(Player.Game).GameSystem.Nations[I].Name;
+    ComboBoxNation.Items.Objects[I] := TGame(Player.Game).GameSystem.Nations[I];
+  end;
+
+  ComboBoxNation.ItemIndex := ComboBoxNation.Items.IndexOfObject(Player.Nation);
+  if (ComboBoxNation.ItemIndex = -1) and (ComboBoxNation.Items.Count > 0) then
+    ComboBoxNation.ItemIndex := 0;
+
   EditName.Text := Player.Name;
   ComboBoxMode.ItemIndex := Integer(Player.Mode);
@@ -123 +140 @@
 procedure TFormPlayer.SaveData(Player: TPlayer);
 begin
+  Player.Nation := TNation(ComboBoxNation.Items.Objects[ComboBoxNation.ItemIndex]);
   Player.Name := EditName.Text;
   Player.Mode := TPlayerMode(ComboBoxMode.ItemIndex);