paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 06:38:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Use textLength attribute in SVG drawer

Browse Source 
git-svn-id: trunk@30241 -
This commit is contained in:
ask 2011-04-08 08:45:46 +00:00
parent 1c6efec231
commit eb53bb345e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/tachart/tadrawersvg.pas
View File

@ -324,10 +324,11 @@ var
begin
p := RotatePoint(Point(0, FontSize), -FFontAngle) + Point(AX, AY);
WriteFmt(
'<text x="%d" y="%d" ' +
'<text x="%d" y="%d" textLength="%d" ' +
'style="stroke: none; fill: %s; font-family: %s; font-size: %dpt;">' +
'%s</text>',
[p.X, p.Y, ColorToHex(FFont.FPColor), FFont.Name, FontSize, AText]);
[p.X, p.Y, SimpleTextExtent(AText).X,
ColorToHex(FFont.FPColor), FFont.Name, FontSize, AText]);
end;
function TSVGDrawer.StyleFill: String;