Colorir algumas celulas do dbgrid

Question

Como posso colorir algumas celulas de uma linha do dbgrid?At� consegui colorir mas somente consigo fazer a linha inteira ficar colorida....

Pestana_ · Answer

como assim? em qual condi��o voc� deseja colorir a celula do dbGrid?flw....

Roberto Rossi · Answer

ent�o vou resumir para voc�, � um programa de escala de trabalho, ent�o se o conteudo (texto) da c�lula for �FO� a cor de fundo da c�lula tem que ficar na cor vermelha, se for �FE� tem que ficar na cor azul, se for diferente destes dois da� � branco. Tentei seguir umas dicas manipulando o evento ondrawdatacell e ondrawcolumncell mas somente consegui colorir a linha inteira do dbgrid.

Tonidavi2004 · Answer

[b:67bf66cca9]Roberto Rossi[/b:67bf66cca9], vc pode seguir este exemplo:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if DBGrid1.DataSource.DataSet.SeuCampoFO.AsString = �FO� then
  begin
    if Column.Index = 0 then // aqui vc p�e o �ndice da sua coluna FO
    begin
      DBGrid1.Canvas.Brush.Color := clRed;
      DBGrid1.Canvas.Font.Color  := clWhite;
    end;
  end;

  if DBGrid1.DataSource.DataSet.SeuCampoFE.AsString = �FE� then
  begin
    if Column.Index = 2 then // aqui vc p�e o �ndice da sua coluna FE
    begin
      DBGrid1.Canvas.Brush.Color := clBlue;
      DBGrid1.Canvas.Font.Color  := clWhite;
    end;
  end;

  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Facc · Answer

De uma olhada nesse link[url]//www.devmedia.com.br/articles/listcomp.asp?txtsearch=segredos+do+dbgrid&tipo=0&vis=-1&site=36[/url]tem v�rias video-aulas explicando o uso do dbgrid....

Roberto Rossi · Answer

Deu certo... valeu!...

F�rum Colorir algumas celulas do dbgrid #366307