Changeset 18 for trunk/Forms/UFormFindDuplicity.pas

Timestamp:

Feb 28, 2018, 1:43:45 PM (7 years ago)

Author:

chronos

Message:

• Added: From Find duplicities form it is possible to open the list of duplicit contacts for further modification/addition/removal.

File:

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

trunk/Forms/UFormFindDuplicity.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ExtCtrls, StdCtrls, Contnrs, UContact;
+  ExtCtrls, StdCtrls, ActnList, Menus, Contnrs, UContact;
 
 type
@@ -29 +29 @@
 
   TFormFindDuplicity = class(TForm)
+    AShowContacts: TAction;
+    ActionList1: TActionList;
     ComboBoxField: TComboBox;
     Label1: TLabel;
     ListView1: TListView;
+    MenuItem1: TMenuItem;
     Panel1: TPanel;
+    PopupMenu1: TPopupMenu;
+    procedure AShowContactsExecute(Sender: TObject);
     procedure ComboBoxFieldChange(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -59 +64 @@
 
 uses
-  UCore;
+  UCore, UFormContacts;
 
 { TFoundItems }
@@ -95 +100 @@
   with TFoundItem(FoundItems[Item.Index]) do begin
     Item.Caption := Field;
+    Item.Data := FoundItems[Item.Index];
     Item.SubItems.Add(Contacts.ToString);
     Item.SubItems.Add(IntToStr(Contacts.Count));
@@ -156 +162 @@
 end;
 
+procedure TFormFindDuplicity.AShowContactsExecute(Sender: TObject);
+var
+  Form: TFormContacts;
+  I: Integer;
+begin
+  if Assigned(ListView1.Selected) then begin
+    Form := TFormContacts.Create(nil);
+    Form.Contacts := TContacts.Create(False);
+    Form.Contacts.ContactsFile := Contacts.ContactsFile;
+    with TFoundItem(ListView1.Selected.Data) do
+      for I := 0 to Contacts.Count - 1 do
+        Form.Contacts.Add(Contacts[I]);
+    Form.ShowModal;
+    with TFoundItem(ListView1.Selected.Data) do begin
+      // Remove all deleted
+      for I := 0 to Contacts.Count - 1 do
+        if Form.Contacts.IndexOf(Contacts[I]) = -1 then begin
+          Form.Contacts.Remove(Contacts[I]);
+          Self.Contacts.Remove(Contacts[I]);
+          Self.Contacts.ContactsFile.Modified := True;
+        end;
+
+      // Add newly added
+      for I := 0 to Form.Contacts.Count - 1 do
+        if Contacts.IndexOf(Form.Contacts[I]) = -1 then begin
+          Form.Contacts.Add(Form.Contacts[I]);
+          Self.Contacts.Add(Form.Contacts[I]);
+          Self.Contacts.ContactsFile.Modified := True;
+        end;
+    end;
+    Form.Contacts.Free;
+    Form.Free;
+    Find;
+  end;
+end;
+
 procedure TFormFindDuplicity.FormClose(Sender: TObject;
   var CloseAction: TCloseAction);