Mudar Cor de Total do Relatorio
Gostaria de mudar a cor do total quando ele é negativo ficando em vermelho.
Alguem sabe como?
Alguem sabe como?
Anonymous
Curtidas 0
Respostas
Fábio Rodrigues
14/02/2003
vc esta usando quickreport?
em caso afirmativo tente por no evento beforeprint da banda em que esta o componente o seguinte código:
if StrToInt(NomodoLabel.Caption)<0 then
begin
NomedoLabel.Font.Color:=clRed
else
NomedoLabel.Font.Color:=clBlue;
end;
em caso afirmativo tente por no evento beforeprint da banda em que esta o componente o seguinte código:
if StrToInt(NomodoLabel.Caption)<0 then
begin
NomedoLabel.Font.Color:=clRed
else
NomedoLabel.Font.Color:=clBlue;
end;
GOSTEI 0
Fábio Rodrigues
14/02/2003
foi mau, caso o total nao seja um inteiro tente no lugar de:
strtoint(nomedolabel.caption)
use
strtofloat(nomedolabel.caption)
strtoint(nomedolabel.caption)
use
strtofloat(nomedolabel.caption)
GOSTEI 0
Anonymous
14/02/2003
strtofloat(nomedolabel.caption)
Este é o problema.
o valor de nomedolabel.caption é ´SUM(QTDE)´ e não a soma da quantidade se eu usar nomedolabel.value da um erro de conversão.
Este é o problema.
o valor de nomedolabel.caption é ´SUM(QTDE)´ e não a soma da quantidade se eu usar nomedolabel.value da um erro de conversão.
GOSTEI 0