Changeset 208 for trunk/Forms/UFormMain.pas

Timestamp:

Sep 20, 2021, 11:36:06 AM (3 years ago)

Author:

chronos

Message:

• Modified: Show items without active filter text active by default to show supported acronyms immediatelly after application start.
• Added: Snap package definition file.

File:

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

trunk/Forms/UFormMain.pas

@@ -17 +17 @@
   TFormMain = class(TForm)
     AboutDialog1: TAboutDialog;
+    AFilterShowItemsWithoutFilter: TAction;
     ADocumentCheck: TAction;
     AFilterEnabledCategories: TAction;
@@ -41 +42 @@
     ActionList1: TActionList;
     CheckBoxEnabledCategories: TCheckBox;
+    CheckBoxShowItemsWithoutFilter: TCheckBox;
     CheckBoxExactLength: TCheckBox;
     CheckBoxCaseSensitive: TCheckBox;
@@ -50 +52 @@
     MainMenu1: TMainMenu;
     MenuItem1: TMenuItem;
+    MenuItem19: TMenuItem;
     MenuItem2: TMenuItem;
+    MenuItem26: TMenuItem;
+    MenuItem27: TMenuItem;
+    N1: TMenuItem;
     MenuItem3: TMenuItem;
     MenuItemShowItemsWithoutFilter: TMenuItem;
@@ -113 +119 @@
     procedure AFilterSameLetterCaseExecute(Sender: TObject);
     procedure AFilterSameLengthExecute(Sender: TObject);
+    procedure AFilterShowItemsWithoutFilterExecute(Sender: TObject);
     procedure AHideExecute(Sender: TObject);
     procedure AImportExecute(Sender: TObject);
@@ -142 +149 @@
     procedure ListViewSort1Filter(ListViewSort: TListViewSort);
     procedure MenuItemParamClick(Sender: TObject);
-    procedure MenuItemShowItemsWithoutFilterClick(Sender: TObject);
     procedure MenuItemStatusBarClick(Sender: TObject);
     procedure MenuItemToolbarClick(Sender: TObject);
@@ -181 +187 @@
 uses
   UFormImport, UFormSettings, UFormCategories, UFormAcronyms, UFormExport,
-  UFormImportSources, UFormAbout, UFormImportFormats, UCore, UFormCheck;
+  UFormImportSources, UFormImportFormats, UCore, UFormCheck;
 
 resourcestring
@@ -365 +371 @@
 end;
 
+procedure TFormMain.AFilterShowItemsWithoutFilterExecute(Sender: TObject);
+begin
+  UpdateAcronymsList;
+end;
+
 procedure TFormMain.AHideExecute(Sender: TObject);
 begin
@@ -586 +597 @@
 end;
 
-procedure TFormMain.MenuItemShowItemsWithoutFilterClick(Sender: TObject);
-begin
-  MenuItemShowItemsWithoutFilter.Checked :=
-    not MenuItemShowItemsWithoutFilter.Checked;
-  UpdateAcronymsList;
-  UpdateInterface;
-end;
-
 procedure TFormMain.MenuItemStatusBarClick(Sender: TObject);
 begin
@@ -662 +665 @@
          with ListViewFilter1 do
          if Visible and ((EnteredCount > 0) or ((EnteredCount = 0) and
-         (MenuItemShowItemsWithoutFilter.Checked))) then begin
+         (AFilterShowItemsWithoutFilter.Checked))) then begin
            FoundCount := 0;
            if TextEnteredColumn(0) and (FilterCell(StringGrid.Cells[0, 0],
@@ -768 +771 @@
     MenuItemStatusBar.Checked := ReadBoolWithDefault('StatusBarVisible', True);
     MenuItemParam.Checked := ReadBoolWithDefault('FilterParamVisible', True);
-    MenuItemShowItemsWithoutFilter.Checked :=
-      ReadBoolWithDefault('ShowItemsWithoutFilter', False);
+    AFilterShowItemsWithoutFilter.Checked :=
+      ReadBoolWithDefault('ShowItemsWithoutFilter', True);
   finally
     Free;
@@ -799 +802 @@
     WriteBool('StatusBarVisible', MenuItemStatusBar.Checked);
     WriteBool('FilterParamVisible', MenuItemParam.Checked);
-    WriteBool('ShowItemsWithoutFilter', MenuItemShowItemsWithoutFilter.Checked);
+    WriteBool('ShowItemsWithoutFilter', AFilterShowItemsWithoutFilter.Checked);
   finally
     Free;