Lazarus

Programming => Packages and Libraries => LazReport => Topic started by: critter on May 11, 2020, 05:53:52 pm

Title: Problem printing totals on an invoice
Post by: critter on May 11, 2020, 05:53:52 pm
Hello friends, I would need some help and give me ideas on how to correct the problem. I am porting to delphi an application I made a long time ago and in printing the invoice with fastreport I used the following procedure to position the invoice summary before the footer, but it seems that lazreport does not have the FreeSpace variable. Could you tell me how to calculate the value of FreeSpace? Thank you.

Code: Pascal  [Select][+][-]
  1. procedure MasterDataTotalBandBeforePrint(Sender: TfrxComponent);
  2. begin
  3.   // See if there's room for the band between the bottom of the last
  4.   // band (MasterDataDetail) and the footer and page footer.
  5.  
  6.   if Engine.FreeSpace > MasterDataTotalBand.Height + FooterBand1.Height +
  7.                         PageFooter1.Height + 5 then
  8.     Engine.CurY := Engine.CurY + 5;
  9. end;
  10.  
TinyPortal © 2005-2018