Changeset 133 for trunk/Forms/UFormContact.pas

Timestamp:

Apr 10, 2022, 1:39:35 PM (3 years ago)

Author:

chronos

Message:

• Modified: Show number of removed duplicates.
• Fixed: Set document as modified only if data are really changed.

File:

• trunk/Forms/UFormContact.pas (modified) (1 diff)

trunk/Forms/UFormContact.pas

@@ -502 +502 @@
 procedure TFormContact.TabSheetGeneralShow(Sender: TObject);
 begin
-  EditFullName.Text := Contact.Fields[cfFullName];
+  UpdateEditNoOnChange(EditFullName, Contact.Fields[cfFullName]);
   EditNickName.Text := Contact.Fields[cfNickName];
   EditEmail.Text := Contact.Fields[cfEmail];