Campos de un quick report con color

[*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.