PDA

Ver la Versión Completa : Campos de un quick report con color


NestorN
27-10-2008, 15:16:43
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
27-10-2008, 15:19:32
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
27-10-2008, 15:59:28
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.


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
28-10-2008, 20:59:02
Hola muchas gracias por la ayuda, con el evento BeforePrint me anduvo bien.

if form1.tabla1Id_Estado.Value = 2 then
begin
QRDBText1.Font.Color:=clred;
end
else
QRDBText1.Font.Color:=clGreen;

Gracias por la ayuda de todos.