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

trunk/Forms/UFormProperties.pas

@@ -83 +83 @@
     Item.Caption := Name;
     Item.SubItems.Add(Attributes.DelimitedText);
-    Item.SubItems.Add(Values.DelimitedText);
+    Item.SubItems.Add(Value);
     Item.Data := ListViewSort1.List[Item.Index];
   end;
@@ -118 +118 @@
       0: Result := CompareString(TContactProperty(Item1).Name, TContactProperty(Item2).Name);
       1: Result := CompareString(TContactProperty(Item1).Attributes.DelimitedText, TContactProperty(Item2).Attributes.DelimitedText);
-      2: Result := CompareString(TContactProperty(Item1).Values.DelimitedText, TContactProperty(Item2).Values.DelimitedText);
+      2: Result := CompareString(TContactProperty(Item1).Value, TContactProperty(Item2).Value);
     end;
     if ListViewSort1.Order = soDown then Result := -Result;
@@ -149 +149 @@
              UTF8LowerCase(TContactProperty(List.Items[I]).Attributes.DelimitedText)) > 0 then Inc(FoundCount);
            if Pos(UTF8LowerCase(StringGrid.Cells[2, 0]),
-             UTF8LowerCase(TContactProperty(List.Items[I]).Values.DelimitedText)) > 0 then Inc(FoundCount);
+             UTF8LowerCase(TContactProperty(List.Items[I]).Value)) > 0 then Inc(FoundCount);
            if FoundCount <> EnteredCount then List.Delete(I);
          end;