paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 17:49:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpvectorial-html: Fixes bug in positioning of raster image inside table, fixes crash in table without caption

Browse Source 
git-svn-id: trunk@51958 -
This commit is contained in:
sekelsenmat 2016-03-16 10:59:05 +00:00
parent d93952201f
commit 5aa799810a
2 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/fpvectorial/fpvectorial.pas
View File

@ -2561,12 +2561,21 @@ procedure TvEmbeddedVectorialDoc.Render(ADest: TFPCustomCanvas;
var
lPage: TvPage;
lPageHeight: Integer;
lMulY, lY: Double;
begin
inherited Render(ADest, ARenderInfo, ADestX, ADestY, AMulX, AMulY, ADoDraw);
lPage := Document.GetPage(0);
lPageHeight := Round(lPage.Height);
lPage.GetNaturalRenderPos(lPageHeight, lMulY);
lY := Y;
if AmulY * lMulY < 0 then
begin
lY := Y + lPage.Height;
end;
if ADoDraw then
lPage.Render(ADest, CoordToCanvasX(X), CoordToCanvasY(Y), AMulX, AMulY);
lPage.Render(ADest, CoordToCanvasX(X), CoordToCanvasY(Y), AMulX, AMulY * lMulY);
CalcEntityCanvasMinMaxXY(ARenderInfo, CoordToCanvasX(X), CoordToCanvasY(Y));
CalcEntityCanvasMinMaxXY(ARenderInfo,
@ -8106,7 +8115,7 @@ begin
begin
OldTextX := lEntity.X;
OldTextY := lEntity.Y;
lEntity.X := CoordToCanvasX(lEntity.X + X + lCurWidth, ADestX, AMulX);
lEntity.X := lEntity.X + X + lCurWidth;
lEntity.Y := lEntity.Y + Y;
lEntity.Render(ADest, lEntityRenderInfo, ADestX, ADestY + lHeight_px, AMulX, AMulY, ADoDraw);

5
components/fpvectorial/htmlvectorialreader.pas
View File

@ -371,7 +371,7 @@ var
lCurNode, lCurSubnode: TDOMNode;
lNodeName, lNodeValue: DOMString;
CurRow: TvTableRow;
Caption_Cell: TvTableCell;
Caption_Cell: TvTableCell = nil;
CurCellPara: TvParagraph;
// attributes
i, lBorderNr: Integer;
@ -456,7 +456,8 @@ begin
end;
// the caption spans all columns
Caption_Cell.SpannedCols := CurTable.GetColCount();
if Caption_Cell <> nil then
Caption_Cell.SpannedCols := CurTable.GetColCount();
end;
function TvHTMLVectorialReader.ReadTableRowNode(ATable: TvTable; ANode: TDOMNode;