Changeset 31 for trunk/UCore.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/UCore.pas (modified) (1 diff)

trunk/UCore.pas

@@ -364 +364 @@
       Result.Loaded := TempFile.Contacts.Count;
       for I := 0 to TempFile.Contacts.Count - 1 do begin
-        NewContact := TContactsFile(DataFile).Contacts.Search(TContact(TempFile.Contacts[I]).FullName);
+        NewContact := TContactsFile(DataFile).Contacts.Search(TContact(TempFile.Contacts[I]).Fields[cfFullName]);
         if not Assigned(NewContact) then begin
           NewContact := TContact.Create;