浏览代码

* Correct position of an unknown element image.

git-svn-id: trunk@37312 -
michael 8 年之前
父节点
当前提交
7c9bacc993
共有 1 个文件被更改,包括 2 次插入1 次删除
  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;