Changeset 103 for trunk/UContact.pas

Timestamp:

Feb 9, 2022, 3:51:26 PM (2 years ago)

Author:

chronos

Message:

• Added: Support for profile photo as URL.
• Added: New UContactImage form to show profile photo in bigger size and with URL.
• Modified: Profile photo image load/save handling moved to separate unit UContactImage.
• Fixed: Some dynamically created forms were not translated.
• Added: Remember last used file name for image open/save dialog.

File:

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

trunk/UContact.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, fgl, Dialogs, UDataFile, LazUTF8, Base64;
+  Classes, SysUtils, fgl, Dialogs, UDataFile, LazUTF8, Base64, Graphics;
 
 type
@@ -195 +195 @@
   VCardBegin = 'BEGIN:VCARD';
   VCardEnd = 'END:VCARD';
+  VCardBase64 = 'BASE64';
+  VCardQuotedPrintable = 'QUOTED-PRINTABLE';
 
 
@@ -571 +573 @@
   I: Integer;
 begin
-  if Attributes.IndexOf('BASE64') <> -1 then begin
-    Encoding := 'BASE64';
+  if Attributes.IndexOf(VCardBase64) <> -1 then begin
+    Encoding := VCardBase64;
     Value := GetDecodedValue;
   end else
   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
+    if (Encoding = 'B') or (Encoding = 'b') then Encoding := VCardBase64;
+    if (Encoding = 'Q') or (Encoding = 'q') then Encoding := VCardQuotedPrintable;
+    if (Encoding = VCardQuotedPrintable) or (Encoding = VCardBase64) then begin
       Value := GetDecodedValue;
       Attributes.Delete(Attributes.IndexOfName('ENCODING'));
@@ -600 +602 @@
 function TContactProperty.GetDecodedValue: string;
 begin
-  if Encoding = 'BASE64' then begin
+  if Encoding = VCardBase64 then begin
     Result := DecodeStringBase64(Value);
   end else
-  if Encoding = 'QUOTED-PRINTABLE' then begin
+  if Encoding = VCardQuotedPrintable then begin
     Result := DecodeQuotedPrintable(Value, True);
   end
@@ -611 +613 @@
 function TContactProperty.GetEncodedValue: string;
 begin
-  if Encoding = 'BASE64' then begin
+  if Encoding = VCardBase64 then begin
     Result := EncodeStringBase64(Value);
   end else
-  if Encoding = 'QUOTED-PRINTABLE' then begin
+  if Encoding = VCardQuotedPrintable then begin
     Result := EncodeQuotedPrintable(Value, True);
   end
@@ -1164 +1166 @@
             if UTF8Length(OutText) > ContactsFile.MaxLineLength then begin
               CutLength := ContactsFile.MaxLineLength;
-              if Encoding = 'QUOTED-PRINTABLE' then begin
+              if Encoding = VCardQuotedPrintable then begin
                 Dec(CutLength); // There will be softline break at the end
                 // Do not cut encoded items at the end of line
@@ -1175 +1177 @@
               CutText := UTF8Copy(OutText, 1, CutLength);
               System.Delete(OutText, 1, Length(CutText));
-              if Encoding = 'QUOTED-PRINTABLE' then
+              if Encoding = VCardQuotedPrintable then
                 CutText := CutText + QuotedPrintableEscapeCharacter; // Add soft line break
               Add(LinePrefix + CutText);
-              if Encoding <> 'QUOTED-PRINTABLE' then
+              if Encoding <> VCardQuotedPrintable then
                 LinePrefix := ' ';
               Inc(LineIndex);