Ignore:
Timestamp:
Oct 17, 2012, 1:21:41 PM (12 years ago)
Author:
chronos
Message:
Location:
ModularSystem/Demo
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • ModularSystem/Demo

    • Property svn:ignore

      •  

        old new  
        55Demo.lps
        66Demo
         7heaptrclog.trc

  • ModularSystem/Demo/UModuleBase.pas

    r428 r429  
    99
    1010type
     11
     12  { TModuleBase }
     13
    1114  TModuleBase = class(TModule)
     15  protected
     16    procedure DoStart; override;
     17    procedure DoStop; override;
     18    procedure DoInstall; override;
     19    procedure DoUninstall; override;
     20  public
    1221    constructor Create(AOwner: TComponent); override;
    1322    destructor Destroy; override;
    … …  
    1726implementation
    1827
     28uses
     29  UMainForm;
     30
    1931{ TModuleUser }
     32
     33procedure TModuleBase.DoStart;
     34begin
     35  MainForm.Log(Identification + ' started');
     36end;
     37
     38procedure TModuleBase.DoStop;
     39begin
     40  MainForm.Log(Identification + ' stopped');
     41end;
     42
     43procedure TModuleBase.DoInstall;
     44begin
     45  MainForm.Log(Identification + ' installed');
     46end;
     47
     48procedure TModuleBase.DoUninstall;
     49begin
     50  MainForm.Log(Identification + ' uninstalled');
     51end;
    2052
    2153constructor TModuleBase.Create(AOwner: TComponent);
Note: See TracChangeset for help on using the changeset viewer.