procedure TfrmClientes.FormShow(Sender: TObject);
var Vermelho, Verde, Azul : Integer;
begin
   Vermelho := -59;
   Verde := -46;
   Azul := -16;
   pnlBotoes.Color := TColor(RGB(Vermelho,Verde,Azul));
   ShowMessage( ColorToString( pnlBotoes.Color ) );
end; 
 
 
Joao Paulo

  _____  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Alisson Yahoo
Enviada em: terça-feira, 20 de setembro de 2005 11:35
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Como saber o número correspondente a uma cor?


Pessoal,

Criei uma cor personalizada através de uma variável TColor. A cor é criada
quando mostro o form:

procedure TfrmClientes.FormShow(Sender: TObject);
var Vermelho, Verde, Azul : Integer;
begin
   Vermelho := -59;
   Verde := -46;
   Azul := -16;
   pnlBotoes.Color := TColor(RGB(Vermelho,Verde,Azul));
end;

Gostaria de colocar essa cor diretamente pelo Object Inspector colocando o
valor inteiro correspondente à cor.




[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]




Yahoo! Grupos, um serviço oferecido por:        
 
<http://br.i1.yimg.com/br.yimg.com/i/br/ads6/160905_pop_celsamsung_camdig.gi
f>      

  _____  

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]
<mailto:[EMAIL PROTECTED]> 
  

*       O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> . 



  _____  

Esta mensagem foi verificada pelo E-mail Protegido Terra
<http://mail.terra.com.br/> .
Scan engine: McAfee VirusScan / Atualizado em 20/09/2005 / Versão:
4.4.00/4586
Proteja o seu e-mail Terra: http://mail.terra.com.br/ 



[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

 


Responder a