Marcar um registro com Cor no DBGrid???

Delphi

23/03/2004

Pessoal
Preciso fazer com que um determinado registro fique de uma cor no DBGrid, quando eu impor uma condição a ele exemplo:

Quero que o registro que contem o campo DATA_EXPIRAÇÃO tiver a condição de ser igual a Data atual fique em vermelho.
Estou tentando coloca-lo mas não obtive exito ainda

Alguem poderia me ajudar?



[]´s

Marcos P. Marchette


Marcosmp

Marcosmp

Curtidas 0

Respostas

Omar Cury

Omar Cury

23/03/2004

Tente assim

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if Table1.FieldByName(´Pagou´).Value = True then
DBGrid1.Canvas.Brush.Color := clGreen
else
DBGrid1.Canvas.Brush.Color := clRed;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawDataCell(Rect,Field,State);
end;


GOSTEI 0
Fabio.hc

Fabio.hc

23/03/2004

Tente assim:

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; 
  Field: TField; State: TGridDrawState); 
begin 
   If Table1DATA_EXPIRAÇÃO.value  = date  then 
      Dbgrid1.Canvas.Brush.Color:= clREd;
   Dbgrid1.DefaultDrawDataCell(Rect, field, State); 
end;



GOSTEI 0
POSTAR