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

TAChart: Fix compilation on non-windows platforms

Browse Source 
git-svn-id: trunk@30218 -
This commit is contained in:
ask 2011-04-06 00:40:40 +00:00
parent e0db061157
commit 5a2b851dcd
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/tadrawersvg.pas
View File

@ -355,9 +355,11 @@ begin
end; end;
procedure TSVGDrawer.WriteStr(const AString: String); procedure TSVGDrawer.WriteStr(const AString: String);
var
le: String = LineEnding;
begin begin
FStream.WriteBuffer(AString[1], Length(AString)); FStream.WriteBuffer(AString[1], Length(AString));
FStream.WriteBuffer(LineEnding[1], Length(LineEnding)); FStream.WriteBuffer(le[1], Length(le));
end; end;
end. end.