Changeset 105 for trunk/Forms/FormNew.pas

Timestamp:

Dec 9, 2024, 4:40:34 PM (13 days ago)

Author:

chronos

Message:

• Added: Set number of randomly generated disabled tiles in new game form.

File:

• trunk/Forms/FormNew.pas (modified) (5 diffs)

trunk/Forms/FormNew.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Game, FormEx;
+  Spin, Game, FormEx, Math;
 
 type
@@ -18 +18 @@
     ComboBoxSize: TComboBox;
     Label1: TLabel;
+    Label2: TLabel;
     ScrollBox1: TScrollBox;
+    SpinEditDisabledTiles: TSpinEdit;
+    procedure ComboBoxSizeChange(Sender: TObject);
   public
+    procedure UpdateInterface;
     procedure Load(Game: TGame);
     procedure Save(Game: TGame);
@@ -30 +34 @@
 
 { TFormNew }
+
+procedure TFormNew.ComboBoxSizeChange(Sender: TObject);
+begin
+  UpdateInterface;
+end;
+
+procedure TFormNew.UpdateInterface;
+begin
+  SpinEditDisabledTiles.MaxValue := ComboBoxSize.ItemIndex + 2;
+end;
+
 procedure TFormNew.Load(Game: TGame);
 begin
@@ -35 +50 @@
   CheckBoxUndoEnabled.Checked := Game.UndoEnabled;
   CheckBoxRecordHistory.Checked := Game.RecordHistory;
+  SpinEditDisabledTiles.Value := Game.DisabledTilesCount;
+  UpdateInterface;
 end;
 
@@ -42 +59 @@
   Game.UndoEnabled := CheckBoxUndoEnabled.Checked;
   Game.RecordHistory := CheckBoxRecordHistory.Checked;
+  Game.DisabledTilesCount := SpinEditDisabledTiles.Value;
 end;