diff --git a/out/locale/en/LC_MESSAGES/default.po b/out/locale/en/LC_MESSAGES/default.po index e6364979..b55b5e65 100644 --- a/out/locale/en/LC_MESSAGES/default.po +++ b/out/locale/en/LC_MESSAGES/default.po @@ -7,7 +7,7 @@ msgid "" msgstr "" "Project-Id-Version: HeidiSQL\n" "POT-Creation-Date: 2012-11-05 21:40\n" -"PO-Revision-Date: 2022-04-30 09:36+0200\n" +"PO-Revision-Date: 2022-07-05 07:23+0200\n" "Last-Translator: Ansgar Becker \n" "Language-Team: English (http://www.transifex.com/projects/p/heidisql/language/en/)\n" "MIME-Version: 1.0\n" @@ -15,7 +15,7 @@ msgstr "" "Content-Transfer-Encoding: 8bit\n" "Language: en\n" "Plural-Forms: nplurals=2; plural=(n != 1);\n" -"X-Generator: Poedit 3.0\n" +"X-Generator: Poedit 3.1\n" #. AboutBox..Caption #: about.dfm:5 @@ -6715,3 +6715,6 @@ msgstr "Altering tables restricted. For details see %s" msgid "Foreign key not found for column \"%s\"" msgstr "Foreign key not found for column \"%s\"" + +msgid "Empty recent filters" +msgstr "Empty recent filters" diff --git a/source/apphelpers.pas b/source/apphelpers.pas index 381b33d2..1233989b 100644 --- a/source/apphelpers.pas +++ b/source/apphelpers.pas @@ -3953,6 +3953,7 @@ begin if FormatName <> '' then ValueName := Format(ValueName, [FormatName]); Result := FRegistry.DeleteValue(ValueName); + FSettings[Index].Synced := False; end; diff --git a/source/main.pas b/source/main.pas index 22e1e2ec..6b5e2aec 100644 --- a/source/main.pas +++ b/source/main.pas @@ -12163,6 +12163,7 @@ begin Item := TMenuItem.Create(Menu); Item.Caption := ItemText; Item.OnClick := editDatabaseTableFilterMenuClick; + Item.Tag := 0; Item.Checked := ItemText = Edit.Text; Menu.Items.Add(Item); end; @@ -12176,6 +12177,14 @@ begin Item.Enabled := Edit.Text <> ''; Menu.Items.Add(Item); + Item := TMenuItem.Create(Menu); + Item.Caption := _('Empty recent filters'); + Item.ImageIndex := 26; + Item.OnClick := editDatabaseTableFilterMenuClick; + Item.Tag := 2; + Item.Enabled := Menu.Items.Count > 1; + Menu.Items.Add(Item); + P := Edit.ClientToScreen(Edit.ClientRect.TopLeft); Menu.Popup(p.X, p.Y+16); end; @@ -12186,15 +12195,21 @@ var Menu: TPopupMenu; Item: TMenuItem; Edit: TButtonedEdit; + Setting: TAppSettingIndex; begin // Insert text from filter history menu Item := Sender as TMenuItem; Menu := Item.Owner as TPopupMenu; Edit := Menu.Owner as TButtonedEdit; - if Item.Tag = 1 then - Edit.Clear + if Edit = editDatabaseFilter then + Setting := asDatabaseFilter else - Edit.Text := Item.Caption; + Setting := asTableFilter; + case Item.Tag of + 0: Edit.Text := Item.Caption; + 1: Edit.Clear; + 2: AppSettings.DeleteValue(Setting); + end; Menu.Free; end;