Changeset 16 for trunk/Forms/UFormMain.pas

Timestamp:

Mar 19, 2013, 9:43:12 PM (11 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.

File:

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

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);