Não tenho internet (porta www, 80). Mas tenho email.
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Rubem Nascimento da Rocha
Enviada em: sábado, 7 de julho de 2007 20:31
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: [delphi-br] Mudar Cor de Letra do grid
Prioridade: Alta
Ñ 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).DefaultDrawColum
nCell(Rect, DataCol, Column,
State);endelsebeginTDBGrid(Sender).Canvas.Font.Color :=
clRed;TDBGrid(Sender).Canvas.FillRect(Rect);TDBGrid(Sender).DefaultDrawColum
nCell(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]
[As partes desta mensagem que não continham texto foram removidas]
