Primjer - uslovno farbanje

Primer uporabe pogojnega barvanja na izpisu 164

Odprimo izpis 164 – Obračun izdanih računov, ki je v programu v meniju Blago | Obračun računov | Obračun izdanih računov in razlike v ceni in ustvarimo varnostno kopijo. Izpis odprimo v oblikovalniku izpisov. Na izpisu bomo vse vrednosti (polje Vrednost), večje od 1000 €, izpisali z rdečo barvo na rumenem ozadju.

Izberemo objekt s poljem acValue in izberimo gumb   na orodni vrstici za oblikovanje besedila. Odpre se nam pogovorno okno na sliki

Pogovorno okno za pogojno barvanje kode

Za pogoj v polje Condition napišemo <qReportIzpis."acValue"> > 1000. Izberemo še barvo pisave (Font) in ozadja (Background)
Shranimo izpis in si ga ogledamo v predogledu. Rezultat prikazuje spodnja slika.





 

Primer uporabe pogojnega barvanja - naziv identa izpišemo krepk, z modro pisavo

V vseh sodih vrsticah vrstice v pasu MasterData bomo naziv identa izpisali krepko, z modro pisavo.

Objekt označimo, izberemo gumb   ter v oknu Highlight kot pogoj vpišemo

<Line#> mod 2 = 0

<Line#> predstavlja številko zapisa v tabeli, mod pa funkcijo modulo – ostanek pri deljenju.
 



 

Primer uporabe pogojnega barvanja - omejitev nabora izpisanih podatkov

Če hočemo, da se podatki o identih, ki imajo vrednost manjšo ali enako 1000 €, ne izpišejo, ni dovolj, da besedilo izpišemo z belo barvo, ker tako dobimo prazne vrstice, ampak moramo na zavihku Code napisati vrstico kode, ki je označena s krepko pisavo
 

procedure DetailOnBeforePrint(Sender: TfrxComponent);

begin

  CallQRBeforeBandPrint(Sender, TfrxBand(sender).visible);

  Detail.visible := <qReportIzpis."acValue"> > 1000;

end;