Cita:
Empezado por Casimiro Notevi
Te falta "repintarlo" con los cambios, algo así:
Código Delphi [-]if Column.Field = ClientDataSet1SALDO then
if ClientDataSet1SALDO.AsCurrency < 200 then
begin
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.DefaultDrawDataCell(rect,Column.Field,State);
end;
|
Hola Casimiro gracia por tu extrema rápida respuesta
:
cabe señalar que
Código Delphi
[-]
DBGrid1.Canvas.Font.Color := clRed; DBGrid1.DefaultDrawDataCell(rect,Column.Field,State);