From b9b50b12c09c0bda2eeccb58ff28c83d62fb312d Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@lazarus-ide.org>
Date: Sun, 23 Sep 2012 16:09:24 +0000
Subject: [PATCH] gtk2: implement SPI_GETWHEELSCROLLLINES

git-svn-id: trunk@38799 -
---
 lcl/interfaces/gtk2/gtk2winapi.inc | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/gtk2/gtk2winapi.inc b/lcl/interfaces/gtk2/gtk2winapi.inc
index f4c84bd861..09afcfcad2 100644
--- a/lcl/interfaces/gtk2/gtk2winapi.inc
+++ b/lcl/interfaces/gtk2/gtk2winapi.inc
@@ -9402,15 +9402,17 @@ end;
 function TGtk2WidgetSet.SystemParametersInfo(uiAction: DWord; uiParam: DWord;
   pvParam: Pointer; fWinIni: DWord): LongBool;
 begin
-  Result:=False;
+  Result:=True;
   Case uiAction of
+    SPI_GETWHEELSCROLLLINES: PDword(pvParam)^ := 3;
     SPI_GETWORKAREA: begin
       TRect(pvParam^):=Bounds(GetSystemMetrics(SM_XVIRTUALSCREEN),
                               GetSystemMetrics(SM_YVIRTUALSCREEN),
                               GetSystemMetrics(SM_CXVIRTUALSCREEN),
                               GetSystemMetrics(SM_CYVIRTUALSCREEN));
-      Result:=True;
     end;
+  else
+    Result:=False;
   end;
 end;