// quando estiver selecionado inverte a cor do fore/background
if gdSelected in state then begin
oldColor := TDBGrid( Sender ).Canvas.Brush.Color;
TDBGrid( sender ).Canvas.Brush.Color := TDBGrid( sender
).Canvas.Font.Color;
TDBGrid( sender ).Canvas.Font.Color := oldColor;
end;
Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP
----- Original Message -----
From: Jefferson - Fórum
To: delphi-br@yahoogrupos.com.br
Sent: Friday, October 26, 2007 2:35 PM
Subject: Re: [delphi-br] Re: DBGrid - cores - problemas para visualizar
(desculpem)
Não.
Mas como eu usaria essa função?
Pois estou querendo deixar a célula com fonte branca e fundo azul (como no
padrão), e quando eu sair desse grid, gostaria que a última célula ativa não
ficasse marcada, parecendo que está com foco.
----- Original Message -----
From: blcksun954
To: delphi-br@yahoogrupos.com.br
Sent: Friday, October 26, 2007 12:18 PM
Subject: [delphi-br] Re: DBGrid - cores - problemas para visualizar
(desculpem)
Já tentou usar a propriedade Focused da DBgrid?
--- Em delphi-br@yahoogrupos.com.br, Jefferson - Fórum <[EMAIL PROTECTED]>
escreveu
>
> Pessoal, boa tarde!
>
> Consigo alterar a fonte e o fundo da célula de um DBGrid, mas não
estou conseguindo fazer o seguinte:
>
> - Tenho 3 Grid's na mesma tela, cada um tem cores que significam
alguma coisa. O problema é que quando mudo a cor da fonte, a célula
que está com foco não fica muito visível .
> Eu gostaria que a célula que está com foco, fique com o fundo azul
e a fonte branca. Mas que quando eu sair desse grid e ir ao outro, a
última célula volte às cores padrão. Pois nos meus testes, a última
célula fica parecendo que ainda está com foco.
>
> Alguém pode me ajudar nisso?
>
> Espero ter sido claro em minha dúvida e me desculpem voltar nesse
assunto novamente.
>
> Obrigado, e bom trabalho a todos!
>
> Jefferson
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
