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

Qt: fixed WidgetAt real mousePos when window is transparent for mouse events.

Browse Source 
git-svn-id: trunk@53000 -
This commit is contained in:
zeljko 2016-09-20 11:15:11 +00:00
parent bc008e0769
commit 4b789f1654
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3523,7 +3523,7 @@ end;
function TQtWidget.SlotMouse(Sender: QObjectH; Event: QEventH): Boolean; cdecl;
var
Msg: TLMMouse;
MousePos: TQtPoint;
MousePos, APos: TQtPoint;
MButton: QTMouseButton;
Modifiers: QtKeyboardModifiers;
SaveWidget, AWidgetAt: QWidgetH;
@ -3549,11 +3549,6 @@ begin
(Self is TQtMainWindow) and not TQtMainWindow(Self).IsMdiChild then
begin
AMouseEvent := QMouseEventH(Event);
ANewEvent := QMouseEvent_create(QEvent_type(Event), QMouseEvent_pos(AMouseEvent),
QMouseEvent_globalPos(AMouseEvent), QMouseEvent_button(AMouseEvent),
QMouseEvent_buttons(AMouseEvent), QInputEvent_modifiers(QInputEventH(Event)));
QEvent_accept(Event);
Result := True;
MousePos := QMouseEvent_globalPos(AMouseEvent)^;
AWidgetAt := QApplication_widgetAt(@MousePos);
{TODO: check what happens if pure form is transparent for mouse events.}
@ -3561,6 +3556,17 @@ begin
AWidgetAt := QApplication_activeModalWidget;
if AWidgetAt = nil then
AWidgetAt := QApplication_activeWindow;
APos := QMouseEvent_pos(AMouseEvent)^;
if AWidgetAt <> nil then
QWidget_mapFromGlobal(AWidgetAt, @APos, @MousePos);
ANewEvent := QMouseEvent_create(QEvent_type(Event), @APos,
QMouseEvent_globalPos(AMouseEvent), QMouseEvent_button(AMouseEvent),
QMouseEvent_buttons(AMouseEvent), QInputEvent_modifiers(QInputEventH(Event)));
QEvent_accept(Event);
Result := True;
QCoreApplication_sendEvent(AWidgetAt, ANewEvent);
QEvent_destroy(ANewEvent);
exit;