Changeset 16 for trunk/UCore.pas

Timestamp:

Feb 28, 2018, 9:44:51 AM (7 years ago)

Author:

chronos

Message:

• Added: New Tools action Find duplicates.

File:

• trunk/UCore.pas (modified) (4 diffs)

trunk/UCore.pas

@@ -26 +26 @@
   TCore = class(TDataModule)
     AAbout: TAction;
+    AFindDuplicate: TAction;
     AFileMerge: TAction;
     ASettings: TAction;
@@ -55 +56 @@
     procedure AFileSaveAsExecute(Sender: TObject);
     procedure AFileCloseExecute(Sender: TObject);
+    procedure AFindDuplicateExecute(Sender: TObject);
     procedure AHomePageExecute(Sender: TObject);
     procedure ASettingsExecute(Sender: TObject);
@@ -91 +93 @@
 
 uses
-  UFormMain, UFormAbout, UFormSettings, UContact, UFormContacts;
+  UFormMain, UFormAbout, UFormSettings, UContact, UFormContacts, UFormFindDuplicity;
 
 resourcestring
@@ -168 +170 @@
   FileClose;
   UpdateFile;
+end;
+
+procedure TCore.AFindDuplicateExecute(Sender: TObject);
+begin
+  FormFindDuplicity := TFormFindDuplicity.Create(nil);
+  with FormFindDuplicity do begin
+    Contacts := TContactsFile(DataFile).Contacts;
+    ShowModal;
+    Free;
+  end;
 end;