paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 05:39:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

fpvectorial-svg: Fixes block reading, which was broken after a change in ReadEntityFromNode

Browse Source 
git-svn-id: trunk@42311 -
This commit is contained in:
sekelsenmat 2013-08-04 10:38:39 +00:00
parent 22c74b140c
commit 9342b8538f
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpvectorial/svgvectorialreader.pas
View File

@ -1105,6 +1105,7 @@ var
i: Integer;
lCurNode, lCurSubNode: TDOMNode;
lBrushEntity: TvEntityWithPenAndBrush;
lCurEntity: TvEntity;
begin
lCurNode := ANode.FirstChild;
while Assigned(lCurNode) do
@ -1186,7 +1187,9 @@ begin
AData.AddEntity(lBlock);
AData.SetCurrentLayer(lBlock);
//
ReadEntityFromNode(lCurNode, AData, ADoc);
lCurEntity := ReadEntityFromNode(lCurNode, AData, ADoc);
if lCurEntity <> nil then
AData.AddEntity(lCurEntity);
//
AData.SetCurrentLayer(lPreviousLayer);
end;