Primer - objekt Engine

Primer - objekt Engine

Spodnji primer je predstavljen na izpisih 09K in 24J. Želimo doseči, da se posebna položnica, ki je pas vrste ReportSummary, vedno natisne na spodnji rob strani. Najprej preverimo ali je na strani še dovolj prostora. Če ga ni, se postavimo na novo stran. Potem še določimo pozicijo za tiskanje tako, da se položnica natisne na spodnji rob strani.

procedure PosebnaPoloznicaOnBeforePrint(Sender: TfrxComponent);
begin
   CallQRBeforeBandPrint(Sender, TfrxBand(sender).visible);
   if Engine.CurY >
     Engine.CurY + Engine.FreeSpace - PosebnaPoloznica.Height - 1 then
       Engine.NewPage;                                   
   Engine.CurY := Engine.CurY + Engine.FreeSpace - PosebnaPoloznica.Height - 1;
 end;