Changeset 109 for trunk/Forms

Timestamp:

Feb 14, 2022, 5:43:30 PM (2 years ago)

Author:

chronos

Message:

• Added: Synced edit of full name and name parts.

Location:

trunk/Forms

Files:

• UFormContact.lfm (modified) (2 diffs)
• UFormContact.pas (modified) (1 diff)
• UFormProperty.pas (modified) (1 diff)

trunk/Forms/UFormContact.lfm

@@ -18 +18 @@
     Top = 8
     Width = 1009
-    ActivePage = TabSheetGeneral
+    ActivePage = TabSheetHome
     Anchors = [akTop, akLeft, akRight, akBottom]
     ParentFont = False
-    TabIndex = 0
+    TabIndex = 1
     TabOrder = 0
     object TabSheetGeneral: TTabSheet
@@ -462 +462 @@
         Anchors = [akTop, akLeft, akRight]
         Caption = 'Address'
-        ClientHeight = 285
+        ClientHeight = 259
         ClientWidth = 895
         TabOrder = 6

trunk/Forms/UFormContact.pas

@@ -735 +735 @@
 
 procedure TFormContact.EditFullNameChange(Sender: TObject);
-var
-
-  Before, First, Middle, Last, After: string;
-begin
-  Contact.FullNameToNameParts(EditFullName.Text, Before, First, Middle, Last, After);
-  UpdateEditNoOnChange(EditTitleBefore, Before);
-  UpdateEditNoOnChange(EditFirstName, First);
-  UpdateEditNoOnChange(EditMiddleName, Middle);
-  UpdateEditNoOnChange(EditLastName, Last);
-  UpdateEditNoOnChange(EditTitleAfter, After);
-  UpdateInterface;
+begin
+  with TNameDetails.Create do
+  try
+    Prefix := EditTitleBefore.Text;
+    First := EditFirstName.Text;
+    Middle := EditMiddleName.Text;
+    Last := EditLastName.Text;
+    Suffix := EditTitleAfter.Text;
+    Split(EditFullName.Text);
+    UpdateEditNoOnChange(EditTitleBefore, Prefix);
+    UpdateEditNoOnChange(EditFirstName, First);
+    UpdateEditNoOnChange(EditMiddleName, Middle);
+    UpdateEditNoOnChange(EditLastName, Last);
+    UpdateEditNoOnChange(EditTitleAfter, Suffix);
+    UpdateInterface;
+  finally
+    Free;
+  end;
 end;
 
 procedure TFormContact.NamePartChange(Sender: TObject);
 begin
-  UpdateEditNoOnChange(EditFullName, Contact.NamePartsToFullName(EditTitleBefore.Text,
-    EditFirstName.Text, EditMiddleName.Text, EditLastName.Text, EditTitleAfter.Text));
+  with TNameDetails.Create do
+  try
+    Prefix := EditTitleBefore.Text;
+    First := EditFirstName.Text;
+    Middle := EditMiddleName.Text;
+    Last := EditLastName.Text;
+    Suffix := EditTitleAfter.Text;
+    UpdateEditNoOnChange(EditFullName, GetCombined);
+  finally
+    Free;
+  end;
 end;
 

trunk/Forms/UFormProperty.pas

@@ -124 +124 @@
     Groups.StrictDelimiter := True;
     Groups.DelimitedText := EditAttributes.Text;
+    GroupsArray := Default(TStringArray);
     SetLength(GroupsArray, Groups.Count);
     for I := 0 to Groups.Count - 1 do