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

Changeset 43 for trunk/UCore.pas


Ignore:
Timestamp:
Mar 18, 2014, 9:15:07 AM (10 years ago)
Author:
chronos
Message:
  • Added: About form with information about application.
  • Added: Package Common.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/UCore.pas

    r40 r43  
    77uses
    88  Classes, SysUtils, XMLConf, FileUtil, ActnList, Controls, Dialogs, Forms,
    9   UGame, UCoolTranslator;
     9  UGame, UApplicationInfo, UCoolTranslator;
    1010
    1111type
    … …  
    1414
    1515  TCore = class(TDataModule)
     16    AAbout: TAction;
    1617    AGameSave: TAction;
    1718    AGameLoad: TAction;
     19    ApplicationInfo: TApplicationInfo;
    1820    ASettings: TAction;
    1921    ActionList1: TActionList;
    … …  
    2931    SaveDialog1: TSaveDialog;
    3032    XMLConfig1: TXMLConfig;
     33    procedure AAboutExecute(Sender: TObject);
    3134    procedure AExitExecute(Sender: TObject);
    3235    procedure AGameEndExecute(Sender: TObject);
    … …  
    6366
    6467uses
    65   UFormMove, UFormMain, UFormNew, UFormSettings;
     68  UFormMove, UFormMain, UFormNew, UFormSettings, UFormAbout;
    6669
    6770resourcestring
    … …  
    101104end;
    102105
     106procedure TCore.AAboutExecute(Sender: TObject);
     107begin
     108  FormAbout.ShowModal;
     109end;
     110
    103111procedure TCore.AGameEndExecute(Sender: TObject);
    104112begin
Note: See TracChangeset for help on using the changeset viewer.