paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-11 05:07:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

Carbon: Complete the issue #29972. Patch from AlexeyT.

Browse Source 
git-svn-id: trunk@54571 -
This commit is contained in:
juha 2017-04-08 09:22:39 +00:00
parent 04cdeee412
commit d78cefe1d1
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/carbon/carbonprivatewindow.inc
View File

@ -245,8 +245,12 @@ const
Msg^.Y := MousePoint.Y;
Msg^.State := GetCarbonShiftState;
Msg^.WheelDelta := GetMouseWheelDelta;
// ssHyper id in TShiftStateEnum is not used in LCL (almost, only n lines in gtk/gtk2, they not needed).
// Key "Hyper" was on non usual weird keyboard (for sci-fi film?)
// Lets use this id
if GetMouseWheelAxisHorz then
Include(Msg^.State, ssExtra1);
Include(Msg^.State, ssHyper);
end;
var