Changeset 16 for trunk

Timestamp:

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

Author:

chronos

Message:

• Opraveno: Načítání stavu účtu na českých Windows s desetinnou čárkou.
• Opraveno: Automatický výběr aktivního účtu.

Location:

trunk

Files:

• FioInfo.lpi (modified) (1 diff)
• Forms/UFormMain.pas (modified) (3 diffs)
• Packages/TemplateGenerics/Generic/GenericListObject.inc (modified) (1 diff)
• UCore.pas (modified) (2 diffs)

trunk/FioInfo.lpi

@@ -49 +49 @@
           <Linking>
             <Debugging>
-              <UseHeaptrc Value="True"/>
               <UseExternalDbgSyms Value="True"/>
             </Debugging>

trunk/Forms/UFormMain.pas

@@ -85 +85 @@
 begin
   Core.SelectedAccountIndex := ComboBoxAccounts.ItemIndex;
-  if ComboBoxAccounts.ItemIndex <> -1 then
-    Core.CurrentAccount := TAccount(Core.Accounts[ComboBoxAccounts.ItemIndex])
-    else Core.CurrentAccount := nil;
   LoadInterface;
 end;
@@ -143 +140 @@
   Core.Accounts.LoadToStrings(ComboBoxAccounts.Items);
   if (Core.SelectedAccountIndex >= 0) and
-    (Core.SelectedAccountIndex < ComboBoxAccounts.Items.Count) then
+    (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;
@@ -153 +156 @@
   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);

trunk/Packages/TemplateGenerics/Generic/GenericListObject.inc

@@ -67 +67 @@
 procedure TGListObject.Put(Index: TGListIndex; const AValue: TGListItem);
 begin
-  if OwnsObjects and (FItems[Index] <> AValue) then FItems[Index].Free;
+  if OwnsObjects and (FItems[Index] <> AValue) and Assigned(FItems[Index]) then FItems[Index].Free;
   inherited Put(Index, AValue);
 end;

trunk/UCore.pas

@@ -259 +259 @@
   Mem := TMemoryStream.Create;
   try
-    FioAPI.Format := DataFormat;
+    FioAPI.Format := dfXML;
     FioAPI.Token := Account.Token;
     Account.Time := Now;
@@ -276 +276 @@
       Node2 := Node.FindNode('closingBalance');
       if Assigned(Node2) then
-        Account.Balance := StrToFloat(Node2.TextContent);
+        Account.Balance := StrToFloat(StringReplace(Node2.TextContent, '.',
+          DefaultFormatSettings.DecimalSeparator, [rfReplaceAll]));
     end else begin
       Account.Number := '';