Changeset 138 for trunk/Forms/UFormMain.pas

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/UFormMain.pas (modified) (5 diffs)

trunk/Forms/UFormMain.pas

@@ -19 +19 @@
     MenuItem12: TMenuItem;
     MenuItem13: TMenuItem;
+    MenuItemColumns: TMenuItem;
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
@@ -59 +60 @@
     procedure FormResize(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure MenuItemColumnsClick(Sender: TObject);
     procedure MenuItemToolbarClick(Sender: TObject);
   private
@@ -76 +78 @@
 
 uses
-  UCore, UFormContacts, UVCard, UVCardFile;
+  UCore, UFormContacts, UVCard, UVCardFile, URegistry;
 
 resourcestring
@@ -121 +123 @@
     CoolBar1.AutosizeBands;
 
+    FormContacts.Context := TRegistryContext.Create(Core.ApplicationInfo1.RegistryRoot,
+      Core.ApplicationInfo1.RegistryKey + '\ContactsColumns');
     FormContacts.Contacts := TVCardFile(Core.DataFile).VCard.Contacts;
     FormContacts.ManualDock(Self, nil, alClient);
@@ -128 +132 @@
     FormContacts.EndUpdate;
   end;
+end;
+
+procedure TFormMain.MenuItemColumnsClick(Sender: TObject);
+begin
+  FormContacts.AColumns.Execute;
 end;