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

trunk/Forms/UFormProperties.lfm

@@ -14 +14 @@
   object ListView1: TListView
     Left = 0
-    Height = 810
+    Height = 801
     Top = 0
     Width = 1210
@@ -46 +46 @@
     Left = 0
     Height = 39
-    Top = 842
+    Top = 833
     Width = 1210
     Align = alBottom
@@ -73 +73 @@
     Left = 0
     Height = 32
-    Top = 810
+    Top = 801
     Width = 1210
     OnChange = ListViewFilter1Change
@@ -80 +80 @@
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 27
-    Top = 881
+    Height = 36
+    Top = 872
     Width = 1210
     Panels = <    
@@ -96 +96 @@
       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
@@ -133 +136 @@
       ShortCut = 16449
     end
+    object AClone: TAction
+      Caption = 'Clone'
+      ImageIndex = 11
+      OnExecute = ACloneExecute
+    end
   end
   object ListViewSort1: TListViewSort