Changeset 152 for trunk/Forms/FormFindDuplicity.pas

Timestamp:

Jun 6, 2023, 5:05:18 PM (12 months ago)

Author:

chronos

Message:

• Added: VCardProcessor class for processing contacts available from VCard package.
• Added: Normalize menu action for normalization of contact property values.

File:

• trunk/Forms/FormFindDuplicity.pas (modified) (2 diffs)

trunk/Forms/FormFindDuplicity.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ExtCtrls, StdCtrls, ActnList, Menus, VCard, Generics.Collections,
+  ExtCtrls, StdCtrls, ActnList, Menus, VCard, Generics.Collections, RegistryEx,
   Generics.Defaults;
 
@@ -189 +189 @@
     Form.Contacts := TContacts.Create(False);
     Form.Contacts.ParentVCard := Contacts.ParentVCard;
+    Form.Context := TRegistryContext.Create(Core.Core.ApplicationInfo1.RegistryRoot,
+      Core.Core.ApplicationInfo1.RegistryKey + '\ContactsColumns');
     with TFoundItem(ListView1.Selected.Data) do
       for I := 0 to Contacts.Count - 1 do