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

Cocoa: refactor in TCocoaContext.StretchDraw()

Browse Source
This commit is contained in:
rich2014 2024-06-06 00:59:37 +08:00
parent 9376f57403
commit 8ecc0ea6cc
1 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2164,7 +2164,7 @@ function TCocoaContext.StretchDraw(X, Y, Width, Height: Integer;
Msk: TCocoaBitmap; XMsk, YMsk: Integer; Rop: DWORD): Boolean;
var
Bmp: TCocoaBitmap;
MskImage: CGImageRef;
MskImage: CGImageRef = nil;
ImgRect: CGRect;
dcWidth: Integer;
@ -2185,31 +2185,31 @@ begin
inc(XSrc, -SrcDC.WindowOfs.X);
inc(YSrc, -SrcDC.WindowOfs.Y);
CGContextSaveGState(CGContext);
//apply window offset
if (Msk <> nil) and (Msk.Image <> nil) then
begin
if (Msk <> nil) and (Msk.Image <> nil) then begin
MskImage := Msk.CreateMaskImage(Bounds(XMsk, YMsk, SrcWidth, SrcHeight));
ImgRect := CGRectMake(x, y, dcWidth, dcHeight);
CGContextSaveGState(CGContext);
CGContextClipToMask(CGContext, ImgRect, MskImage );
if NOT ctx.isFlipped then begin
CGContextScaleCTM(CGContext, 1, -1);
CGContextTranslateCTM(CGContext, 0, -dcHeight);
Y:= dcHeight - (Height + Y);
end;
Result := bmp.ImageRep.drawInRect_fromRect_operation_fraction_respectFlipped_hints(
GetNSRect(X, Y, Width, Height), GetNSRect(XSrc, YSrc, SrcWidth, SrcHeight), NSCompositeSourceOver, 1.0, True, nil );
CGImageRelease(MskImage);
CGContextRestoreGState(CGContext);
end
else
begin
// convert Y coordinate of the source bitmap
YSrc := Bmp.Height - (SrcHeight + YSrc);
Result := DrawImageRep(GetNSRect(X, Y, Width, Height),GetNSRect(XSrc, YSrc, SrcWidth, SrcHeight), bmp.ImageRep);
CGContextClipToMask(CGContext, ImgRect, MskImage);
end;
if NOT ctx.isFlipped then begin
CGContextScaleCTM(CGContext, 1, -1);
CGContextTranslateCTM(CGContext, 0, -dcHeight);
Y:= dcHeight - (Height + Y);
end;
if NOT SrcDC.ctx.isFlipped then begin
YSrc := Bmp.Height - (SrcHeight + YSrc);
end;
Result := bmp.ImageRep.drawInRect_fromRect_operation_fraction_respectFlipped_hints(
GetNSRect(X, Y, Width, Height), GetNSRect(XSrc, YSrc, SrcWidth, SrcHeight), NSCompositeSourceOver, 1.0, True, nil );
if Assigned(MskImage) then
CGImageRelease(MskImage);
CGContextRestoreGState(CGContext);
AttachedBitmap_SetModified();
end;