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

qt: relocate also mousewheel messages for transparent windows

Browse Source 
git-svn-id: trunk@52367 -
This commit is contained in:
ondrej 2016-05-23 16:24:35 +00:00
parent cf3cc81b4f
commit 181faec3ff
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3865,11 +3865,27 @@ var
MousePos: TQtPoint; MousePos: TQtPoint;
Modifiers: QtKeyboardModifiers; Modifiers: QtKeyboardModifiers;
ModifierState: PtrInt; ModifierState: PtrInt;
TrgHandle: TQtWidget;
TrgControl: TWinControl;
{$IFDEF DARWIN} {$IFDEF DARWIN}
CCtl: TQtAbstractScrollArea; CCtl: TQtAbstractScrollArea;
{$ENDIF} {$ENDIF}
begin begin
Result := False; Result := False;
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).SlotMouseWheel(Sender, Event);
Exit;
end;
if not CanSendLCLMessage then if not CanSendLCLMessage then
exit; exit;