Changeset 73 for trunk/Forms/UFormContacts.pas

Timestamp:

Dec 13, 2021, 11:33:11 PM (3 years ago)

Author:

chronos

Message:

• Added: Copy, cut and paste context menu action in contacts list.
• Modified: Merge multiple files action replaced by Combine action. During Combine action files are simply added into final contacts list even with duplicate contacts.
• Modified: Added Merge button into Find duplicate window to merge contacts by selected contact field.
• Modified: Show only used contact fields in Find duplicates window.
• Fixed: Wrong items were removed if contacts and properties lists were in filtered state.

File:

• trunk/Forms/UFormContacts.pas (modified) (8 diffs)

trunk/Forms/UFormContacts.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, Menus, ActnList, UContact, UListViewSort, fgl, LazUTF8;
+  ComCtrls, Menus, ActnList, UContact, UListViewSort, fgl, LazUTF8, Clipbrd;
 
 type
@@ -16 +16 @@
     AAdd: TAction;
     AClone: TAction;
+    ACopy: TAction;
+    ACut: TAction;
+    APaste: TAction;
     ALoadFromFile: TAction;
     ASaveToFile: TAction;
@@ -26 +29 @@
     ListViewSort1: TListViewSort;
     MenuItem1: TMenuItem;
+    MenuItem10: TMenuItem;
+    MenuItem11: TMenuItem;
+    MenuItem12: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
@@ -33 +39 @@
     MenuItem7: TMenuItem;
     MenuItem8: TMenuItem;
+    MenuItem9: TMenuItem;
     OpenDialog1: TOpenDialog;
     PopupMenuContact: TPopupMenu;
@@ -47 +54 @@
     procedure AAddExecute(Sender: TObject);
     procedure ACloneExecute(Sender: TObject);
+    procedure ACopyExecute(Sender: TObject);
+    procedure ACutExecute(Sender: TObject);
     procedure ALoadFromFileExecute(Sender: TObject);
     procedure AModifyExecute(Sender: TObject);
+    procedure APasteExecute(Sender: TObject);
     procedure ARemoveExecute(Sender: TObject);
     procedure ASaveToFileExecute(Sender: TObject);
@@ -334 +344 @@
 end;
 
+procedure TFormContacts.ACopyExecute(Sender: TObject);
+var
+  Text: string;
+  Strings: TStringList;
+  I: Integer;
+begin
+  Strings := TStringList.Create;
+  try
+  Text := '';
+  for I := 0 to ListView1.Items.Count - 1 do
+    if ListView1.Items[I].Selected then begin
+      TContact(ListView1.Items[I].Data).SaveToStrings(Strings);
+      Text := Text + Strings.Text;
+    end;
+    Clipboard.AsText := Text;
+  finally
+    Strings.Free;
+  end;
+end;
+
+procedure TFormContacts.ACutExecute(Sender: TObject);
+var
+  Text: string;
+  Strings: TStringList;
+  I: Integer;
+begin
+  Strings := TStringList.Create;
+  try
+    Text := '';
+    for I := 0 to ListView1.Items.Count - 1 do
+      if ListView1.Items[I].Selected then begin
+        TContact(ListView1.Items[I].Data).SaveToStrings(Strings);
+        Text := Text + Strings.Text;
+      end;
+    Clipboard.AsText := Text;
+    for I := 0 to ListView1.Items.Count - 1 do
+      if ListView1.Items[I].Selected then begin
+        Contacts.Delete(Contacts.IndexOf(ListView1.Items[I].Data));
+      end;
+    ReloadList;
+    ListView1.ClearSelection;
+    UpdateInterface;
+  finally
+    Strings.Free;
+  end;
+end;
+
 procedure TFormContacts.ALoadFromFileExecute(Sender: TObject);
 var
@@ -384 +441 @@
 end;
 
+procedure TFormContacts.APasteExecute(Sender: TObject);
+var
+  PasteContacts: TContactsFile;
+  Lines: TStringList;
+begin
+  PasteContacts := TContactsFile.Create;
+  Lines := TStringList.Create;
+  try
+    Lines.Text := Clipboard.AsText;
+    PasteContacts.LoadFromStrings(Lines);
+    if PasteContacts.Contacts.Count > 0 then begin
+      if Assigned(ListView1.Selected) then begin
+        Contacts.InsertContacts(Contacts.IndexOf(ListView1.Selected.Data),
+          PasteContacts.Contacts);
+      end else Contacts.AddContacts(PasteContacts.Contacts);
+      Core.DataFile.Modified := True;
+      ReloadList;
+      UpdateInterface;
+    end;
+  finally
+    Lines.Free;
+    PasteContacts.Free;
+  end;
+end;
+
 procedure TFormContacts.ARemoveExecute(Sender: TObject);
 var
@@ -393 +475 @@
     for I := ListView1.Items.Count - 1 downto 0 do
       if ListView1.Items[I].Selected then begin
-        Contacts.Delete(I);
+        Contacts.Delete(Contacts.IndexOf(ListView1.Items[I].Data));
       end;
     Core.DataFile.Modified := True;