Fórum Marcar um registro com Cor no DBGrid??? #221714
23/03/2004
0
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
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
Curtir tópico
+ 0
Responder
Posts
23/03/2004
Omar Cury
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;
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;
Responder
Gostei + 0
23/03/2004
Fabio.hc
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)