close Warning: Can't synchronize with repository "(default)" (No changeset 184 in the repository). Look in the Trac log for more information.

Changeset 97 for trunk/UCore.pas


Ignore:
Timestamp:
Dec 25, 2014, 12:54:57 PM (9 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.