Colorir celula DBGrid

Question

Caros amigos estou com a seguinte dúvida:Como posso fazer para colorir a celula do dbgrid na seguinte situação: if tempo1 > tempo2 then begin   dbgrid.CelulaQueGuardaOTempo := Verde; else begin   d...

Woinch · Answer

Você pode fazer isso utilizando o evento OnDrawDataCell do DBGrid. Veja um exeplo:

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
 
begin
  DBGrid1.Canvas.Brush.Color := clRed; //Pinta de vermelho o fundo de todas as células do DBGrid
end;

Apenas adapte esse exemplo para a sua situação.
Espero ter ajudado.

Ricklorente · Answer

Amigo, obrigado pela ajuda, porém eu quero pintar somente as celulas da coluna x e não a linha inteira.Obrigado....

Woinch · Answer

Para isso basta utilizar a propriedade Field desse evento.
Veja:

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  if ((gdSelected in State) and
      (gdFocused in State)) then
    DBGrid1.Canvas.Font.Color := clBlack;
 
  if (Field.FieldName = ´NomeDaColuna´) then
    DBGrid1.Canvas.Brush.Color := clRed;
 
  DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;

Fórum Colorir celula DBGrid #369088