1program Finadm;
 2
 3uses
 4  Vcl.Forms, Vcl.Controls, CategoriesForm in 'CategoriesForm.pas' {frmCategories} ,
 5  DataModule in 'DataModule.pas' {dm: TDataModule} , Vcl.Themes, Vcl.Styles,
 6  MutatiesForm in 'MutatiesForm.pas' {frmMutaties} , BudgetForm in 'BudgetForm.pas' {frmBudget} ,
 7  BudgetEditForm in 'BudgetEditForm.pas' {frmBudgetEdit} , MainForm in 'MainForm.pas' {frmMain} ,
 8  ReportForm in 'ReportForm.pas' {frmReport} , DetailForm in 'DetailForm.pas' {frmDetail} ,
 9  RaboBrowser in 'RaboBrowser.pas' {frmRaboBrowser} , LoginForm in 'LoginForm.pas' {frmLogin} , TL.Components,
10  MessageForm in 'MessageForm.pas' {frmMessage} , ProgressForm in 'ProgressForm.pas' {frmProgress} ,
11  AboutForm in 'AboutForm.pas' {frmAbout} , FinAdmColors in '..\CustComp\FinAdmColors.pas',
12  RLPreviewForm in 'FortesReport\Source\RLPreviewForm.pas' {RLPreviewForm};
13
14{$R *.res}
15
16begin
17  Application.Initialize;
18  Application.MainFormOnTaskbar:= True;
19  TStyleManager.TrySetStyle('Windows10 Clear Day');
20  Application.CreateForm(Tdm, dm);
21  // Application.CreateForm(TfrmPreview, frmPreview);
22  case frmLogin.Execute of
23    mrNone:
24      ;
25    mrOk:
26      begin
27        Application.CreateForm(TfrmMain, frmMain);
28        frmMain.pnlMain.Visible:= False;
29        Application.CreateForm(TfrmCategories, frmCategories);
30        Application.CreateForm(TfrmBudget, frmBudget);
31        Application.CreateForm(TfrmMutaties, frmMutaties);
32        Application.CreateForm(TfrmBudgetEdit, frmBudgetEdit);
33        Application.CreateForm(TfrmReport, frmReport);
34        Application.CreateForm(TfrmDetail, frmDetail);
35        Application.CreateForm(TfrmProgress, frmProgress);
36        Application.Run;
37      end;
38
39    mrCancel:
40      Application.MessageBox('Application cancelled',
41        PWideChar('Financiële Administratie - ' + TL.Components.Folder.AppVersion));
42
43    mrAbort:
44      Application.MessageBox('You are not authohrized to use the application',
45        PWideChar('Financiële Administratie - ' + TL.Components.Folder.AppVersion));
46
47    mrRetry:
48      ;
49    mrIgnore:
50      ;
51    mrYes:
52      ;
53    mrNo:
54      ;
55    mrAll:
56      ;
57    mrNoToAll:
58      ;
59    mrYesToAll:
60      ;
61    mrClose:
62      ;
63  end;
64
65end.
66