diff --git a/lcl/interfaces/cocoa/cocoagdiobjects.pas b/lcl/interfaces/cocoa/cocoagdiobjects.pas
index 52ec91592e..deb334431f 100644
--- a/lcl/interfaces/cocoa/cocoagdiobjects.pas
+++ b/lcl/interfaces/cocoa/cocoagdiobjects.pas
@@ -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;