Changeset 38 for trunk/Forms/UFormNew.pas
- Timestamp:
- Mar 8, 2014, 10:34:55 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormNew.pas
r36 r38 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 ComCtrls, Spin, UGame;9 ComCtrls, Spin, ExtCtrls, UGame; 10 10 11 11 type … … 20 20 ButtonPlayerModify: TButton; 21 21 CheckBoxVoid: TCheckBox; 22 CheckBoxCity: TCheckBox; 22 23 Label1: TLabel; 23 24 Label2: TLabel; 24 25 Label3: TLabel; 26 Label4: TLabel; 25 27 ListView1: TListView; 28 RadioGroupGrowCells: TRadioGroup; 29 RadioGroupGrowAmount: TRadioGroup; 26 30 SpinEditVoidPercent: TSpinEdit; 27 31 SpinEditMapSizeX: TSpinEdit; 28 32 SpinEditMapSizeY: TSpinEdit; 33 SpinEditCityPercent: TSpinEdit; 29 34 TrackBarSizeX: TTrackBar; 30 35 TrackBarSizeY: TTrackBar; … … 33 38 procedure ButtonPlayerModifyClick(Sender: TObject); 34 39 procedure ButtonPlayerRemoveClick(Sender: TObject); 40 procedure CheckBoxCityChange(Sender: TObject); 35 41 procedure CheckBoxVoidChange(Sender: TObject); 36 42 procedure FormCreate(Sender: TObject); … … 128 134 end; 129 135 136 procedure TFormNew.CheckBoxCityChange(Sender: TObject); 137 begin 138 SpinEditCityPercent.Enabled := CheckBoxCity.Checked; 139 end; 140 130 141 procedure TFormNew.CheckBoxVoidChange(Sender: TObject); 131 142 begin … … 177 188 TPlayer(Players[I]).Assign(TPlayer(Game.Players[I])); 178 189 end; 190 CheckBoxCity.Checked := Game.CityEnabled; 191 SpinEditCityPercent.Value := Game.CityPercentage; 179 192 SpinEditMapSizeX.Value := Game.Map.Size.X; 180 193 SpinEditMapSizeY.Value := Game.Map.Size.Y; 194 RadioGroupGrowAmount.ItemIndex := Integer(Game.GrowAmount); 195 RadioGroupGrowCells.ItemIndex := Integer(Game.GrowCells); 181 196 end; 182 197 … … 195 210 Game.VoidEnabled := CheckBoxVoid.Checked; 196 211 Game.VoidPercentage := SpinEditVoidPercent.Value; 212 Game.CityEnabled := CheckBoxCity.Checked; 213 Game.CityPercentage := SpinEditCityPercent.Value; 197 214 Game.Map.Size := Point(SpinEditMapSizeX.Value, SpinEditMapSizeY.Value); 215 Game.GrowAmount := TGrowAmount(RadioGroupGrowAmount.ItemIndex); 216 Game.GrowCells := TGrowCells(RadioGroupGrowCells.ItemIndex); 198 217 end; 199 218
Note:
See TracChangeset
for help on using the changeset viewer.