source: trunk/Packages/ChronisPlatform/Demo/Modules/Test/UModuleTest.pas

unit UModuleTest;

{$mode delphi}

interface

uses
  Classes, SysUtils, FileUtil, UModularSystem;

type
  TDataModuleTest = class(TDataModule)
  private
    { private declarations }
  public
    { public declarations }
  end;


  { TModuleTest }

  TModuleTest = class(TModule)
  private
  protected
    procedure DoStart; override;
    procedure DoStop; override;
  public
    constructor Create(Owner: TComponent); override;
    destructor Destroy; override;
  end;

var
  DataModuleTest: TDataModuleTest;

implementation

{$R *.lfm}

resourcestring
  STest = 'Test';
  STestDescription = 'Test module for testing supported features';

{ TModuleTest }

procedure TModuleTest.DoStart;
begin
  inherited DoStart;
end;

procedure TModuleTest.DoStop;
begin
  inherited DoStop;
end;

constructor TModuleTest.Create(Owner: TComponent);
begin
  inherited Create(Owner);
  Identification := 'Test';
  Title := STest;
  Author := 'Chronos';
  License := 'GNU/LGPLv3';
  Description.Add(STestDescription);
end;

destructor TModuleTest.Destroy;
begin
  inherited Destroy;
end;

end.