Changeset 36 for trunk/Forms/UFormNew.pas

Timestamp:

Mar 8, 2014, 12:01:08 AM (11 years ago)

Author:

chronos

Message:

• Added: Save and load game setting to persistent XML config file.
• Fixed: Show error on player start cell initialization if there is not free place for other start cells.

Location:

trunk

Files:

• . (modified) (1 prop)
• Forms/UFormNew.pas (modified) (6 diffs)

trunk

@@ -5 +5 @@
 xtactics.dbg
 heaptrclog.trc
+Config.xml

@@ -5 +5 @@
 xtactics.dbg
 heaptrclog.trc
+Config.xml

trunk/Forms/UFormNew.pas

@@ -24 +24 @@
     Label3: TLabel;
     ListView1: TListView;
-    SpinEdit1: TSpinEdit;
+    SpinEditVoidPercent: TSpinEdit;
     SpinEditMapSizeX: TSpinEdit;
     SpinEditMapSizeY: TSpinEdit;
+    TrackBarSizeX: TTrackBar;
+    TrackBarSizeY: TTrackBar;
     procedure ButtonPlayerAddClick(Sender: TObject);
     procedure ButtonPlayerModifyChangeBounds(Sender: TObject);
@@ -38 +40 @@
     procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
       Selected: Boolean);
+    procedure SpinEditMapSizeXChange(Sender: TObject);
+    procedure SpinEditMapSizeYChange(Sender: TObject);
+    procedure TrackBarSizeYChange(Sender: TObject);
+    procedure TrackBarSizeXChange(Sender: TObject);
   private
     Players: TPlayers;
@@ -76 +82 @@
 end;
 
+procedure TFormNew.SpinEditMapSizeXChange(Sender: TObject);
+begin
+  TrackBarSizeX.Position := SpinEditMapSizeX.Value;
+end;
+
+procedure TFormNew.SpinEditMapSizeYChange(Sender: TObject);
+begin
+  TrackBarSizeY.Position := SpinEditMapSizeY.Value;
+end;
+
+procedure TFormNew.TrackBarSizeYChange(Sender: TObject);
+begin
+  SpinEditMapSizeY.Value := TrackBarSizeY.Position;
+end;
+
+procedure TFormNew.TrackBarSizeXChange(Sender: TObject);
+begin
+  SpinEditMapSizeX.Value := TrackBarSizeX.Position;
+end;
+
 procedure TFormNew.ReloadView;
 begin
@@ -104 +130 @@
 procedure TFormNew.CheckBoxVoidChange(Sender: TObject);
 begin
-  SpinEdit1.Enabled := CheckBoxVoid.Checked;
+  SpinEditVoidPercent.Enabled := CheckBoxVoid.Checked;
 end;
 
@@ -142 +168 @@
 begin
   CheckBoxVoid.Checked := Game.VoidEnabled;
-  SpinEdit1.Value := Game.VoidPercentage;
-  SpinEdit1.Enabled := Game.VoidEnabled;
+  SpinEditVoidPercent.Value := Game.VoidPercentage;
+  SpinEditVoidPercent.Enabled := Game.VoidEnabled;
   for I := 0 to Players.Count - 1 do
     Players[I] := nil;
@@ -168 +194 @@
   end;
   Game.VoidEnabled := CheckBoxVoid.Checked;
-  Game.VoidPercentage := SpinEdit1.Value;
+  Game.VoidPercentage := SpinEditVoidPercent.Value;
   Game.Map.Size := Point(SpinEditMapSizeX.Value, SpinEditMapSizeY.Value);
 end;

@@ -5 +5 @@
 xtactics.dbg
 heaptrclog.trc
+Config.xml