dbgrid!??!?!

[GicaLilica 0]

Ola pessoal..tipo assim:

Eu tenho um grid onde vou colocando as coisas a serem feitas.

Daí em cadas linha eu tenho status,de como a coisa ta indo. Tenho: aguardando,em andamento e pronto.

Que quero deixar em vermelho no grid o nome Aguardando...e nas linhas que tiverem esse status, a letra ficar vermelha. Daí nas outras linhas terá o em andamento que quero a letra em azul e o pronto em verde. Porem o que eu fiz deixa todas as linhas d euma cor só ..ou vermelho ,ou azul ou verde...

 

Eu coloquei:

 

if reciclando.DBGrid1.Columns[5].Field.Text = 'Em Andamento' then

reciclando.DBGrid1.Columns[5].Font.Color:=clBlue;

 

if reciclando.DBGrid1.Columns[5].Field.Text = 'Pronto' then

reciclando.DBGrid1.Columns[5].Font.Color:=clGreen;

 

if reciclando.DBGrid1.Columns[5].Field.Text = 'Aguardando' then

reciclando.DBGrid1.Columns[5].Font.Color:=clRed;

 

mas o grid “pega” so uma das cores pra todos os status...entendem o que quero?

Alguém já fez isso?

Beijos e obrigada

Gi

http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif http://forum.imasters.com.br/public/style_emoticons/default/cry.gif http://forum.imasters.com.br/public/style_emoticons/default/bye1.gif

[proteus 0]

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;  DataCol: Integer; Column: TColumn; State: TGridDrawState);begin  if dataCol = 1 then  begin     dbgrid1.Canvas.Font.Color:=clBlack;     if Column.Field.AsString = 'MG' then       dbgrid1.Canvas.Font.Color:=clBlue     else if Column.Field.AsString = 'RJ' then        dbgrid1.Canvas.Font.Color:=clGreen;  end;end;