Changeset 112 for trunk/UContactImage.pas

Timestamp:

Feb 15, 2022, 9:42:57 AM (3 years ago)

Author:

chronos

Message:

• Fixed: Contact photo was not saved correctly.
• Fixed: URL contact photo was incorrectly encoded with BASE64 encoding.
• Fixed: Disabled not correctly working autodetection of max. line length.
• Fixed: Tab order in Contact name details window.

File:

• trunk/UContactImage.pas (modified) (3 diffs)

trunk/UContactImage.pas

@@ -295 +295 @@
       if Url <> '' then begin
         Contact.Fields[FieldIndex] := Url;
+        PhotoProperty.Encoding := '';
       end else begin
         PhotoProperty.Encoding := VCardBase64;
@@ -322 +323 @@
   Url := '';
   Used := False;
+  Modified := True;
 end;
 
@@ -332 +334 @@
     Url := '';
     Used := True;
+    Modified := True;
   finally
     Free;