(Resolvido) Mudar cor de Fonte de QRBandText

[robinhocne]

Fiz um relatorio em Quick Report, e tenho um campo tipo que me fala se é E (Entrada) e S (Saida), queria que quando fosse S ficaria a linha em vermelho e se fosse E verde, os dados que mostra o tipo é buscado pelo componente ( QRDBText )....como posso fazer ?

Editado Julho 15, 2009 por robinhocne

[Jhonas]

exemplo

procedure TForm1.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
   if tipo = 'S' then
      QRDBText1.Font.Color := clRed
   else
      QRDBText2.Font.Color := clBlue;
end;

abraço

[robinhocne]

exemplo

procedure TForm1.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
   if tipo = 'S' then
      QRDBText1.Font.Color := clRed
   else
      QRDBText2.Font.Color := clBlue;
end;

abraço

Resolvido

if DtmFin.QryRelatorio.FieldByName('Tipo').AsString = 'S' then
     begin
       QRDBText9.Font.Color := clRed;
       QRDBText1.Font.Color := clRed;
       QRDBText2.Font.Color := clRed;
       QRDBText4.Font.Color := clRed;
       QRDBText3.Font.Color := clRed;
       QRDBText5.Font.Color := clRed;
       QRDBText6.Font.Color := clRed;
     end;