Changeset 149 for trunk/Forms/UFormMain.pas

Timestamp:

Feb 6, 2017, 2:14:14 PM (7 years ago)

Author:

chronos

Message:

• Added: Main window switchable acronym filter by enabled categories.

File:

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

trunk/Forms/UFormMain.pas

@@ -16 +16 @@
 
   TFormMain = class(TForm)
+    AFilterEnabledCategories: TAction;
     AManageAcronym: TAction;
     AFilterSameLetterCase: TAction;
@@ -37 +38 @@
     AExit: TAction;
     ActionList1: TActionList;
+    CheckBoxEnabledCategories: TCheckBox;
     CheckBoxExactLength: TCheckBox;
     CheckBoxCaseSensitive: TCheckBox;
@@ -91 +93 @@
     ToolButton6: TToolButton;
     ToolButton7: TToolButton;
+    ToolButton8: TToolButton;
     ToolButton9: TToolButton;
     procedure AExitExecute(Sender: TObject);
@@ -99 +102 @@
     procedure AFileSaveAsExecute(Sender: TObject);
     procedure AFileSaveExecute(Sender: TObject);
+    procedure AFilterEnabledCategoriesExecute(Sender: TObject);
     procedure AFilterSameLetterCaseExecute(Sender: TObject);
     procedure AFilterSameLengthExecute(Sender: TObject);
@@ -299 +303 @@
 end;
 
+procedure TFormMain.AFilterEnabledCategoriesExecute(Sender: TObject);
+begin
+  UpdateAcronymsList;
+end;
+
 procedure TFormMain.AFilterSameLetterCaseExecute(Sender: TObject);
 begin
@@ -519 +528 @@
 procedure TFormMain.ListViewSort1Filter(ListViewSort: TListViewSort);
 begin
-  Core.AcronymDb.AssignToList(ListViewSort1.List, True);
+  Core.AcronymDb.AssignToList(ListViewSort1.List, AFilterEnabledCategories.Checked);
   FilterList(ListViewSort1.List);
 end;
@@ -687 +696 @@
     AFilterSameLength.Checked := ReadBoolWithDefault('SameLength', False);
     AFilterSameLetterCase.Checked := ReadBoolWithDefault('SameLetterCase', False);
+    AFilterEnabledCategories.Checked := ReadBoolWithDefault('EnabledCategories', False);
     MenuItemToolbar.Checked := ReadBoolWithDefault('ToolBarVisible', True);
     MenuItemParam.Checked := ReadBoolWithDefault('FilterParamVisible', True);
@@ -719 +729 @@
     WriteBool('SameLength', AFilterSameLength.Checked);
     WriteBool('SameLetterCase', AFilterSameLetterCase.Checked);
+    WriteBool('EnabledCategories', AFilterEnabledCategories.Checked);
     WriteBool('ToolBarVisible', MenuItemToolbar.Checked);
     WriteBool('FilterParamVisible', MenuItemParam.Checked);