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

Qt: use another approach to find control under mouse in TQtDesignWidget.DesignControlEventFilter()

Browse Source 
git-svn-id: trunk@19100 -
This commit is contained in:
zeljko 2009-03-25 18:43:44 +00:00
parent a98fc12775
commit 1b3da68c68
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt/qtwidgets.pas
View File

@ -9785,7 +9785,7 @@ begin
p := QMouseEvent_pos(QMouseEventH(Event))^; p := QMouseEvent_pos(QMouseEventH(Event))^;
OffsetMousePos(@p); OffsetMousePos(@p);
pt := Point(p.x, p.y); pt := Point(p.x, p.y);
Control := LCLObject.ControlAtPos(pt, True, True); Control := LCLObject.ControlAtPos(pt, [capfRecursive, capfAllowWinControls]);
if Assigned(Control) and (Control is TWinControl) then if Assigned(Control) and (Control is TWinControl) then
begin begin