From 1a09feaa30fbe68fe1dbbc894dd79a423876b4fd Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Fri, 17 May 2013 14:25:29 +0000
Subject: [PATCH] LCL: Set AntialiasingMode in the beginning of TArrow.Paint.
 Fix a bug made in previous commit.

git-svn-id: trunk@41236 -
---
 lcl/arrow.pp          | 1 +
 lcl/industrialbase.pp | 7 -------
 2 files changed, 1 insertion(+), 7 deletions(-)

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;