Changeset 28 for trunk/UFormNew.pas

Timestamp:

Mar 3, 2014, 8:53:04 PM (10 years ago)

Author:

chronos

Message:

• Fixed: Use modified player list from New game. Allow more players then two with different colors.
• Added: Toolbar for quick access to common actions.

File:

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

trunk/UFormNew.pas

@@ -72 +72 @@
   ListView1.Refresh;
   ButtonPlayerRemove.Enabled := Assigned(ListView1.Selected);
+  ButtonPlayerAdd.Enabled := Players.Count < MaxPlayerCount;
 end;
 
@@ -96 +97 @@
 begin
   NewPlayer := TPlayer.Create;
-  NewPlayer.Name := 'Player x';
-  NewPlayer.Color := clYellow;
+  NewPlayer.Name := 'Player ' + IntToStr(Players.Count + 1);
+  NewPlayer.Color := PlayerColors[Players.Count];
   Players.Add(NewPlayer);
   ReloadView;
@@ -125 +126 @@
 
 procedure TFormNew.Save(Game: TGame);
+var
+  I: Integer;
 begin
+  while Game.Players.Count > Players.Count do
+    Game.Players.Delete(Game.Players.Count - 1);
+  while Game.Players.Count < Players.Count do
+    Game.Players.Add(TPlayer.Create);
+  for I := 0 to Game.Players.Count - 1 do begin
+    TPlayer(Game.Players[I]).Assign(TPlayer(Players[I]));
+    TPlayer(Game.Players[I]).Game := Game;
+  end;
   Game.VoidEnabled := CheckBoxVoid.Checked;
   Game.Map.Size := Point(SpinEditMapSizeX.Value, SpinEditMapSizeY.Value);