Changeset 42 for trunk/Forms/UFormContacts.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/UFormContacts.pas (modified) (2 diffs)

trunk/Forms/UFormContacts.pas

@@ -133 +133 @@
 begin
   if Assigned(Contacts) then Contacts.AssignToList(ListViewSort1.List)
-    else ListViewSort1.List.Clear;
+    else begin
+      ListViewSort1.List.Clear;
+    end;
   FilterList(ListViewSort1.List);
 end;
@@ -178 +180 @@
   ReloadList;
   UpdateInterface;
+  ListViewFilter1.Reset;
 end;