Buscar

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;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Componentes
Adicionada dia: 06/06/03
Por: Felipe Monteiro
Visualizada: 4519 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009