Changeset 13 for trunk/Forms/UFormContacts.pas

Timestamp:

Feb 4, 2018, 12:47:01 PM (6 years ago)

Author:

chronos

Message:

• Added: Status bar with number of contacts.

File:

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

trunk/Forms/UFormContacts.pas

@@ -68 +68 @@
   if Assigned(Contacts) and (Item.Index < Contacts.Count) then
   with TContact(Contacts[Item.Index]) do begin
-    Item.Caption := FirstName;
+    Item.Caption := FullName;
+    Item.SubItems.Add(FirstName);
     Item.SubItems.Add(MiddleName);
     Item.SubItems.Add(LastName);