Context Navigation

UModuleUser.pas

Last change on this file was 73, checked in by chronos, 12 years ago
Modified: Packages are now stored as uncomporessed and are linked with relative path to project.
File size: 1.1 KB

Line
1	unit UModuleUser;
2
3	{$mode objfpc}{$H+}
4
5	interface
6
7	uses
8	Classes, SysUtils, UModularSystem;
9
10	type
11
12	{ TModuleUser }
13
14	TModuleUser = class(TModule)
15	protected
16	procedure DoInstall; override;
17	procedure DoStart; override;
18	procedure DoStop; override;
19	procedure DoUninstall; override;
20	public
21	constructor Create(AOwner: TComponent); override;
22	destructor Destroy; override;
23	end;
24
25	implementation
26
27	uses
28	UMainForm;
29
30	{ TModuleUser }
31
32	procedure TModuleUser.DoStart;
33	begin
34	MainForm.Log(Identification + ' started');
35	end;
36
37	procedure TModuleUser.DoStop;
38	begin
39	MainForm.Log(Identification + ' stopped');
40	end;
41
42	procedure TModuleUser.DoInstall;
43	begin
44	MainForm.Log(Identification + ' installed');
45	end;
46
47	procedure TModuleUser.DoUninstall;
48	begin
49	MainForm.Log(Identification + ' uninstalled');
50	end;
51
52	constructor TModuleUser.Create(AOwner: TComponent);
53	begin
54	inherited;
55	Identification := 'User';
56	Title := 'User';
57	Version := '1.0';
58	License := 'GNU/LGPLv3';
59	Dependencies.Add('Base');
60	end;
61
62	destructor TModuleUser.Destroy;
63	begin
64	inherited Destroy;
65	end;
66
67	end.
68

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