Changeset 31 for trunk/Forms/UFormContacts.pas

Timestamp:

Nov 25, 2021, 1:18:44 AM (3 years ago)

Author:

chronos

Message:

• Modified: Store contact properties in general way to support also user defined properties and unknown attributes.
• Added: Show contact image in contact edit window.

File:

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

trunk/Forms/UFormContacts.pas

@@ -70 +70 @@
   if Assigned(Contacts) and (Item.Index < Contacts.Count) then
   with TContact(Contacts[Item.Index]) do begin
-    Item.Caption := FullName;
-    Item.SubItems.Add(FirstName);
-    Item.SubItems.Add(MiddleName);
-    Item.SubItems.Add(LastName);
-    Item.SubItems.Add(TelCell);
-    Item.SubItems.Add(TelHome);
+    Item.Caption := Fields[cfFullName];
+    Item.SubItems.Add(Fields[cfFirstName]);
+    Item.SubItems.Add(Fields[cfMiddleName]);
+    Item.SubItems.Add(Fields[cfLastName]);
+    Item.SubItems.Add(Fields[cfTelCell]);
+    Item.SubItems.Add(Fields[cfTelHome]);
     Item.Data := Contacts[Item.Index];
   end;