opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Create context menu item "Empty recent filters" on database and table filter above tree view. See https://www.heidisql.com/forum.php?t=39447

Browse Source
This commit is contained in:
Ansgar Becker
2022-07-05 07:27:28 +02:00
parent c992656aab
commit ce8a401cac
3 changed files with 24 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
out/locale/en/LC_MESSAGES/default.po
View File

@ -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 <anse@heidisql.com>\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"

1
source/apphelpers.pas
View File

@ -3953,6 +3953,7 @@ begin
if FormatName <> '' then
ValueName := Format(ValueName, [FormatName]);
Result := FRegistry.DeleteValue(ValueName);
FSettings[Index].Synced := False;
end;

21
source/main.pas
View File

@ -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;