From cb4966c8fd909a89f2cfe627f1c870b053634226 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 28 Jun 2004 17:41:26 +0000
Subject: [PATCH] fixed GetControlAtPos

git-svn-id: trunk@5608 -
---
 lcl/include/wincontrol.inc | 37 +++++++++++++++++++------------------
 1 file changed, 19 insertions(+), 18 deletions(-)

diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 4af65bf537..25eefe4eec 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -1660,24 +1660,22 @@ var
       end;
 
       Result:= Result
-              and (
-                   (
-                    (csDesigning in ComponentState)
-                    and
-                    (Visible or not (csNoDesignVisible in ControlStyle))
-                   )
-                   or
-                   (
-                    (not (csDesigning in ComponentState))
-                    and
-                    (Visible)
-                    and
-                    (Enabled or AllowDisabled)
-                    and
-                    (Perform(CM_HITTEST, 0,
-                             LParam(PointToSmallPoint(ControlPos))) <> 0)
-                   )
-                  );
+        and (
+             (
+              (csDesigning in ComponentState)
+              and
+              (Visible or not (csNoDesignVisible in ControlStyle))
+             )
+             or
+             (
+              (Visible)
+              and
+              (Enabled or AllowDisabled)
+              and
+              (Perform(CM_HITTEST, 0,
+                       LParam(PointToSmallPoint(ControlPos))) <> 0)
+             )
+            );
       {$IFDEF VerboseMouseBugfix}
       DebugLn('GetControlAtPos ',Name,':',ClassName,
       ' Pos=',Pos.X,',',Pos.Y,
@@ -3659,6 +3657,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.240  2004/06/28 17:41:26  mattias
+  fixed GetControlAtPos
+
   Revision 1.239  2004/06/28 17:03:37  mattias
   clean up