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

trunk/Forms/UFormProperty.pas

@@ -80 +80 @@
     EditName.Text := FContactProperty.Name;
     EditAttributes.Text := FContactProperty.Attributes.DelimitedText;
-    EditValues.Text := FContactProperty.Values.DelimitedText;
+    EditValues.Text := FContactProperty.Value;
   end else begin
     EditName.Text := '';
@@ -95 +95 @@
   FContactProperty.Name := EditName.Text;
   FContactProperty.Attributes.DelimitedText := EditAttributes.Text;
-  FContactProperty.Values.DelimitedText := EditValues.Text;
+  FContactProperty.Value := EditValues.Text;
 end;