paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 21:41:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

carbon: make GetClipRGN safer

Browse Source 
git-svn-id: trunk@21132 -
This commit is contained in:
dmitry 2009-08-07 10:47:16 +00:00
parent 5151e1c5ea
commit 1d4cd359c5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/carbon/carboncanvas.pp
View File

@ -1487,7 +1487,9 @@ end;
function TCarbonDeviceContext.CopyClipRegion(ADstRegion: TCarbonRegion): Integer;
begin
Result := ADstRegion.CombineWith(FClipRegion, RGN_COPY);
if Assigned(ADstRegion)
then Result := ADstRegion.CombineWith(FClipRegion, RGN_COPY)
else Result := LCLType.Error;
end;
{ TCarbonScreenContext }