paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 18:40:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

correct gtk2 scroll message (issue #0010198)

Browse Source 
git-svn-id: trunk@12967 -
This commit is contained in:
paul 2007-11-22 04:37:07 +00:00
parent db137cc50f
commit 27a8e5e4ca
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -1621,9 +1621,10 @@ begin
FillChar(MessE,SizeOf(MessE),0); FillChar(MessE,SizeOf(MessE),0);
MessE.Msg := LM_MOUSEWHEEL; MessE.Msg := LM_MOUSEWHEEL;
case event^.direction of case event^.direction of
GDK_SCROLL_UP: MessE.WheelDelta:=-1; GDK_SCROLL_UP: MessE.WheelDelta := 1;
GDK_SCROLL_DOWN: MessE.WheelDelta:=1; GDK_SCROLL_DOWN: MessE.WheelDelta := -1;
else exit; else
exit;
end; end;
MessE.X := MappedXY.X; MessE.X := MappedXY.X;
MessE.Y := MappedXY.Y; MessE.Y := MappedXY.Y;