{*******************************************************}
{                                                       }
{  Responsive Software     http://www.responsive.co.nz  }
{                                                       }
{  Copyright (c) 2003-2006 Responsive Software Limited  }
{                                                       }
{*******************************************************}

program Framework;

uses
  Forms,
  SysUtils,
  Dialogs,
  Windows,
  Base in 'Base.pas' {BaseForm},
  BaseFrameUnit in 'BaseFrameUnit.pas' {BaseFrame: TFrame},
  GeneralUtilities in 'GeneralUtilities.pas',
  Globals in 'Globals.pas',
  DatabaseObjects in 'DatabaseObjects.pas',
  Utilities in 'Utilities.pas',
  Progress in 'Progress.pas' {ProgressForm},
  DatabaseManager in 'DatabaseManager.pas',
  Register in 'Register.pas' {RegisterForm},
  RegistrationInfo in 'RegistrationInfo.pas' {RegistrationInfoForm},
  Main in 'Main.pas' {MainForm},
  POS in 'POS.pas' {POSFrame: TFrame},
  Splash in 'Splash.pas' {SplashForm},
  Compress in 'Compress.pas',
  Controls in 'Controls.pas',
  BusinessObjects in 'BusinessObjects.pas',
  PromptPaymentType in 'PromptPaymentType.pas' {PromptPaymentTypeForm},
  POSConfig in 'POSConfig.pas' {POSConfigForm},
  FTP in 'FTP.pas' {FTPForm},
  Reports in 'Reports.pas' {ReportsFrame: TFrame},
  Entries in 'Entries.pas' {EntriesFrame: TFrame},
  Cashbooks in 'Cashbooks.pas' {CashbooksFrame: TFrame},
  CashbooksCacheUnit in 'CashbooksCacheUnit.pas',
  CommunicatorUnit in 'CommunicatorUnit.pas',
  CommunicationsManager in 'CommunicationsManager.pas',
  SalesReportFrameUnit in 'SalesReportFrameUnit.pas' {SalesReportFrame: TFrame},
  Graph in 'Graph.pas' {GraphFrame: TFrame},
  BalanceSheetReportUnit in 'BalanceSheetReportUnit.pas' {BalanceSheetReport: TQuickRep},
  IncomeStatementReportFormat in 'IncomeStatementReportFormat.pas',
  ReceiptReportUnit in 'ReceiptReportUnit.pas' {ReceiptReport: TQuickRep},
  BalanceSheetReportFormat in 'BalanceSheetReportFormat.pas',
  PromptString in 'PromptString.pas' {PromptStringForm},
  ReceiptReportFormat in 'ReceiptReportFormat.pas',
  GraphReportUnit in 'GraphReportUnit.pas' {GraphReport: TQuickRep},
  Documents in 'Documents.pas' {DocumentsFrame: TFrame},
  AccountsCacheUnit in 'AccountsCacheUnit.pas',
  AccountStatementReportFormat in 'AccountStatementReportFormat.pas',
  AccountStatementReportUnit in 'AccountStatementReportUnit.pas' {AccountStatementReport: TQuickRep},
  ChooseString in 'ChooseString.pas' {ChooseStringForm},
  IncomeStatement in 'IncomeStatement.pas' {IncomeStatementFrame: TFrame},
  IncomeStatementReportUnit in 'IncomeStatementReportUnit.pas' {IncomeStatementReport: TQuickRep},
  PromptHostNameUserIdPassword in 'PromptHostNameUserIdPassword.pas' {PromptHostNameUserIdPasswordForm},
  ClientCommunicatorUnit in 'ClientCommunicatorUnit.pas',
  HTTPServerCommunicatorUnit in 'HTTPServerCommunicatorUnit.pas',
  ServerMain in 'ServerMain.pas' {ServerMainForm},
  ProxyDatabaseObjectCollectionUnit in 'ProxyDatabaseObjectCollectionUnit.pas',
  ProxyDatabaseCollectionObjectFind in 'ProxyDatabaseCollectionObjectFind.pas' {ProxyDatabaseCollectionObjectFindForm},
  ProxyDatabaseCollectionObjectMaintain in 'ProxyDatabaseCollectionObjectMaintain.pas' {ProxyDatabaseCollectionObjectMaintainForm},
  ProxyObjectListingReportUnit in 'ProxyObjectListingReportUnit.pas' {ProxyObjectListingReport: TQuickRep},
  ServerTest in 'ServerTest.pas',
  PromptUserNamePassword in 'PromptUserNamePassword.pas' {PromptUserNamePasswordForm},
  PromptSearchString in 'PromptSearchString.pas' {PromptSearchStringForm},
  IBSQL in 'IBSQL.pas',
  PromptDate in 'PromptDate.pas' {PromptDateForm},
  Ledger in 'Ledger.pas' {LedgerFrame: TFrame},
  Sales in 'Sales.pas' {SalesFrame: TFrame},
  Accounts in 'Accounts.pas' {AccountsFrame: TFrame},
  BalanceSheet in 'BalanceSheet.pas' {BalanceSheetFrame: TFrame},
  POSMain in 'POSMain.pas' {POSMainForm},
  Config in 'Config.pas' {ConfigForm},
  SalesManagerUnit in 'SalesManagerUnit.pas',
  PromptAccountType in 'PromptAccountType.pas' {PromptAccountTypeForm},
  PromptUserIdPassword in 'PromptUserIdPassword.pas' {PromptUserIdPasswordForm},
  CashbookStatementReportUnit in 'CashbookStatementReportUnit.pas' {CashbookStatementReport: TQuickRep},
  CashbookStatementReportFormat in 'CashbookStatementReportFormat.pas',
  SalesReportFormat in 'SalesReportFormat.pas',
  SalesReportUnit in 'SalesReportUnit.pas' {SalesReport: TQuickRep},
  ServerCommunicatorUnit in 'ServerCommunicatorUnit.pas',
  HTTPResponder in 'HTTPResponder.pas',
  HTTPUtilities in 'HTTPUtilities.pas',
  AttachmentCacheManagerUnit in 'AttachmentCacheManagerUnit.pas',
  Items in 'Items.pas' {ItemsFrame: TFrame};

{$R *.res}

begin
  if not PreApplicationInitialize then
    Exit;
  Application.Initialize;
  if not PostApplicationInitialize then
    Exit;
  if not ApplicationStartUp then
  begin
    ApplicationShutDown;
    Exit;
  end;
  Application.Title := 'Framework';
  if ServerMode then
  begin
  Application.ShowMainForm := false;
  Application.CreateForm(TServerMainForm, ServerMainForm);
  Application.CreateForm(TRegisterForm, RegisterForm);
  Application.CreateForm(TRegistrationInfoForm, RegistrationInfoForm);
  Application.CreateForm(TConfigForm, ConfigForm);
  Application.CreateForm(TFTPForm, FTPForm);
  Application.CreateForm(TPromptHostNameUserIdPasswordForm, PromptHostNameUserIdPasswordForm);
  Application.CreateForm(TProxyDatabaseCollectionObjectFindForm, ProxyDatabaseCollectionObjectFindForm);
  Application.CreateForm(TProxyDatabaseCollectionObjectMaintainForm, ProxyDatabaseCollectionObjectMaintainForm);
  Application.CreateForm(TProxyObjectListingReport, ProxyObjectListingReport);
  SetControlColors(Application,GlobalConfiguration.HTTPPageColor);
  end else if POSMode then
  begin
  Application.CreateForm(TPOSMainForm, POSMainForm);
  Application.CreateForm(TRegisterForm, RegisterForm);
  Application.CreateForm(TRegistrationInfoForm, RegistrationInfoForm);
  Application.CreateForm(TPOSConfigForm, POSConfigForm);
  Application.CreateForm(TPromptPaymentTypeForm, PromptPaymentTypeForm);
  Application.CreateForm(TPromptStringForm, PromptStringForm);
  Application.CreateForm(TReceiptReport, ReceiptReport);
  SetControlColors(Application,POSConfiguration.ControlColor);
  end else begin
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TRegisterForm, RegisterForm);
  Application.CreateForm(TRegistrationInfoForm, RegistrationInfoForm);
  Application.CreateForm(TPromptAccountTypeForm, PromptAccountTypeForm);
  Application.CreateForm(TConfigForm, ConfigForm);
  Application.CreateForm(TFTPForm, FTPForm);
  Application.CreateForm(TBalanceSheetReport, BalanceSheetReport);
  Application.CreateForm(TCashbookStatementReport, CashbookStatementReport);
  Application.CreateForm(TPromptUserIdPasswordForm, PromptUserIdPasswordForm);
  Application.CreateForm(TPromptHostNameUserIdPasswordForm, PromptHostNameUserIdPasswordForm);
  Application.CreateForm(TGraphReport, GraphReport);
  Application.CreateForm(TAccountStatementReport, AccountStatementReport);
  Application.CreateForm(TIncomeStatementReport, IncomeStatementReport);
  Application.CreateForm(TProxyDatabaseCollectionObjectFindForm, ProxyDatabaseCollectionObjectFindForm);
  Application.CreateForm(TProxyDatabaseCollectionObjectMaintainForm, ProxyDatabaseCollectionObjectMaintainForm);
  Application.CreateForm(TProxyObjectListingReport, ProxyObjectListingReport);
  Application.CreateForm(TPromptSearchStringForm, PromptSearchStringForm);
  Application.CreateForm(TPromptDateForm, PromptDateForm);
  Application.CreateForm(TPromptStringForm, PromptStringForm);
  Application.CreateForm(TReceiptReport, ReceiptReport);
  Application.CreateForm(TSalesReport, SalesReport);
  SetControlColors(Application,WorkstationConfiguration.ControlColor);
  end;
  if RegistrationOk then
    Application.Run;
  ApplicationShutDown;
end.