paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-06 12:41:01 +01:00
Code Issues Packages Projects Releases Wiki Activity

carbon: fix range check error by initializing zero values. #28380. patch by C Western

Browse Source 
git-svn-id: trunk@49579 -
This commit is contained in:
dmitry 2015-08-01 03:31:26 +00:00
parent d99ceba335
commit 5497dfc55a
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -99,6 +99,7 @@ const
var
MousePoint: HIPoint;
begin
Result:=Classes.Point(0,0); // Force sane value if mouse location not found
if OSError(
GetEventParameter(AEvent, kEventParamWindowMouseLocation, typeHIPoint, nil,
SizeOf(MousePoint), nil, @MousePoint),