-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathp_Application.dpr
36 lines (33 loc) · 1.18 KB
/
p_Application.dpr
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program p_Application;
uses
Vcl.Forms,
u_Application in 'u_Application.pas' {frmApplication},
Vcl.Themes,
Vcl.Styles,
u_DatabaseConnection in 'u_DatabaseConnection.pas' {dmConnection: TDataModule},
u_Functions in 'u_Functions.pas',
u_Register in 'u_Register.pas' {frmRegister},
u_QRCode in 'u_QRCode.pas',
u_Login in 'u_Login.pas' {frmLogin},
u_Base32 in 'u_Base32.pas',
u_Google2FA in 'u_Google2FA.pas',
u_Objectives in 'u_Objectives.pas' {frmObjectives},
u_ObjectiveO in 'u_ObjectiveO.pas',
u_View in 'u_View.pas' {frmView},
u_Create in 'u_Create.pas' {frmCreate},
u_Admin in 'u_Admin.pas' {frmAdmin};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
TStyleManager.TrySetStyle('Windows11 MineShaft');
Application.CreateForm(TfrmApplication, frmApplication);
Application.CreateForm(TdmConnection, dmConnection);
Application.CreateForm(TfrmRegister, frmRegister);
Application.CreateForm(TfrmLogin, frmLogin);
Application.CreateForm(TfrmObjectives, frmObjectives);
Application.CreateForm(TfrmView, frmView);
Application.CreateForm(TfrmCreate, frmCreate);
Application.CreateForm(TfrmAdmin, frmAdmin);
Application.Run;
end.