Context Navigation

UAboutDialog.pas

Last change on this file was 10, checked in by chronos, 2 years ago
Modified: General UTest unit moved into Common package.
File size: 1019 bytes

Line
1	unit UAboutDialog;
2
3	interface
4
5	uses
6	Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
7	ExtCtrls, UApplicationInfo, UCommon, UTranslator, UTheme, UFormAbout;
8
9	type
10
11	{ TAboutDialog }
12
13	TAboutDialog = class(TComponent)
14	private
15	FApplicationInfo: TApplicationInfo;
16	FTranslator: TTranslator;
17	FThemeManager: TThemeManager;
18	public
19	FormAbout: TFormAbout;
20	procedure Show;
21	published
22	property Translator: TTranslator read FTranslator write FTranslator;
23	property ThemeManager: TThemeManager read FThemeManager write FThemeManager;
24	property ApplicationInfo: TApplicationInfo read FApplicationInfo write
25	FApplicationInfo;
26	end;
27
28	procedure Register;
29
30
31	implementation
32
33	procedure Register;
34	begin
35	RegisterComponents('Common', [TAboutDialog]);
36	end;
37
38	{ TAboutDialog }
39
40	procedure TAboutDialog.Show;
41	begin
42	FormAbout := TFormAbout.Create(nil);
43	try
44	FormAbout.AboutDialog := Self;
45	FormAbout.ShowModal;
46	finally
47	FreeAndNil(FormAbout);
48	end;
49	end;
50
51	end.
52

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