Campos do DBgrid com cores....

Delphi

20/04/2004

Ola este codigo deixa a linha de um dbgrid colorido...

If Datamodule2.ADOColeta.FieldByName(´gc_b´).AsString < Datamodule2.ADOColeta.FieldByName(´gc_n´).AsString Then
dbgrid1.Canvas.Font.Color := clred;  // define cor
DBgrid1.DefaultDrawDataCell(Rect,dbgrid1.Columns[DataCol].Field,state);  // exibe


como fazer para deixar somente um campo colorido ao invés de deixar a linha de todos os campos.... ????

gostaria de deixar somente o campo gc_b com outra cor... como fazer???


Danielvbhp

Danielvbhp

Curtidas 0

Respostas

Fer_nanda

Fer_nanda

20/04/2004

isso muda a cor de uma célula 
if (Column.Field.FieldName = ´NOMEDOCAMPO´) then
begin
if condição then // coloque aqui sua condição
begin
DBGrid1.Canvas.Brush.Color:= clAqua;
DBGrid1.Canvas.Font.Color:= clWindowText;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;



mas se vc quiser deixar toda a coluna referente ao campo de uma determinada cor, pode colocar isso 
dbgrid.Columns[0].Color := clRed;



GOSTEI 0
POSTAR