Changeset 105 for trunk/Forms

Timestamp:

Dec 9, 2024, 4:40:34 PM (6 weeks ago)

Author:

chronos

Message:

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

Location:

trunk/Forms

Files:

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

trunk/Forms/FormNew.lfm

@@ -35 +35 @@
     Width = 497
     HorzScrollBar.Page = 435
-    VertScrollBar.Page = 118
+    VertScrollBar.Page = 160
     Anchors = [akTop, akLeft, akRight, akBottom]
     ClientHeight = 245
@@ -69 +69 @@
       Style = csDropDownList
       TabOrder = 0
+      OnChange = ComboBoxSizeChange
     end
     object CheckBoxUndoEnabled: TCheckBox
@@ -86 +87 @@
       TabOrder = 2
     end
+    object Label2: TLabel
+      Left = 16
+      Height = 26
+      Top = 122
+      Width = 119
+      Caption = 'Disabled tiles:'
+    end
+    object SpinEditDisabledTiles: TSpinEdit
+      Left = 320
+      Height = 43
+      Top = 117
+      Width = 115
+      MaxValue = 10000
+      TabOrder = 3
+    end
   end
 end

trunk/Forms/FormNew.lrj

@@ -5 +5 @@
 {"hash":103901194,"name":"tformnew.label1.caption","sourcebytes":[66,111,97,114,100,32,115,105,122,101,58],"value":"Board size:"},
 {"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":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:"}
 ]}

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;