diff --git a/lcl/arrow.pp b/lcl/arrow.pp
index fd28bd996b..b2a592539b 100644
--- a/lcl/arrow.pp
+++ b/lcl/arrow.pp
@@ -208,6 +208,7 @@ const
   end;
 
 begin
+  Canvas.AntialiasingMode := AntiAliasingMode;
   // Paint background
   Canvas.Brush.Color := Color;
   Canvas.FillRect(ClientRect);
diff --git a/lcl/industrialbase.pp b/lcl/industrialbase.pp
index d04b1099b1..4cce713e6a 100644
--- a/lcl/industrialbase.pp
+++ b/lcl/industrialbase.pp
@@ -17,7 +17,6 @@ type
     procedure SetAntiAliasingMode(AValue: TAntialiasingMode);
   protected
     procedure GraphicChanged;
-    procedure Paint; override;
   public
     constructor Create(aOwner: TComponent); override;
   published
@@ -42,12 +41,6 @@ begin
    then Invalidate;
 end;
 
-procedure TIndustrialBase.Paint;
-begin
-  Canvas.AntialiasingMode := FAntiAliasingMode;
-  inherited Paint;
-end;
-
 procedure TIndustrialBase.SetAntiAliasingMode(AValue: TAntialiasingMode);
 begin
   if FAntiAliasingMode=AValue then Exit;