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

Qt: do not send doubled mouseUp events

Browse Source 
git-svn-id: trunk@54148 -
This commit is contained in:
zeljko 2017-02-13 13:21:02 +00:00
parent e2b4f692bc
commit 0e3107262b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3579,10 +3579,10 @@ var
QWidget_isEnabled(AWidgetAt) then
QWidget_setFocus(AWidgetAt, QtMouseFocusReason);
AWnd := HwndFromWidgetH(AWidgetAt);
if (AWnd <> 0) and Assigned(TQtWidget(AWnd).LCLObject) then
if (AWnd <> 0) and Assigned(TQtWidget(AWnd).LCLObject) and
(QEvent_type(Event) <> QEventMouseButtonRelease) then
begin
if (QEvent_type(Event) <> QEventMouseButtonRelease) and
(QMouseEvent_button(QMouseEventH(Event)) = QtRightButton) then
if (QMouseEvent_button(QMouseEventH(Event)) = QtRightButton) then
begin
AContextEvent := QContextMenuEvent_create(QContextMenuEventMouse, @APos, QMouseEvent_globalPos(AMouseEvent),
QInputEvent_modifiers(QInputEventH(Event)));