mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-22 20:19:10 +02:00
LCL: added capfHasScrollOffset into ControlAtPos in WMContextMenu so offset is ok when control is inside scrolled control. issue #23584
git-svn-id: trunk@39922 -
This commit is contained in:
parent
835664f7f6
commit
0d3fac65e3
@ -8136,7 +8136,7 @@ begin
|
|||||||
begin
|
begin
|
||||||
// don't allow disabled and don't search wincontrols - they receive their
|
// don't allow disabled and don't search wincontrols - they receive their
|
||||||
// message themself
|
// message themself
|
||||||
Child := ControlAtPos(ScreenToClient(SmallPointToPoint(Message.Pos)), []);
|
Child := ControlAtPos(ScreenToClient(SmallPointToPoint(Message.Pos)), [capfHasScrollOffset]);
|
||||||
if Assigned(Child) then
|
if Assigned(Child) then
|
||||||
with Message do
|
with Message do
|
||||||
begin
|
begin
|
||||||
|
Loading…
Reference in New Issue
Block a user