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

LCL: Extend horizontal mouse wheel messages for QT and QT5. Issue #32753, patch from AlexeyT.

Browse Source 
git-svn-id: trunk@56670 -
This commit is contained in:
juha 2017-12-08 12:41:04 +00:00
parent 9e8a489027
commit 07a192047b
2 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3970,14 +3970,19 @@ begin
LastMouse.WinControl := LCLObject;
LastMouse.WinHandle := TLCLIntfHandle(Self);
LastMouse.MousePos := Point(MousePos.X, MousePos.Y);
Msg.Msg := LM_MOUSEWHEEL;
Msg.X := SmallInt(MousePos.X);
Msg.Y := SmallInt(MousePos.Y);
Msg.WheelDelta := SmallInt(QWheelEvent_delta(QWheelEventH(Event)));
Msg.Msg := LM_MOUSEWHEEL;
if QWheelEvent_orientation(QWheelEventH(Event)) = QtHorizontal then
begin
Msg.Msg := LM_MOUSEHWHEEL;
Msg.WheelDelta := -Msg.WheelDelta;
end;
{$IFDEF DARWIN}
// LCL expects delta +-120, we must fix it. issue #20888
if (ChildOfComplexWidget in [ccwCustomControl, ccwAbstractScrollArea,

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

@ -3892,14 +3892,19 @@ begin
LastMouse.WinControl := LCLObject;
LastMouse.WinHandle := TLCLIntfHandle(Self);
LastMouse.MousePos := Point(MousePos.X, MousePos.Y);
Msg.Msg := LM_MOUSEWHEEL;
Msg.X := SmallInt(MousePos.X);
Msg.Y := SmallInt(MousePos.Y);
Msg.WheelDelta := SmallInt(QWheelEvent_delta(QWheelEventH(Event)));
Msg.Msg := LM_MOUSEWHEEL;
if QWheelEvent_orientation(QWheelEventH(Event)) = QtHorizontal then
begin
Msg.Msg := LM_MOUSEHWHEEL;
Msg.WheelDelta := -Msg.WheelDelta;
end;
{$IFDEF DARWIN}
// LCL expects delta +-120, we must fix it. issue #20888
if (ChildOfComplexWidget in [ccwCustomControl, ccwAbstractScrollArea,