Setting Button Color Doesnt Work?

[T-bear]

Hi again, 

When i use this code to set the color of a button it doesn't work.

Code: [Select]

Buttons[Counter].Color   :=clBlue; //Button[Counter] is the button.

Does anyone know why this doesnt work?

Thanks! 

PS: I also tried to change the color in the objectinspector but that didnt work either.

[Blaazen]

It works here. Linux+Qt.
So tell us your Lazarus version, your OS and widgetset etc.
Is it TButton, TBitBtn or TSpeedButton?

[T-bear]

Lazarus: 0.9.28.2 Beta
FPC: 2.2.4

Windows XP,
And its a normal TButton

Changing The Color of the text on the button doesnt work either, but all the other things work...     

[lainz]

Lazarus: 0.9.28.2 Beta
FPC: 2.2.4

Windows XP,
And its a normal TButton

Changing The Color of the text on the button doesnt work either, but all the other things work...     

This is because Windows Themes.

[Zoran]

Windows native button does not allow this.
It's documented in Wiki under "Things that will never be fixed":

http://wiki.lazarus.freepascal.org/Lazarus_known_issues_%28things_that_will_never_be_fixed%29#TButton.27s_and_TBitBtn.27s_color_cannot_be_changed

[lainz]

You can install customdrawn package, is in development but you can user TCDButton (custom drawn button) allow to change color and set some kind of gradients and different skins.

[carlosmoura]

Only for TSpeedButton  (tested on Lazarus 2.0.6 & Windows 10)
(Object Inspector or code)
   1) SpeedButton1.Transparent := False;
   2) SpeedButton1.Flat := True;   
   3) SpeedButton1.Color := <any different from parent color>;
   

Code: Pascal  [Select][+][-]

1. procedure Tform1.SpeedButton1Click(Sender: TObject);  
2. begin
3.     if SpeedButton1.color = clRed then
4.         SpeedButton1.color := clBlue
5.     else
6.         SpeedButton1.color := clRed;    
7. end;
8.  

(Sorry my bad english...)