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

Add masking in TCocoaContext.StretchDraw

Browse Source 
git-svn-id: trunk@43586 -
This commit is contained in:
freq 2013-12-23 17:08:57 +00:00
parent f8340776fc
commit 8db86f24e7
1 changed files with 43 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
lcl/interfaces/cocoa/cocoagdiobjects.pas
View File

@ -229,6 +229,7 @@ type
AAlignment: TCocoaBitmapAlignment; AType: TCocoaBitmapType);
function CreateSubImage(const ARect: TRect): CGImageRef;
function CreateMaskImage(const ARect: TRect): CGImageRef;
public
property BitmapType: TCocoaBitmapType read FType;
property BitsPerPixel: Byte read FBitsPerPixel;
@ -837,6 +838,23 @@ begin
Result := CGImageCreateWithImageInRect(MacOSAll.CGImageRef(ImageRep.CGImage), RectToCGRect(ARect));
end;
function TCocoaBitmap.CreateMaskImage(const ARect: TRect): CGImageRef;
var
CGDataProvider: CGDataProviderRef;
Mask: CGImageRef;
begin
CGDataProvider := CGDataProviderCreateWithData(nil, FData, FDataSize, nil);
try
Mask := CGImageMaskCreate(FWidth, FHeight, FBitsPerPixel,
FBitsPerPixel, FBytesPerRow, CGDataProvider, nil, 0);
Result := CGImageCreateWithImageInRect(Mask, RectToCGRect(ARect));
finally
CGDataProviderRelease(CGDataProvider);
CGImageRelease(Mask);
end;
end;
function TCocoaBitmap.GetColorSpace: NSString;
begin
if FType in [cbtMono, cbtGray] then
@ -1772,21 +1790,38 @@ function TCocoaContext.StretchDraw(X, Y, Width, Height: Integer;
Msk: TCocoaBitmap; XMsk, YMsk: Integer; Rop: DWORD): Boolean;
var
Bmp: TCocoaBitmap;
MskImage: CGImageRef;
ImgRect: CGRect;
begin
Bmp := SrcDC.Bitmap;
if not Assigned(Bmp) then
Exit(False);
// TODO: mask clipping
// if Assigned(MskImage) then
// CGContextClipToMask(LayerContext, ImgRect, MskImage);
if (Msk <> nil) and (Msk.Image <> nil) then
begin
MskImage := Msk.CreateMaskImage(Bounds(XMsk, YMsk, SrcWidth, SrcHeight));
ImgRect := CGRectMake(0, 0, SrcWidth, SrcHeight);
CGContextSaveGState(CGContext);
CGContextScaleCTM(CGContext, 1, -1);
CGContextTranslateCTM(CGContext, 0, -SrcHeight);
CGContextClipToMask(CGContext, ImgRect, MskImage );
CGImageRelease(MskImage);
Result := bmp.ImageRep.drawInRect_fromRect_operation_fraction_respectFlipped_hints(
GetNSRect(X, -Y, Width, Height), GetNSRect(XSrc, YSrc, SrcWidth, SrcHeight), NSCompositeSourceOver, 1.0, True, nil );
CGContextRestoreGState(CGContext);
end
else
begin
// convert Y coodrinate of the source bitmap
YSrc := Bmp.Height - (SrcHeight + YSrc);
Result := DrawImageRep(GetNSRect(X, Y, Width, Height),GetNSRect(XSrc, YSrc, SrcWidth, SrcHeight), bmp.ImageRep);
end;
// convert Y coodrinate of the source bitmap
YSrc := Bmp.Height - (SrcHeight + YSrc);
Result := DrawImageRep(
GetNSRect(X, Y, Width, Height),
GetNSRect(XSrc, YSrc, SrcWidth, SrcHeight), Bmp.ImageRep);
end;
{------------------------------------------------------------------------------