Changeset 15 for trunk

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

Files:

• Forms/UFormMain.lfm (modified) (1 diff)
• Forms/UFormMain.lrt (modified) (1 diff)
• Forms/UFormMain.pas (modified) (4 diffs)
• Languages/FioInfo.cs.po (modified) (1 diff)
• Languages/FioInfo.po (modified) (1 diff)
• UCore.pas (modified) (2 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;
 

trunk/Languages/FioInfo.cs.po

@@ -118 +118 @@
 msgstr "Token"
 
+#: tformmain.buttongetstate.caption
+msgid "Get"
+msgstr ""
+
 #: tformmain.buttoninterval.caption
 msgctxt "TFORMMAIN.BUTTONINTERVAL.CAPTION"

trunk/Languages/FioInfo.po

@@ -109 +109 @@
 msgstr ""
 
+#: tformmain.buttongetstate.caption
+msgid "Get"
+msgstr ""
+
 #: tformmain.buttoninterval.caption
 msgctxt "TFORMMAIN.BUTTONINTERVAL.CAPTION"

trunk/UCore.pas

@@ -224 +224 @@
     ApplicationInfo1.RegistryKey);
   LoadFromRegistry(RegistryContext);
-  LoadAccounts;
 end;
 
@@ -317 +316 @@
     WriteInteger('ReportId', ReportId);
     WriteString('Language', CoolTranslator1.Language.Code);
-    WriteString('FileNameFormat', OutputFormat);
+    WriteString('FileNameFormat', UTF8Decode(OutputFormat));
     WriteInteger('SelectedAccountIndex', SelectedAccountIndex);
   finally