ActiveDelphi

[aline_amorim]

Galera criei o relatorio rave via codigo no delphi e tenho no evento onprint
do rvsystem o seguinte codigo:
procedure TForm1.RvSystemMPPrint(Sender: TObject);
begin
with Sender as TBaseReport do
begin
SetFont('Arial',9);
Bold := False;
material.First;
material.DisableControls;
while not material.Eof do
begin
RestoreTabs(1);
PrintLeft(materialMAT_DESCRICAO.AsString,4);
PrintLeft(materialMAT_ID.AsString,1.2);
PrintRight('R$ '+ materialMAT_PRECO_COMPRA.AsString,13.6);
PrintRight('R$ '+ materialMAT_PRECO_VENDA.AsString,19.3);
material.Next;
NewLine;
end;
material.EnableControls;
end;
end;
até aqui blz ele gera o relatorio com os dados tudo direitinho. A duvida é eu quero mudar a cor da fonte do campo materialMAT_DESCRICAO no relatorio quando o valor do MAT_PRECO_VENDA for maior que 5. Já tentei de todas a formas mas nao consegui alguem pode me ajudar?

[russo_bradock]

Cara, tenta inserir esse codigo antes de imprimir a descricao:

if materialMAT_PRECO_VENDA.AsCurrency >5 then
FontColor:=clRed
else
FontColor:=clBlack;

Lembre tambem de colocar o FontColor:=clBlack após a impressao da descricao, pois caso ele mude para vermelho dara problema se nao informar esse codigo.

Espero ter ajudado, qualquer coisa me chama no msn rafaelrossi_ibira@yahoo.com.br