paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 01:19:29 +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 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;