From e24077d44bd384b7d4c396d7da1f8d0fa9544882 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 9 Feb 2019 08:44:46 +0000
Subject: [PATCH] TAChart: Fix font scaling of CanvasDrawer.

git-svn-id: branches/fixes_2_0@60376 -
---
 components/tachart/tadrawercanvas.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/components/tachart/tadrawercanvas.pas b/components/tachart/tadrawercanvas.pas
index 36bf73095b..9c4e45a1ec 100644
--- a/components/tachart/tadrawercanvas.pas
+++ b/components/tachart/tadrawercanvas.pas
@@ -377,7 +377,9 @@ begin
     if FMonochromeColor <> clTAColor then
       Color := FMonochromeColor;
     if scaleFont in FScaleItems then
-      Size := Scale(IfThen(Size = 0, DEFAULT_FONT_SIZE, Size));
+      Size := Scale(GetFontSize)
+    else
+      Size := GetFontSize;
   end;
 end;