From 698715cdc9184c36ba4512c28b1ebc9a88e602c1 Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Sun, 23 Jun 2013 19:46:21 +0000
Subject: [PATCH] TAChart: Allow assignment of TFPCustomPen to Pen property of
 canvas drawer

git-svn-id: trunk@41854 -
---
 components/tachart/tadrawercanvas.pas | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/components/tachart/tadrawercanvas.pas b/components/tachart/tadrawercanvas.pas
index 328688f576..496a228bbe 100644
--- a/components/tachart/tadrawercanvas.pas
+++ b/components/tachart/tadrawercanvas.pas
@@ -308,7 +308,15 @@ begin
         Pen.Width := APen.Width;
     end
   else begin
-    GetCanvas.Pen.Assign(APen);
+    if APen is TPen then
+      GetCanvas.Pen.Assign(APen)
+    else
+      with GetCanvas.Pen do begin
+        Color := FPColorToChartColor(APen.FPColor);
+        Style := APen.Style;
+        Width := APen.Width;
+        Mode := APen.Mode;
+      end;
     if FMonochromeColor <> clTAColor then
       GetCanvas.Pen.Color := FMonochromeColor;
   end;