Browse Source

* Correct position of an unknown element image.

git-svn-id: trunk@37312 -
michael 7 years ago
parent
commit
7c9bacc993
1 changed files with 2 additions and 1 deletions
  1. 2 1
      packages/fcl-report/src/fpreportpdfexport.pp

+ 2 - 1
packages/fcl-report/src/fpreportpdfexport.pp

@@ -762,7 +762,8 @@ begin
     lPt.Y := ABand.RTLayout.Top + el.RTLayout.Top + el.RTLayout.Height;
     RenderFrame(pg, ABand, el.Frame, lPt, el.RTLayout.Width, el.RTLayout.Height);
     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);
     end;
 end;