Hola de nuevo DarkSeratul.
Lo prometido es deuda. Este código pone en rojo sólo aquellas celdas que contengan un
TDateTimeField y su valor supere los 15 días a la fecha:
Código Delphi
[-]
uses DateUtils;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (Column.Field is TDateTimeField)and
(DaysBetween(Now,Column.Field.Value) > 15) then
begin
DBGrid1.Canvas.Brush.Color:= clRed;
DBGrid1.Canvas.Font.Color:= clWhite;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;
Un saludo.
![Smilie](http://www.clubdelphi.com/foros/images/smilies/smile.gif)