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

LCL: Handle mouse events through shaped TWinControl. Issue #35270, patch from ptvs.

Browse Source 
git-svn-id: trunk@61053 -
This commit is contained in:
juha 2019-04-24 20:18:37 +00:00
parent c966415648
commit 6096106179
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/wincontrol.inc
View File

@ -4709,15 +4709,7 @@ begin
else
begin
// do query wincontrol children, in case they overlap
Control := ControlAtPos(SmallPointToPoint(MouseMessage.Pos),
[capfAllowWinControls]);
if Control is TWinControl then
begin
// there is a TWinControl child at this position
// TWinControl children get their own messages
// => ignore here
Control := nil;
end;
Control := ControlAtPos(SmallPointToPoint(MouseMessage.Pos), []);
end;
//DebugLn(['TWinControl.IsControlMouseMsg B ',DbgSName(Self),' Control=',DbgSName(Control),' Msg=',TheMessage.Msg]);