Changeset 68 for trunk/Forms/UFormFindDuplicity.pas

Timestamp:

Dec 10, 2021, 11:15:41 AM (3 years ago)

Author:

chronos

Message:

• Fixed: Wrong field selected for duplicates find from field combobox selection in Find duplicates window.
• Added: Sort list of contact fields in Find duplicates and Field windows.

File:

• trunk/Forms/UFormFindDuplicity.pas (modified) (5 diffs)

trunk/Forms/UFormFindDuplicity.pas

@@ -49 +49 @@
   public
     FoundItems: TFoundItems;
-    ContactField: TContactFieldIndex;
+    ContactFieldIndex: TContactFieldIndex;
     procedure Find;
     procedure ReloadList;
@@ -107 +107 @@
 
 procedure TFormFindDuplicity.SetContacts(AValue: TContacts);
+var
+  ContactField: TContactField;
 begin
   if FContacts = AValue then Exit;
@@ -112 +114 @@
   if Assigned(FContacts) then begin
     Contacts.ContactsFile.Fields.LoadToStrings(ComboBoxField.Items);
-    ComboBoxField.ItemIndex := Integer(ContactField);
+    ContactField := Contacts.ContactsFile.Fields.GetByIndex(ContactFieldIndex);
+    ComboBoxField.ItemIndex := ComboBoxField.Items.IndexOfObject(ContactField);
     if (ComboBoxField.Items.Count > 0) and (ComboBoxField.ItemIndex = -1) then
       ComboBoxField.ItemIndex := 0;
@@ -133 +136 @@
   FoundItems.Clear;
   for I := 0 to Contacts.Count - 1 do begin
-    FieldName := TContact(Contacts[I]).Fields[ContactField];
+    FieldName := Contacts[I].Fields[ContactFieldIndex];
     if FieldName <> '' then begin
       Item := FoundItems.SearchByField(FieldName);
@@ -153 +156 @@
   Core.Translator.TranslateComponentRecursive(Self);
   Core.ThemeManager1.UseTheme(Self);
-  ContactField := cfTelCell;
+  ContactFieldIndex := cfTelCell;
 end;
 
 procedure TFormFindDuplicity.ComboBoxFieldChange(Sender: TObject);
 begin
-  ContactField := TContactFieldIndex(ComboBoxField.ItemIndex);
+  if ComboBoxField.ItemIndex <> -1 then
+    ContactFieldIndex := TContactField(ComboBoxField.Items.Objects[ComboBoxField.ItemIndex]).Index
+    else ContactFieldIndex := cfTelCell;
   Find;
 end;