Changeset 51 for trunk/Forms/UFormProperties.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/UFormProperties.pas (modified) (5 diffs)

trunk/Forms/UFormProperties.pas

@@ -15 +15 @@
   TFormProperties = class(TForm)
     AAdd: TAction;
+    AClone: TAction;
     ASelectAll: TAction;
     ARemove: TAction;
@@ -26 +27 @@
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
     PopupMenuField: TPopupMenu;
     StatusBar1: TStatusBar;
@@ -33 +35 @@
     ToolButton3: TToolButton;
     procedure AAddExecute(Sender: TObject);
+    procedure ACloneExecute(Sender: TObject);
     procedure AModifyExecute(Sender: TObject);
     procedure ARemoveExecute(Sender: TObject);
@@ -78 +81 @@
 
 procedure TFormProperties.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 TContactProperty(ListViewSort1.List[Item.Index]) do begin
-    Item.Caption := Name;
-    Item.SubItems.Add(Attributes.DelimitedText);
-    Item.SubItems.Add(Value);
+    AddItem(Name, True);
+    AddItem(Attributes.DelimitedText);
+    AddItem(Value);
     Item.Data := ListViewSort1.List[Item.Index];
   end;
@@ -204 +219 @@
 end;
 
+procedure TFormProperties.ACloneExecute(Sender: TObject);
+var
+  FormProperty: TFormProperty;
+  ContactProperty: TContactProperty;
+begin
+  FormProperty := TFormProperty.Create(nil);
+  try
+    ContactProperty := TContactProperty.Create;
+    ContactProperty.Assign(TContactProperty(ListView1.Selected.Data));
+    FormProperty.ContactProperty := ContactProperty;
+    try
+      if FormProperty.ShowModal = mrOK then begin
+        Properties.Add(ContactProperty);
+        ContactProperty := nil;
+        Core.DataFile.Modified := True;
+        ReloadList;
+        UpdateInterface;
+      end;
+    finally
+      if Assigned(ContactProperty) then
+        ContactProperty.Free;
+    end;
+  finally
+    FormProperty.Free;
+  end;
+end;
+
 procedure TFormProperties.AModifyExecute(Sender: TObject);
 var