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

Qt5: pass MouseUp event from transparent widget to the LCL. part of issue #30232

Browse Source 
git-svn-id: trunk@53819 -
This commit is contained in:
zeljko 2016-12-31 15:05:23 +00:00
parent 221dce6d01
commit 047946fc48
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/qt5/qtwidgets.pas
View File

@ -3577,6 +3577,16 @@ begin
{TODO: check what happens if pure form is transparent for mouse events.} {TODO: check what happens if pure form is transparent for mouse events.}
QCoreApplication_sendEvent(AWidgetAt, ANewEvent); QCoreApplication_sendEvent(AWidgetAt, ANewEvent);
QEvent_destroy(ANewEvent); QEvent_destroy(ANewEvent);
{if our transparent widget is hidden during mouse down, send mouse up to current
widget}
if not QWidget_isVisible(QWidgetH(Sender)) and (QEvent_type(Event)=QEventMouseButtonPress) then
begin
ANewEvent := QMouseEvent_create(QEventMouseButtonRelease, @APosF,
@AGlobalPosF, QMouseEvent_button(AMouseEvent),
QMouseEvent_buttons(AMouseEvent), QInputEvent_modifiers(QInputEventH(Event)));
QCoreApplication_sendEvent(AWidgetAt, ANewEvent);
QEvent_destroy(ANewEvent);
end;
exit; exit;
end; end;