Changeset 14 for trunk/Forms/UFormContacts.pas

Timestamp:

Feb 4, 2018, 2:01:05 PM (6 years ago)

Author:

chronos

Message:

• Added: New File menu action Merge. It can merge multiple vcard files and update values for items with same full name.

File:

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

trunk/Forms/UFormContacts.pas

@@ -15 +15 @@
   TFormContacts = class(TForm)
     AAdd: TAction;
+    ASelectAll: TAction;
     ARemove: TAction;
     AModify: TAction;
@@ -22 +23 @@
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
     PopupMenuContact: TPopupMenu;
     ToolBar1: TToolBar;
@@ -30 +32 @@
     procedure AModifyExecute(Sender: TObject);
     procedure ARemoveExecute(Sender: TObject);
+    procedure ASelectAllExecute(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -158 +161 @@
 end;
 
+procedure TFormContacts.ASelectAllExecute(Sender: TObject);
+begin
+  ListView1.SelectAll;
+end;
+
 procedure TFormContacts.FormClose(Sender: TObject; var CloseAction: TCloseAction
   );