Image not drawn completly

[jfudickar]

Have a look at this SVG file (generated from plantuml).
In the legend at the end there are empty coloured rectangles which are not drawn in delphi :

but drawn when showing the file in the edge browser:

Regards
Jens

[carloBarazzetta]

Please attach the SVG file...

[jfudickar]

It must be attached somehow, because I dragged it in.
Try the right mouse click on the big image and save as.

[jfudickar]

Should be here : https://user-images.githubusercontent.com/3485451/224549327-5f297927-e1ce-492b-94d3-dbeb6382c9a3.svg

[carloBarazzetta]

I've notice that the problems are in those 4 lines: adding an 'X' instead of three spaces shows the X with correct background color...
<text fill="#000000" filter="url(#bz2wwsoabm0qe0)" font-family="sans-serif" font-size="14" lengthAdjust="spacing" textLength="12" x="826.5" y="1801.0332">X</text> <text fill="#000000" filter="url(#bz2wwsoabm0qe1)" font-family="sans-serif" font-size="14" lengthAdjust="spacing" textLength="12" x="945.5" y="1801.0332">X</text> <text fill="#000000" filter="url(#bz2wwsoabm0qe2)" font-family="sans-serif" font-size="14" lengthAdjust="spacing" textLength="12" x="1032.5" y="1801.0332">X</text> <text fill="#000000" filter="url(#bz2wwsoabm0qe3)" font-family="sans-serif" font-size="14" lengthAdjust="spacing" textLength="12" x="1102.5" y="1801.0332">X</text>
Maybe an incorrect use of background text color for spaces, in Image32 SVG Library of Angus:
https://github.com/AngusJohnson/Image32

[jfudickar]

Will you raise a ticket there?
I can't work with the X :-)

[AngusJohnson]

Hi Jens. I can confirm there is a bug in Image32's SVG reader, but I can't see an easy fix.
While I've only had a quick look so far, the issue seems to be related to getting the correct bounds of the floodfill filter element.

[jfudickar]

Hi Angus, I have not a real problem with it.
The delphi implementation is only a "nice to have" of my json2puml project.
Most of the people will work with the svg file directly.
But I wanted to mention it :-)

[AngusJohnson]

Here's a 'quick and dirty' solution ...

In TShapeElement.Draw() in Img32.SVG.Reader @ line ~2100

    //get special effects bounds
    if Assigned(clipPathEl) then
    begin
      ....
    end
    else if Assigned(maskEl) then
    begin
      ....
    end else
    begin
      clipRec := drawDat.bounds;
      // add this //////////////////
      if clipRec.IsEmpty and
        (drawDat.fontInfo.textLength > 0) and
        (self is TSubtextElement) then
      begin
        clipRec.Left := fParent.elRectWH.left.rawVal;
        clipRec.Bottom := fParent.elRectWH.top.rawVal;
        clipRec.Right := clipRec.Left + drawDat.fontInfo.textLength;
        clipRec.Top := clipRec.Bottom - drawDat.fontInfo.size;
      end;
      //////////////////////////////

[jfudickar]

Yes seems to fix it.
Nice.
And thanks!!!

[jfudickar]

After upgrading to v4 the problem is back :-(

[jfudickar]

Adding the line fixes it again !

[carloBarazzetta]

Oh, sorry, but I've aligned Image32 source code of @AngusJohnson retrieved from His Gitub repo, probably it was not updated...

[AngusJohnson]

I've just updated the Image32 repository and the fix above has been included.