DBGrid com coluna de outra cor

[danielrgoes]

Bom dia pessoal

tenho um DbGrid no meu sistema e gostaria de deixar o que esta escrito em uma coluna com a cor dirferente

ou seja

existem 8 colunas mais somente uma delas gostaria de mudar a cor da fonte

como faço isso

abraços

[Thalles63]

adicione no metodo oncreate do seu form

dbgrid1.Columns.Items[NUMERO DA COLUNA].Font.Color := COR;

//por exemplo

dbgrid1.Columns.Items[0].Font.Color := clRed;

Editado Agosto 7, 2009 por Thalles63

[danielrgoes]

adicione no metodo oncreate do seu form

dbgrid1.Columns.Items[NUMERO DA COLUNA].Font.Color := COR;

//por exemplo

dbgrid1.Columns.Items[0].Font.Color := clRed;

Funcionou muito bem

mais tem um problema

como eu trabalho com status

aguardando (-1)

aprovado (1)

reprovado (0)

quando eu seleciono todos eu gostaria só que os reprovados ficassem vermelho

[robinhocne]

adicione no metodo oncreate do seu form

dbgrid1.Columns.Items[NUMERO DA COLUNA].Font.Color := COR;

//por exemplo

dbgrid1.Columns.Items[0].Font.Color := clRed;

Funcionou muito bem

mais tem um problema

como eu trabalho com status

aguardando (-1)

aprovado (1)

reprovado (0)

quando eu seleciono todos eu gostaria só que os reprovados ficassem vermelho

//informe no Fields a coluna do status

if dbgrid1.Fields[1].AsInteger = 0 then

begin

dbgrid1.Columns.Items[0].Font.Color := clRed;

end;

[Thalles63]

bom.. eu fiz de outra maneira

if column.Field.AsString = '0' then
begin
DBGrid1.Canvas.Brush.Color:= clWhite;
DBGrid1.Canvas.Font.Color:= clRed;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

coloque isso no evento

onDrawColumnCell