Changeset 71 for trunk

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk

Files:

• Forms/UFormContact.lfm (modified) (3 diffs)
• Forms/UFormContact.lrj (modified) (2 diffs)
• Forms/UFormContact.pas (modified) (7 diffs)
• Languages/vCardStudio.cs.po (modified) (4 diffs)
• Languages/vCardStudio.po (modified) (4 diffs)
• UContact.pas (modified) (4 diffs)

trunk/Forms/UFormContact.lfm

@@ -18 +18 @@
     Top = 8
     Width = 969
-    ActivePage = TabSheetSocial
+    ActivePage = TabSheetWork
     Anchors = [akTop, akLeft, akRight, akBottom]
     ParentFont = False
-    TabIndex = 4
+    TabIndex = 2
     TabOrder = 0
     object TabSheetGeneral: TTabSheet
@@ -312 +312 @@
         ParentFont = False
         TabOrder = 15
+      end
+      object Label56: TLabel
+        Left = 16
+        Height = 24
+        Top = 480
+        Width = 95
+        Caption = 'Categories:'
+        ParentColor = False
+        ParentFont = False
+      end
+      object EditCategories: TEdit
+        Left = 144
+        Height = 42
+        Top = 472
+        Width = 254
+        ParentFont = False
+        TabOrder = 16
       end
     end
@@ -1035 +1052 @@
         ParentFont = False
         TabOrder = 10
+      end
+      object Label57: TLabel
+        Left = 10
+        Height = 24
+        Top = 308
+        Width = 99
+        Caption = 'GroupWise:'
+        ParentColor = False
+        ParentFont = False
+      end
+      object EditGroupWise: TEdit
+        Left = 173
+        Height = 42
+        Top = 304
+        Width = 254
+        ParentFont = False
+        TabOrder = 11
+      end
+      object LabelOrganization12: TLabel
+        Left = 451
+        Height = 24
+        Top = 312
+        Width = 95
+        Caption = 'GaduGadu:'
+        ParentColor = False
+        ParentFont = False
+      end
+      object EditGaduGadu: TEdit
+        Left = 608
+        Height = 42
+        Top = 308
+        Width = 254
+        ParentFont = False
+        TabOrder = 12
       end
     end

trunk/Forms/UFormContact.lrj

@@ -18 +18 @@
 {"hash":258182170,"name":"tformcontact.label46.caption","sourcebytes":[87,101,98,32,97,100,100,114,101,115,115,58],"value":"Web address:"},
 {"hash":230992922,"name":"tformcontact.label49.caption","sourcebytes":[71,101,110,100,101,114,58],"value":"Gender:"},
+{"hash":237074138,"name":"tformcontact.label56.caption","sourcebytes":[67,97,116,101,103,111,114,105,101,115,58],"value":"Categories:"},
 {"hash":325173,"name":"tformcontact.tabsheethome.caption","sourcebytes":[72,111,109,101],"value":"Home"},
 {"hash":138641338,"name":"tformcontact.label7.caption","sourcebytes":[69,45,109,97,105,108,58],"value":"E-mail:"},
@@ -63 +64 @@
 {"hash":22090,"name":"tformcontact.labelorganization6.caption","sourcebytes":[81,81,58],"value":"QQ:"},
 {"hash":59478250,"name":"tformcontact.label55.caption","sourcebytes":[77,97,116,114,105,120,58],"value":"Matrix:"},
+{"hash":207282410,"name":"tformcontact.label57.caption","sourcebytes":[71,114,111,117,112,87,105,115,101,58],"value":"GroupWise:"},
+{"hash":194852602,"name":"tformcontact.labelorganization12.caption","sourcebytes":[71,97,100,117,71,97,100,117,58],"value":"GaduGadu:"},
 {"hash":94740348,"name":"tformcontact.tabsheetsocial.caption","sourcebytes":[83,111,99,105,97,108],"value":"Social"},
 {"hash":10910938,"name":"tformcontact.label50.caption","sourcebytes":[77,121,115,112,97,99,101,58],"value":"Myspace:"},

trunk/Forms/UFormContact.pas

@@ -23 +23 @@
     ButtonPrevious: TButton;
     EditAim: TEdit;
+    EditCategories: TEdit;
     EditMatrix: TEdit;
+    EditGaduGadu: TEdit;
+    EditGroupWise: TEdit;
     EditYouTube: TEdit;
     EditGender: TEdit;
@@ -142 +145 @@
     Label54: TLabel;
     Label55: TLabel;
+    Label56: TLabel;
+    Label57: TLabel;
     Label6: TLabel;
     Label7: TLabel;
@@ -150 +155 @@
     LabelOrganization10: TLabel;
     LabelOrganization11: TLabel;
+    LabelOrganization12: TLabel;
     LabelOrganization2: TLabel;
     LabelOrganization3: TLabel;
@@ -263 +269 @@
   Contact.Fields[cfAim] := EditAim.Text;
   Contact.Fields[cfIrc] := EditIrc.Text;
+  Contact.Fields[cfGroupWise] := EditGroupWise.Text;
+  Contact.Fields[cfGaduGadu] := EditGaduGadu.Text;
 
   ReloadAllPropertiesTab;
@@ -280 +288 @@
   EditAim.Text := Contact.Fields[cfAim];
   EditIrc.Text := Contact.Fields[cfIrc];
+  EditGroupWise.Text := Contact.Fields[cfGroupWise];
+  EditGaduGadu.Text := Contact.Fields[cfGaduGadu];
 end;
 
@@ -307 +317 @@
   Contact.Fields[cfUrl] := EditWeb.Text;
   Contact.Fields[cfGender] := EditGender.Text;
+  Contact.Fields[cfCategories] := EditCategories.Text;
 
   // Photo
@@ -406 +417 @@
   EditWeb.Text := Contact.Fields[cfUrl];
   EditGender.Text := Contact.Fields[cfGender];
+  EditCategories.Text := Contact.Fields[cfCategories];
 
   // Photo

trunk/Languages/vCardStudio.cs.po

@@ -355 +355 @@
 msgstr "Matrix:"
 
+#: tformcontact.label56.caption
+msgid "Categories:"
+msgstr "Kategories:"
+
+#: tformcontact.label57.caption
+msgid "GroupWise:"
+msgstr "GroupWise:"
+
 #: tformcontact.label6.caption
 msgid "Notes:"
@@ -390 +398 @@
 msgstr "Facebook:"
 
+#: tformcontact.labelorganization12.caption
+msgid "GaduGadu:"
+msgstr "GaduGadu:"
+
 #: tformcontact.labelorganization2.caption
 msgid "Skype:"
@@ -777 +789 @@
 msgstr "Celé jméno"
 
+#: ucontact.sgadugadu
+msgid "GaduGadu"
+msgstr "GaduGadu"
+
 #: ucontact.sgender
 msgid "Gender"
@@ -784 +800 @@
 msgid "Google Talk"
 msgstr "Google Talk"
+
+#: ucontact.sgroupwise
+msgid "GroupWise"
+msgstr "GroupWise"
 
 #: ucontact.shomeaddresscity

trunk/Languages/vCardStudio.po

@@ -345 +345 @@
 msgstr ""
 
+#: tformcontact.label56.caption
+msgid "Categories:"
+msgstr ""
+
+#: tformcontact.label57.caption
+msgid "GroupWise:"
+msgstr ""
+
 #: tformcontact.label6.caption
 msgid "Notes:"
@@ -380 +388 @@
 msgstr ""
 
+#: tformcontact.labelorganization12.caption
+msgid "GaduGadu:"
+msgstr ""
+
 #: tformcontact.labelorganization2.caption
 msgid "Skype:"
@@ -765 +777 @@
 msgstr ""
 
+#: ucontact.sgadugadu
+msgid "GaduGadu"
+msgstr ""
+
 #: ucontact.sgender
 msgid "Gender"
@@ -771 +787 @@
 #: ucontact.sgoogletalk
 msgid "Google Talk"
+msgstr ""
+
+#: ucontact.sgroupwise
+msgid "GroupWise"
 msgstr ""
 

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