Context Navigation

UCore.pas

Last change on this file was 18, checked in by chronos, 13 years ago
Used external packages are now stored in uncompressed form rather in zipped files. This allow better package version synchronisation.
File size: 1.2 KB

Line
1	unit UCore;
2
3	{$mode delphi}{$H+}
4
5	interface
6
7	uses
8	Classes, SysUtils, FileUtil, UModularSystem, ULDStudioAPI;
9
10	type
11
12	{ TCore }
13
14	TCore = class(TDataModule)
15	procedure DataModuleCreate(Sender: TObject);
16	procedure DataModuleDestroy(Sender: TObject);
17	private
18	procedure RegisterModules;
19	public
20	procedure Init;
21	end;
22
23	var
24	Core: TCore;
25
26	implementation
27
28	{$R *.lfm}
29
30	uses
31	ULDModuleDebug, UFormMain, ULDModuleBrainfuck, UDataModule, ULDModulePascal,
32	ULDModuleProject, ULDModuleBasic;
33
34	{ TCore }
35
36	procedure TCore.DataModuleCreate(Sender: TObject);
37	begin
38	DataModule1 := TDataModule1.Create(nil);
39	end;
40
41	procedure TCore.DataModuleDestroy(Sender: TObject);
42	begin
43	FreeAndNil(DataModule1);
44	end;
45
46	procedure TCore.RegisterModules;
47	begin
48	with DataModule1.ModuleManager do begin
49	RegisterModule(TLDModuleProject.Create(nil), True);
50	RegisterModule(TLDModulePascal.Create(nil), True);
51	RegisterModule(TLDModuleBrainfuck.Create(nil), True);
52	RegisterModule(TLDModuleDebug.Create(nil), True);
53	RegisterModule(TLDModuleBasic.Create(nil), True);
54	InstallMarked;
55	end;
56	end;
57
58	procedure TCore.Init;
59	begin
60	RegisterModules;
61	end;
62
63	end.
64

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