Discussion :

[marcootz]

Salut à tous,

Je vous demande votre aide pour quelque chose tout simple mais qui me bloque :

Sur un quickreport j'ai des TQRDbText disposés sur une detailBand. Si la valeur que j'inscrit dans ce label est <1 j'aimerais le mettre en couleur rouge. Je suis donc passé par l'évenement "onPrint" du label :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
void __fastcall TFQROutillage::labelRestePrint(TObject *sender,
      AnsiString &Value)
{
	if(Value.ToInt() < 1){
        	*sender->Color=clRed;
        }
}

Je pense que je n'utilise pas la bonne syntaxe sur le *sender. Quelqu'un à t'il une idée ??
Merci
A+

[blondelle]

Salut marcootz
Ce ne serait pas " TObject *Sender " au lieu de " TObject *sender "

[marcootz]

Salut Blondelle,

Euh non ma fonction est bien définie avec TObject *sender...

J'ai essayer avec Sender mais ca ne passe pas.

[sat83]

Si ton label est un TQRLabel essai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

((TQRLabel *)sender)->Color = clRed;

[marcootz]

Salut Sat83,

J'ai essayé ton code, ca compile mais tous les QRLabels sont mis en rouge, même si ils ne vérifient pas la condition. L'événement "onPrint" est pourtant appelé pour tous les TQRLabels mais ça les met tous en rouge.
Avez vous une autre petite idée ?
Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if(Value.ToInt()<1){
        	((TQRLabel *)sender)->Color = clRed;  //tous en rouge
        }

[marcootz]

Je ne sais pas si ça peut changer quelque chose mais il s'agit en fait de QRDbText et non pas de QRLabel...
Désolé pour mon erreur