how to change color of a button

[frederic]

dear specialists

simple question...
following didn't work

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

1. { TForm1 }
2.  
3. procedure TForm1.Button1Click(Sender: TObject);
4. begin
5.   button2.color:=clred;
6.   button1.color:=cldefault;
7. end;
8.  
9. procedure TForm1.Button2Click(Sender: TObject);
10. begin
11.    button1.color:=clblue;
12.     button2.color:=cldefault;
13. end;                      

what is wrong with this

frederic

[J-G]

Most annoying but the colour of a TButton is inherited and can't be changed - even though the object inspector makes it look as though it is a simple matter.

I resolved this by installing Jujibo components and then using TJButton which does have a modifyable colour attribute.

[balazsszekely]

Hi Frederic,

TButton is just a wrapper around the standard OS button, therefor the color cannot be changed. Use a custom component instead.

[Bart]

Or disable themes.

Bart

[frederic]

thanks
 for the reactions,
i know what to do... when i have some time left

frederic

[valdir.marcos]

Or disable themes.

How?
I have disable Windows Theme on Project Options of Lazarus IDE, but it does not seem to be enough.
Please, see image.

[Thaddy]

Or disable themes.

Bart

That doesn't work either: TButton under windows can't have color working. Period.

[balazsszekely]

That doesn't work either: TButton under windows can't have color working. Period.

Actually you can by setting the button's window style to BS_OWNERDRAW and handling WM_DRAWITEM message. The point is the owner draw button is no longer a standard looking windows button, so it make no sense to change the color if you ask me, but this is just a personal opinion. 

[Thaddy]

In theory that should be possible, but I for one never succeeded in the case of TButton. Only with TSpeedButton and partially TBitBtn.
I also never saw a *working* example anywhere else...in any language, not just Pascal.

[balazsszekely]

@Thaddy
Something like this: http://users.jyu.fi/~vesal/kurssit/winohj/htyot/h05/tiveniem/ColorButton.pas

[pixelink]

I know this thread is old, but I understand the frustration of Buttons in pascal not having the ability to change the color.

In .NET, not only could you make a normal button flat, you could change it's back color and hover color.

I made an app using that button with hover and back color. Used it like a marker to show the user what text memo they were reading.
It's more of a cosmetic thing.

Almost the same customization as a web button, but without CSS.

However, nonetheless, its very frustrating try to use some controls is LAZ/pascal... they are very limited.

Now, that I am trying to convert the >NET app to LAZ.... I have to do away with the flat Hover/color button customization.

The one thing I miss about .NET,  great controls and easy to customize.
But, Visual Studio is out for me because of install issues. Have to get e new PC. Ain't happening for awhile.

Just my 2 cents

[pixelink]

Well.. someone in another thread let me know of a control I can use that handles colors.
It even has a hover color.

It's BGRAControls

[Sino7524]

I usually use a TSpeedButton as a button because it allows you to add a Glyph (an image on the button). Go to the "Transparent" property of the TSpeedButton and change it to False. Next, change the "Flat" property to True and now it will allow you to change the color. you can also use these lines of code:

Button.Flat := True;
Button.Transparent := False;

[1HuntnMan]

I think awhile back that you could change the color of the SpdBtn at least to clBtnFace. It's been awhile but when I add a TSpeedbutton to a form, it's white and you can't change it. Maybe it was before I bought my new computer with Winders 11, ugh! My old computer had Winders 10 Pro. When I add a TBitBtn or a TSpeedButton, they are both white.

[1HuntnMan]

Good question, why does the button component have a color property if you can't change it?