Changeset 57 for trunk/Forms/UFormContact.pas

Timestamp:

Dec 8, 2021, 8:56:27 PM (3 years ago)

Author:

chronos

Message:

• Added: Chat contact tab for text chatting applications.

File:

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

trunk/Forms/UFormContact.pas

@@ -22 +22 @@
     ButtonOk: TButton;
     ButtonPrevious: TButton;
+    EditAim: TEdit;
+    EditWindowsLive: TEdit;
+    EditYahoo: TEdit;
+    EditGoogleTalk: TEdit;
+    EditMsn: TEdit;
+    EditIrc: TEdit;
+    EditSkype: TEdit;
     EditHomeAddressCity: TEdit;
     EditHomeAddressCountry: TEdit;
@@ -37 +44 @@
     EditAddressWorkStreetExtended: TEdit;
     EditAniversary: TEdit;
+    EditJabber: TEdit;
+    EditIcq: TEdit;
     EditWorkEmail: TEdit;
     EditPager: TEdit;
@@ -66 +75 @@
     EditMobile: TEdit;
     EditWorkPhone: TEdit;
+    EditQq: TEdit;
     GroupBox1: TGroupBox;
     GroupBox2: TGroupBox;
@@ -81 +91 @@
     Label19: TLabel;
     Label2: TLabel;
+    Label20: TLabel;
+    Label21: TLabel;
     Label22: TLabel;
+    Label23: TLabel;
     Label24: TLabel;
     Label25: TLabel;
@@ -107 +120 @@
     Label45: TLabel;
     Label46: TLabel;
+    Label47: TLabel;
+    Label48: TLabel;
     Label5: TLabel;
     Label6: TLabel;
@@ -114 +129 @@
     LabelOrganization: TLabel;
     LabelOrganization1: TLabel;
+    LabelOrganization2: TLabel;
+    LabelOrganization3: TLabel;
+    LabelOrganization4: TLabel;
+    LabelOrganization5: TLabel;
+    LabelOrganization6: TLabel;
     MemoNotes: TMemo;
     MenuItem1: TMenuItem;
@@ -122 +142 @@
     PopupMenuPhoto: TPopupMenu;
     SavePictureDialog1: TSavePictureDialog;
+    TabSheetChat: TTabSheet;
     TabSheetOthers: TTabSheet;
     TabSheetHome: TTabSheet;
@@ -137 +158 @@
     procedure FormShow(Sender: TObject);
     procedure TabSheetAllShow(Sender: TObject);
+    procedure TabSheetChatHide(Sender: TObject);
+    procedure TabSheetChatShow(Sender: TObject);
     procedure TabSheetGeneralHide(Sender: TObject);
     procedure TabSheetGeneralShow(Sender: TObject);
@@ -198 +221 @@
   FormProperties.ReloadList;
   FormProperties.UpdateInterface;
+end;
+
+procedure TFormContact.TabSheetChatHide(Sender: TObject);
+begin
+  Contact.Fields[cfJabber] := EditJabber.Text;
+  Contact.Fields[cfIcq] := EditIcq.Text;
+  Contact.Fields[cfMsn] := EditMsn.Text;
+  Contact.Fields[cfSkype] := EditSkype.Text;
+  Contact.Fields[cfQq] := EditQq.Text;
+  Contact.Fields[cfGoogleTalk] := EditGoogleTalk.Text;
+  Contact.Fields[cfWindowsLive] := EditWindowsLive.Text;
+  Contact.Fields[cfYahoo] := EditYahoo.Text;
+  Contact.Fields[cfAim] := EditAim.Text;
+  Contact.Fields[cfIrc] := EditIrc.Text
+end;
+
+procedure TFormContact.TabSheetChatShow(Sender: TObject);
+begin
+  EditJabber.Text := Contact.Fields[cfJabber];
+  EditIcq.Text := Contact.Fields[cfIcq];
+  EditMsn.Text := Contact.Fields[cfMsn];
+  EditSkype.Text := Contact.Fields[cfSkype];
+  EditQq.Text := Contact.Fields[cfQq];
+  EditGoogleTalk.Text := Contact.Fields[cfGoogleTalk];
+  EditWindowsLive.Text := Contact.Fields[cfWindowsLive];
+  EditYahoo.Text := Contact.Fields[cfYahoo];
+  EditAim.Text := Contact.Fields[cfAim];
+  EditIrc.Text := Contact.Fields[cfIrc];
 end;