source: trunk/Forms/UFormMain.pas

unit UFormMain;

{$mode delphi{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls, Menus, ActnList, Spin, EditBtn, ComCtrls, UFioAPI, URegistry,
  Registry, DateUtils;

type

  { TFormMain }

  TFormMain = class(TForm)
    ButtonNew: TButton;
    ButtonNew1: TButton;
    ButtonGetState: TButton;
    ButtonSettings: TButton;
    ButtonInterval: TButton;
    ButtonMonthly: TButton;
    ButtonExit: TButton;
    ButtonAbout: TButton;
    ComboBoxAccounts: TComboBox;
    DateEditStart: TDateEdit;
    DateEditTo: TDateEdit;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    LabelBalance: TLabel;
    ListViewOperation: TListView;
    SpinEditYear: TSpinEdit;
    SpinEditId: TSpinEdit;
    SpinEditLastId: TSpinEdit;
    procedure ButtonGetStateClick(Sender: TObject);
    procedure ButtonIntervalClick(Sender: TObject);
    procedure ButtonMonthlyClick(Sender: TObject);
    procedure ButtonNew1Click(Sender: TObject);
    procedure ButtonNewClick(Sender: TObject);
    procedure ComboBoxAccountsChange(Sender: TObject);
    procedure DateEditStartAcceptDate(Sender: TObject; var ADate: TDateTime;
      var AcceptDate: Boolean);
    procedure DateEditToAcceptDate(Sender: TObject; var ADate: TDateTime;
      var AcceptDate: Boolean);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListViewOperationData(Sender: TObject; Item: TListItem);
  private
    { private declarations }
  public
    procedure ReloadList;
    procedure LoadInterface;
    procedure SaveInterface;
  end;

var
  FormMain: TFormMain;

implementation

{$R *.lfm}

uses
  UCore;

{ TFormMain }

procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  SaveInterface;
end;

procedure TFormMain.ButtonNewClick(Sender: TObject);
begin
  SaveInterface;
  Core.ADownloadNew.Execute;
end;

procedure TFormMain.ComboBoxAccountsChange(Sender: TObject);
begin
  Core.SelectedAccountIndex := ComboBoxAccounts.ItemIndex;
  LoadInterface;
end;

procedure TFormMain.DateEditStartAcceptDate(Sender: TObject;
  var ADate: TDateTime; var AcceptDate: Boolean);
begin
  AcceptDate := (ADate <= Now) and (ADate <= DateEditTo.Date);
end;

procedure TFormMain.DateEditToAcceptDate(Sender: TObject; var ADate: TDateTime;
  var AcceptDate: Boolean);
begin
  AcceptDate := (ADate <= Now) and (ADate >= DateEditStart.Date);
end;

procedure TFormMain.ButtonIntervalClick(Sender: TObject);
begin
  SaveInterface;
  Core.ADownloadInterval.Execute;
end;

procedure TFormMain.ButtonGetStateClick(Sender: TObject);
begin
  if Assigned(Core.CurrentAccount) then begin
    Core.LoadAccount(Core.CurrentAccount);
    LoadInterface;
    ReloadList;
  end;
end;

procedure TFormMain.ButtonMonthlyClick(Sender: TObject);
begin
  SaveInterface;
  Core.ADownloadMonthly.Execute;
end;

procedure TFormMain.ButtonNew1Click(Sender: TObject);
begin
  Core.AAccounts.Execute;
  LoadInterface;
end;

procedure TFormMain.FormCreate(Sender: TObject);
begin
end;

procedure TFormMain.FormShow(Sender: TObject);
begin
  LoadInterface;
  Core.CoolTranslator1.Translate;
end;

procedure TFormMain.ListViewOperationData(Sender: TObject; Item: TListItem);
begin
  if Assigned(Core.CurrentAccount) then
  with Core.CurrentAccount do begin
  if (Item.Index >= 0) and (Item.Index < Operations.Count) then
  with TAccountOperation(Operations[Item.Index]) do begin
    Item.Caption := IntToStr(Item.Index + 1);
    Item.Data := Operations[Item.Index];
    Item.SubItems.Add(DateToStr(Time));
    Item.SubItems.Add(Account);
    Item.SubItems.Add(FloatToStr(Value));
    Item.SubItems.Add(VarSym);
    Item.SubItems.Add(SpecSym);
    Item.SubItems.Add(ConstSym);
  end;
  end;
end;

procedure TFormMain.ReloadList;
begin
  if Assigned(Core.CurrentAccount) then
    ListViewOperation.Items.Count := Core.CurrentAccount.Operations.Count
    else ListViewOperation.Items.Count;
  ListViewOperation.Refresh;
end;

procedure TFormMain.LoadInterface;
begin
  Core.Accounts.LoadToStrings(ComboBoxAccounts.Items);
  if (Core.SelectedAccountIndex >= 0) and
    (Core.SelectedAccountIndex < ComboBoxAccounts.Items.Count) then begin
    ComboBoxAccounts.ItemIndex := Core.SelectedAccountIndex;
  end;
  if (ComboBoxAccounts.Items.Count > 0) and (ComboBoxAccounts.ItemIndex = -1) then
    ComboBoxAccounts.ItemIndex := 0;
  if ComboBoxAccounts.ItemIndex <> -1 then
    Core.CurrentAccount := TAccount(Core.Accounts[ComboBoxAccounts.ItemIndex])
    else Core.CurrentAccount := nil;
  DateEditStart.Date := Core.ReportTimeFrom;
  DateEditTo.Date := Core.ReportTimeTo;
  SpinEditYear.Value := Core.ReportYear;
  SpinEditYear.MaxValue := YearOf(Now);
  SpinEditId.Value := Core.ReportId;
  ButtonInterval.Enabled := Assigned(Core.CurrentAccount);
  ButtonMonthly.Enabled := Assigned(Core.CurrentAccount);
  ButtonNew.Enabled := Assigned(Core.CurrentAccount);
  ButtonGetState.Enabled := Assigned(Core.CurrentAccount);
  Core.ADownloadInterval.Enabled := Assigned(Core.CurrentAccount);
  Core.ADownloadMonthly.Enabled := Assigned(Core.CurrentAccount);
  Core.ADownloadNew.Enabled := Assigned(Core.CurrentAccount);
  if ComboBoxAccounts.ItemIndex <> -1 then begin
    LabelBalance.Caption := FloatToStr(TAccount(ComboBoxAccounts.Items.Objects[
      ComboBoxAccounts.ItemIndex]).Balance) + ' Kč';
  end else begin
    LabelBalance.Caption := '? Kč';
  end;
end;

procedure TFormMain.SaveInterface;
begin
  Core.ReportTimeFrom := DateEditStart.Date;
  Core.ReportTimeTo := DateEditTo.Date;
  Core.ReportYear := SpinEditYear.Value;
  Core.ReportId := SpinEditId.Value;
end;

end.