paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-17 10:39:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed GetControlAtPos

Browse Source 
git-svn-id: trunk@5608 -
This commit is contained in:
mattias 2004-06-28 17:41:26 +00:00
parent 1354eab275
commit cb4966c8fd
1 changed files with 19 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
lcl/include/wincontrol.inc
View File

@ -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