Mudar cor da fonte conforme condição

Delphi

14/11/2003

Tenho um relatório e quero que todos os valores menores que R$500,00 apareçam em vermelho e todas as datas de nascimento anteriores a 1960 apareçam em verde, como faço isso?


Obrigado
:oops:


Anjo Azul

Anjo Azul

Curtidas 0

Respostas

Denis

Denis

14/11/2003

Se o seu relatório for em quickreport, faça o seguinte.

Na band detail do seu relatório, coloque o código no envento before print.

if valor <500 then
Lbvalor.fontcolor := clred
else
Lbvalor.fontcolor := clWindowText;
//--------------------
if Nascimento < StrToDate(´01/01/1961´) then
LbNascimento.fontcolor := clgreen
else
LbNascimento.fontcolor := clWindowText;

onde valor e nascimento vc. terá que substituir pelo seu campo.


GOSTEI 0
POSTAR