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

cocoa: fix mouse move bug

Browse Source 
git-svn-id: trunk@54617 -
This commit is contained in:
freq 2017-04-13 04:37:10 +00:00
parent 461a534a26
commit 0b5d2d5ef5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/cocoa/cocoawscommon.pas
View File

@ -818,10 +818,10 @@ begin
if assigned(Target.Parent) and not PtInRect(rect, mp) then
targetControl:=Target.Parent // outside myself then route to parent
else
for i:=Target.ComponentCount-1 downto 0 do // otherwise check, if over child and route to child
if Target.Components[i] is TWinControl then
for i:=Target.ControlCount-1 downto 0 do // otherwise check, if over child and route to child
if Target.Controls[i] is TWinControl then
begin
childControl:=TWinControl(Target.Components[i]);
childControl:=TWinControl(Target.Controls[i]);
rect:=childControl.BoundsRect;
if PtInRect(rect, mp) then
begin