Changeset 15 for trunk/Forms

Timestamp:

Mar 19, 2013, 8:52:43 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: Načítání stavu účtu se nyní provádí ručně namísto pro všechny účty automaticky.
• Opraveno: Kódování při ukládání formátu výstupního souboru.
• Opraveno: Přepínání vybraného účtu.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (1 diff)
• UFormMain.lrt (modified) (1 diff)
• UFormMain.pas (modified) (4 diffs)

trunk/Forms/UFormMain.lfm

@@ -238 +238 @@
       ParentColor = False
     end
+    object ButtonGetState: TButton
+      Left = 358
+      Height = 25
+      Top = 7
+      Width = 112
+      Caption = 'Get'
+      OnClick = ButtonGetStateClick
+      TabOrder = 0
+    end
   end
 end

trunk/Forms/UFormMain.lrt

@@ -19 +19 @@
 TFORMMAIN.LABEL6.CAPTION=Balance:
 TFORMMAIN.LABELBALANCE.CAPTION=   
+TFORMMAIN.BUTTONGETSTATE.CAPTION=Get

trunk/Forms/UFormMain.pas

@@ -17 +17 @@
     ButtonNew: TButton;
     ButtonNew1: TButton;
+    ButtonGetState: TButton;
     ButtonSettings: TButton;
     ButtonInterval: TButton;
@@ -38 +39 @@
     SpinEditYear: TSpinEdit;
     SpinEditId: TSpinEdit;
+    procedure ButtonGetStateClick(Sender: TObject);
     procedure ButtonIntervalClick(Sender: TObject);
     procedure ButtonMonthlyClick(Sender: TObject);
@@ -82 +84 @@
 procedure TFormMain.ComboBoxAccountsChange(Sender: TObject);
 begin
+  Core.SelectedAccountIndex := ComboBoxAccounts.ItemIndex;
   if ComboBoxAccounts.ItemIndex <> -1 then
     Core.CurrentAccount := TAccount(Core.Accounts[ComboBoxAccounts.ItemIndex])
     else Core.CurrentAccount := nil;
   LoadInterface;
-  Core.SelectedAccountIndex := ComboBoxAccounts.ItemIndex;
 end;
 
@@ -105 +107 @@
   SaveInterface;
   Core.ADownloadInterval.Execute;
+end;
+
+procedure TFormMain.ButtonGetStateClick(Sender: TObject);
+begin
+  if Assigned(Core.CurrentAccount) then begin
+    Core.LoadAccount(Core.CurrentAccount);
+    LoadInterface;
+  end;
 end;