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

fpvectorial: Fixes a bug in the TvRasterImage drawer, it was using the image real size instead of desired size, and a minor workaround in svg: Now wmtboc finally renders more or less ok in both EPS and SVG

Browse Source 
git-svn-id: trunk@42321 -
This commit is contained in:
sekelsenmat 2013-08-04 12:59:55 +00:00
parent 29f25bb619
commit ee0b433bd1
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpvectorial/fpvectorial.pas
View File

@ -3225,9 +3225,9 @@ begin
//TCanvas(ADest).Draw(lFinalX, lFinalY, lBitmap);
// with stretch support
lFinalW := Round(RasterImage.Width * AMulX);
lFinalW := Round(Width * AMulX);
if lFinalW < 0 then lFinalW := lFinalW * -1;
lFinalH := Round(RasterImage.Height * AMulY);
lFinalH := Round(Height * AMulY);
if lFinalH < 0 then lFinalH := lFinalH * -1;
TCanvas(ADest).StretchDraw(Bounds(lFinalX, lFinalY, lFinalW, lFinalH), lBitmap);
finally

4
components/fpvectorial/svgvectorialreader.pas
View File

@ -1431,7 +1431,9 @@ begin
lImage.X := lImage.X + lTransformX;
lImage.Y := lImage.Y + lTransformY;
lImage.Width := lImage.Width * lTransformW;
lImage.Height := lImage.Height * lTransformW;
lImage.Height := lImage.Height * lTransformH;
// Strange hack: No idea why it works ... but helped wmtboc
lImage.X := lImage.X - lImage.Width;
// Apply the layer style
ApplyLayerStyles(lImage);