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

Carbon implementation SelectClipRGN

Browse Source 
git-svn-id: trunk@20626 -
This commit is contained in:
dmitry 2009-06-14 20:42:20 +00:00
parent 92e7669048
commit d0eafc69e3
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/carbon/carbonwinapi.inc
View File

@ -2827,7 +2827,11 @@ end;
function TCarbonWidgetSet.SelectClipRGN(DC: hDC; RGN: HRGN): Longint;
begin
Result:=inherited SelectClipRGN(DC, RGN);
Result := 0;
if (DC = 0) or (RGN = 0) then Exit;
TCarbonRegion(RGN).Apply( TCarbonContext(DC) );
Result := 0;
end;
{------------------------------------------------------------------------------