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

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