Clear contents of filter boxes when pressing Esc key. See http://www.…

…heidisql.com/forum.php?t=21911
HeidiSQL · Aug 29, 2016 · ebaafb1 · ebaafb1
1 parent ade0bd3
commit ebaafb1
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/source/main.dfm b/source/main.dfm
@@ -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

diff --git a/source/main.pas b/source/main.pas
@@ -981,6 +981,7 @@   TMainForm = class(TForm)
     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 @@ procedure TMainForm.editFilterVTRightButtonClick(Sender: TObject);
 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