Changeset 18 for trunk/UFormNew.pas

Timestamp:

Feb 26, 2014, 9:45:23 PM (11 years ago)

Author:

chronos

Message:

• Add: Player start units setting.
• Add: Allow add and remove players in new game dialog.
• Fixed: Do not allow move from to same cell.

File:

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

trunk/UFormNew.pas

@@ -24 +24 @@
     SpinEditMapSizeX: TSpinEdit;
     SpinEditMapSizeY: TSpinEdit;
+    procedure ButtonPlayerAddClick(Sender: TObject);
+    procedure ButtonPlayerRemoveClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure ListView1Data(Sender: TObject; Item: TListItem);
+    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
+      Selected: Boolean);
   private
-    { private declarations }
+    Players: TPlayers;
   public
+    procedure ReloadView;
     procedure Load(Game: TGame);
     procedure Save(Game: TGame);
@@ -40 +49 @@
 { TFormNew }
 
+procedure TFormNew.ListView1Data(Sender: TObject; Item: TListItem);
+begin
+  if (Item.Index >= 0) and (Item.Index < Players.Count) then
+  with TPlayer(Players[Item.Index]) do begin
+    Item.Caption := Name;
+    Item.Data := Players[Item.Index];
+    Item.SubItems.Add(PlayerModeText[Mode]);
+    Item.SubItems.Add(IntToStr(Color));
+    Item.SubItems.Add(IntToStr(StartUnits));
+  end;
+end;
+
+procedure TFormNew.ListView1SelectItem(Sender: TObject; Item: TListItem;
+  Selected: Boolean);
+begin
+  ReloadView;
+end;
+
+procedure TFormNew.ReloadView;
+begin
+  ListView1.Items.Count := Players.Count;
+  ListView1.Refresh;
+  ButtonPlayerRemove.Enabled := Assigned(ListView1.Selected);
+end;
+
+procedure TFormNew.FormShow(Sender: TObject);
+begin
+  ReloadView;
+end;
+
+procedure TFormNew.FormCreate(Sender: TObject);
+begin
+  Players := TPlayers.Create;
+end;
+
+procedure TFormNew.ButtonPlayerRemoveClick(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then
+    Players.Remove(ListView1.Selected.Data);
+  ReloadView;
+end;
+
+procedure TFormNew.ButtonPlayerAddClick(Sender: TObject);
+var
+  NewPlayer: TPlayer;
+begin
+  NewPlayer := TPlayer.Create;
+  NewPlayer.Name := 'Player x';
+  NewPlayer.Color := clYellow;
+  Players.Add(NewPlayer);
+  ReloadView;
+end;
+
+procedure TFormNew.FormDestroy(Sender: TObject);
+begin
+  Players.Free;
+end;
+
 procedure TFormNew.Load(Game: TGame);
 var
@@ -46 +113 @@
 begin
   CheckBoxVoid.Checked := Game.VoidEnabled;
-  ListView1.Items.Clear;
-  for I := 0 to Game.Players.Count - 1 do
-  with TPlayer(Game.Players[I]) do begin
-    NewItem := ListView1.Items.Add;
-    NewItem.Caption := Name;
-    NewItem.SubItems.Add(PlayerModeText[Mode]);
+  for I := 0 to Players.Count - 1 do
+    TPlayer(Players[I]).Free;
+  Players.Count := Game.Players.Count;
+  for I := 0 to Game.Players.Count - 1 do begin
+    Players[I] := TPlayer.Create;
+    TPlayer(Players[I]).Assign(TPlayer(Game.Players[I]));
   end;
   SpinEditMapSizeX.Value := Game.Map.Size.X;