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/UModuleACL.pas

    r428 r429  
    1212
    1313  TModuleACL = class(TModule)
     14  protected
     15    procedure DoInstall; override;
     16    procedure DoStart; override;
     17    procedure DoStop; override;
     18    procedure DoUninstall; override;
     19  public
    1420    constructor Create(AOwner: TComponent); override;
    1521    destructor Destroy; override;
    … …  
    1925implementation
    2026
     27uses
     28  UMainForm;
     29
    2130{ TModuleACL }
     31
     32procedure TModuleACL.DoStart;
     33begin
     34  MainForm.Log(Identification + ' started');
     35end;
     36
     37procedure TModuleACL.DoStop;
     38begin
     39  MainForm.Log(Identification + ' stopped');
     40end;
     41
     42procedure TModuleACL.DoInstall;
     43begin
     44  MainForm.Log(Identification + ' installed');
     45end;
     46
     47procedure TModuleACL.DoUninstall;
     48begin
     49  MainForm.Log(Identification + ' uninstalled');
     50end;
    2251
    2352constructor TModuleACL.Create(AOwner: TComponent);
Note: See TracChangeset for help on using the changeset viewer.