Changeset 9 for trunk/Forms/UFormContact.pas

Timestamp:

Feb 1, 2018, 1:41:56 PM (6 years ago)

Author:

chronos

Message:

• Added: More editable contact fields.

File:

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

trunk/Forms/UFormContact.pas

@@ -16 +16 @@
     ButtonCancel: TButton;
     ButtonOk: TButton;
+    EditWebPage: TEdit;
+    EditWebPageHome: TEdit;
+    EditWebPageWork: TEdit;
+    EditEmailHome: TEdit;
+    EditEmailWork: TEdit;
+    EditBirthday: TEdit;
+    EditTitle: TEdit;
+    EditAddress: TEdit;
+    EditOrganization: TEdit;
+    EditPhoneHome: TEdit;
+    EditPhoneWork: TEdit;
+    EditCellPhoneHome: TEdit;
+    EditCellPhoneWork: TEdit;
+    EditFax: TEdit;
+    EditFaxHome: TEdit;
+    EditFaxWork: TEdit;
+    EditPager: TEdit;
     EditSurname: TEdit;
     EditEmail: TEdit;
@@ -22 +39 @@
     EditCellPhone: TEdit;
     Label1: TLabel;
+    Label10: TLabel;
+    Label11: TLabel;
+    Label12: TLabel;
+    Label13: TLabel;
+    Label14: TLabel;
+    Label15: TLabel;
+    Label16: TLabel;
+    Label17: TLabel;
+    Label18: TLabel;
+    Label19: TLabel;
     Label2: TLabel;
+    Label20: TLabel;
+    Label21: TLabel;
+    Label22: TLabel;
+    LabelOrganization: TLabel;
     Label3: TLabel;
     Label4: TLabel;
     Label5: TLabel;
     Label6: TLabel;
+    Label7: TLabel;
+    Label8: TLabel;
+    Label9: TLabel;
     ListView1: TListView;
     MemoNotes: TMemo;
@@ -37 +71 @@
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
+    procedure TabSheetAllShow(Sender: TObject);
   private
     Contact: TContact;
@@ -61 +96 @@
   Core.PersistentForm1.Load(Self);
   PageControlContact.TabIndex := 0;
-  ReloadFields;
 end;
 
@@ -71 +105 @@
     Item.SubItems.Add(Contact.Fields[Index]);
   end;
+end;
+
+procedure TFormContact.TabSheetAllShow(Sender: TObject);
+begin
+  ReloadFields;
 end;
 
@@ -96 +135 @@
 begin
   Self.Contact := Contact;
-  ReloadFields;
   EditName.Text := Contact.FirstName;
   EditSurname.Text := Contact.LastName;
   EditCellPhone.Text := Contact.TelCell;
-  EditPhone.Text := Contact.TelHome;
+  EditPhoneHome.Text := Contact.TelHome;
+  EditPhoneWork.Text := Contact.TelWork;
   EditEmail.Text := Contact.EmailHome;
   MemoNotes.Lines.Text := Contact.Note;
+  EditTitle.Text := Contact.Title;
+  EditOrganization.Text := Contact.Organization;
+  EditAddress.Text := Contact.AdrHome;
+  EditEmailHome.Text := Contact.EmailHome;
 end;
 
@@ -110 +153 @@
   Contact.LastName := EditSurname.Text;
   Contact.TelCell := EditCellPhone.Text;
-  Contact.TelHome := EditPhone.Text;
+  Contact.TelHome := EditPhoneHome.Text;
+  Contact.TelWork := EditPhoneWork.Text;
   Contact.EmailHome := EditEmail.Text;
   Contact.Note := MemoNotes.Lines.Text;
+  Contact.Title := EditTitle.Text;
+  Contact.Organization := EditOrganization.Text;
+  Contact.AdrHome := EditAddress.Text;
+  Contact.EmailHome := EditEmailHome.Text;
 end;