Primeri uporabe objektov v skriptah

Pogledajmo dva primjera korištenja objekata izvještaja u skripti.

Isticanje svake druge linije

Ponekad, kako bismo postigli veću transparentnost, želimo da svaka druga linija bude s različitom pozadinskom bojom.

Pogledajmo primjer skripte koja je definirana za ID stavke kako bi se pojavila u žutoj boji na svakoj drugoj liniji. Kao osnovu, koristit ćemo izvještaj '147 - Trenutna zaliha po skladištima i stavkama', koji je u izborniku programa 'Robu |Izvještaj o zalihama | Trenutna zaliha'. Zamjenjujemo skriptu u događaju "DetailOnBeforePrint" s sljedećim:

procedure DetailOnBeforePrint(Sender: TfrxComponent);
begin
   if <Line#> mod 2 = 0 then
     fIdent.Color := clYellow
   else
      fIdent.Color := clNone;
end;
Vrijednost svojstva boje 'clNone' znači prozirnu boju.

Uvjetna promjena stila fonta

Pogledajmo primjer programske šifre, koja je već na izvještaju '051 - Financijski izvještaj', koji je u izborniku programa 'Financije |Izvještaji | Financijski izvještaji'. Na financijskim izvještajima je polje "acBold" koje definira hoće li se podaci na izvještaju prikazivati podebljanim fontom. Skripta na izvještaju je sljedeća:

procedure fNazivOnBeforePrint(Sender: TfrxComponent);
begin
    if <qReportIzpis."acBold"> = 'T' then
      begin
        fNaziv.Font.Style     := fsBold;
        fVrednost1.Font.Style := fsBold;
        fVrednost2.Font.Style := fsBold;
      end
    else
      begin
        fNaziv.Font.Style     := 0;
        fVrednost1.Font.Style := 0;
        fVrednost2.Font.Style := 0;
      end;
end;​

Vrijednost stila fonta 0 znači da nijedan stil nije odabran. Ako želimo postaviti podebljani i kurzivni font, pišemo na primjer:

fNaziv.Font.Style     := fsBold + fsItalic;