Changeset 31 for trunk/UFormNew.pas
- Timestamp:
- Mar 4, 2014, 10:18:09 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UFormNew.pas
r30 r31 22 22 Label1: TLabel; 23 23 Label2: TLabel; 24 Label3: TLabel; 24 25 ListView1: TListView; 26 SpinEdit1: TSpinEdit; 25 27 SpinEditMapSizeX: TSpinEdit; 26 28 SpinEditMapSizeY: TSpinEdit; … … 29 31 procedure ButtonPlayerModifyClick(Sender: TObject); 30 32 procedure ButtonPlayerRemoveClick(Sender: TObject); 33 procedure CheckBoxVoidChange(Sender: TObject); 31 34 procedure FormCreate(Sender: TObject); 32 35 procedure FormDestroy(Sender: TObject); … … 99 102 end; 100 103 104 procedure TFormNew.CheckBoxVoidChange(Sender: TObject); 105 begin 106 SpinEdit1.Enabled := CheckBoxVoid.Checked; 107 end; 108 101 109 procedure TFormNew.ButtonPlayerAddClick(Sender: TObject); 102 110 var … … 134 142 begin 135 143 CheckBoxVoid.Checked := Game.VoidEnabled; 144 SpinEdit1.Value := Game.VoidPercentage; 145 SpinEdit1.Enabled := Game.VoidEnabled; 136 146 for I := 0 to Players.Count - 1 do 137 147 Players[I] := nil; … … 158 168 end; 159 169 Game.VoidEnabled := CheckBoxVoid.Checked; 170 Game.VoidPercentage := SpinEdit1.Value; 160 171 Game.Map.Size := Point(SpinEditMapSizeX.Value, SpinEditMapSizeY.Value); 161 172 end;
Note:
See TracChangeset
for help on using the changeset viewer.