Changeset 12 for trunk/Forms/UFormMain.pas

Timestamp:

Mar 15, 2013, 11:42:38 PM (11 years ago)

Author:

chronos

Message:

• Přidáno: Podpora pro více účtů.

File:

• trunk/Forms/UFormMain.pas (modified) (6 diffs)

trunk/Forms/UFormMain.pas

@@ -16 +16 @@
   TFormMain = class(TForm)
     ButtonNew: TButton;
+    ButtonNew1: TButton;
     ButtonSettings: TButton;
     ButtonInterval: TButton;
@@ -21 +22 @@
     ButtonExit: TButton;
     ButtonAbout: TButton;
+    ComboBoxAccounts: TComboBox;
     DateEditStart: TDateEdit;
     DateEditTo: TDateEdit;
@@ -26 +28 @@
     GroupBox2: TGroupBox;
     GroupBox3: TGroupBox;
+    GroupBox4: TGroupBox;
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
     Label4: TLabel;
+    Label5: TLabel;
+    Label6: TLabel;
+    LabelBalance: TLabel;
     SpinEditYear: TSpinEdit;
     SpinEditId: TSpinEdit;
     procedure ButtonIntervalClick(Sender: TObject);
     procedure ButtonMonthlyClick(Sender: TObject);
+    procedure ButtonNew1Click(Sender: TObject);
     procedure ButtonNewClick(Sender: TObject);
+    procedure ComboBoxAccountsChange(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -68 +76 @@
 end;
 
+procedure TFormMain.ComboBoxAccountsChange(Sender: TObject);
+begin
+  if ComboBoxAccounts.ItemIndex <> -1 then
+    Core.CurrentAccount := TAccount(Core.Accounts[ComboBoxAccounts.ItemIndex])
+    else Core.CurrentAccount := nil;
+end;
+
 procedure TFormMain.ButtonIntervalClick(Sender: TObject);
 begin
@@ -78 +93 @@
   SaveInterface;
   Core.ADownloadMonthly.Execute;
+end;
+
+procedure TFormMain.ButtonNew1Click(Sender: TObject);
+begin
+  Core.AAccounts.Execute;
+  LoadInterface;
 end;
 
@@ -92 +113 @@
 procedure TFormMain.LoadInterface;
 begin
+  Core.Accounts.LoadToStrings(ComboBoxAccounts.Items);
   DateEditStart.Date := Core.ReportTimeFrom;
   DateEditTo.Date := Core.ReportTimeTo;
   SpinEditYear.Value := Core.ReportYear;
   SpinEditId.Value := Core.ReportId;
+  ButtonInterval.Enabled := Assigned(Core.CurrentAccount);
+  ButtonMonthly.Enabled := Assigned(Core.CurrentAccount);
+  ButtonNew.Enabled := Assigned(Core.CurrentAccount);
 end;