mudar a cor da fonte - DBgrid

Delphi

29/01/2004

Boa tarde a todos,

Minha dúvida é como eu posso manipular a cor da fonte de um valor vindo do banco de dados.

Por exemplo: se o valor do campo aprovado for ´Nao´, mudar a cor da fonte para vermelho.

Agradeço qualquer ajuda ....


Fabiana Linden
-----------------------
analista de sistemas


Falinden

Falinden

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

29/01/2004

Tente assim:

procedure TForm1.GridDrawDataCell(Sender: TObject; const Rect: TRect; 
  Field: TField; State: TGridDrawState); 
begin 
   if Table1.FieldByName(´APROVADO´).value = ´NÃO´ then begin 
      Grid.Canvas.Font.Color:=clRed; 
      Grid.Canvas.FillRect(Rect); 
      Grid.Canvas.TextOut(Rect.Left+2, Rect.Top+2, Field.Text); 
   end; 
end;



GOSTEI 0
Falinden

Falinden

29/01/2004

Olá, Fabio.

Agradeço a sua resposta, porém ainda não deu certo. Estou usando um DBgrid ...


Fabi


GOSTEI 0
POSTAR