Changeset 42 for trunk/Forms/UFormContact.pas

Timestamp:

Dec 2, 2021, 12:18:18 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Loading of JPEG photo. Image binary data were affected by TStringList. Store them just as a string type.
• Fixed: Reset list filter if different file is opened to avoid confusing empty list after file open.
• Fixed: Decoding long quoted-printable text due to range check error of small index variable type.

File:

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

trunk/Forms/UFormContact.pas

@@ -171 +171 @@
     Item.Caption := Contact.Properties[Item.Index].Name;
     Item.SubItems.Add(Attributes.DelimitedText);
-    Item.SubItems.Add(Contact.Properties[Item.Index].Values.DelimitedText);
+    Item.SubItems.Add(Contact.Properties[Item.Index].Value);
     Item.Data := Contact.Properties[Item.Index];
   end;