Ver Mensaje Individual
  #7  
Antiguo 08-04-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita