Changeset 28 for trunk/UFormNew.pas
- Timestamp:
- Mar 3, 2014, 8:53:04 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UFormNew.pas
r19 r28 72 72 ListView1.Refresh; 73 73 ButtonPlayerRemove.Enabled := Assigned(ListView1.Selected); 74 ButtonPlayerAdd.Enabled := Players.Count < MaxPlayerCount; 74 75 end; 75 76 … … 96 97 begin 97 98 NewPlayer := TPlayer.Create; 98 NewPlayer.Name := 'Player x';99 NewPlayer.Color := clYellow;99 NewPlayer.Name := 'Player ' + IntToStr(Players.Count + 1); 100 NewPlayer.Color := PlayerColors[Players.Count]; 100 101 Players.Add(NewPlayer); 101 102 ReloadView; … … 125 126 126 127 procedure TFormNew.Save(Game: TGame); 128 var 129 I: Integer; 127 130 begin 131 while Game.Players.Count > Players.Count do 132 Game.Players.Delete(Game.Players.Count - 1); 133 while Game.Players.Count < Players.Count do 134 Game.Players.Add(TPlayer.Create); 135 for I := 0 to Game.Players.Count - 1 do begin 136 TPlayer(Game.Players[I]).Assign(TPlayer(Players[I])); 137 TPlayer(Game.Players[I]).Game := Game; 138 end; 128 139 Game.VoidEnabled := CheckBoxVoid.Checked; 129 140 Game.Map.Size := Point(SpinEditMapSizeX.Value, SpinEditMapSizeY.Value);
Note:
See TracChangeset
for help on using the changeset viewer.