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

carbon: handle SPI_GETWHEELSCROLLLINES in SystemParametersInfo. Issue #19788

Browse Source 
git-svn-id: trunk@32303 -
This commit is contained in:
blikblum 2011-09-12 21:21:49 +00:00
parent 5fec1dbe91
commit df13a1aeea
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/carbon/carbonwinapi.inc
View File

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