Changeset 33 for trunk/Forms/UFormContact.pas

Timestamp:

Nov 25, 2021, 12:27:52 PM (3 years ago)

Author:

chronos

Message:

• Modified: Translated contact fields titles.
• Added: Full name, Middle name, title after and title before into contact form.

File:

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

trunk/Forms/UFormContact.pas

@@ -18 +18 @@
     ButtonCancel: TButton;
     ButtonOk: TButton;
+    EditDepartment: TEdit;
+    EditFullName: TEdit;
+    EditTitleBefore: TEdit;
+    EditMiddleName: TEdit;
+    EditTitleAfter: TEdit;
     EditWebPage: TEdit;
     EditWebPageHome: TEdit;
@@ -35 +40 @@
     EditFaxWork: TEdit;
     EditPager: TEdit;
-    EditSurname: TEdit;
+    EditLastName: TEdit;
     EditEmail: TEdit;
     EditPhone: TEdit;
-    EditName: TEdit;
+    EditFirstName: TEdit;
     EditCellPhone: TEdit;
     ImagePhoto: TImage;
@@ -57 +62 @@
     Label22: TLabel;
     Label23: TLabel;
+    Label24: TLabel;
+    Label25: TLabel;
+    Label26: TLabel;
+    Label27: TLabel;
     LabelOrganization: TLabel;
     Label3: TLabel;
@@ -65 +74 @@
     Label8: TLabel;
     Label9: TLabel;
+    LabelOrganization1: TLabel;
     ListView1: TListView;
     MemoNotes: TMemo;
@@ -163 +173 @@
 begin
   Self.Contact := Contact;
-  EditName.Text := Contact.Fields[cfFirstName];
-  EditSurname.Text := Contact.Fields[cfLastName];
+  EditFullName.Text := Contact.Fields[cfFullName];
+  EditFirstName.Text := Contact.Fields[cfFirstName];
+  EditLastName.Text := Contact.Fields[cfLastName];
+  EditMiddleName.Text := Contact.Fields[cfMiddleName];
+  EditTitleAfter.Text := Contact.Fields[cfTitleAfter];
+  EditTitleBefore.Text := Contact.Fields[cfTitleBefore];
   EditCellPhone.Text := Contact.Fields[cfTelCell];
   EditPhoneHome.Text := Contact.Fields[cfTelHome];
@@ -172 +186 @@
   EditTitle.Text := Contact.Fields[cfTitle];
   EditOrganization.Text := Contact.Fields[cfOrganization];
-  EditAddress.Text := Contact.Fields[cfAdrHome];
-  EditEmailHome.Text := Contact.Fields[cfEmailHome];
+  EditDepartment.Text := Contact.Fields[cfDepartment];
+  EditAddress.Text := Contact.Fields[cfHomeAddress];
+  EditEmailHome.Text := Contact.Fields[cfEmail];
+  EditWebPage.Text := Contact.Fields[cfUrl];
+  EditBirthday.Text := Contact.Fields[cfDayOfBirth];
 
   ImagePhoto.Picture.Bitmap.Clear;
@@ -206 +223 @@
 procedure TFormContact.SaveData(Contact: TContact);
 begin
-  Contact.Fields[cfFirstName] := EditName.Text;
-  Contact.Fields[cfLastName] := EditSurname.Text;
+  Contact.Fields[cfFirstName] := EditFirstName.Text;
+  Contact.Fields[cfLastName] := EditLastName.Text;
   Contact.Fields[cfTelCell] := EditCellPhone.Text;
   Contact.Fields[cfTelHome] := EditPhoneHome.Text;
@@ -215 +232 @@
   Contact.Fields[cfTitle] := EditTitle.Text;
   Contact.Fields[cfOrganization] := EditOrganization.Text;
-  Contact.Fields[cfAdrHome] := EditAddress.Text;
-  Contact.Fields[cfEmailHome] := EditEmailHome.Text;
+  Contact.Fields[cfDepartment] := EditDepartment.Text;
+  Contact.Fields[cfHomeAddress] := EditAddress.Text;
+  Contact.Fields[cfEmail] := EditEmailHome.Text;
+  Contact.Fields[cfUrl] := EditWebPage.Text;
+  Contact.Fields[cfDayOfBirth] := EditBirthday.Text;
 end;