P�e isso no evento ondrawcolumncell do Grid
//*********pinta a linha da c�lula*************************//
if not odd(DataModule.ClientDataSet1.RecNo) then
if not (gdSelected in State) then
begin
DBGrid1.Canvas.Brush.Color := $00FFEFDF;
DBGrid1.Canvas.FillRect(rect);
DBGrid1.DefaultDrawDataCell(rect,Column.Field,State);
end;
//****************destaca um �tem qualquer da grid**************//
if Column.Field = DM.ClientDataSet1ITEM_DA_TABELA then
if DataModule.ClientDataSet1ITEM_DA_TABELA.AsString='Sim' then {poderia ser
'Aprovado' ou qualquer outra condi��o}
begin
DBGrid1.Canvas.Font.Style:=DBGrid1.Canvas.Font.Style+[fsBold];
DBGrid1.Canvas.Font.Color:=clred;
DBGrid1.DefaultDrawDataCell(rect,Column.Field,State);
end;
valeu??
----- Original Message -----
From: "Rubem Rocha" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, September 14, 2004 3:36 PM
Subject: RES: RES: Res: [delphi-br] DBGrid colorida
J� depurou o evento?
[]s
-----Mensagem original-----
De: Felipe Diesel [mailto:[EMAIL PROTECTED]
Enviada em: ter�a-feira, 14 de setembro de 2004 14:33
Para: [EMAIL PROTECTED]
Assunto: Re: RES: Res: [delphi-br] DBGrid colorida
N�o funcionou! Apareceu o Grid, sem nada nas linhas!
Coloquei um Grid Novo e tb n�o funcionou!
Felipe Diesel
---------------------------
"In a world without walls and fences,
who needs Windows and Gates?"
by Mozilla Thunderbird
http://www.mozilla.org.br
Rubem Rocha escreveu:
>Ajuste o valor da propriedade DefaultDrawing para False e cheque se
>agora funciona! []s
>
>-----Mensagem original-----
>De: Felipe Diesel [mailto:[EMAIL PROTECTED]
>Enviada em: ter�a-feira, 14 de setembro de 2004 14:19
>Para: [EMAIL PROTECTED]
>Assunto: Re: Res: [delphi-br] DBGrid colorida
>
>
>O Delphi n�o t� executando a procedure OnDrawDataCell!
>
>N�o sei por que ele n�o entra!
>
>Felipe Diesel
>---------------------------
>"In a world without walls and fences,
>who needs Windows and Gates?"
>
>
>by Mozilla Thunderbird
>http://www.mozilla.org.br
>
>
>
>Celso Martins escreveu:
>
>
>
>>No OnDrawDataCell implemente:
>>
>>
>>
>> if dmMovimento.qryFluxo.FieldByName('movnat').AsString = 'DES' then
>>
>> dbgFluxo.Canvas.Font.Color := clRed
>>
>> else
>>
>> dbgFluxo.Canvas.Font.Color := clBlue;
>>
>>
>>
>> dbgFluxo.DefaultDrawDataCell(Rect,Field,State);
>>
>>
>>
>>
>>
>>
>>
>>Sds,
>>
>>Celso do A. Vianna Martins
>>
>>Desenvolvimento de Sistemas
>>
>>-------------------------------------------------------
>>
>>Archive ISP - Rio de Janeiro - RJ
>>
>>www.archive.com.br
>>
>>[EMAIL PROTECTED]
>>
>>[EMAIL PROTECTED]
>>
>>ICQ 202634027
>>
>>
>>
>>"Tudo aquilo que algum idiota diz que � urgente, � algo que
>>
>> este imbecil n�o fez em tempo h�bil e quer que voc� se foda
>>
>> para fazer em tempo recorde."
>>
>>
>>
>>
>>
>>-------Mensagem original-------
>>
>>
>>
>>De: [EMAIL PROTECTED]
>>
>>Data: 09/14/04 14:59:38
>>
>>Para: [EMAIL PROTECTED]
>>
>>Assunto: [delphi-br] DBGrid colorida
>>
>>
>>
>>Ol�!
>>
>>
>>
>>Tenho um table de t�tulos e quero colorir um DBGrid de forma que os
>>
>>vencidos fiquem vermelhos!
>>
>>
>>
>>Como fa�o isso?
>>
>>J� fazia isso no Delphi 5, por�m parou de funcionar no D6!
>>
>>
>>
>>--
>>
>>Felipe Diesel
>>
>>---------------------------
>>
>>"In a world without walls and fences,
>>
>>who needs Windows and Gates?"
>>
>>
>>
>>
>>
>>by Mozilla Thunderbird
>>
>>http://www.mozilla.org.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
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>[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
--
<<<<< 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
--
<<<<< 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
