← Back to branch summary

~chronoscz/vcard-studio/trunk

« back to all changes in this revision

Viewing changes to Forms/FormFindDuplicity.pas

  • Committer: chronos
  • Date: 2023-06-06 15:05:18 UTC
  • Revision ID: svn-v4:b2f690cb-8b89-471c-b043-dbd4632e1e77:trunk:152
* Added: VCardProcessor class for processing contacts available from VCard package.
* Added: Normalize menu action for normalization of contact property values.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Forms/FormFindDuplicity.pas
4
4
 
5
5
uses
6
6
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
7
 
  ExtCtrls, StdCtrls, ActnList, Menus, VCard, Generics.Collections,
 
7
  ExtCtrls, StdCtrls, ActnList, Menus, VCard, Generics.Collections, RegistryEx,
8
8
  Generics.Defaults;
9
9
 
10
10
type
188
188
    Form := TFormContacts.Create(nil);
189
189
    Form.Contacts := TContacts.Create(False);
190
190
    Form.Contacts.ParentVCard := Contacts.ParentVCard;
 
191
    Form.Context := TRegistryContext.Create(Core.Core.ApplicationInfo1.RegistryRoot,
 
192
      Core.Core.ApplicationInfo1.RegistryKey + '\ContactsColumns');
191
193
    with TFoundItem(ListView1.Selected.Data) do
192
194
      for I := 0 to Contacts.Count - 1 do
193
195
        Form.Contacts.Add(Contacts[I]);