Changeset 76 for trunk/Forms/UFormNew.pas

Timestamp:

Oct 5, 2014, 1:34:43 PM (10 years ago)

Author:

chronos

Message:

• Modified: More changes to support game load from file.
• Fixed: Require at least one player in new game.

File:

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

trunk/Forms/UFormNew.pas

@@ -228 +228 @@
   ListView1.Items.Count := Players.Count;
   ListView1.Refresh;
-  ButtonPlayerRemove.Enabled := Assigned(ListView1.Selected);
+  ButtonPlayerRemove.Enabled := Assigned(ListView1.Selected) and (Players.Count > 1);
   ButtonPlayerAdd.Enabled := Players.Count < MaxPlayerCount;
   APlayerModify.Enabled := Assigned(ListView1.Selected);
@@ -306 +306 @@
   if Players.Count <= (MaxPlayerCount - 1) then begin
     NewPlayer := TPlayer.Create;
-    NewPlayer.Name := 'Player ' + IntToStr(Players.Count + 1);
+    NewPlayer.Id := Players.GetNewPlayerId;
+    NewPlayer.Name := SPlayer + ' ' + IntToStr(NewPlayer.Id);
     NewPlayer.Color := PlayerColors[Players.Count];
     NewPlayer.Mode := pmComputer;
@@ -335 +336 @@
     TPlayer(Players[I]).Assign(TPlayer(Game.Players[I]));
   end;
+  Players.NewPlayerId := Game.Players.NewPlayerId;
+
   CheckBoxCity.Checked := Game.CityEnabled;
   SpinEditCityPercent.Value := Game.CityPercentage;
@@ -362 +365 @@
     TPlayer(Game.Players[I]).Game := Game;
   end;
+  Game.Players.NewPlayerId := Players.NewPlayerId;
   Game.SymetricMap := CheckBoxSymetricMap.Checked;
   Game.VoidEnabled := CheckBoxVoid.Checked;