paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 02:59:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Escape XML special characters when using svg drawer.

Browse Source 
git-svn-id: trunk@55458 -
This commit is contained in:
wp 2017-07-06 22:10:29 +00:00
parent 123e40c66d
commit 43fc0a1324
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/tachart/tadrawersvg.pas
View File

@ -110,6 +110,22 @@ const
var
fmtSettings: TFormatSettings;
function EscapeXML(const AText: String): String;
var
ch: Char;
begin
Result := '';
for ch in AText do
case ch of
'<': Result := Result + '&lt;';
'>': Result := Result + '&gt;';
'"': Result := Result + '&quot;';
'''':Result := Result + '&apos;';
'&': Result := Result + '&amp;';
else Result := Result + ch;
end;
end;
function ColorToHex(AColor: TFPColor): String;
begin
if AColor = colBlack then
@ -535,7 +551,7 @@ begin
if OpacityStr <> '' then
sstyle := sstyle + OpacityStr + ';';
WriteFmt('<text %s style="%s">%s</text>', [stext, sstyle, AText]);
WriteFmt('<text %s style="%s">%s</text>', [stext, sstyle, EscapeXML(AText)]);
end;
function TSVGDrawer.StyleFill: String;