From 7c9bacc9933ef8e03335c55c4bf262179152a948 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 24 Sep 2017 09:33:35 +0000
Subject: [PATCH] * Correct position of an unknown element image.

git-svn-id: trunk@37312 -
---
 packages/fcl-report/src/fpreportpdfexport.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-report/src/fpreportpdfexport.pp b/packages/fcl-report/src/fpreportpdfexport.pp
index 8b3177095b..c6714c10a6 100644
--- a/packages/fcl-report/src/fpreportpdfexport.pp
+++ b/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;