From 677d92e87bf7c60a52547bc4a1c2ce279c78b6f7 Mon Sep 17 00:00:00 2001
From: michael <michael@lazarus-ide.org>
Date: Fri, 9 Mar 2018 11:06:13 +0000
Subject: [PATCH] * Fix bug #33397, footer must be added at the end, but is
 extracted from list

git-svn-id: trunk@57486 -
---
 components/fpreport/design/fpreportdesignobjectlist.pp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/fpreport/design/fpreportdesignobjectlist.pp b/components/fpreport/design/fpreportdesignobjectlist.pp
index 5818b9a498..58261c2787 100644
--- a/components/fpreport/design/fpreportdesignobjectlist.pp
+++ b/components/fpreport/design/fpreportdesignobjectlist.pp
@@ -1001,13 +1001,13 @@ Var
   DY,Y : TFPReportUnits;
 
   // Position band and remove it from the list. Recurses to add child bands.
-  Function AddBandToList(ABand : TFPReportCustomBand) : Boolean;
+  Function AddBandToList(ABand : TFPReportCustomBand; Force : Boolean = False) : Boolean;
 
   begin
     Result:=Assigned(ABand);
     If not Result then
       exit;
-    if L.IndexOf(aBand)=-1 then
+    if (L.IndexOf(aBand)=-1) and not Force then
       exit;
 {$IFDEF DEBUGROL}Writeln('Placing band ',ABand.ClassName,'(',ABAnd.Name,') at ',Y);{$ENDIF}
     ABand.Layout.Top:=Y;
@@ -1146,7 +1146,7 @@ begin
     F:=FindBandType(L,TFPReportCustomPageFooterBand,I,True);
     While L.Count>0 do
       AddBandToList(TFPReportCustomBand(L[0]));
-    AddBandToList(F);
+    AddBandToList(F,True);
   finally
     L.Free;
   end;