Changeset 51 for trunk/Forms/UFormContacts.lfm

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.lfm (modified) (7 diffs)

trunk/Forms/UFormContacts.lfm

@@ -14 +14 @@
   object ListView1: TListView
     Left = 0
-    Height = 810
+    Height = 801
     Top = 0
     Width = 1210
@@ -58 +58 @@
     Left = 0
     Height = 39
-    Top = 842
+    Top = 833
     Width = 1210
     Align = alBottom
@@ -77 +77 @@
     end
     object ToolButton3: TToolButton
+      Left = 106
+      Top = 2
+      Action = ARemove
+    end
+    object ToolButton4: TToolButton
       Left = 71
       Top = 2
-      Action = ARemove
+      Action = AClone
     end
   end
@@ -85 +90 @@
     Left = 0
     Height = 32
-    Top = 810
+    Top = 801
     Width = 1210
     OnChange = ListViewFilter1Change
@@ -92 +97 @@
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 27
-    Top = 881
+    Height = 36
+    Top = 872
     Width = 1210
     Panels = <    
@@ -108 +113 @@
       Action = AAdd
     end
+    object MenuItem2: TMenuItem
+      Action = AModify
+    end
+    object MenuItem5: TMenuItem
+      Action = AClone
+    end
     object MenuItem3: TMenuItem
       Action = ARemove
-    end
-    object MenuItem2: TMenuItem
-      Action = AModify
     end
     object MenuItem4: TMenuItem
@@ -145 +153 @@
       ShortCut = 16449
     end
+    object AClone: TAction
+      Caption = 'Clone'
+      ImageIndex = 11
+      OnExecute = ACloneExecute
+    end
   end
   object ListViewSort1: TListViewSort