Changeset 97 for trunk/UCore.pas


Ignore:
Timestamp:
Dec 25, 2014, 12:54:57 PM (10 years ago)
Author:
chronos
Message:
  • Added: Simple Help window with basic game description.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/UCore.pas

    r95 r97  
    1515  TCore = class(TDataModule)
    1616    AAbout: TAction;
     17    AHelp: TAction;
    1718    AGameSave: TAction;
    1819    AGameLoad: TAction;
     
    4142    procedure AGameRestartExecute(Sender: TObject);
    4243    procedure AGameSaveExecute(Sender: TObject);
     44    procedure AHelpExecute(Sender: TObject);
    4345    procedure ASettingsExecute(Sender: TObject);
    4446    procedure CoolTranslator1Translate(Sender: TObject);
     
    7981
    8082uses
    81   UFormMove, UFormMain, UFormNew, UFormSettings, UFormAbout, UFormPlayer;
     83  UFormMove, UFormMain, UFormNew, UFormSettings, UFormAbout, UFormPlayer,
     84  UFormHelp;
    8285
    8386resourcestring
     
    296299end;
    297300
     301procedure TCore.AHelpExecute(Sender: TObject);
     302begin
     303  FormHelp.ShowModal;
     304end;
     305
    298306procedure TCore.ASettingsExecute(Sender: TObject);
    299307begin
Note: See TracChangeset for help on using the changeset viewer.