RE:Mostrar de otro color una columna de un
Hola:
Deberías precisar más tu duda para podertela aclarar mejor.
En el título pones que quieres cambiar de color una "columna" y después dices que es una "linea".
Tampoco dices qué utilizas para listar: QR, FR, ...
Adivinando que es gerundio... te puedo decir:
Imaginemos que utilizas QuickReport y la linea tienes 3 QRDBText. Puedes poner en el evento OnPrint del primero, que si se cumple una condición sea de color rojo por ejmplo y si no se cumple negro.
Ejemplo: si un valor es negativo que vaya la línea en rojo, si no negro.
procedure TFLisContParti.QRDBText1Print(sender: TObject; var Value: String);
begin
if DM.IBDSPartContaCANTIDAD.AsInteger < 0 then
begin
QRDBText1.Font.Color := clRed;
QRDBText2.Font.Color := clRed;
QRDBText3.Font.Color := clRed;
end
else
begin
QRDBText1.Font.Color := clBlack;
QRDBText2.Font.Color := clBlack;
QRDBText3.Font.Color := clBlack;
end;
end;
Suerte. Virum.