From 82254afe45b4c8ddab9b127a8b27edbfd825eebf Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Wed, 28 Nov 2018 21:15:46 +0100
Subject: [PATCH] #394: fix setting focus on filter panel when activating it

---
 source/main.pas | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/source/main.pas b/source/main.pas
index 22e7e448..3ed93cc9 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -10878,15 +10878,13 @@ end;
 
 
 procedure TMainForm.actFilterPanelExecute(Sender: TObject);
-var
-  MakeVisible: Boolean;
 begin
   // (De-)activate or focus filter panel
   if Sender <> actFilterPanel then
     actFilterPanel.Checked := not actFilterPanel.Checked;
   pnlFilterVT.Visible := actFilterPanel.Checked;
   // On startup, we cannot SetFocus, throws exceptons. Call with nil in that special case - see FormCreate
-  if Assigned(Sender) and MakeVisible and editFilterVT.CanFocus then
+  if pnlFilterVT.Visible and editFilterVT.CanFocus and (Sender <> nil) then
     editFilterVT.SetFocus;
 end;