Changeset 36 for trunk/Forms/UFormNew.pas
- Timestamp:
- Mar 8, 2014, 12:01:08 AM (11 years ago)
- Location:
- trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk
- Property svn:ignore
-
old new 5 5 xtactics.dbg 6 6 heaptrclog.trc 7 Config.xml
-
- Property svn:ignore
-
trunk/Forms/UFormNew.pas
r34 r36 24 24 Label3: TLabel; 25 25 ListView1: TListView; 26 SpinEdit 1: TSpinEdit;26 SpinEditVoidPercent: TSpinEdit; 27 27 SpinEditMapSizeX: TSpinEdit; 28 28 SpinEditMapSizeY: TSpinEdit; 29 TrackBarSizeX: TTrackBar; 30 TrackBarSizeY: TTrackBar; 29 31 procedure ButtonPlayerAddClick(Sender: TObject); 30 32 procedure ButtonPlayerModifyChangeBounds(Sender: TObject); … … 38 40 procedure ListView1SelectItem(Sender: TObject; Item: TListItem; 39 41 Selected: Boolean); 42 procedure SpinEditMapSizeXChange(Sender: TObject); 43 procedure SpinEditMapSizeYChange(Sender: TObject); 44 procedure TrackBarSizeYChange(Sender: TObject); 45 procedure TrackBarSizeXChange(Sender: TObject); 40 46 private 41 47 Players: TPlayers; … … 76 82 end; 77 83 84 procedure TFormNew.SpinEditMapSizeXChange(Sender: TObject); 85 begin 86 TrackBarSizeX.Position := SpinEditMapSizeX.Value; 87 end; 88 89 procedure TFormNew.SpinEditMapSizeYChange(Sender: TObject); 90 begin 91 TrackBarSizeY.Position := SpinEditMapSizeY.Value; 92 end; 93 94 procedure TFormNew.TrackBarSizeYChange(Sender: TObject); 95 begin 96 SpinEditMapSizeY.Value := TrackBarSizeY.Position; 97 end; 98 99 procedure TFormNew.TrackBarSizeXChange(Sender: TObject); 100 begin 101 SpinEditMapSizeX.Value := TrackBarSizeX.Position; 102 end; 103 78 104 procedure TFormNew.ReloadView; 79 105 begin … … 104 130 procedure TFormNew.CheckBoxVoidChange(Sender: TObject); 105 131 begin 106 SpinEdit 1.Enabled := CheckBoxVoid.Checked;132 SpinEditVoidPercent.Enabled := CheckBoxVoid.Checked; 107 133 end; 108 134 … … 142 168 begin 143 169 CheckBoxVoid.Checked := Game.VoidEnabled; 144 SpinEdit 1.Value := Game.VoidPercentage;145 SpinEdit 1.Enabled := Game.VoidEnabled;170 SpinEditVoidPercent.Value := Game.VoidPercentage; 171 SpinEditVoidPercent.Enabled := Game.VoidEnabled; 146 172 for I := 0 to Players.Count - 1 do 147 173 Players[I] := nil; … … 168 194 end; 169 195 Game.VoidEnabled := CheckBoxVoid.Checked; 170 Game.VoidPercentage := SpinEdit 1.Value;196 Game.VoidPercentage := SpinEditVoidPercent.Value; 171 197 Game.Map.Size := Point(SpinEditMapSizeX.Value, SpinEditMapSizeY.Value); 172 198 end;
Note:
See TracChangeset
for help on using the changeset viewer.