Context Navigation

source: trunk/Core.pas

Last change on this file was 107, checked in by chronos, 4 months ago
Fixed: Full screen mode switching on Windows. Modified: Updated Common package.
File size: 682 bytes

Line
1	unit Core;
2
3	interface
4
5	uses
6	Classes, SysUtils, Theme, ApplicationInfo, Translator, FormEx, PersistentForm;
7
8	type
9
10	{ TCore }
11
12	TCore = class(TDataModule)
13	ApplicationInfo: TApplicationInfo;
14	PersistentForm1: TPersistentForm;
15	Translator1: TTranslator;
16	ThemeManager1: TThemeManager;
17	procedure DataModuleCreate(Sender: TObject);
18	end;
19
20	var
21	Core: TCore;
22
23
24	implementation
25
26	{$R *.lfm}
27
28	{ TCore }
29
30	procedure TCore.DataModuleCreate(Sender: TObject);
31	begin
32	PersistentForm1.RegistryContext := ApplicationInfo.GetRegistryContext;
33
34	TFormEx.Translator := Translator1;
35	TFormEx.ThemeManager := ThemeManager1;
36	TFormEx.PersistentForm := PersistentForm1;
37	end;
38
39	end.
40

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