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

Patch from Marcou Gilles see bug #22003 Improves a little the SVG writer

Browse Source 
git-svn-id: trunk@37276 -
This commit is contained in:
sekelsenmat 2012-05-14 13:42:19 +00:00
parent 5ac1a1fe66
commit 76b2286236
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/fpvectorial/svgvectorialwriter.pas
View File

@ -102,6 +102,7 @@ begin
segment := TPathSegment(APath.Next());
if (segment.SegmentType <> st2DLine)
and (segment.SegmentType <> st2DLineWithPen)
and (segment.SegmentType <> stMoveTo)
and (segment.SegmentType <> st2DBezier)
then Break; // unsupported line type
@ -118,7 +119,8 @@ begin
+ FloatToStr(PtX, FPointSeparator) + ','
+ FloatToStr(PtY, FPointSeparator) + ' ';
end
else if (segment.SegmentType = st2DLine) then
else if (segment.SegmentType = st2DLine) or
(segment.SegmentType = st2DLineWithPen) then
begin
PathStr := PathStr + 'l '
+ FloatToStr(PtX, FPointSeparator) + ','