Changeset 58 for trunk/Forms/UFormContact.pas

Timestamp:

Dec 8, 2021, 10:00:45 PM (3 years ago)

Author:

chronos

Message:

• Added: Social tab in contact form.
• Added: Allow to specify alternative property name for contact field definition to support various non-standard properties.

File:

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

trunk/Forms/UFormContact.pas

@@ -23 +23 @@
     ButtonPrevious: TButton;
     EditAim: TEdit;
+    EditMatrix: TEdit;
+    EditYouTube: TEdit;
+    EditGender: TEdit;
+    EditLinkedIn: TEdit;
+    EditFacebook: TEdit;
+    EditInstagram: TEdit;
+    EditMySpace: TEdit;
+    EditTwitter: TEdit;
+    EditReddit: TEdit;
+    EditMastodon: TEdit;
     EditWindowsLive: TEdit;
+    EditSnapchat: TEdit;
     EditYahoo: TEdit;
     EditGoogleTalk: TEdit;
@@ -76 +87 @@
     EditWorkPhone: TEdit;
     EditQq: TEdit;
+    EditPeerTube: TEdit;
     GroupBox1: TGroupBox;
     GroupBox2: TGroupBox;
@@ -122 +134 @@
     Label47: TLabel;
     Label48: TLabel;
+    Label49: TLabel;
     Label5: TLabel;
+    Label50: TLabel;
+    Label51: TLabel;
+    Label52: TLabel;
+    Label53: TLabel;
+    Label54: TLabel;
+    Label55: TLabel;
     Label6: TLabel;
     Label7: TLabel;
@@ -129 +148 @@
     LabelOrganization: TLabel;
     LabelOrganization1: TLabel;
+    LabelOrganization10: TLabel;
+    LabelOrganization11: TLabel;
     LabelOrganization2: TLabel;
     LabelOrganization3: TLabel;
@@ -134 +155 @@
     LabelOrganization5: TLabel;
     LabelOrganization6: TLabel;
+    LabelOrganization7: TLabel;
+    LabelOrganization8: TLabel;
+    LabelOrganization9: TLabel;
     MemoNotes: TMemo;
     MenuItem1: TMenuItem;
@@ -142 +166 @@
     PopupMenuPhoto: TPopupMenu;
     SavePictureDialog1: TSavePictureDialog;
+    TabSheetSocial: TTabSheet;
     TabSheetChat: TTabSheet;
     TabSheetOthers: TTabSheet;
@@ -166 +191 @@
     procedure TabSheetOthersHide(Sender: TObject);
     procedure TabSheetOthersShow(Sender: TObject);
+    procedure TabSheetSocialHide(Sender: TObject);
+    procedure TabSheetSocialShow(Sender: TObject);
     procedure TabSheetWorkHide(Sender: TObject);
     procedure TabSheetWorkShow(Sender: TObject);
@@ -225 +252 @@
 procedure TFormContact.TabSheetChatHide(Sender: TObject);
 begin
+  Contact.Fields[cfMatrix] := EditMatrix.Text;
   Contact.Fields[cfJabber] := EditJabber.Text;
   Contact.Fields[cfIcq] := EditIcq.Text;
@@ -234 +262 @@
   Contact.Fields[cfYahoo] := EditYahoo.Text;
   Contact.Fields[cfAim] := EditAim.Text;
-  Contact.Fields[cfIrc] := EditIrc.Text
+  Contact.Fields[cfIrc] := EditIrc.Text;
+
+  ReloadAllPropertiesTab;
 end;
 
 procedure TFormContact.TabSheetChatShow(Sender: TObject);
 begin
+  EditMatrix.Text := Contact.Fields[cfMatrix];
   EditJabber.Text := Contact.Fields[cfJabber];
   EditIcq.Text := Contact.Fields[cfIcq];
@@ -274 +305 @@
   Contact.Fields[cfAnniversary] := EditAniversary.Text;
   Contact.Fields[cfUrl] := EditWeb.Text;
+  Contact.Fields[cfGender] := EditGender.Text;
 
   // Photo
@@ -358 +390 @@
   EditAniversary.Text := Contact.Fields[cfAnniversary];
   EditWeb.Text := Contact.Fields[cfUrl];
+  EditGender.Text := Contact.Fields[cfGender];
 
   // Photo
@@ -466 +499 @@
 end;
 
+procedure TFormContact.TabSheetSocialHide(Sender: TObject);
+begin
+  Contact.Fields[cfFacebook] := EditFacebook.Text;
+  Contact.Fields[cfTwitter] := EditTwitter.Text;
+  Contact.Fields[cfInstagram] := EditInstagram.Text;
+  Contact.Fields[cfYouTube] := EditYouTube.Text;
+  Contact.Fields[cfPeerTube] := EditPeerTube.Text;
+  Contact.Fields[cfMastodon] := EditMastodon.Text;
+  Contact.Fields[cfLinkedIn] := EditLinkedIn.Text;
+  Contact.Fields[cfSnapchat] := EditSnapchat.Text;
+  Contact.Fields[cfReddit] := EditReddit.Text;
+  Contact.Fields[cfMySpace] := EditMySpace.Text;
+
+  ReloadAllPropertiesTab;
+end;
+
+procedure TFormContact.TabSheetSocialShow(Sender: TObject);
+begin
+  EditFacebook.Text := Contact.Fields[cfFacebook];
+  EditTwitter.Text := Contact.Fields[cfTwitter];
+  EditInstagram.Text := Contact.Fields[cfInstagram];
+  EditYouTube.Text := Contact.Fields[cfYouTube];
+  EditPeerTube.Text := Contact.Fields[cfPeerTube];
+  EditMastodon.Text := Contact.Fields[cfMastodon];
+  EditLinkedIn.Text := Contact.Fields[cfLinkedIn];
+  EditSnapchat.Text := Contact.Fields[cfSnapchat];
+  EditReddit.Text := Contact.Fields[cfReddit];
+  EditMySpace.Text := Contact.Fields[cfMySpace];
+end;
+
 procedure TFormContact.TabSheetWorkHide(Sender: TObject);
 begin