DbGrid en color

[marcoszorrilla]

Código Delphi [-]
    begin
   if DataCol=TStringGrid(Sender).LeftCol-0 then
     if (qryPendientesFechaActivacion.AsDateTime < =Now)then
     UnColor:=clRed
     else
     UnColor:=clBlack;
 
     with (Sender As TDBGrid).Canvas do
     begin
     Font.Color:=UnColor;
     FillRect(Rect);
     TextOut(Rect.Left, Rect.Top, Column.Field.AsString);  end;
     end;
 end;
 

Código Delphi [-]

 

Un Saludo.

[ramonibk]

Bueno he probado lo que me comentas

if

 (qryPendientesFechaActivacion.AsDateTime < =Now)

Pero me sigue dando problemas
en este caso me marca en rojo las fechas del dia aunque la hora sea posterior a la actual.

[ramonibk]

Bueno al final lo que he echo es intentar poner todas las posibilidades
y lo he montado de esta manera

begin
 if DataCol=TStringGrid(Sender).LeftCol-0 then
	if (qryPendientesFechaActivacion.AsDateTime < Date)
	  then UnColor:=clRed
	  else UnColor:=clBlack;
	if (qryPendientesFechaActivacion.AsDateTime = Date) And (qryPendientesHoraActivacion.AsString < Hora)
	  then UnColor:=clRed
	  else UnColor:=clBlack;
  with (Sender As TDBGrid).Canvas do
  begin
	Font.Color:=UnColor;
	FillRect(Rect);
	TextOut(Rect.Left, Rect.Top, Column.Field.AsString);
  end;
end;

Por cierto la variable Uncolor es una bariable global de tipo TColor