Changing colour of a Progress bar ? 1

[LucieLastic]

hi

This is probably a simple question, but how do I change the colour of the progress bit in a progress bar. Mine are always set to blue.

ta
lou

 

[Svanhooft]

hi,

The color used is the system highlight color. So changing the highlight color on your desktop, will alos change the color of the progressbar in your application. I didn't find a way to change this color programaticaly.

Steph

 

[LucieLastic]

That's a blow. Don't want to change my highlight colour. Shame you can't change it programatically, though.

Thanks for reply.

lou

 

[Svanhooft]

hi,

Their is a possibility to change the color programmaticaly.
try the next example.

create a new project, add a progressbar and a button to the form and add the code beneath.

uses
commctrl

procedure TForm1.Button1Click(Sender: TObject);
begin
ProgressBar1.Brush.Color := clGreen;
SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clYellow);
ProgressBar1.Position := 50;
end;

It will change the backgroud to green and the progressbar to yellow.


Steph

 

[EricDraven]

Why not use a gauge from the samples tab instead? It looks better and you can set it to whatever color you want!

 

[LucieLastic]

Thanks for the replies guys. As I want an easy life, I've plumped on using the Gauge comp. (thanks for that suggestion, Eric).

Steph, I've filed your bit in my useful code snippets folder - I like your solution - I can make good use of that!


lou

 

[DjangMan]

You can also go to:

http://www.devexpress.com/index.shtm

Become a member of the forums and you can download a set of free controls - one of which is a progress bar that you can control the colour of.

DjangMan