Registro con otro color!!!

[CarlosHernandez]

hola amigos del foro...


estoy trabajando con Quickreport, y necesito que cuando en un qrdbtext sea un valor determinado(ejem 1) cambie de color (rojo) y cuando sea 2 otro color(verde)....

ya utilice el beforeprint y logro cambia el color pero de todos los datos del reporte, es decir toda esa columna.....


gracias...........

[fidel]

Hola:

Pon la condición en el evento OnPrint del QRDBText

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

Un saludo.