Changeset 16 for trunk/UCore.pas


Ignore:
Timestamp:
Mar 22, 2018, 8:52:29 PM (7 years ago)
Author:
chronos
Message:
  • Added: Debian package build files.
  • Added: Application about dialog.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        44data.xml
        55Config.xml
         6*.lrj
         7heaptrclog.trc

  • trunk/UCore.pas

    r14 r16  
    77uses
    88  Classes, SysUtils, XMLConf, FileUtil, Controls, ActnList, UDatabase,
    9   UCoolTranslator, Forms;
     9  UCoolTranslator, UApplicationInfo, Forms;
    1010
    1111type
    … …  
    1313
    1414  TCore = class(TDataModule)
     15    AAbout: TAction;
    1516    ADatabaseConnect: TAction;
    1617    ADatabaseDisconnect: TAction;
     18    ApplicationInfo1: TApplicationInfo;
    1719    APreferences: TAction;
    1820    AExit: TAction;
    … …  
    2123    ImageList1: TImageList;
    2224    XMLConfig1: TXMLConfig;
     25    procedure AAboutExecute(Sender: TObject);
    2326    procedure ADatabaseConnectExecute(Sender: TObject);
    2427    procedure ADatabaseDisconnectExecute(Sender: TObject);
    … …  
    5053  Core: TCore;
    5154
     55
    5256implementation
    5357
    5458uses
    5559  UEngineXML, UEngineMySQL, UEngineSQLite, UFormTables, UFormConnect,
    56   UFormDatabases, UDataTypes, UFormPreferences, UFormMain;
     60  UFormDatabases, UDataTypes, UFormPreferences, UFormMain, UFormAbout;
    5761
    5862{$R *.lfm}
    … …  
    9599    Database := FormDatabases.SelectedDatabase;
    96100  end;
     101end;
     102
     103procedure TCore.AAboutExecute(Sender: TObject);
     104begin
     105  FormAbout := TFormAbout.Create(nil);
     106  FormAbout.ApplicationInfo := ApplicationInfo1;
     107  FormAbout.ShowModal;
     108  FormAbout.Free;
    97109end;
    98110
Note: See TracChangeset for help on using the changeset viewer.