From a03f193c5e4208e4f9d5d979651eaeb6f87ef892 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 26 May 2010 08:24:15 +0000
Subject: [PATCH] LCL: fixed TCustomForm.FocusControl checking IsVisible

git-svn-id: trunk@25656 -
---
 lcl/include/customform.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc
index 3da0d19262..081e4cb46e 100644
--- a/lcl/include/customform.inc
+++ b/lcl/include/customform.inc
@@ -141,7 +141,7 @@ var
 begin
   WasActive := FActive;
   SetActiveControl(WinControl);
-  if not WasActive then
+  if (not WasActive) and IsVisible then
     SetFocus;
 end;