Changeset 68 for trunk/UContact.pas

Timestamp:

Dec 10, 2021, 11:15:41 AM (2 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/UContact.pas (modified) (2 diffs)

trunk/UContact.pas

@@ -162 +162 @@
 
 uses
-  UQuotedPrintable;
+  UQuotedPrintable, UCommon;
 
 const
@@ -674 +674 @@
   I: Integer;
 begin
-  while AItems.Count < Count do AItems.Add('');
-  while AItems.Count > Count do AItems.Delete(AItems.Count - 1);
-  for I := 0 to Count - 1 do
-    AItems[I] := Items[I].Title;
+  AItems.BeginUpdate;
+  try
+    while AItems.Count < Count do AItems.Add('');
+    while AItems.Count > Count do AItems.Delete(AItems.Count - 1);
+    for I := 0 to Count - 1 do begin
+      AItems.Objects[I] := Items[I];
+      AItems[I] := Items[I].Title;
+    end;
+    SortStrings(AItems);
+  finally
+    AItems.EndUpdate;
+  end;
 end;