Uporaba objekta "Engine"

Uporaba objekta "Engine"

Že smo povedali, da objekt "Engine" predstavlja motor poročila, ki upravlja sestavo poročila. Postopek razporejanja pasov na strani lahko upravljamo z uporabo lastnosti in metod motorja. Najprej nekaj teorije.

Diagram spodaj prikazuje različne dimenzije strani poročila.

Fizične dimenzije strani so lastnosti "PaperWidth" in "PaperHeight", vidne v inšpektorju objektov, ko je stran izbrana. Tako je velikost A4 strani 210 x 297mm.

"PageWidth" in "PageHeight" sta dimenziji tiskljivega območja, ki je običajno manjše od fizičnih dimenzij strani. Velikost tiskljivega območja je odvisna od lastnosti strani poročila "LeftMargin", "TopMargin", "RightMargin" in "BottomMargin". Velikost tiskljivega območja v slikovnih pikah vrne funkciji "Engine.PageWidth" in "Engine.PageHeight".

Na koncu je "FreeSpace" višina prostega prostora na strani. Če je na strani pas "Page Footer", se njegova višina upošteva pri izračunu "FreeSpace". Ta višina se vrne v slikovnih pikah z funkcijo "Engine.FreeSpace". Upoštevajte, da se po prikazu naslednjega pasu prosti prostor zmanjša na strani, to se upošteva pri izračunu "FreeSpace".

Kako so sestavljene strani poročila? Jedro FastReport prikazuje pasove na strani, dokler je dovolj prostega prostora. Ko prostega prostora ni več, se natisne pas "Page Footer" (če je potrebno) in ustvari se nova prazna stran. Kot že omenjeno, se po prikazu naslednjega pasu višina prostega prostora zmanjša. Poleg tega se prikaz naslednjega pasu začne od trenutne pozicije, ki jo določajo koordinate na osi X in osi Y. Trenutna pozicija se vrne z "Engine.CurX" in "Engine.CurY". Po tisku naslednjega pasu se CurY samodejno poveča za višino natisnjenega pasu. Po ustvarjanju nove strani "CurY" enako "0." "CurX" se spremeni pri tisku večkolumnskih poročil.

"Engine.CurX" in "Engine.CurY" sta na voljo ne le za branje, temveč tudi za pisanje. To pomeni, da je mogoče pasove premikati z povečevanjem ali zmanjševanjem teh vrednosti. Na primer, v poročilu, ki je podobno temu:

To se lahko natisne na naslednji način:

To dosežemo z zapisovanjem obdelovalca za dogodek pasu "OnBeforePrint":

postopek MasterData1OnBeforePrint(Sender: TfrxComponent);

začni

  Engine.CurX := Engine.CurX + 5;

konec;

Sprememba "CurY" lahko povzroči prekrivanje pasov, na primer:

Doseženo s tem skriptom:

postopek MasterData1OnBeforePrint(Sender: TfrxComponent);

začni

  Engine.CurY := Engine.CurY - 15;

konec;

Metoda "Engine.NewPage" vstavi prelom strani na katerem koli zahtevanem mestu v poročilu, po katerem se tiskanje nadaljuje od vrha nove izhodne strani. V našem primeru se lahko prelom vstavi po tisku drugega zapisa:

postopek MasterData1OnAfterPrint(Sender: TfrxComponent);

začni

   če <Line> = 2 potem

     Engine.NewPage;

konec;

Upoštevajte, da smo uporabili dogodek "OnAfterPrint" (to pomeni, po tem, ko je bil pas natisnjen). Prav tako upoštevajte, da sistemska spremenljivka "Line" vrne zaporedno številko zapisa.

Metoda "Engine.NewColumn" vstavi prelom stolpca v večkolumnskih poročilih. Če na strani ni več prostih stolpcev, se ustvari nova stran.

Račun z plačilnimi nalogi

Naslednji primer je predstavljen na izpisu nalogov in računov s plačilnimi nalogi. Na voljo so le za slovensko in hrvaško zakonodajo. Takšna poročila so '2U2 - Račun - UPN - Oblika' za slovensko in '2U7 - Račun - HUB 3A - Oblika' za hrvaško zakonodajo. Oblikovanje teh poročil lahko vidite, če odprete oblikovalnik poročil iz registra poročil.

Želimo natisniti plačilni nalog vedno natančno na dnu strani. Da bi to obnašanje prisilili, nastavimo trenutno vertikalno pozicijo (Engine.CurY) povzetka poročila tako, da je dovolj prostora za prikaz na tej strani. To storimo z naslednjo kodo:

postopek UPNOnBeforePrint(Sender: TfrxComponent);
začni
  ...
  Engine.CurY := Engine.CurY + Engine.FreeSpace - UPN.Height - 1;
konec; 

Ko ustvarjamo poročilo, se plačilni nalog prekriva z obstoječim besedilom, če je previsok. Zato moramo popraviti našo kodo, da v tem primeru natisnemo plačilni nalog na naslednji strani.

postopek UPNOnBeforePrint(Sender: TfrxComponent);
začni
  ...
  če Engine.CurY > Engine.CurY + Engine.FreeSpace - UPN.Height - 1 potem
    Engine.NewPage;  
  Engine.CurY := Engine.CurY + Engine.FreeSpace - UPN.Height - 1;
konec;