Changeset 176

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

Files:

• Forms/UFormMain.lfm (modified) (1 diff)
• Forms/UFormMain.pas (modified) (6 diffs)
• Languages/AcronymDecoder.cs.po (modified) (2 diffs)
• Languages/AcronymDecoder.po (modified) (1 diff)
• UCore.lfm (modified) (1 diff)

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;

trunk/Languages/AcronymDecoder.cs.po

@@ -641 +641 @@
 msgstr "Parametry filtru"
 
+#: tformmain.menuitemshowitemswithoutfilter.caption
+msgid "Show items without filter"
+msgstr "Ukázat položky bez filtru"
+
 #: tformmain.menuitemstatusbar.caption
 msgid "Status bar"
@@ -922 +926 @@
 msgid "Process import sources"
 msgstr "Zpracovat zdroje importu"
-

trunk/Languages/AcronymDecoder.po

@@ -631 +631 @@
 msgstr ""
 
+#: tformmain.menuitemshowitemswithoutfilter.caption
+msgid "Show items without filter"
+msgstr ""
+
 #: tformmain.menuitemstatusbar.caption
 msgid "Status bar"

trunk/UCore.lfm

@@ -3444 +3444 @@
     AppName = 'Acronym Decoder'
     Description = 'Simple tool for quick searching of meaning for various acronyms and abbreviations.'
-    ReleaseDate = 43157
+    ReleaseDate = 43174
     RegistryKey = '\Software\'
     RegistryRoot = rrKeyCurrentUser