Changeset 28 for trunk/Forms/UFormNew.pas

Timestamp:

Oct 5, 2019, 11:29:11 PM (5 years ago)

Author:

chronos

Message:

• Added: Help windows with instructions how to play.
• Added: With 10% chance create new random tile with value 4 instead of 2.

File:

• trunk/Forms/UFormNew.pas (modified) (3 diffs)

trunk/Forms/UFormNew.pas

@@ -16 +16 @@
     ButtonCancel: TButton;
     ButtonOk: TButton;
+    CheckBoxUndoEnabled: TCheckBox;
     ComboBoxSize: TComboBox;
     Label1: TLabel;
@@ -46 +47 @@
 begin
   ComboBoxSize.ItemIndex := Game.Board.Size.X - 2;
+  CheckBoxUndoEnabled.Checked := Game.UndoEnabled;
 end;
 
@@ -51 +53 @@
 begin
   Game.Board.Size := Point(2 + ComboBoxSize.ItemIndex, 2 + ComboBoxSize.ItemIndex);
+  Game.UndoEnabled := CheckBoxUndoEnabled.Checked;
 end;