Changeset 15 for trunk/UFormNew.pas

Timestamp:

Feb 19, 2014, 11:13:36 PM (11 years ago)

Author:

chronos

Message:

• Added: Size of map can be adjusted in New game dialog.

File:

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

trunk/UFormNew.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, UGame;
+  ComCtrls, Spin, UGame;
 
 type
@@ -19 +19 @@
     ButtonPlayerRemove: TButton;
     CheckBoxVoid: TCheckBox;
+    Label1: TLabel;
+    Label2: TLabel;
     ListView1: TListView;
+    SpinEditMapSizeX: TSpinEdit;
+    SpinEditMapSizeY: TSpinEdit;
   private
     { private declarations }
@@ -37 +41 @@
 
 procedure TFormNew.Load(Game: TGame);
+var
+  I: Integer;
+  NewItem: TListItem;
 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]);
+  end;
+  SpinEditMapSizeX.Value := Game.Map.Size.X;
+  SpinEditMapSizeY.Value := Game.Map.Size.Y;
 end;
 
@@ -44 +60 @@
 begin
   Game.VoidEnabled := CheckBoxVoid.Checked;
+  Game.Map.Size := Point(SpinEditMapSizeX.Value, SpinEditMapSizeY.Value);
 end;