Changeset 138 for trunk/Forms/UFormContacts.lfm

Timestamp:

Aug 23, 2022, 10:06:54 AM (2 years ago)

Author:

chronos

Message:

• Added: Allow to configure visible columns in contacts table.

File:

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

trunk/Forms/UFormContacts.lfm

@@ -13 +13 @@
   OnResize = FormResize
   OnShow = FormShow
-  LCLVersion = '2.2.0.4'
+  LCLVersion = '2.2.2.0'
   object ListView1: TListView
     Left = 0
-    Height = 810
+    Height = 809
     Top = 0
     Width = 1210
@@ -68 +68 @@
     Left = 0
     Height = 39
-    Top = 842
+    Top = 841
     Width = 1210
     Align = alBottom
@@ -116 +116 @@
     Left = 0
     Height = 32
-    Top = 810
+    Top = 809
     Width = 1210
     OnChange = ListViewFilter1Change
@@ -123 +123 @@
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 27
-    Top = 881
+    Height = 28
+    Top = 880
     Width = 1210
     Panels = <    
@@ -171 +171 @@
     object MenuItem8: TMenuItem
       Action = ASaveToFile
+    end
+    object Separator1: TMenuItem
+      Caption = '-'
+    end
+    object MenuItemColumns: TMenuItem
+      Action = AColumns
     end
   end
@@ -233 +239 @@
       ShortCut = 16470
     end
+    object AColumns: TAction
+      Caption = 'Columns'
+      OnExecute = AColumnsExecute
+    end
   end
   object ListViewSort1: TListViewSort