paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 16:19:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Correct position of an unknown element image.

Browse Source 
git-svn-id: trunk@37312 -
This commit is contained in:
michael 2017-09-24 09:33:35 +00:00
parent 69345c7e40
commit 7c9bacc993
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-report/src/fpreportpdfexport.pp
View File

@ -762,7 +762,8 @@ begin
lPt.Y := ABand.RTLayout.Top + el.RTLayout.Top + el.RTLayout.Height; lPt.Y := ABand.RTLayout.Top + el.RTLayout.Top + el.RTLayout.Height;
RenderFrame(pg, ABand, el.Frame, lPt, el.RTLayout.Width, el.RTLayout.Height); RenderFrame(pg, ABand, el.Frame, lPt, el.RTLayout.Width, el.RTLayout.Height);
C.Left:=aband.RTLayout.Left; C.Left:=aband.RTLayout.Left;
C.Top:=aband.RTLayout.Top; // Compensate for add of height which RenderUnknownElement will do
C.Top:=aband.RTLayout.Top + el.RTLayout.Height;
RenderUnknownElement(C,El,72); RenderUnknownElement(C,El,72);
end; end;
end; end;