program Finadm;

uses
  Vcl.Forms, Vcl.Controls, CategoriesForm in 'CategoriesForm.pas' {frmCategories} ,
  DataModule in 'DataModule.pas' {dm: TDataModule} , Vcl.Themes, Vcl.Styles,
  MutatiesForm in 'MutatiesForm.pas' {frmMutaties} , BudgetForm in 'BudgetForm.pas' {frmBudget} ,
  BudgetEditForm in 'BudgetEditForm.pas' {frmBudgetEdit} , MainForm in 'MainForm.pas' {frmMain} ,
  ReportForm in 'ReportForm.pas' {frmReport} , DetailForm in 'DetailForm.pas' {frmDetail} ,
  RaboBrowser in 'RaboBrowser.pas' {frmRaboBrowser} , LoginForm in 'LoginForm.pas' {frmLogin} , TL.Components,
  MessageForm in 'MessageForm.pas' {frmMessage} , ProgressForm in 'ProgressForm.pas' {frmProgress} ,
  AboutForm in 'AboutForm.pas' {frmAbout} , FinAdmColors in '..\CustComp\FinAdmColors.pas',
  RLPreviewForm in 'FortesReport\Source\RLPreviewForm.pas' {RLPreviewForm};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar:= True;
  TStyleManager.TrySetStyle('Windows10 Clear Day');
  Application.CreateForm(Tdm, dm);
  // Application.CreateForm(TfrmPreview, frmPreview);
  case frmLogin.Execute of
    mrNone:
      ;
    mrOk:
      begin
        Application.CreateForm(TfrmMain, frmMain);
        frmMain.pnlMain.Visible:= False;
        Application.CreateForm(TfrmCategories, frmCategories);
        Application.CreateForm(TfrmBudget, frmBudget);
        Application.CreateForm(TfrmMutaties, frmMutaties);
        Application.CreateForm(TfrmBudgetEdit, frmBudgetEdit);
        Application.CreateForm(TfrmReport, frmReport);
        Application.CreateForm(TfrmDetail, frmDetail);
        Application.CreateForm(TfrmProgress, frmProgress);
        Application.Run;
      end;

    mrCancel:
      Application.MessageBox('Application cancelled',
        PWideChar('Financiële Administratie - ' + TL.Components.Folder.AppVersion));

    mrAbort:
      Application.MessageBox('You are not authohrized to use the application',
        PWideChar('Financiële Administratie - ' + TL.Components.Folder.AppVersion));

    mrRetry:
      ;
    mrIgnore:
      ;
    mrYes:
      ;
    mrNo:
      ;
    mrAll:
      ;
    mrNoToAll:
      ;
    mrYesToAll:
      ;
    mrClose:
      ;
  end;

end.