Colorier en fonction de la valeur

[cyrilleT]

Bonjour à tous,

je souhaite colorier un DataText en fonction de sa valeur :
jaune = 0
vert < 0
rouge > 0

comment faire en utilisant les évenements OnBeforePrint ?

Est plus simple si le traitement se fait à partir de Delphi ?

Merci, Cyrille.

[cyrilleT]

Voici le texte inséré dans l'evenement OnBeforePrint du texte que je souhaite modifier :

if StrToInt(self.text) < 5 then
self.color:=clgreen;

else self.color:=clred;
end if;

Question 1 : Comment peux t'on changer la fonte ?

Question 2 : Si je transtipe une valeur nulle, je déclenche une exception. Comment l'éviter.

Merci, Cyrille.

[cyrilleT]

Placer un rectangle derriere le DataText et le peindre en fonction de la valeur :

if StrToFloat(Self.text) > 0 then
Self.Color:=clWhite;
Rectangle1.FillColor:=clGreen;
end if;

PS : Je n'ai toujours pas de solution pour la gestion des Exeptions.