Changeset 54 for trunk/UContact.pas

Timestamp:

Dec 8, 2021, 2:29:29 PM (3 years ago)

Author:

chronos

Message:

• Added: Support for PNG encoded contact photos.
• Added: Clone button on contact fields toolbar.
• Added: Show open file dialog on photo click.

File:

• trunk/UContact.pas (modified) (2 diffs)

trunk/UContact.pas

@@ -333 +333 @@
   if Attributes.IndexOfName('ENCODING') <> -1 then begin
     Encoding := Attributes.Values['ENCODING'];
+    if (Encoding = 'B') or (Encoding = 'b') then Encoding := 'BASE64';
+    if (Encoding = 'Q') or (Encoding = 'q') then Encoding := 'QUOTED-PRINTABLE';
     if (Encoding = 'QUOTED-PRINTABLE') or (Encoding = 'BASE64') then begin
       Value := GetDecodedValue;
       Attributes.Delete(Attributes.IndexOfName('ENCODING'));
-    end;
+    end else
   end else Encoding := '';
 
@@ -347 +349 @@
     if Attributes.Names[I] = 'TYPE' then
       Attributes.Strings[I] := Attributes.Values['TYPE'];
+    if Attributes.Names[I] = 'type' then
+      Attributes.Strings[I] := Attributes.Values['type'];
   end;
 end;