Changeset 104 for trunk/Forms/UFormContacts.pas

Timestamp:

Feb 9, 2022, 5:07:14 PM (3 years ago)

Author:

chronos

Message:

• Modified: Updated speed of loading of big number of contacts.
• Added: Contact field indexes cache for faster reverse search of contact fields by its index.

File:

• trunk/Forms/UFormContacts.pas (modified) (3 diffs)

trunk/Forms/UFormContacts.pas

@@ -258 +258 @@
   Text: string;
   SelectedCount: Integer;
-begin
+  Selected: Boolean;
+begin
+  Selected := Assigned(ListView1.Selected);
   AAdd.Enabled := Assigned(Contacts);
-  AModify.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
-  ARemove.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
+  AModify.Enabled := Assigned(Contacts) and Selected;
+  ARemove.Enabled := Assigned(Contacts) and Selected;
+  AAdd.Enabled := Assigned(Contacts);
+  AModify.Enabled := Assigned(Contacts) and Selected;
+  AClone.Enabled := Assigned(Contacts) and Selected;
+  ARemove.Enabled := Assigned(Contacts) and Selected;
+  ASelectAll.Enabled := ListView1.Items.Count > 0;
+  ALoadFromFile.Enabled := Assigned(Contacts) and Selected;
+  ASaveToFile.Enabled := Assigned(Contacts) and Selected;
+  ACopy.Enabled := Assigned(Contacts) and Selected;
+  ACut.Enabled := Assigned(Contacts) and Selected;
+  APaste.Enabled := Assigned(Contacts) and (Clipboard.AsText <> '');
 
   Text := '';
@@ -273 +285 @@
   end;
   StatusBar1.Panels[0].Text := Text;
+
+  UpdateColumns;
 end;
 
@@ -613 +627 @@
 begin
   if FUpdateCount = 0 then DoUpdateInterface;
-  AAdd.Enabled := Assigned(Contacts);
-  AModify.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
-  AClone.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
-  ARemove.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
-  ASelectAll.Enabled := ListView1.Items.Count > 0;
-  ALoadFromFile.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
-  ASaveToFile.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
-  ACopy.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
-  ACut.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
-  APaste.Enabled := Assigned(Contacts) and (Clipboard.AsText <> '');
-
-  UpdateColumns;
 end;