Utilize os componentes do RxLib. O DBGrid torna isso muito fácil.
Com RxDBGrid no evento OnGetCelParams faça como o exemplo:
If odd(TableModule.MovimentaConta.RecNo) then
begin
BackGround := $00DFE7DF;
AFont.Color := ClBlack;
end
else
begin
BackGround := $00F0FFFF;
AFont.Color := ClBlack;
end;
É só um exempl, mas dá pra colorir da cor q vc quiser e como vc quiser.
----- Original Message -----
From: Eneias Sousa Carvalho
To: delphi-br delphi-br ; lista de discussão
Sent: Sunday, July 17, 2005 7:03 PM
Subject: [delphi-br] DBGrid.
Como eu faço para colorir o DBGrid (obs: não quero colorir as letras e sim a
coluna, a letra por default eu escolho a cor) de acordo com as seguintes
situações: Se o valor da mensalidade paga for maior ou igual ao valor da
mensalidade cobrada, a coluna é verde, se for menos a coluna é amarela e se não
tiver pago a coluna é vermelha.
Como eu faço isso, já tentei usando alguns exemplos da internet e
incrementei, só que não deu certo, por exemplo eu faço a seguinte comparação
para atender a questção de uma cor:
if (dm.atFinAluno.FieldByName('ValorPago').AsCurrency >=
dm.atFinAluno.FieldByName('ValorMensalidade').AsCurrency ) then colore a
linha.//ja tentei com AsCurrency, AsInteger, Value e nõa deu certo.
Só que não dá certo, gosdtaria de um exemplo prático se possivel.
Eneias Carvalho.
OBS: quanto ao problema urgente que eu tinha resolvi um deles, se possivel
alguem poderia me falar como faço que para quando o programa for executado pela
primeira vez ele façça uma tarefa?
---------------------------------
Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora!
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.323 / Virus Database: 267.9.0/50 - Release Date: 16/07/05
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
