Changeset 71 for trunk/UContact.pas

Timestamp:

Dec 13, 2021, 6:48:48 PM (2 years ago)

Author:

chronos

Message:

• Added: Support for GaduGadu, GroupWise and Categories fields.

File:

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

trunk/UContact.pas

@@ -30 +30 @@
     cfVersion, cfAnniversary, cfGender,
     cfJabber, cfIcq, cfWindowsLive, cfGoogleTalk, cfAim, cfQq, cfYahoo, cfIrc,
-    cfSkype, cfMsn,
+    cfSkype, cfMsn, cfGroupWise, cfGaduGadu,
     cfTwitter, cfFacebook, cfInstagram, cfSnapchat, cfMatrix, cfYoutube,
     cfPeerTube, cfLinkedIn, cfMastodon, cfMySpace, cfReddit);
@@ -244 +244 @@
   SSkype = 'Skype';
   SMatrix = 'Matrix';
+  SGroupWise = 'GroupWise';
+  SGaduGadu = 'GaduGadu';
   // Social
   STwitter = 'Twitter';
@@ -1039 +1041 @@
     AddNew('PHOTO', [], [], SPhoto, cfPhoto, dtImage);
     AddNew('BDAY', [], [], SDayOfBirth, cfDayOfBirth, dtDate);
-    AddNew('ANNIVERSARY', [], [], SAnniversary, cfAnniversary, dtDate);
+    with AddNew('ANNIVERSARY', [], [], SAnniversary, cfAnniversary, dtDate) do
+      AddAlternative('X-EVOLUTION-ANNIVERSARY', [], []);
     AddNew('REV', [], [], SRevision, cfRevision, dtString);
     AddNew('UID', [], [], SUniqueIdentifier, cfUid, dtString);
@@ -1064 +1067 @@
     with AddNew('X-MSN', [], [], SMsn, cfMsn, dtString) do
       AddAlternative('X-CENTRUM-CZ-MSN', [], []);
+    AddNew('X-GROUPWISE', [], [], SGroupWise, cfGroupWise, dtString);
+    AddNew('X-GADUGADU', [], [], SGaduGadu, cfGaduGadu, dtString);
     // Social
     with AddNew('X-TWITTER', [], [], STwitter, cfTwitter, dtString) do