Hola Darkseratul.
Cita:
(para el modelador por favor ayúdame no me pongas cosas como "busca en el foro" o checa estos link de la parte de abajo "ya he buscado por días y nadie a puesto este tipo de pregunta no es por se grasero pero eso no me ayuda gracias por tu tiempo.)
|
Acabo de revisar: De los temas comenzados por vos, en todos tuviste una respuesta dirécta y en uno sólo te sugirieron mirar enlaces (y todos estaban relacionados con tu pregunta). Así que no entiendo el por que del pedido...
Si algún moderador o compañero te sugiere que busques en el foro es por que el tema por el que preguntas se ha tratado muchas veces. (Seguramente
con pequeñas variantes sobre las que deberás trabajar un poco). Si encima se toma la molestia de buscar por vos y poner "los links en la parte de abajo", deberías estarle muy agradecido por que aquí tampoco se recibe dinero alguno.
Bueno, ahora a tu pregunta.
Este código te va a poner la linea en rojo con letras blancas, cuando encuentre un registro cuyo campo 'TU_CAMPO' (no pusiste el nombre del campo)
tenga más de 15 días:
Código Delphi
[-]
uses DateUtils;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DaysBetween(Now,DBGrid1.DataSource.DataSet.FieldByName('TU_CAMPO').Value) > 15 then
begin
DBGrid1.Canvas.Brush.Color:= clRed;
DBGrid1.Canvas.Font.Color:= clWhite;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;
Si deseas que parpadee, lo podés investigar (pista:
TTimer), ahora si te da pereza... ¡ A llamar al programador profesional !
Un saludo.