paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 01:56:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix font scaling of CanvasDrawer.

Browse Source 
git-svn-id: branches/fixes_2_0@60376 -
This commit is contained in:
mattias 2019-02-09 08:44:46 +00:00
parent 35469e962b
commit e24077d44b
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
Color := FMonochromeColor;
if scaleFont in FScaleItems then
Size := Scale(IfThen(Size = 0, DEFAULT_FONT_SIZE, Size));
Size := Scale(GetFontSize)
else
Size := GetFontSize;
end;
end;