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

Cocoa: SetCGFillping/RestoreCGFillping removed

Browse Source
This commit is contained in:
rich2014 2024-06-05 16:55:08 +08:00
parent df77d2766e
commit 9376f57403
1 changed files with 0 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -374,8 +374,6 @@ type
protected
function SaveDCData: TCocoaDCData; virtual;
procedure RestoreDCData(const AData: TCocoaDCData); virtual;
procedure SetCGFillping(Ctx: CGContextRef; Width, Height: CGFloat);
procedure RestoreCGFillping(Ctx: CGContextRef; Width, Height: CGFloat);
procedure ApplyTransform(Trans: CGAffineTransform);
procedure ClearClipping;
procedure AttachedBitmap_SetModified(); virtual;
@ -2105,36 +2103,6 @@ begin
AttachedBitmap_SetModified();
end;
procedure TCocoaContext.SetCGFillping(Ctx: CGContextRef; Width, Height: CGFloat);
begin
if Width < 0 then
begin
CGContextTranslateCTM(Ctx, -Width, 0);
CGContextScaleCTM(Ctx, -1, 1);
end;
if Height < 0 then
begin
CGContextTranslateCTM(Ctx, 0, -Height);
CGContextScaleCTM(Ctx, 1, -1);
end;
end;
procedure TCocoaContext.RestoreCGFillping(Ctx: CGContextRef; Width, Height: CGFloat);
begin
if Height < 0 then
begin
CGContextTranslateCTM(Ctx, 0, Height);
CGContextScaleCTM(Ctx, 1, -1);
end;
if Width < 0 then
begin
CGContextScaleCTM(Ctx, -1, 1);
CGContextTranslateCTM(Ctx, Width, 0);
end;
end;
procedure TCocoaContext.ApplyTransform(Trans: CGAffineTransform);
var
T2: CGAffineTransform;