Changeset 15 for trunk/UFormNew.pas
- Timestamp:
- Feb 19, 2014, 11:13:36 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UFormNew.pas
r6 r15 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 ComCtrls, UGame;9 ComCtrls, Spin, UGame; 10 10 11 11 type … … 19 19 ButtonPlayerRemove: TButton; 20 20 CheckBoxVoid: TCheckBox; 21 Label1: TLabel; 22 Label2: TLabel; 21 23 ListView1: TListView; 24 SpinEditMapSizeX: TSpinEdit; 25 SpinEditMapSizeY: TSpinEdit; 22 26 private 23 27 { private declarations } … … 37 41 38 42 procedure TFormNew.Load(Game: TGame); 43 var 44 I: Integer; 45 NewItem: TListItem; 39 46 begin 40 47 CheckBoxVoid.Checked := Game.VoidEnabled; 48 ListView1.Items.Clear; 49 for I := 0 to Game.Players.Count - 1 do 50 with TPlayer(Game.Players[I]) do begin 51 NewItem := ListView1.Items.Add; 52 NewItem.Caption := Name; 53 NewItem.SubItems.Add(PlayerModeText[Mode]); 54 end; 55 SpinEditMapSizeX.Value := Game.Map.Size.X; 56 SpinEditMapSizeY.Value := Game.Map.Size.Y; 41 57 end; 42 58 … … 44 60 begin 45 61 Game.VoidEnabled := CheckBoxVoid.Checked; 62 Game.Map.Size := Point(SpinEditMapSizeX.Value, SpinEditMapSizeY.Value); 46 63 end; 47 64
Note:
See TracChangeset
for help on using the changeset viewer.