Primeri upotrebe objekta u skriptama

Skripta

Primeri upotrebe objekata u skriptama

Primer ispisa koda identa u svakom drugom redu, sa žutom bojom

 
Zbog veće preglednosti želimo, da se svaki drugi red ispisuje žutom bojom u pozadini. 

Pogledajmo primer programskog koda, koji će opredeliti kod identa, koji će se u svakom drugom redu ispisati žutom bojom. Kao osnovu ćemo koristiti ispis 147, koji je u programu u meniju Roba | Zaliha | Pregled trenutne zalihe.


  procedure DetailOnBeforePrint(Sender: TfrxComponent);
  begin
    if <Line#> mod 2 = 0 then
      fIdent.Color := clYellow
    else
      fIdent.Color := clNone;
  end;

 

Primer ispisa naziva identa, u svakom trećem redu sa efektom italic i bold

Pogledajmo primer programskog koda, koji će opredeliti kod identa, da se u svakom trećem redu naziv ispisuje sa efektom italic i bold. Kao osnovu ćemo koristiti ispis 147, koji je u programu u meniju Roba | Zaliha | Pregled trenutne zalihe.
 

procedure DetailOnBeforePrint(Sender: TfrxComponent);
  begin
    if <Line> mod 3 = 0 then
      fNaziv.Font.Style := fsItalic +
fsBold                                                                
    else 
      fNaziv.Font.Style := 0;
  end;

Vrednost stila fonta 0 znači da nije izabran nijedan stil.