paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-28 06:23:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #33397, footer must be added at the end, but is extracted from list

Browse Source 
git-svn-id: trunk@57486 -
This commit is contained in:
michael 2018-03-09 11:06:13 +00:00
parent d4f0abbb32
commit 677d92e87b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpreport/design/fpreportdesignobjectlist.pp
View File

@ -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;