Changeset 13 for trunk/Forms/UFormMain.pas

Timestamp:

Mar 16, 2013, 12:05:33 AM (11 years ago)

Author:

chronos

Message:

• Přidáno: Načtení stavu účtů při startu aplikace.
• Opraveno: Při ukládání do registrů nepoužívat UTF-8.

File:

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

trunk/Forms/UFormMain.pas

@@ -81 +81 @@
     Core.CurrentAccount := TAccount(Core.Accounts[ComboBoxAccounts.ItemIndex])
     else Core.CurrentAccount := nil;
+  LoadInterface;
 end;
 
@@ -121 +122 @@
   ButtonMonthly.Enabled := Assigned(Core.CurrentAccount);
   ButtonNew.Enabled := Assigned(Core.CurrentAccount);
+  if ComboBoxAccounts.ItemIndex <> -1 then begin
+    LabelBalance.Caption := FloatToStr(TAccount(ComboBoxAccounts.Items.Objects[
+      ComboBoxAccounts.ItemIndex]).Balance) + ' Kč';
+  end else begin
+    LabelBalance.Caption := '? Kč';
+  end;
 end;