Changeset 106 for trunk/Forms/FormNew.pas

Timestamp:

Dec 9, 2024, 8:54:41 PM (13 days ago)

Author:

chronos

Message:

• Added: Optionally generated unmergeable movable tiles.

File:

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

trunk/Forms/FormNew.pas

@@ -19 +19 @@
     Label1: TLabel;
     Label2: TLabel;
+    Label3: TLabel;
     ScrollBox1: TScrollBox;
     SpinEditDisabledTiles: TSpinEdit;
+    SpinEditUnmergeableTiles: TSpinEdit;
     procedure ComboBoxSizeChange(Sender: TObject);
   public
@@ -41 +43 @@
 
 procedure TFormNew.UpdateInterface;
+var
+  MaxDisabledTiles: Integer;
 begin
-  SpinEditDisabledTiles.MaxValue := ComboBoxSize.ItemIndex + 2;
+  MaxDisabledTiles := ComboBoxSize.ItemIndex + 2;
+  MaxDisabledTiles := MaxDisabledTiles * MaxDisabledTiles - 3;
+  SpinEditDisabledTiles.MaxValue := MaxDisabledTiles;
+  SpinEditUnmergeableTiles.MaxValue := MaxDisabledTiles;
 end;
 
@@ -51 +58 @@
   CheckBoxRecordHistory.Checked := Game.RecordHistory;
   SpinEditDisabledTiles.Value := Game.DisabledTilesCount;
+  SpinEditUnmergeableTiles.Value := Game.UnmergeableTilesCount;
   UpdateInterface;
 end;
@@ -60 +68 @@
   Game.RecordHistory := CheckBoxRecordHistory.Checked;
   Game.DisabledTilesCount := SpinEditDisabledTiles.Value;
+  Game.UnmergeableTilesCount := SpinEditUnmergeableTiles.Value;
 end;