Promena koordinata

Promena koordinata objekata

Primer preoblikovanja benda DetailFooter na ispisu 241

Ispis ćemo promeniti u oblik, kao što je prikazan na donjoj slici.



Izbrišemo identifikacioni broj za PDV, postavimo zaglavlje sa tekstom podnatpis Za plaćanje i natpis za sumu plaćanja podnatpis Za tekst.

Sve objekte, povezane sa ratama, pomerimo nagore.

U kodu dopišemo:

  procedure DetailFooterOnBeforePrint(Sender: TfrxComponent);
  begin
    CallQRBeforeBandPrint(Sender, TfrxBand(sender).visible);
    dlLoca0021.Top := lSpodaj.Top;
    lZBesedo.Top := dlLoca0021.Top + dlLoca0021.Height;
// ta pogoj je tu, da ne odrežemo obrokov
     if DetailFooter.Height < lZBesedo.Top + lZBesedo.Height + 0.3 * fr1cm then
  DetailFooter.Height := lZBesedo.Top + lZBesedo.Height + 0.3 * fr1cm;
  end;