(Resolvido) Colorir Botões.

[valSistemasDelphi]

Fiz uma modificação extrema no meu caixa do meu sistema que estou Desenvolvendo. tenho form onde eu escolho a mesa que está ocupada, por um cliente. Eu pensei em colocar um Tradio button com um código para colorir este Botão de vermelho ou outro,simbolizando que a mesa esta ocupada, Mais não tenho certeza se tem como fazer isso fiz pesquisa na Net e não encontrei até agora nada que podesse me ajudar. E nem tenho certeza se pode ser feito isto num Speedbutton ou em outro..Quem poder me ajudar a respeito disto, desde já agradeço. 

[Jhonas]

fiz pesquisa na Net e não encontrei até agora nada que podesse me ajudar

Para trocar as cores dos botões do radiogroup

Código

//No Object Inspector na propriedade Font coloque a cor verde. 
procedure TForm1.RADIOGROUP1Click(Sender: TObject); 
Var 
  i : Integer; 
begin 
  // Para trocar as cores dos botoes do RadioGroup 
  for i := 0 to RADIOGROUP1.Items.Count-1 do begin 
  TRadioButton(RADIOGROUP1.Controls).Font.Color := clGreen; 
  TRadioButton(RADIOGROUP1.Controls).Font.Style := [fsBold]; 
  end; 
  TRadioButton(RADIOGROUP1.Controls[RADIOGROUP1.ItemIndex]).Font.Color := clRed; 
  TRadioButton(RADIOGROUP1.Controls[RADIOGROUP1.ItemIndex]).Font.Style := [fsBold]; 
end;

======================================================================

componente TColorButton

http://delphi.about.com/od/vclwriteenhance/l/aa061104a.htm

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

======================================================================

Alternativas para os  TButton, TBitBtn, TSpeedButton  property "color"

http://www.festra.com/wwwboard/messages/1006.html

=======================================================================

Panel: usando-o como Botão

Voce já deve ter notado que os componentes Button e BitBtn não possuem a propriedade Color, comum aos demais objetos, o que impede de se utilizar um botao colorido. Caso seja necessário colorir o botao, experimente utilizar um Panel em seu lugar. Selecione a cor desejada para o Panel e, em seus eventos OnMouseDown e OnMouseUp escreva os códigos abaixo:

//evento OnMouseDown procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Panel1.BevelInner := bvRaised; Panel1.BevelOuter := bvRaised; end; //evento OnMouseUp procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Panel1.BevelInner := bvNone; Panel1.BevelOuter := bvRaised; end ;

As propriedades BevelInner e BevelOuter dizem respeito a maneira como a borda do Panel deve aparecer. Sua modificação em código dá a impressão de que o panel clicado foi "afundado", como ocorre com um botão durante o clique.

Lembre-se de substituir o nome Panel1 pelo nome verdadeiro que você atribuiu ao seu Panel.

====================================================================================

Outra forma

http://www.activedelphi.com.br/forum/viewtopic.php?t=337&sid=3a4b6782ecd8fbc0ef97cab24e646f99

====================================================================================

Outros componentes de Botões

http://www.edudelphipage.com.br/componentes_downloads.php?categoria=5

====================================================================================

abraço

 

[valSistemasDelphi]

Beleza Jhonas valeu deu certo com o panel. Problema resolvido.