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};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  TStyleManager.TrySetStyle('Windows10 Clear Day');
  Application.CreateForm(Tdm, dm);
  case frmLogin.Execute of
    mrNone:
      ;
    mrOk:
      begin
        Application.CreateForm(
           TfrmMain,
           frmMain);
        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.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.