Changeset 68 for trunk/Forms/UFormProperty.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/UFormProperty.pas (modified) (2 diffs)

trunk/Forms/UFormProperty.pas

@@ -64 +64 @@
 begin
   if ComboBoxField.ItemIndex <> -1 then begin
-    Field := TContactsFile(Core.DataFile).Fields[ComboBoxField.ItemIndex];
+    Field := TContactField(ComboBoxField.Items.Objects[ComboBoxField.ItemIndex]);
     if Assigned(Field) then begin
       EditName.Text := Field.SysName;
@@ -132 +132 @@
     GroupsArray);
   if Assigned(Field) then
-    ComboBoxField.ItemIndex := TContactsFile(Core.DataFile).Fields.IndexOf(Field);
+    ComboBoxField.ItemIndex := ComboBoxField.Items.IndexOfObject(Field);
 end;