Buscar por:

Como trocar a cor do texto de uma coluna do dbgrid?

Código

Procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; 

  const Rect: TRect; DataCol: Integer; Column: TColumn; 

  State: TGridDrawState); 

begin 

  // Troca a cor de fundo do DBGrid 

  DBGrid1.Canvas.Brush.Color := clAqua; 

  if Column.Index = 1 then 

  begin 

  // Troca a cor do texto de uma coluna 

  DBGrid1.Canvas.Font.Color := clOlive; 

  end 

  else 

  DBGrid1.Canvas.Font.Color := clRed; 

  DBGrid1.Canvas.FillRect(Rect); 

  DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString); 

end;