opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Clear contents of filter boxes when pressing Esc key. See http://www.heidisql.com/forum.php?t=21911

Browse Source
This commit is contained in:
Ansgar Becker
2016-08-29 18:50:56 +00:00
parent ade0bd3f44
commit ebaafb113f
2 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
source/main.dfm
View File

@@ -294,6 +294,7 @@ object MainForm: TMainForm
TextHint = 'Database filter'
OnChange = editDatabaseTableFilterChange
OnExit = editDatabaseTableFilterExit
OnKeyPress = editDatabaseTableFilterKeyPress
OnLeftButtonClick = editDatabaseTableFilterLeftButtonClick
OnRightButtonClick = editDatabaseTableFilterRightButtonClick
end
@@ -311,6 +312,7 @@ object MainForm: TMainForm
TextHint = 'Table filter'
OnChange = editDatabaseTableFilterChange
OnExit = editDatabaseTableFilterExit
OnKeyPress = editDatabaseTableFilterKeyPress
OnLeftButtonClick = editDatabaseTableFilterLeftButtonClick
OnRightButtonClick = editDatabaseTableFilterRightButtonClick
end

8
source/main.pas
View File

@@ -981,6 +981,7 @@ type
procedure editDatabaseTableFilterRightButtonClick(Sender: TObject);
procedure menuDoubleClickInsertsNodeTextClick(Sender: TObject);
procedure DBtreeDblClick(Sender: TObject);
procedure editDatabaseTableFilterKeyPress(Sender: TObject; var Key: Char);
private
// Executable file details
FAppVerMajor: Integer;
@@ -7241,6 +7242,13 @@ begin
end;
procedure TMainForm.editDatabaseTableFilterKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then
(Sender as TButtonedEdit).OnRightButtonClick(Sender);
end;
procedure TMainForm.TimerFilterVTTimer(Sender: TObject);
begin
// Disable timer to avoid filtering in a loop