Changeset 133 for trunk/Forms/UFormContacts.pas

Timestamp:

Apr 10, 2022, 1:39:35 PM (2 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/UFormContacts.pas (modified) (1 diff)

trunk/Forms/UFormContacts.pas

@@ -471 +471 @@
       FormContact.OnGetNext := GetNextContact;
       if FormContact.ShowModal = mrOK then begin
+        if not TContact(ListView1.Selected.Data).CompareTo(Contact) then
+          Core.DataFile.Modified := True;
         TContact(ListView1.Selected.Data).Assign(Contact);
-        Core.DataFile.Modified := True;
         ReloadList;
         UpdateInterface;