Changeset 31 for trunk/UFormNew.pas

Timestamp:

Mar 4, 2014, 10:18:09 PM (11 years ago)

Author:

chronos

Message:

• Added: Amount of inaccessible cells can be adjusted in New game dialog.

File:

• trunk/UFormNew.pas (modified) (5 diffs)

trunk/UFormNew.pas

@@ -22 +22 @@
     Label1: TLabel;
     Label2: TLabel;
+    Label3: TLabel;
     ListView1: TListView;
+    SpinEdit1: TSpinEdit;
     SpinEditMapSizeX: TSpinEdit;
     SpinEditMapSizeY: TSpinEdit;
@@ -29 +31 @@
     procedure ButtonPlayerModifyClick(Sender: TObject);
     procedure ButtonPlayerRemoveClick(Sender: TObject);
+    procedure CheckBoxVoidChange(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -99 +102 @@
 end;
 
+procedure TFormNew.CheckBoxVoidChange(Sender: TObject);
+begin
+  SpinEdit1.Enabled := CheckBoxVoid.Checked;
+end;
+
 procedure TFormNew.ButtonPlayerAddClick(Sender: TObject);
 var
@@ -134 +142 @@
 begin
   CheckBoxVoid.Checked := Game.VoidEnabled;
+  SpinEdit1.Value := Game.VoidPercentage;
+  SpinEdit1.Enabled := Game.VoidEnabled;
   for I := 0 to Players.Count - 1 do
     Players[I] := nil;
@@ -158 +168 @@
   end;
   Game.VoidEnabled := CheckBoxVoid.Checked;
+  Game.VoidPercentage := SpinEdit1.Value;
   Game.Map.Size := Point(SpinEditMapSizeX.Value, SpinEditMapSizeY.Value);
 end;