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

Designer: Fixed wrong coordinated when getting a non-WinControl parent for a new component. Issue

Browse Source 
git-svn-id: trunk@31862 -
This commit is contained in:
juha 2011-08-04 16:42:15 +00:00
parent f9aff65013
commit 63be6b3a21
1 changed files with 1 additions and 1 deletions

2
designer/designer.pp
View File

@ -1917,7 +1917,7 @@ var
if MouseDownComponent is TWinControl then
NewParentControl := TWinControl(MouseDownComponent)
else
NewParentControl := WinControlAtPos(MouseDownPos.X, MouseUpPos.X, true, true);
NewParentControl := WinControlAtPos(MouseUpPos.X, MouseUpPos.Y, true, true);
while (NewParentControl <> nil) and
((not (csAcceptsControls in NewParentControl.ControlStyle)) or