Changeset 76 for trunk/Forms/UFormContacts.pas

Timestamp:

Dec 15, 2021, 8:56:06 PM (2 years ago)

Author:

chronos

Message:

• Added: Find dialog to search text value by given contact field or by any field.

File:

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

trunk/Forms/UFormContacts.pas

@@ -64 +64 @@
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure FormResize(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
@@ -81 +83 @@
     procedure FormContactNext(Sender: TObject);
     procedure DoUpdateInterface;
+    procedure UpdateColumns;
   public
+    ListViewColumns: TContactFieldIndexes;
+    FilterItems: TContactFilterItems;
     property Contacts: TContacts read FContacts write SetContacts;
     procedure ReloadList;
@@ -123 +128 @@
   end;
 
+var
+  I: Integer;
 begin
   if Item.Index < ListViewSort1.List.Count then
   with TContact(ListViewSort1.List[Item.Index]) do begin
-    AddItem(Fields[cfFullName], True);
-    AddItem(Fields[cfFirstName]);
-    AddItem(Fields[cfMiddleName]);
-    AddItem(Fields[cfLastName]);
-    AddItem(Fields[cfTel]);
-    AddItem(Fields[cfTelCell]);
-    AddItem(Fields[cfTelHome]);
-    AddItem(Fields[cfTelWork]);
+    for I := 0 to ListViewColumns.Count - 1 do begin
+      AddItem(Fields[ListViewColumns[I]], I = 0);
+    end;
     Item.Data := ListViewSort1.List[Item.Index];
   end;
@@ -150 +152 @@
 
 procedure TFormContacts.ListViewFilter1Change(Sender: TObject);
-begin
+var
+  I: Integer;
+begin
+  // Load filter StringGrid cells into filter
+  FilterItems.Clear;
+  for I := 0 to ListViewColumns.Count - 1 do
+    if I < ListViewFilter1.StringGrid.ColCount then
+      if ListViewFilter1.StringGrid.Cells[I, 0] <> '' then
+        FilterItems.AddNew(ListViewColumns[I], ListViewFilter1.StringGrid.Cells[I, 0]);
+
   ReloadList;
   UpdateInterface;
@@ -165 +176 @@
   if Assigned(Item1) and Assigned(Item2) and (ListViewSort1.Order <> soNone) then begin
     with ListViewSort1 do
-    case Column of
-      0: Result := CompareString(TContact(Item1).Fields[cfFullName], TContact(Item2).Fields[cfFullName]);
-      1: Result := CompareString(TContact(Item1).Fields[cfFirstName], TContact(Item2).Fields[cfFirstName]);
-      2: Result := CompareString(TContact(Item1).Fields[cfMiddleName], TContact(Item2).Fields[cfMiddleName]);
-      3: Result := CompareString(TContact(Item1).Fields[cfLastName], TContact(Item2).Fields[cfLastName]);
-      4: Result := CompareString(TContact(Item1).Fields[cfTel], TContact(Item2).Fields[cfTel]);
-      5: Result := CompareString(TContact(Item1).Fields[cfTelCell], TContact(Item2).Fields[cfTelCell]);
-      6: Result := CompareString(TContact(Item1).Fields[cfTelHome], TContact(Item2).Fields[cfTelHome]);
-      7: Result := CompareString(TContact(Item1).Fields[cfTelWork], TContact(Item2).Fields[cfTelWork]);
-    end;
+    Result := CompareString(TContact(Item1).Fields[ListViewColumns[Column]], TContact(Item2).Fields[ListViewColumns[Column]]);
     if ListViewSort1.Order = soDown then Result := -Result;
   end else Result := 0;
@@ -191 +193 @@
 var
   I: Integer;
+  J: Integer;
+  K: Integer;
   FoundCount: Integer;
-  EnteredCount: Integer;
-begin
-  EnteredCount := ListViewFilter1.TextEnteredCount;
+begin
   for I := List.Count - 1 downto 0 do begin
     if List.Items[I] is TContact then begin
       with TContact(List.Items[I]) do begin
-         with ListViewFilter1 do
-         if Visible and (EnteredCount > 0) then begin
-           FoundCount := 0;
-           if Pos(UTF8LowerCase(StringGrid.Cells[0, 0]),
-             UTF8LowerCase(TContact(List.Items[I]).Fields[cfFullName])) > 0 then Inc(FoundCount);
-           if Pos(UTF8LowerCase(StringGrid.Cells[1, 0]),
-             UTF8LowerCase(TContact(List.Items[I]).Fields[cfFirstName])) > 0 then Inc(FoundCount);
-           if Pos(UTF8LowerCase(StringGrid.Cells[2, 0]),
-             UTF8LowerCase(TContact(List.Items[I]).Fields[cfMiddleName])) > 0 then Inc(FoundCount);
-           if Pos(UTF8LowerCase(StringGrid.Cells[3, 0]),
-             UTF8LowerCase(TContact(List.Items[I]).Fields[cfLastName])) > 0 then Inc(FoundCount);
-           if Pos(UTF8LowerCase(StringGrid.Cells[4, 0]),
-             UTF8LowerCase(TContact(List.Items[I]).Fields[cfTel])) > 0 then Inc(FoundCount);
-           if Pos(UTF8LowerCase(StringGrid.Cells[5, 0]),
-             UTF8LowerCase(TContact(List.Items[I]).Fields[cfTelCell])) > 0 then Inc(FoundCount);
-           if Pos(UTF8LowerCase(StringGrid.Cells[6, 0]),
-             UTF8LowerCase(TContact(List.Items[I]).Fields[cfTelHome])) > 0 then Inc(FoundCount);
-           if Pos(UTF8LowerCase(StringGrid.Cells[7, 0]),
-             UTF8LowerCase(TContact(List.Items[I]).Fields[cfTelWork])) > 0 then Inc(FoundCount);
-           if FoundCount <> EnteredCount then List.Delete(I);
-         end;
+        FoundCount := 0;
+        for J := 0 to FilterItems.Count - 1 do begin
+          if FilterItems[J].FieldIndex = cfNone then begin
+            for K := 0 to TContact(List.Items[I]).Parent.Fields.Count - 1 do begin
+              if Pos(UTF8LowerCase(FilterItems[J].Value),
+                UTF8LowerCase(TContact(List.Items[I]).Fields[TContact(List.Items[I]).Parent.Fields[K].Index])) > 0 then begin
+                  Inc(FoundCount);
+                  Break;
+                end;
+            end;
+          end else begin
+            if Pos(UTF8LowerCase(FilterItems[J].Value),
+              UTF8LowerCase(TContact(List.Items[I]).Fields[FilterItems[J].FieldIndex])) > 0 then
+                Inc(FoundCount);
+          end;
+        end;
+        if FoundCount <> FilterItems.Count then List.Delete(I);
       end;
     end else
@@ -273 +271 @@
   end;
   StatusBar1.Panels[0].Text := Text;
+end;
+
+procedure TFormContacts.UpdateColumns;
+var
+  I: Integer;
+  Field: TContactField;
+begin
+  while ListView1.Columns.Count < ListViewColumns.Count do
+    ListView1.Columns.Add;
+  while ListView1.Columns.Count > ListViewColumns.Count do
+    ListView1.Columns.Delete(ListView1.Columns.Count - 1);
+  for I := 0 to ListView1.Columns.Count - 1 do begin
+    if Assigned(Contacts) and Assigned(Contacts.ContactsFile) then begin
+      Field := Contacts.ContactsFile.Fields.GetByIndex(ListViewColumns[I]);
+      if Assigned(Field) then
+        ListView1.Columns[I].Caption := Field.Title;
+    end;
+  end;
 end;
 
@@ -512 +528 @@
 begin
   BeginUpdate;
-  ListView1.BeginUpdate;
-  for I := 0 to ListView1.Items.Count - 1 do
-    ListView1.Items[I].Selected := True;
-  //ListView1.SelectAll;
-  ListView1.EndUpdate;
-  EndUpdate;
+  try
+    ListView1.BeginUpdate;
+    try
+      for I := 0 to ListView1.Items.Count - 1 do
+        ListView1.Items[I].Selected := True;
+      //ListView1.SelectAll;
+    finally
+      ListView1.EndUpdate;
+    end;
+  finally
+    EndUpdate;
+  end;
 end;
 
@@ -530 +552 @@
   I: Integer;
 begin
+  FilterItems := TContactFilterItems.Create;
+
+  ListViewColumns := TContactFieldIndexes.Create;
+  ListViewColumns.Add(cfFullName);
+  ListViewColumns.Add(cfFirstName);
+  ListViewColumns.Add(cfMiddleName);
+  ListViewColumns.Add(cfLastName);
+  ListViewColumns.Add(cfTel);
+  ListViewColumns.Add(cfTelCell);
+  ListViewColumns.Add(cfTelHome);
+  ListViewColumns.Add(cfTelWork);
+  ListViewColumns.Add(cfEmailWork);
+
   FContacts := nil;
   for I := 0 to ToolBar1.ButtonCount - 1 do begin
@@ -535 +570 @@
     ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
   end;
+end;
+
+procedure TFormContacts.FormDestroy(Sender: TObject);
+begin
+  FreeAndNil(ListViewColumns);
+  FreeAndNil(FilterItems);
+end;
+
+procedure TFormContacts.FormResize(Sender: TObject);
+begin
+  ListViewFilter1.UpdateFromListView(ListView1);
 end;
 
@@ -567 +613 @@
   ACut.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
   APaste.Enabled := Assigned(Contacts) and (Clipboard.AsText <> '');
+
+  UpdateColumns;
 end;