Ver Fonte

* Correct position of an unknown element image.

git-svn-id: trunk@37312 -
michael há 8 anos atrás
pai
commit
7c9bacc993
1 ficheiros alterados com 2 adições e 1 exclusões
  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;