Foros Club Delphi - Ver Mensaje Individual

*Caro* · #3 27-10-2008

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