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

unit POSConfig;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base, Buttons, StdCtrls, ExtCtrls, ComCtrls;

type
  TPOSConfigForm = class(TBaseForm)
    OkBitBtn: TBitBtn;
    CancelBitBtn: TBitBtn;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ColorButton: TButton;
    DefaultColorButton: TButton;
    Label15: TLabel;
    POSDataDirectoryEdit: TEdit;
    BrowsePOSDataDirectoryButton: TButton;
    MaximiseOnStartCheckBox: TCheckBox;
    PrintReceiptCheckBox: TCheckBox;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ColorButtonClick(Sender: TObject);
    procedure OkBitBtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DefaultColorButtonClick(Sender: TObject);
    procedure BrowsePOSDataDirectoryButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    Color : TColor;
  public
    { Public declarations }
    procedure Configure;
  end;

var
  POSConfigForm: TPOSConfigForm;

implementation

uses
  GeneralUtilities, Globals, Utilities, DatabaseManager, Main, DatabaseObjects,
  Entries, Accounts, BalanceSheet, IncomeStatement;

{$R *.dfm}

procedure TPOSConfigForm.Configure;
begin
  Color := POSConfiguration.ControlColor;
  MaximiseOnStartCheckBox.Checked := POSConfiguration.MaximiseOnStart;
  PrintReceiptCheckBox.Checked := POSConfiguration.PrintReceipt;
  POSDataDirectoryEdit.Text := POSConfiguration.POSDataDirectory;

  ShowModal;
end;

procedure TPOSConfigForm.ColorButtonClick(Sender: TObject);
begin
  if ChooseColor(Color, Color) then
    SetControlColors(Self,Color);
end;

procedure TPOSConfigForm.DefaultColorButtonClick(Sender: TObject);
begin
  Color := DefaultControlColor;
  SetControlColors(Self,Color);
end;

procedure TPOSConfigForm.OkBitBtnClick(Sender: TObject);
begin
  POSConfiguration.ControlColor := Color;
  POSConfiguration.MaximiseOnStart := MaximiseOnStartCheckBox.Checked;
  POSConfiguration.PrintReceipt := PrintReceiptCheckBox.Checked;
  POSConfiguration.POSDataDirectory := POSDataDirectoryEdit.Text;
  SavePOSConfiguration;
  SetControlColors(Application,POSConfiguration.ControlColor);
end;

procedure TPOSConfigForm.FormShow(Sender: TObject);
begin
  PageControl1.ActivePage := TabSheet1;
  ColorButton.SetFocus;
end;

procedure TPOSConfigForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then
  begin
    Close;
    Key := 0;
  end;
end;

procedure TPOSConfigForm.BrowsePOSDataDirectoryButtonClick(
  Sender: TObject);
var
  Directory : string;
begin
  Directory := POSDataDirectoryEdit.Text;
  if ChooseDirectory(
    Directory,
    'Choose location for POS data files',
    'Any file (*.*)|*.*') then
    POSDataDirectoryEdit.Text := Directory;
end;

procedure TPOSConfigForm.FormCreate(Sender: TObject);
begin
  Caption := 'Configure ' + ProgramName + ' POS';
end;

end.