Changeset 71 for trunk/Forms/UFormContact.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/Forms/UFormContact.pas (modified) (7 diffs)

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