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

Author: ansgarbecker

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

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