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

Qt: fixed right mouse click on transparent form, refactored transparent for mouse part. issue #31381

Browse Source 
git-svn-id: trunk@54144 -
This commit is contained in:
zeljko 2017-02-13 08:23:36 +00:00
parent 7af8c77037
commit 33e6b24cc6
1 changed files with 91 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3525,13 +3525,85 @@ end;
function TQtWidget.SlotMouse(Sender: QObjectH; Event: QEventH): Boolean; cdecl;
var
Msg: TLMMouse;
MousePos, APos: TQtPoint;
MousePos: TQtPoint;
MButton: QTMouseButton;
Modifiers: QtKeyboardModifiers;
SaveWidget, AWidgetAt: QWidgetH;
SaveWidget: QWidgetH;
LazButton: Byte;
LazPos: TPoint;
AMouseEvent, ANewEvent: QMouseEventH;
function isTransparentForMouse: boolean;
begin
Result := testAttribute(QtWA_TransparentForMouseEvents) and
(Self is TQtMainWindow) and not TQtMainWindow(Self).IsMdiChild;
end;
function HandleTransparentForMouse: boolean;
var
AWidgetAt: QWidgetH;
AMouseEvent, ANewEvent: QMouseEventH;
AWnd: HWND;
AContextEvent: QContextMenuEventH;
AMousePos, APos: TQtPoint;
AEventOk: boolean;
begin
Result := False;
{issue #30232}
if isTransparentForMouse then
begin
Result := True;
AMouseEvent := QMouseEventH(Event);
AMousePos := QMouseEvent_globalPos(AMouseEvent)^;
AWidgetAt := QApplication_widgetAt(@AMousePos);
{TODO: check what happens if pure form is transparent for mouse events.}
if AWidgetAt = nil then
AWidgetAt := QApplication_activeModalWidget;
if AWidgetAt = nil then
AWidgetAt := QApplication_activeWindow;
APos := QMouseEvent_pos(AMouseEvent)^;
if AWidgetAt <> nil then
QWidget_mapFromGlobal(AWidgetAt, @APos, @AMousePos);
ANewEvent := QMouseEvent_create(QEvent_type(Event), @APos,
QMouseEvent_globalPos(AMouseEvent), QMouseEvent_button(AMouseEvent),
QMouseEvent_buttons(AMouseEvent), QInputEvent_modifiers(QInputEventH(Event)));
QEvent_accept(Event);
AEventOk := QCoreApplication_sendEvent(AWidgetAt, ANewEvent);
QEvent_destroy(ANewEvent);
if AEventOk and Assigned(AWidgetAt) then
begin
if (QWidget_focusPolicy(AWidgetAt) > QtNoFocus) and QWidget_isVisible(AWidgetAt) and
QWidget_isEnabled(AWidgetAt) then
QWidget_setFocus(AWidgetAt, QtMouseFocusReason);
AWnd := HwndFromWidgetH(AWidgetAt);
if (AWnd <> 0) and Assigned(TQtWidget(AWnd).LCLObject) then
begin
if (QEvent_type(Event) <> QEventMouseButtonRelease) and
(QMouseEvent_button(QMouseEventH(Event)) = QtRightButton) then
begin
AContextEvent := QContextMenuEvent_create(QContextMenuEventMouse, @APos, QMouseEvent_globalPos(AMouseEvent),
QInputEvent_modifiers(QInputEventH(Event)));
QCoreApplication_sendEvent(AWidgetAt, AContextEvent);
QEvent_destroy(AContextEvent);
end;
if ((Sender <> nil) and not QWidget_isVisible(QWidgetH(Sender))) or (Sender = nil) then
begin
ANewEvent := QMouseEvent_create(QEventMouseButtonRelease, @APos,
QMouseEvent_globalPos(AMouseEvent), QMouseEvent_button(AMouseEvent),
QMouseEvent_buttons(AMouseEvent), QInputEvent_modifiers(QInputEventH(Event)));
QEvent_accept(Event);
QCoreApplication_sendEvent(AWidgetAt, ANewEvent);
QEvent_destroy(ANewEvent);
end;
end;
end;
exit;
end;
end;
begin
{$ifdef VerboseQt}
WriteLn('TQtWidget.SlotMouse');
@ -3546,34 +3618,6 @@ begin
(not (csDesigning in LCLObject.ComponentState) and not getEnabled) then
Exit;
{issue #30232}
if testAttribute(QtWA_TransparentForMouseEvents) and
(Self is TQtMainWindow) and not TQtMainWindow(Self).IsMdiChild then
begin
AMouseEvent := QMouseEventH(Event);
MousePos := QMouseEvent_globalPos(AMouseEvent)^;
AWidgetAt := QApplication_widgetAt(@MousePos);
{TODO: check what happens if pure form is transparent for mouse events.}
if AWidgetAt = nil then
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;
end;
// idea of multi click implementation is taken from gtk
FillChar(Msg{%H-}, SizeOf(Msg), #0);
@ -3619,7 +3663,6 @@ begin
Include(FWidgetState, qtwsInsideRightMouseButtonPressEvent);
try
{$ENDIF}
NotifyApplicationUserInput(LCLObject, Msg.Msg);
if not CanSendLCLMessage or (Sender = nil) then
@ -3641,8 +3684,14 @@ begin
// Check if our objects exists since LCL can destroy object during
// mouse events...
if CanSendLCLMessage and (Sender <> nil) then
SetNoMousePropagation(QWidgetH(Sender), True)
else
begin
if isTransparentForMouse then
begin
SetNoMousePropagation(QWidgetH(Sender), False);
Result := HandleTransparentForMouse;
end else
SetNoMousePropagation(QWidgetH(Sender), True)
end else
exit(True);
end;
QEventMouseButtonRelease:
@ -3666,8 +3715,14 @@ begin
// Check if our objects exists since LCL can destroy object during
// mouse events...
if CanSendLCLMessage and (Sender <> nil) then
SetNoMousePropagation(QWidgetH(Sender), True)
else
begin
if isTransparentForMouse then
begin
HandleTransparentForMouse;
SetNoMousePropagation(QWidgetH(Sender), False);
end else
SetNoMousePropagation(QWidgetH(Sender), True);
end else
exit(True);
{ Clicking on buttons operates differently, because QEventMouseButtonRelease