Context Navigation

UModuleTest.pas

Last change on this file was 59, checked in by chronos, 12 years ago
Fixed: Store module settings in system registry.
File size: 1.1 KB

Line
1	unit UModuleTest;
2
3	{$mode delphi}
4
5	interface
6
7	uses
8	Classes, SysUtils, FileUtil, UModularSystem;
9
10	type
11	TDataModuleTest = class(TDataModule)
12	private
13	{ private declarations }
14	public
15	{ public declarations }
16	end;
17
18
19	{ TModuleTest }
20
21	TModuleTest = class(TModule)
22	private
23	protected
24	procedure DoStart; override;
25	procedure DoStop; override;
26	public
27	constructor Create(Owner: TComponent); override;
28	destructor Destroy; override;
29	end;
30
31	var
32	DataModuleTest: TDataModuleTest;
33
34	implementation
35
36	{$R *.lfm}
37
38	resourcestring
39	STest = 'Test';
40	STestDescription = 'Test module for testing supported features';
41
42	{ TModuleTest }
43
44	procedure TModuleTest.DoStart;
45	begin
46	inherited DoStart;
47	end;
48
49	procedure TModuleTest.DoStop;
50	begin
51	inherited DoStop;
52	end;
53
54	constructor TModuleTest.Create(Owner: TComponent);
55	begin
56	inherited Create(Owner);
57	Identification := 'Test';
58	Title := STest;
59	Author := 'Chronos';
60	License := 'GNU/LGPLv3';
61	Description.Add(STestDescription);
62	end;
63
64	destructor TModuleTest.Destroy;
65	begin
66	inherited Destroy;
67	end;
68
69	end.
70

Note: See TracBrowser for help on using the repository browser.