paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 15:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix font scaling of CanvasDrawer.

Browse Source 
git-svn-id: trunk@60310 -
This commit is contained in:
wp 2019-02-02 23:39:44 +00:00
parent 7787d285fd
commit 790027cd13
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/tadrawercanvas.pas
View File

@ -377,7 +377,9 @@ begin
if FMonochromeColor <> clTAColor then if FMonochromeColor <> clTAColor then
Color := FMonochromeColor; Color := FMonochromeColor;
if scaleFont in FScaleItems then if scaleFont in FScaleItems then
Size := Scale(IfThen(Size = 0, DEFAULT_FONT_SIZE, Size)); Size := Scale(GetFontSize)
else
Size := GetFontSize;
end; end;
end; end;