From 14ea0c85872959de1ab6adf3b4e66fb209d0cbd2 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Thu, 10 May 2012 10:20:28 +0000
Subject: [PATCH] fpvectorial: Adds pen setting to the ellipse rendering

git-svn-id: trunk@37237 -
---
 components/fpvectorial/fpvectorial.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/fpvectorial/fpvectorial.pas b/components/fpvectorial/fpvectorial.pas
index ebfe658784..ac7c491889 100644
--- a/components/fpvectorial/fpvectorial.pas
+++ b/components/fpvectorial/fpvectorial.pas
@@ -1556,6 +1556,8 @@ var
   ALCLDest: TCanvas absolute ADest;
   {$endif}
 begin
+  ApplyPenToCanvas(ADest);
+
   CalculateBoundingBox(ADest, fx1, fy1, fx2, fy2);
   x1 := CoordToCanvasX(fx1);
   x2 := CoordToCanvasX(fx2);
@@ -1586,8 +1588,6 @@ begin
   else
   {$endif}
   begin
-    ADest.Pen.Style := psSolid;
-    ADest.Pen.FPColor := colBlack;
     ADest.Ellipse(x1, y1, x2, y2);
   end;
 end;