Changeset 28 for trunk/UCore.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/UCore.pas (modified) (5 diffs)

trunk/UCore.pas

@@ -15 +15 @@
   TCore = class(TDataModule)
     AAbout: TAction;
+    AHelp: TAction;
     AUndo: TAction;
     ASettings: TAction;
@@ -26 +27 @@
     procedure AAboutExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
+    procedure AHelpExecute(Sender: TObject);
     procedure ANewExecute(Sender: TObject);
     procedure ASettingsExecute(Sender: TObject);
@@ -48 +50 @@
 
 uses
-  UFormMain, UFormSettings, UFormAbout, UFormNew;
+  UFormMain, UFormSettings, UFormAbout, UFormNew, UFormHelp;
 
 { TCore }
@@ -98 +100 @@
 end;
 
+procedure TCore.AHelpExecute(Sender: TObject);
+begin
+  FormHelp := TFormHelp.Create(nil);
+  try
+    FormHelp.ShowModal;
+  finally
+    FreeAndNil(FormHelp);
+  end;
+end;
+
 procedure TCore.ANewExecute(Sender: TObject);
 begin
@@ -126 +138 @@
 procedure TCore.UpdateInterface;
 begin
-  AUndo.Enabled := Game.CanUndo;;
+  AUndo.Enabled := Game.CanUndo;
 end;