Primeri uporabe objektov v skriptah

Skripta

Primeri uporabe objektov v skriptah

Primer izpisa kode identa v vsaki drugi vrstici, z rumeno barvo

 
Včasih zaradi večje preglednosti želimo, da se vsaka druga vrstica izpiše na ozadju druge barve. Oglejmo si primer programske kode, ki jo bomo opredelili kodi identa, da se bo v vsaki drugi vrstici izpisala v rumeni barvi. Kot osnovo bomo uporabili izpis 147, ki je v programu v meniju Blago | Zaloga | Pregled trenutne zaloge.


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

 

Primer izpisa naziva identa, v vsaki tretji vrstici, z učinkom ležeče in krepko

Oglejmo si primer programske kode, ki jo bomo opredelili kodi identa, da se bo v vsaki tretji vrstici naziv izpisal z učinkom ležeče in krepko. Kot osnovo bomo uporabili izpis 147, ki je v programu v meniju Blago | Zaloga | Pregled trenutne zaloge.
 

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

Vrednost sloga pisave 0 pomeni, da ni izbran noben slog.