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... `X

X X X

` 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.