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

gtk2: implement SPI_GETWHEELSCROLLLINES

Browse Source 
git-svn-id: trunk@38799 -
This commit is contained in:
blikblum 2012-09-23 16:09:24 +00:00
parent 43d105558b
commit b9b50b12c0
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -9402,15 +9402,17 @@ end;
function TGtk2WidgetSet.SystemParametersInfo(uiAction: DWord; uiParam: DWord; function TGtk2WidgetSet.SystemParametersInfo(uiAction: DWord; uiParam: DWord;
pvParam: Pointer; fWinIni: DWord): LongBool; pvParam: Pointer; fWinIni: DWord): LongBool;
begin begin
Result:=False; Result:=True;
Case uiAction of Case uiAction of
SPI_GETWHEELSCROLLLINES: PDword(pvParam)^ := 3;
SPI_GETWORKAREA: begin SPI_GETWORKAREA: begin
TRect(pvParam^):=Bounds(GetSystemMetrics(SM_XVIRTUALSCREEN), TRect(pvParam^):=Bounds(GetSystemMetrics(SM_XVIRTUALSCREEN),
GetSystemMetrics(SM_YVIRTUALSCREEN), GetSystemMetrics(SM_YVIRTUALSCREEN),
GetSystemMetrics(SM_CXVIRTUALSCREEN), GetSystemMetrics(SM_CXVIRTUALSCREEN),
GetSystemMetrics(SM_CYVIRTUALSCREEN)); GetSystemMetrics(SM_CYVIRTUALSCREEN));
Result:=True;
end; end;
else
Result:=False;
end; end;
end; end;