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

qt: add support for WM_NCHITTEST=HTTRANSPARENT windows.

Browse Source 
git-svn-id: trunk@52359 -
This commit is contained in:
ondrej 2016-05-23 14:48:02 +00:00
parent ae5a52e013
commit db2d5e907e
1 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3521,12 +3521,13 @@ end;
function TQtWidget.SlotMouse(Sender: QObjectH; Event: QEventH): Boolean; cdecl;
var
Msg: TLMMouse;
MousePos: TQtPoint;
MButton: QTMouseButton;
Modifiers: QtKeyboardModifiers;
SaveWidget: QWidgetH;
LazButton: Byte;
LazPos: TPoint;
TrgHandle: TQtWidget;
TrgControl: TWinControl;
begin
{$ifdef VerboseQt}
WriteLn('TQtWidget.SlotMouse');
@ -3534,6 +3535,19 @@ begin
Result := False; // allow qt to handle message
TrgHandle := Self;
TrgControl := LCLObject;
CheckTransparentWindow(TLCLIntfHandle(TrgHandle), TrgControl);
if (TrgHandle=nil) or (TrgControl=nil) then
begin
Exit;
end else
if (TrgHandle<>Self) then
begin
Result := TQtWidget(TrgHandle).SlotMouse(Sender, Event);
Exit;
end;
if not CanSendLCLMessage then
exit(True);
@ -3545,17 +3559,15 @@ begin
FillChar(Msg{%H-}, SizeOf(Msg), #0);
MousePos := QMouseEvent_pos(QMouseEventH(Event))^;
OffsetMousePos(@MousePos);
LazPos := LCLObject.ScreenToClient(Mouse.CursorPos);
Modifiers := QInputEvent_modifiers(QInputEventH(Event));
Msg.Keys := QtKeyModifiersToKeyState(Modifiers, False, nil);
Msg.XPos := SmallInt(MousePos.X);
Msg.YPos := SmallInt(MousePos.Y);
Msg.XPos := SmallInt(LazPos.X);
Msg.YPos := SmallInt(LazPos.Y);
MButton := QMouseEvent_Button(QMouseEventH(Event));
LazPos := Point(MousePos.X, MousePos.Y);
Msg.Keys := Msg.Keys or QtButtonsToLCLButtons(MButton);
case MButton of
QtLeftButton: LazButton := 1;