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;