Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormProperties.pas

    r129 r133  
    226226        Properties.Add(ContactProperty);
    227227        ContactProperty := nil;
    228         Core.DataFile.Modified := True;
    229228        ReloadList;
    230229        UpdateInterface;
    … …  
    253252        Properties.Add(ContactProperty);
    254253        ContactProperty := nil;
    255         Core.DataFile.Modified := True;
    256254        ReloadList;
    257255        UpdateInterface;
    … …  
    294292      if FormProperty.ShowModal = mrOK then begin
    295293        TContactProperty(ListView1.Selected.Data).Assign(ContactProperty);
    296         Core.DataFile.Modified := True;
    297294        ReloadList;
    298295        UpdateInterface;
    … …  
    317314        Properties.Delete(Properties.IndexOf(ListView1.Items[I].Data));
    318315      end;
    319     Core.DataFile.Modified := True;
    320316    ReloadList;
    321317    UpdateInterface;
Note: See TracChangeset for help on using the changeset viewer.