Changeset 18 for trunk/Forms/UFormMain.pas

Timestamp:

May 4, 2016, 12:28:37 PM (8 years ago)

Author:

chronos

Message:

• Modified: Ability to search acronyms by exact match and by columns in main window.

File:

• trunk/Forms/UFormMain.pas (modified) (15 diffs)

trunk/Forms/UFormMain.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
   ComCtrls, StdCtrls, ExtCtrls, ActnList, UAcronym, UPersistentForm, Contnrs,
-  URegistry, ULastOpenedList, UCoolTranslator, Registry;
+  URegistry, ULastOpenedList, UListViewSort, UCoolTranslator, Registry,
+  SpecializedList, LazUTF8;
 
 type
@@ -31 +32 @@
     AExit: TAction;
     ActionList1: TActionList;
+    CheckBoxExactMath: TCheckBox;
     CoolTranslator1: TCoolTranslator;
-    EditSearch: TEdit;
     LastOpenedList1: TLastOpenedList;
     ListViewAcronyms: TListView;
+    ListViewFilter1: TListViewFilter;
+    ListViewSort1: TListViewSort;
     MainMenu1: TMainMenu;
     MenuItem1: TMenuItem;
@@ -80 +83 @@
     procedure AShowCategoriesExecute(Sender: TObject);
     procedure AShowExecute(Sender: TObject);
+    procedure CheckBoxExactMathChange(Sender: TObject);
     procedure EditSearchChange(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -92 +96 @@
     procedure ListViewAcronymsSelectItem(Sender: TObject; Item: TListItem;
       Selected: Boolean);
+    procedure ListViewFilter1Change(Sender: TObject);
+    function ListViewSort1CompareItem(Item1, Item2: TObject): Integer;
+    procedure ListViewSort1Filter(ListViewSort: TListViewSort);
     procedure TrayIcon1Click(Sender: TObject);
   private
@@ -98 +105 @@
     procedure SetAlwaysOnTop(AValue: Boolean);
   private
-    FoundAcronyms: TAcronymMeanings;
     RegistryContext: TRegistryContext;
     ProjectClosed: Boolean;
+    procedure FilterList(List: TListObject);
     procedure OpenRecentClick(Sender: TObject);
     procedure UpdateAcronymsList;
@@ -140 +147 @@
 begin
   AcronymDb := TAcronymDb.Create;
-  FoundAcronyms := TAcronymMeanings.Create(False);
 end;
 
@@ -355 +361 @@
 end;
 
+procedure TFormMain.CheckBoxExactMathChange(Sender: TObject);
+begin
+  UpdateAcronymsList;
+end;
+
 procedure TFormMain.FormDestroy(Sender: TObject);
 begin
-  FreeAndNil(FoundAcronyms);
   FreeAndNil(AcronymDb);
 end;
@@ -369 +379 @@
     AcronymDB.LoadFromFile(LastOpenedList1.Items[0]);
   UpdateAcronymsList;
+  ListViewFilter1.UpdateFromListView(ListViewAcronyms);
   UpdateInterface;
 end;
@@ -378 +389 @@
 
 procedure TFormMain.ListViewAcronymsData(Sender: TObject; Item: TListItem);
-var
-  I: Integer;
-  ContextCombined: string;
-begin
-  if Item.Index < FoundAcronyms.Count then
-  with TAcronymMeaning(FoundAcronyms[Item.Index]) do begin
+begin
+  if Item.Index < ListViewSort1.List.Count then
+  with TAcronymMeaning(ListViewSort1.List[Item.Index]) do begin
     Item.Caption := Acronym.Name;
     Item.SubItems.Add(Name);
-    Item.Data := TAcronymMeaning(FoundAcronyms[Item.Index]);
-    ContextCombined := '';
-    for I := 0 to Categories.Count - 1 do
-      ContextCombined := ContextCombined + TAcronymCategory(Categories[I]).Name + ',';
-    Delete(ContextCombined, Length(ContextCombined), 1);
-    Item.SubItems.Add(ContextCombined);
+    Item.Data := TAcronymMeaning(ListViewSort1.List[Item.Index]);
+    Item.SubItems.Add(Categories.GetString);
   end;
 end;
@@ -408 +412 @@
 begin
   UpdateInterface;
+end;
+
+procedure TFormMain.ListViewFilter1Change(Sender: TObject);
+begin
+  UpdateAcronymsList;
+end;
+
+function TFormMain.ListViewSort1CompareItem(Item1, Item2: TObject): Integer;
+begin
+  Result := 0;
+  if Assigned(Item1) and Assigned(Item2) and (ListViewSort1.Order <> soNone) then begin
+    with ListViewSort1 do
+    case Column of
+      0: Result := CompareString(TAcronymMeaning(Item1).Acronym.Name, TAcronymMeaning(Item2).Acronym.Name);
+      1: Result := CompareString(TAcronymMeaning(Item1).Description, TAcronymMeaning(Item2).Description);
+      2: Result := CompareString(TAcronymMeaning(Item1).Categories.GetString, TAcronymMeaning(Item2).Categories.GetString);
+    end;
+    if ListViewSort1.Order = soDown then Result := -Result;
+  end else Result := 0;
+end;
+
+procedure TFormMain.ListViewSort1Filter(ListViewSort: TListViewSort);
+begin
+  AcronymDb.Acronyms.Sort(AcronymComparer);
+  AcronymDb.AssignToList(ListViewSort1.List);
+  FilterList(ListViewSort1.List);
 end;
 
@@ -436 +466 @@
 end;
 
+procedure TFormMain.FilterList(List: TListObject);
+var
+  I: Integer;
+  FoundCount: Integer;
+  EnteredCount: Integer;
+begin
+  EnteredCount := ListViewFilter1.TextEnteredCount;
+  for I := List.Count - 1 downto 0 do begin
+    if List.Items[I] is TAcronymMeaning then begin
+      with TAcronymMeaning(List.Items[I]) do begin
+         with ListViewFilter1 do
+         if Visible and (EnteredCount > 0) then begin
+           FoundCount := 0;
+           if CheckBoxExactMath.Checked then begin
+             if TextEnteredColumn(0) and (StringGrid.Cells[0, 0] =
+               TAcronymMeaning(List.Items[I]).Acronym.Name) then Inc(FoundCount);
+             if TextEnteredColumn(1) and (StringGrid.Cells[1, 0] =
+               TAcronymMeaning(List.Items[I]).Name) then Inc(FoundCount);
+             if TextEnteredColumn(2) and (StringGrid.Cells[2, 0] =
+               TAcronymMeaning(List.Items[I]).Categories.GetString) then Inc(FoundCount);
+           end else begin
+             if Pos(UTF8LowerCase(StringGrid.Cells[0, 0]),
+               UTF8LowerCase(TAcronymMeaning(List.Items[I]).Acronym.Name)) > 0 then Inc(FoundCount);
+             if Pos(UTF8LowerCase(StringGrid.Cells[1, 0]),
+               UTF8LowerCase(TAcronymMeaning(List.Items[I]).Name)) > 0 then Inc(FoundCount);
+             if Pos(UTF8LowerCase(StringGrid.Cells[2, 0]),
+               UTF8LowerCase(TAcronymMeaning(List.Items[I]).Categories.GetString)) > 0 then Inc(FoundCount);
+           end;
+           if FoundCount <> EnteredCount then List.Delete(I);
+         end else List.Delete(I);
+      end;
+    end else
+    if TAcronymMeaning(List.Items[I]) is TAcronymMeaning then begin
+      List.Delete(I);
+    end;
+  end;
+end;
+
 procedure TFormMain.OpenRecentClick(Sender: TObject);
 begin
@@ -451 +519 @@
 begin
   if Assigned(AcronymDb) then begin
-    AcronymDb.Acronyms.Sort(AcronymComparer);
-    AcronymDb.FilterList(EditSearch.Text, FoundAcronyms);
-  end else FoundAcronyms.Clear;
-  ListViewAcronyms.Items.Count := FoundAcronyms.Count;
-  ListViewAcronyms.Refresh;
+    ListViewSort1.Refresh;
+  end else ListViewSort1.List.Clear;
 end;
 
@@ -470 +535 @@
   AFileSave.Enabled := Assigned(AcronymDb) and AcronymDb.Modified;
   AFileSaveAs.Enabled := Assigned(AcronymDb);
-  EditSearch.Enabled := Assigned(AcronymDb);
   AImport.Enabled := Assigned(AcronymDb);
   AShowCategories.Enabled := Assigned(AcronymDb);
@@ -494 +558 @@
       else CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('');
     AlwaysOnTop := ReadBoolWithDefault('AlwaysOnTop', False);
+    CheckBoxExactMath.Checked := ReadBoolWithDefault('ExactMatch', False);
   finally
     Free;
@@ -511 +576 @@
       else DeleteValue('LanguageCode');
     WriteBool('AlwaysOnTop', AlwaysOnTop);
+    WriteBool('ExactMatch', CheckBoxExactMath.Checked);
   finally
     Free;