Var
aux : string;
if TabelaEstado.Value<>aux then
if DBGrid1.Canvas.Brush.Color= clWhite then
DBGrid1.Canvas.Brush.Color:= clSilver
else
DBGrid1.Canvas.Brush.Color:= clWhite;
aux:=TabelaEstado.Value;
----- Original Message -----
From: "Eduardo Galvão" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, September 16, 2004 4:34 PM
Subject: Re: [delphi-br] DBGRID zebrado - mas diferente dos habituais
> Olá,
>
> > no OnDrawColumnCell coloque
> >
> > if TabelaEstado.Value='BA' then
> > DBGrid1.Canvas.Brush.Color:= clWhite;
> >
> > if TabelaEstado.Value='MG' then
> > DBGrid1.Canvas.Brush.Color:= clSilver;
>
> Ah, não, mas assim não vale :-)))
>
> Veja bem, eu dei um exemplo, na verdade, no lugar
> do estado, eu posso ter qualquer valor, entendeu?
>
> Ou seja, quando este valor MUDAR, eu tenho
> de mudar a cor de fundo.
>
> Saudações,
> Eduardo Paci Galvão
> Engenheiro UFMG 1990
> Belo Horizonte - Brasil
> www.egalvao.com.br
>
>
--
<<<<< 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
