Changeset 176 for trunk/Forms

Timestamp:

Mar 13, 2018, 10:24:27 AM (7 years ago)

Author:

chronos

Message:

• Added: Option to show all acronym items in main form even without specified filter.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (6 diffs)

trunk/Forms/UFormMain.lfm

@@ -538 +538 @@
       Action = AManageAcronym
     end
+    object MenuItemShowItemsWithoutFilter: TMenuItem
+      Caption = 'Show items without filter'
+      OnClick = MenuItemShowItemsWithoutFilterClick
+    end
   end
 end

trunk/Forms/UFormMain.pas

@@ -48 +48 @@
     MainMenu1: TMainMenu;
     MenuItem1: TMenuItem;
+    MenuItemShowItemsWithoutFilter: TMenuItem;
     MenuItemStatusBar: TMenuItem;
     MenuItemParam: TMenuItem;
@@ -135 +136 @@
     procedure ListViewSort1Filter(ListViewSort: TListViewSort);
     procedure MenuItemParamClick(Sender: TObject);
+    procedure MenuItemShowItemsWithoutFilterClick(Sender: TObject);
     procedure MenuItemStatusBarClick(Sender: TObject);
     procedure MenuItemToolbarClick(Sender: TObject);
@@ -553 +555 @@
 end;
 
+procedure TFormMain.MenuItemShowItemsWithoutFilterClick(Sender: TObject);
+begin
+  MenuItemShowItemsWithoutFilter.Checked :=
+    not MenuItemShowItemsWithoutFilter.Checked;
+  UpdateAcronymsList;
+  UpdateInterface;
+end;
+
 procedure TFormMain.MenuItemStatusBarClick(Sender: TObject);
 begin
@@ -620 +630 @@
       with TAcronymMeaning(List.Items[I]) do begin
          with ListViewFilter1 do
-         if Visible and (EnteredCount > 0) then begin
+         if Visible and ((EnteredCount > 0) or ((EnteredCount = 0) and
+         (MenuItemShowItemsWithoutFilter.Checked))) then begin
            FoundCount := 0;
            if TextEnteredColumn(0) and (FilterCell(StringGrid.Cells[0, 0],
@@ -726 +737 @@
     MenuItemStatusBar.Checked := ReadBoolWithDefault('StatuslBarVisible', True);
     MenuItemParam.Checked := ReadBoolWithDefault('FilterParamVisible', True);
+    MenuItemShowItemsWithoutFilter.Checked :=
+      ReadBoolWithDefault('ShowItemsWithoutFilter', False);
   finally
     Free;
@@ -755 +768 @@
     WriteBool('StatusBarVisible', MenuItemStatusBar.Checked);
     WriteBool('FilterParamVisible', MenuItemParam.Checked);
+    WriteBool('ShowItemsWithoutFilter', MenuItemShowItemsWithoutFilter.Checked);
   finally
     Free;