diff --git a/lcl/interfaces/carbon/carboncanvas.pp b/lcl/interfaces/carbon/carboncanvas.pp
index cc5c78fe2c..ff1992882d 100644
--- a/lcl/interfaces/carbon/carboncanvas.pp
+++ b/lcl/interfaces/carbon/carboncanvas.pp
@@ -706,6 +706,10 @@ end;
  ------------------------------------------------------------------------------}
 procedure TCarbonDeviceContext.SetAntialiasing(AValue: Boolean);
 begin
+  if not AValue then
+    CGContextSetInterpolationQuality(CGContext, kCGInterpolationNone)
+  else
+    CGContextSetInterpolationQuality(CGContext, kCGInterpolationDefault);
   CGContextSetShouldAntialias(CGContext, CBool(AValue));
 end;