Changeset 28 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (2 diffs)
• UFormMain.lrj (modified) (1 diff)
• UFormMain.pas (modified) (1 diff)
• UFormNew.lfm (modified) (2 diffs)
• UFormNew.lrj (modified) (1 diff)
• UFormNew.pas (modified) (3 diffs)

trunk/Forms/UFormMain.lfm

@@ -4 +4 @@
   Top = 307
   Width = 580
-  Caption = '2048 game'
+  Caption = '2048'
   DesignTimePPI = 144
   Menu = MainMenu1
@@ -34 +34 @@
     object MenuItemHelp: TMenuItem
       Caption = 'Help'
+      object MenuItem3: TMenuItem
+        Action = Core.AHelp
+      end
       object MenuItemAbout: TMenuItem
         Action = Core.AAbout

trunk/Forms/UFormMain.lrj

@@ -1 +1 @@
 {"version":1,"strings":[
-{"hash":128377605,"name":"tformmain.caption","sourcebytes":[50,48,52,56,32,103,97,109,101],"value":"2048 game"},
+{"hash":217976,"name":"tformmain.caption","sourcebytes":[50,48,52,56],"value":"2048"},
 {"hash":317493,"name":"tformmain.menuitemgame.caption","sourcebytes":[71,97,109,101],"value":"Game"},
 {"hash":322608,"name":"tformmain.menuitemhelp.caption","sourcebytes":[72,101,108,112],"value":"Help"}

trunk/Forms/UFormMain.pas

@@ -17 +17 @@
     MenuItem1: TMenuItem;
     MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
     MenuItemNew: TMenuItem;
     MenuItemExit: TMenuItem;

trunk/Forms/UFormNew.lfm

@@ -1 +1 @@
 object FormNew: TFormNew
-  Left = 753
+  Left = 703
   Height = 212
-  Top = 825
+  Top = 748
   Width = 487
   Caption = 'New game'
@@ -60 +60 @@
     TabOrder = 2
   end
+  object CheckBoxUndoEnabled: TCheckBox
+    Left = 16
+    Height = 30
+    Top = 56
+    Width = 145
+    Caption = 'Undo enabled'
+    TabOrder = 3
+  end
 end

trunk/Forms/UFormNew.lrj

@@ -3 +3 @@
 {"hash":103901194,"name":"tformnew.label1.caption","sourcebytes":[66,111,97,114,100,32,115,105,122,101,58],"value":"Board size:"},
 {"hash":77089212,"name":"tformnew.buttoncancel.caption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"},
-{"hash":1339,"name":"tformnew.buttonok.caption","sourcebytes":[79,75],"value":"OK"}
+{"hash":1339,"name":"tformnew.buttonok.caption","sourcebytes":[79,75],"value":"OK"},
+{"hash":260260820,"name":"tformnew.checkboxundoenabled.caption","sourcebytes":[85,110,100,111,32,101,110,97,98,108,101,100],"value":"Undo enabled"}
 ]}

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;