Changeset 51 for trunk/Forms/UFormContacts.pas

Timestamp:

Dec 3, 2021, 7:44:05 PM (3 years ago)

Author:

chronos

Message:

• Added: Clone context menu action for list of contacts and contact properties.

File:

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

trunk/Forms/UFormContacts.pas

@@ -15 +15 @@
   TFormContacts = class(TForm)
     AAdd: TAction;
+    AClone: TAction;
     ASelectAll: TAction;
     ARemove: TAction;
@@ -26 +27 @@
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
     PopupMenuContact: TPopupMenu;
     StatusBar1: TStatusBar;
@@ -32 +34 @@
     ToolButton2: TToolButton;
     ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
     procedure AAddExecute(Sender: TObject);
+    procedure ACloneExecute(Sender: TObject);
     procedure AModifyExecute(Sender: TObject);
     procedure ARemoveExecute(Sender: TObject);
@@ -80 +84 @@
 
 procedure TFormContacts.ListView1Data(Sender: TObject; Item: TListItem);
+
+  procedure AddItem(Text: string; IsCaption: Boolean = False);
+  begin
+    if IsCaption then begin
+      if Text <> '' then Item.Caption := Text
+        else Item.Caption := ' ';
+    end else begin
+      if Text <> '' then Item.SubItems.Add(Text)
+        else Item.SubItems.Add(' ');
+    end;
+  end;
+
 begin
   if Item.Index < ListViewSort1.List.Count then
   with TContact(ListViewSort1.List[Item.Index]) do begin
-    Item.Caption := Fields[cfFullName];
-    Item.SubItems.Add(Fields[cfFirstName]);
-    Item.SubItems.Add(Fields[cfMiddleName]);
-    Item.SubItems.Add(Fields[cfLastName]);
-    Item.SubItems.Add(Fields[cfTelCell]);
-    Item.SubItems.Add(Fields[cfTelHome]);
+
+    AddItem(Fields[cfFullName], True);
+    AddItem(Fields[cfFirstName]);
+    AddItem(Fields[cfMiddleName]);
+    AddItem(Fields[cfLastName]);
+    AddItem(Fields[cfTelCell]);
+    AddItem(Fields[cfTelHome]);
     Item.Data := ListViewSort1.List[Item.Index];
   end;
@@ -228 +245 @@
       if FormContact.ShowModal = mrOK then begin
         Contacts.Add(Contact);
+        Core.DataFile.Modified := True;
+        ReloadList;
+        UpdateInterface;
+        Contact := nil;
+      end;
+    finally
+      if Assigned(Contact) then
+        Contact.Free;
+    end;
+  finally
+    FormContact.Free;
+  end;
+end;
+
+procedure TFormContacts.ACloneExecute(Sender: TObject);
+var
+  FormContact: TFormContact;
+  Contact: TContact;
+begin
+  FormContact := TFormContact.Create(nil);
+  try
+    Contact := TContact.Create;
+    try
+      Contact.Assign(TContact(ListView1.Selected.Data));
+      FormContact.Contact := Contact;
+      FormContact.OnPrevious := FormContactPrevious;
+      FormContact.OnNext := FormContactNext;
+      if FormContact.ShowModal = mrOK then begin
+        Contacts.Add(Contact);
         Contact := nil;
         Core.DataFile.Modified := True;
@@ -250 +296 @@
   try
     Contact := TContact.Create;
-    Contact.Assign(TContact(ListView1.Selected.Data));
-    FormContact.Contact := Contact;
-    FormContact.OnPrevious := FormContactPrevious;
-    FormContact.OnNext := FormContactNext;
     try
+      Contact.Assign(TContact(ListView1.Selected.Data));
+      FormContact.Contact := Contact;
+      FormContact.OnPrevious := FormContactPrevious;
+      FormContact.OnNext := FormContactNext;
       if FormContact.ShowModal = mrOK then begin
         TContact(ListView1.Selected.Data).Assign(Contact);