Примери за употреба на објекти во скриптите

Да погледнеме два примера за користење на извештајни објекти во скриптот.

Истакнување на секој втор ред

Понекогаш, за да постигнеме поголема транспарентност, сакаме секој втор ред да се појавува со различна позадинска боја.

Да погледнеме пример на скрипта која е дефинирана за ID на ставката за да се појави во жолта боја на секој втор ред. Како основа, ќе користиме извештај '147 - Тековен Склад по Складишта и Ставки', кој е во програмското мени 'Стоки |Извештај за Склад | Тековен склад'. Ние го заменуваме скриптот во настанот "DetailOnBeforePrint" со следново:

процедура DetailOnBeforePrint(Sender: TfrxComponent);
почеток
   ако <Line#> mod 2 = 0 тогаш
     fIdent.Color := clYellow
   инаку
      fIdent.Color := clNone;
крај;
Вредноста на својството Color 'clNone' значи транспарентна боја.

Условно менување на стилот на фонтот

Да погледнеме пример на програмски код, кој веќе е на извештај '051 - Финансиски Извештај', кој е во програмското мени 'Финансии |Извештаи | Финансиски Извештаи'. На финансиските извештаи има поле "acBold" кое дефинира дали податоците на извештајот ќе се прикажуваат со дебел фонт. Скриптот на извештајот е следниот:

процедура fNazivOnBeforePrint(Sender: TfrxComponent);
почеток
    ако <qReportIzpis."acBold"> = 'T' тогаш
      почеток
        fNaziv.Font.Style     := fsBold;
        fVrednost1.Font.Style := fsBold;
        fVrednost2.Font.Style := fsBold;
      крај
    инаку
      почеток
        fNaziv.Font.Style     := 0;
        fVrednost1.Font.Style := 0;
        fVrednost2.Font.Style := 0;
      крај;
крај;​

Вредноста на стилот на фонтот 0 значи дека не е избран никаков стил. Ако сакаме да поставиме дебел и италијански фонт, пишуваме на пример:

fNaziv.Font.Style     := fsBold + fsItalic;