Campos de un quick report con color

[NestorN]

Hola gente; les comento que tengo un DBgrid con el evento OnDrawColumCell; Lo que hago es a los campos de una table le asigno un determinado color.
Mi consulta es como hacer para que en un reporte (utilizo quickReport) aparescan los campos con los colores que aparecen en el DBGrid.
Gracias de ante mano.

[marcoszorrilla]

En el evento que mencionas seguro que estableces una comparación para dependiendo del resultado atribuirles un color o no.

Puedes hacer lo mismo en QuickReport evento BeforePrint del campo a tratar.

Un Saludo.

[*Caro*]

Hola, como te dice el amigo marcos, seguro que tienes una condiición para pintar de un color u otro. Para hacer ese pintado en un QuickReport yo lo haría en el evento OnPrint digamos de tu QrDBText.

Código Delphi [-]
procedure TQuickReport.QRDBText1Print(sender: TObject; var Value: String);
begin
 if (Value = '1') then
  QRDBText1.Font.Color := clYellow
 else
  QRDBText1.Font.Color := clBlack;
end;

Nota.- En el evento BeforePrint supongo del QuickReport nose como se haría.

Saluditos

[NestorN]

Hola muchas gracias por la ayuda, con el evento BeforePrint me anduvo bien.

Código Delphi [-]
      
if form1.tabla1Id_Estado.Value = 2 then
  begin
         QRDBText1.Font.Color:=clred;
   end
else
     QRDBText1.Font.Color:=clGreen;

Gracias por la ayuda de todos.