Changeset 97 for trunk/UCore.pas

Timestamp:

Dec 25, 2014, 12:54:57 PM (10 years ago)

Author:

chronos

Message:

• Added: Simple Help window with basic game description.

File:

• trunk/UCore.pas (modified) (4 diffs)

trunk/UCore.pas

@@ -15 +15 @@
   TCore = class(TDataModule)
     AAbout: TAction;
+    AHelp: TAction;
     AGameSave: TAction;
     AGameLoad: TAction;
@@ -41 +42 @@
     procedure AGameRestartExecute(Sender: TObject);
     procedure AGameSaveExecute(Sender: TObject);
+    procedure AHelpExecute(Sender: TObject);
     procedure ASettingsExecute(Sender: TObject);
     procedure CoolTranslator1Translate(Sender: TObject);
@@ -79 +81 @@
 
 uses
-  UFormMove, UFormMain, UFormNew, UFormSettings, UFormAbout, UFormPlayer;
+  UFormMove, UFormMain, UFormNew, UFormSettings, UFormAbout, UFormPlayer,
+  UFormHelp;
 
 resourcestring
@@ -296 +299 @@
 end;
 
+procedure TCore.AHelpExecute(Sender: TObject);
+begin
+  FormHelp.ShowModal;
+end;
+
 procedure TCore.ASettingsExecute(Sender: TObject);
 begin