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

Cocoa: Fix the issue introduced @ 8ecc0ea

Browse Source 
for example, the Icon cannot be displayed normally in VirtualTrees
This commit is contained in:
rich2014 2024-06-09 14:09:21 +08:00
parent 1b9571bfcd
commit db6ce9345e
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2193,18 +2193,11 @@ begin
CGContextClipToMask(CGContext, ImgRect, MskImage); CGContextClipToMask(CGContext, ImgRect, MskImage);
end; 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 if NOT SrcDC.ctx.isFlipped then begin
YSrc := Bmp.Height - (SrcHeight + YSrc); YSrc := Bmp.Height - (SrcHeight + YSrc);
end; end;
Result := bmp.ImageRep.drawInRect_fromRect_operation_fraction_respectFlipped_hints( Result := DrawImageRep(GetNSRect(X, Y, Width, Height),GetNSRect(XSrc, YSrc, SrcWidth, SrcHeight), bmp.ImageRep);
GetNSRect(X, Y, Width, Height), GetNSRect(XSrc, YSrc, SrcWidth, SrcHeight), NSCompositeSourceOver, 1.0, True, nil );
if Assigned(MskImage) then if Assigned(MskImage) then
CGImageRelease(MskImage); CGImageRelease(MskImage);