Ñ tem net? Então como foi que postou a dúvida na lista? :-)
Sds.
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Sat, 7 Jul 2007 20:29:30
-0300Subject: Re: [delphi-br] Mudar Cor de Letra do grid
Ta na mão !!!procedure TFrmCadTipoTransacoes.grdPadraoDrawColumnCell(Sender:
TObject;const Rect: TRect; DataCol: Integer; Column: TColumn; State:
TGridDrawState);beginif TDBGrid(Sender).DataSource.DataSet.RecordCount > 0
thenbeginif TDBGrid(Sender).DataSource.DataSet.FieldByName('Valor').AsFloat >=
0 then // coloque aqui sua condiçãobegin//TDBGrid(Sender).Canvas.Brush.Color :=
clWindows; Se você quiser alterar a cor da
linhaTDBGrid(Sender).Canvas.Font.Color := clBlue; // Altera a cor da
FONTE.TDBGrid(Sender).Canvas.FillRect(Rect);TDBGrid(Sender).DefaultDrawColumnCell(Rect,
DataCol, Column, State);endelsebeginTDBGrid(Sender).Canvas.Font.Color :=
clRed;TDBGrid(Sender).Canvas.FillRect(Rect);TDBGrid(Sender).DefaultDrawColumnCell(Rect,
DataCol, Column, State);end;end;end;EduardoAlessandro Magno de Paula
escreveu:>> Galera,>> Não tenho acesso à internet para ver se já teve esta
pergunta.>> Quer, mudar cor das letras no grid, dependendo de um valor no
banco, > exemplo>> Crédito quero colocar azul> Débido quero colocar vermelho>>
Alguém pode me dar uma dica??>> [As partes desta mensagem que não continham
texto foram removidas]>>
_________________________________________________________________
Encontre o que procura com mais eficiência! Instale já a Barra de Ferramentas
com Windows Desktop Search GRÁTIS!
http://desktop.msn.com.br/
[As partes desta mensagem que não continham texto foram removidas]
