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

LCL: fixed uninitialized result

Browse Source 
git-svn-id: trunk@16082 -
This commit is contained in:
mattias 2008-08-16 01:49:29 +00:00
parent e2280116f1
commit ae04e7ac70
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/include/mouse.inc
View File

@ -49,8 +49,10 @@ function TMouse.GetCursorPos : TPoint;
var
p : TPoint;
begin
WidgetSet.GetCursorPos(p);
Result := P;
if WidgetSet.GetCursorPos(p) then
Result := P
else
Result:=Point(0,0);
end;
procedure TMouse.SetCursorPos(AValue : TPoint);