Changeset 68 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormFindDuplicity.pas (modified) (5 diffs)
• UFormProperty.lfm (modified) (1 diff)
• UFormProperty.pas (modified) (2 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;

trunk/Forms/UFormProperty.lfm

@@ -95 +95 @@
   object ComboBoxField: TComboBox
     Left = 168
-    Height = 42
+    Height = 41
     Top = 24
     Width = 532

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;