Trocar cor de fundo de um TBitbtn

[Diego Campos Rosa]

Pessoal,

Tentei fazer a troca de cor das maneiras abairo, mas não deu certo. Alguem tem uma sugestão?

begin

  SendMessage(BitBtn1.Handle, WM_PAINT, 0,0);

  SendMessage(BitBtn1.Handle, WM_ERASEBKGND, 0,0);

end;

OU

begin

  TBitBtn(BitBtn1).Brush.Color := clBlue;

  TBitBtn(BitBtn1).Repaint;

  TBitBtn(BitBtn1).Refresh;

end;

ps: sei que existem componentes com essa funcionalidade, mas quero aplicar isso direto no TBitbtn.

Grato,

Atenciosamente,

Diego Campos Rosa
Analista de Sistemas
Aquasoft / parceira Embarcadero no Rio Grande do Sul
www.aquasoft.com.br 
 

My profiles:   

IMPORTANT: The contents of this email and any attachments are confidential. They are intended for the named recipient(s) only. If you have received this email by mistake, please notify the sender immediately and do not disclose the contents to anyone or make copies thereof.

Signature powered by WiseStamp 

[Marcelo Bohn]

será que esse componente não usa API do windows! e o mesmo não permite esse tipo de modificação?

--
Você recebeu esta mensagem porque está inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscrição neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR
Twitter: @dugrs

--
-=#|||[ Marcelo Bohn ]|||#=-
> twitter @marcelobohn
> marcel...@gmail.com
Na Escola Olímpio
- Professor do Curso Técnico
- Analista e Programador de Sistemas
- Pesquisador do curso de robótica

[Diego Campos Rosa]

Talvez tá faltando alguma coisa... tipo implementar um OnDraw nesse componente, ou hackear esse evento.

Atenciosamente,

Diego Campos Rosa
Analista de Sistemas
Aquasoft / parceira Embarcadero no Rio Grande do Sul
www.aquasoft.com.br 
 

My profiles:   

IMPORTANT: The contents of this email and any attachments are confidential. They are intended for the named recipient(s) only. If you have received this email by mistake, please notify the sender immediately and do not disclose the contents to anyone or make copies thereof.

Signature powered by WiseStamp 

[Marcelo Bohn]

pode ser! mas pode ser que de um trabalho complexo.

não sei que versão vc trabalha, mas fiz uma troca certa vez de todos componentes de um sistema feito em Delphi 6 utilizado um recuso fo GExpert por um botão semelhante que fazia o que eu precisava

[Eder Gusatto]

Buenas,

Não é simples fazer isso, no endereço abaixo tem uma solução.

http://www.swissdelphicenter.ch/torry/printcode.php?id=1100

Até mais.
_______________________________________

Éder Gusatto
msn, twitter, gmail, skype: egusatto

On Qui 14/04/11 14:04 , Diego Campos Rosa diego.ca...@gmail.com sent:

> Pessoal,
> Tentei fazer a troca de cor das maneiras abairo, mas não deu certo.
> Alguem tem uma sugestão?
> begin  SendMessage(BitBtn1.Handle, WM_PAINT, 0,0);
>   SendMessage(BitBtn1.Handle, WM_ERASEBKGND, 0,0);end;
> OU
> begin  TBitBtn(BitBtn1).Brush.Color :=
> clBlue;  TBitBtn(BitBtn1).Repaint;   TBitBtn(BitBtn1).Refresh;end;
> ps: sei que existem componentes com essa funcionalidade, mas quero
> aplicar isso direto no TBitbtn.
> Grato,
> Atenciosamente,
>
> Diego Campos Rosa
> Analista de Sistemas
> Aquasoft / parceira Embarcadero no Rio Grande do Sul
> www.aquasoft.com.br 
>   My profiles:   

> IMPORTANT: The contents of this email and any attachments are
> confidential. They are intended for the named recipient(s) only. If
> you have received this email by mistake, please notify the sender
> immediately and do not disclose the contents to anyone or make copies
> thereof. Signature powered by WiseStamp 

[Diego Campos Rosa]

Eder, Valeu!!!

Vou seguir o seu conselho.

Atenciosamente,

Diego Campos Rosa
Analista de Sistemas
Aquasoft / parceira Embarcadero no Rio Grande do Sul
www.aquasoft.com.br 
 

My profiles:   

IMPORTANT: The contents of this email and any attachments are confidential. They are intended for the named recipient(s) only. If you have received this email by mistake, please notify the sender immediately and do not disclose the contents to anyone or make copies thereof.

Signature powered by WiseStamp 

[well...@uol.com.br]

Precisa usar a procedure processmessages do windows para concluuir

Abs


Wellington

Enviado através do meu BlackBerry® da Nextel

---

From: Diego Campos Rosa <diego.ca...@gmail.com>

Sender: dug...@googlegroups.com

Date: Thu, 14 Apr 2011 15:45:30 -0300

To: <dug...@googlegroups.com>

ReplyTo: dug...@googlegroups.com

Subject: Re: [dug-rs] Trocar cor de fundo de um TBitbtn