Changeset 106 for trunk/Forms

Timestamp:

Dec 9, 2024, 8:54:41 PM (6 weeks ago)

Author:

chronos

Message:

• Added: Optionally generated unmergeable movable tiles.

Location:

trunk/Forms

Files:

• FormNew.lfm (modified) (3 diffs)
• FormNew.lrj (modified) (1 diff)
• FormNew.pas (modified) (4 diffs)

trunk/Forms/FormNew.lfm

@@ -35 +35 @@
     Width = 497
     HorzScrollBar.Page = 435
-    VertScrollBar.Page = 160
+    VertScrollBar.Page = 211
     Anchors = [akTop, akLeft, akRight, akBottom]
     ClientHeight = 245
@@ -90 +90 @@
       Left = 16
       Height = 26
-      Top = 122
+      Top = 128
       Width = 119
       Caption = 'Disabled tiles:'
@@ -102 +102 @@
       TabOrder = 3
     end
+    object Label3: TLabel
+      Left = 16
+      Height = 26
+      Top = 176
+      Width = 160
+      Caption = 'Unmergeable tiles:'
+    end
+    object SpinEditUnmergeableTiles: TSpinEdit
+      Left = 320
+      Height = 43
+      Top = 168
+      Width = 115
+      MaxValue = 10000
+      TabOrder = 4
+    end
   end
 end

trunk/Forms/FormNew.lrj

@@ -6 +6 @@
 {"hash":260260820,"name":"tformnew.checkboxundoenabled.caption","sourcebytes":[85,110,100,111,32,101,110,97,98,108,101,100],"value":"Undo enabled"},
 {"hash":146862089,"name":"tformnew.checkboxrecordhistory.caption","sourcebytes":[82,101,99,111,114,100,32,109,111,118,101,115,32,104,105,115,116,111,114,121],"value":"Record moves history"},
-{"hash":248990730,"name":"tformnew.label2.caption","sourcebytes":[68,105,115,97,98,108,101,100,32,116,105,108,101,115,58],"value":"Disabled tiles:"}
+{"hash":248990730,"name":"tformnew.label2.caption","sourcebytes":[68,105,115,97,98,108,101,100,32,116,105,108,101,115,58],"value":"Disabled tiles:"},
+{"hash":266265242,"name":"tformnew.label3.caption","sourcebytes":[85,110,109,101,114,103,101,97,98,108,101,32,116,105,108,101,115,58],"value":"Unmergeable tiles:"}
 ]}

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;