Changeset 108 for trunk/Forms/UFormContact.pas

Timestamp:

Feb 11, 2022, 11:31:42 AM (3 years ago)

Author:

chronos

Message:

• Fixed: Do not update interface in contact properties if the listview doesn't have handle yet.
• Added: Synced update of full name and name parts in contact form.
• Modified: Improved image loading code by image format.

File:

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

trunk/Forms/UFormContact.pas

@@ -205 +205 @@
     procedure ButtonWorkAddressShowClick(Sender: TObject);
     procedure EditFullNameChange(Sender: TObject);
+    procedure NamePartChange(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -315 +316 @@
   {$ENDIF}
   Core.PersistentForm1.Load(Self);
-
-  FormProperties.ManualDock(TabSheetAll, nil, alClient);
-  FormProperties.Align := alClient;
-  FormProperties.Show;
-
   PhotoChange(nil);
 
-  PageControlContact.TabIndex := Core.LastContactTabIndex;
-  UpdateInterface;
+  FormProperties.BeginUpdate;
+  try
+
+    FormProperties.ManualDock(TabSheetAll, nil, alClient);
+    FormProperties.Align := alClient;
+    FormProperties.Show;
+
+    PageControlContact.TabIndex := Core.LastContactTabIndex;
+    UpdateInterface;
+  finally
+    FormProperties.EndUpdate;
+  end;
 end;
 
@@ -385 +391 @@
 procedure TFormContact.TabSheetAllShow(Sender: TObject);
 begin
-  FormProperties.Properties := Contact.Properties;
-  FormProperties.ReloadList;
-  FormProperties.UpdateInterface;
+  FormProperties.BeginUpdate;
+  try
+    FormProperties.Properties := Contact.Properties;
+    FormProperties.ReloadList;
+    FormProperties.UpdateInterface;
+    FormProperties.Show;
+  finally
+    FormProperties.EndUpdate;
+  end;
 end;
 
@@ -709 +721 @@
 end;
 
+procedure UpdateEditNoOnChange(Edit: TEdit; Text: string);
+var
+  LastHandler: TNotifyEvent;
+begin
+  LastHandler := Edit.OnChange;
+  Edit.OnChange := nil;
+  try
+    Edit.Text := Text;
+  finally
+    Edit.OnChange := LastHandler;
+  end;
+end;
+
 procedure TFormContact.EditFullNameChange(Sender: TObject);
-begin
+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;
+end;
+
+procedure TFormContact.NamePartChange(Sender: TObject);
+begin
+  UpdateEditNoOnChange(EditFullName, Contact.NamePartsToFullName(EditTitleBefore.Text,
+    EditFirstName.Text, EditMiddleName.Text, EditLastName.Text, EditTitleAfter.Text));
 end;
 
@@ -732 +772 @@
 
 procedure TFormContact.UpdateInterface;
-begin
-  Caption := EditFullName.Text + ' - ' + SContact;
+var
+  Title: string;
+begin
+  Title := SContact;
+  if EditFullName.Text <> '' then Title := EditFullName.Text + ' - ' + Title
+  else
+  if EditOrganization.Text <> '' then Title := EditOrganization.Text + ' - ' + Title;
+  Caption := Title;
   APhotoSave.Enabled := FPhoto.Used;
   APhotoClear.Enabled := FPhoto.Used;