Changeset 22 for trunk/Forms/UFormAccounts.pas

Timestamp:

Mar 25, 2013, 11:47:38 PM (11 years ago)

Author:

chronos

Message:

• Upraveno: Příprava pro zobrazování seznamu operací.

File:

• trunk/Forms/UFormAccounts.pas (modified) (1 diff)

trunk/Forms/UFormAccounts.pas

@@ -60 +60 @@
   if (Item.Index >= 0) and (Item.Index < Accounts.Count) then
   with TAccount(Accounts[Item.Index]) do begin
-    Item.Caption := Name;
+    Item.Caption := IntToStr(Item.Index + 1);
     Item.Data := Accounts[Item.Index];
+    Item.SubItems.Add(Name);
     Item.SubItems.Add(Number);
     Item.SubItems.Add(BankCode);