Changeset 138 for trunk/Forms/UFormContacts.pas

Timestamp:

Aug 23, 2022, 10:06:54 AM (21 months ago)

Author:

chronos

Message:

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

File:

• trunk/Forms/UFormContacts.pas (modified) (11 diffs)

trunk/Forms/UFormContacts.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  Menus, ActnList, UVCard, UListViewSort, LazUTF8, Clipbrd,
-  Generics.Collections;
+  Menus, ActnList, UVCard, UListViewSort, LazUTF8, Clipbrd, URegistry,
+  Generics.Collections, Types;
 
 type
@@ -16 +16 @@
     AClone: TAction;
     ACopy: TAction;
+    AColumns: TAction;
     ACut: TAction;
     APaste: TAction;
@@ -31 +32 @@
     MenuItem11: TMenuItem;
     MenuItem12: TMenuItem;
+    Separator1: TMenuItem;
+    MenuItemColumns: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
@@ -53 +56 @@
     procedure AAddExecute(Sender: TObject);
     procedure ACloneExecute(Sender: TObject);
+    procedure AColumnsExecute(Sender: TObject);
     procedure ACopyExecute(Sender: TObject);
     procedure ACutExecute(Sender: TObject);
@@ -83 +87 @@
     procedure DoUpdateInterface;
     procedure UpdateColumns;
+    procedure LoadFromRegistry(Context: TRegistryContext);
+    procedure SaveToRegistry(Context: TRegistryContext);
   public
     ListViewColumns: TContactFieldIndexes;
     FilterItems: TContactFilterItems;
-    property Contacts: TContacts read FContacts write SetContacts;
+    Context: TRegistryContext;
     procedure ReloadList;
     procedure BeginUpdate;
     procedure EndUpdate;
     procedure UpdateInterface;
+    property Contacts: TContacts read FContacts write SetContacts;
   end;
 
@@ -102 +109 @@
 
 uses
-  UFormContact, UCore, UVCardFile;
+  UFormContact, UCore, UVCardFile, UFormColumns;
 
 resourcestring
@@ -315 +322 @@
 end;
 
+procedure TFormContacts.LoadFromRegistry(Context: TRegistryContext);
+var
+  I: Integer;
+  Registry: TRegistryEx;
+  ContactFieldIndex: TContactFieldIndex;
+begin
+  Registry := TRegistryEx.Create;
+  with Registry do
+  try
+    RootKey := Context.RootKey;
+    OpenKey(Context.Key, True);
+    ListViewColumns.Clear;
+    I := 0;
+    while ValueExists('Column' + IntToStr(I)) do begin
+      ContactFieldIndex := TContactFieldIndex(ReadIntegerWithDefault('Column' + IntToStr(I), -1));
+      ListViewColumns.Add(ContactFieldIndex);
+      Inc(I);
+    end;
+
+    if ListViewColumns.Count = 0 then begin
+      with ListViewColumns do begin
+        Add(cfFullName);
+        Add(cfFirstName);
+        Add(cfMiddleName);
+        Add(cfLastName);
+        Add(cfTel);
+        Add(cfTelCell);
+        Add(cfTelHome);
+        Add(cfTelWork);
+        Add(cfEmailWork);
+        Add(cfOrganization);
+      end;
+    end;
+  finally
+    Free;
+  end;
+end;
+
+procedure TFormContacts.SaveToRegistry(Context: TRegistryContext);
+var
+  I: Integer;
+  Registry: TRegistryEx;
+begin
+  Registry := TRegistryEx.Create;
+  with Registry do
+  try
+    RootKey := Context.RootKey;
+    OpenKey(Context.Key, True);
+    for I := 0 to ListViewColumns.Count - 1 do
+      WriteInteger('Column' + IntToStr(I), Integer(ListViewColumns[I]));
+
+    // Remove old columns
+    I := ListViewColumns.Count;
+    while ValueExists('Column' + IntToStr(I)) do begin
+      DeleteValue('Column' + IntToStr(I));
+      Inc(I);
+    end;
+  finally
+    Free;
+  end;
+end;
+
 procedure TFormContacts.FormShow(Sender: TObject);
 begin
@@ -320 +389 @@
   Core.ThemeManager1.UseTheme(Self);
   Core.PersistentForm1.Load(Self);
+  LoadFromRegistry(Context);
   ReloadList;
   UpdateInterface;
@@ -385 +455 @@
 end;
 
+procedure TFormContacts.AColumnsExecute(Sender: TObject);
+var
+  FormColumns: TFormColumns;
+  I: Integer;
+  Field: TContactField;
+begin
+  FormColumns := TFormColumns.Create(nil);
+  with FormColumns do
+  try
+    for I := 0 to ListViewColumns.Count - 1 do begin
+      Field := TContact.GetFields.GetByIndex(ListViewColumns[I]);
+      if Assigned(Field) then
+        ActiveColumns.AddObject(Field.Title, Field);
+    end;
+    for I := 0 to TContact.GetFields.Count - 1 do begin
+      Field := TContact.GetFields[I];
+      if ListViewColumns.IndexOf(Field.Index) = -1 then
+        AvailableColumns.AddObject(Field.Title, Field);
+    end;
+    if ShowModal = mrOK then begin
+      ListViewColumns.Clear;
+      for I := 0 to ActiveColumns.Count - 1 do begin
+        ListViewColumns.Add(TContactField(ActiveColumns.Objects[I]).Index);
+      end;
+      UpdateColumns;
+      ReloadList;
+    end;
+  finally
+    Free;
+  end;
+end;
+
 procedure TFormContacts.ACopyExecute(Sender: TObject);
 var
@@ -571 +673 @@
   );
 begin
+  SaveToRegistry(Context);
   Core.PersistentForm1.Save(Self);
 end;
@@ -579 +682 @@
 begin
   FilterItems := TContactFilterItems.Create;
-
   ListViewColumns := TContactFieldIndexes.Create;
-  with ListViewColumns do begin
-    Add(cfFullName);
-    Add(cfFirstName);
-    Add(cfMiddleName);
-    Add(cfLastName);
-    Add(cfTel);
-    Add(cfTelCell);
-    Add(cfTelHome);
-    Add(cfTelWork);
-    Add(cfEmailWork);
-  end;
 
   FContacts := nil;