Progressbarcolor ...how to change it?

[olllllliii]

Hello i tryed to change the Progressbarcolor....
so i made a Dialog with progressbars...but the Progressbar is always
green...

Code: Select all

Let>ColorNr=0
  Label>MDL
  SetDialogProperty>Dialog1,ProgressBar1,Position,100
  SetDialogProperty>Dialog1,ProgressBar1,BackgroundColor,ColorNr
  SetDialogProperty>Dialog1,ProgressBar1,Barcolor,ColorNr
  Add>ColorNr,10
    IF>ColorNr>100000
        Goto>weiterfuellen
    ENDIF
  Goto>MDL
  Label>weiterfuellen

things like BarColor = clFuchsia in Dialogmenue shows always green
barcolor

[Marcus Tettmar]

The colour of progress bars is dictated by the user's Window theme, same as the colour of buttons and window backgrounds and so on. You should not change them - the user has decided which theme he/she wants. And Windows should obey.

The BarColor property doesn't do anything unless the application is set to ignore runtime themes. Macro Scheduler and the compiler do not ignore themes and at present there is no way to tell it to ignore themes and I have no intention of changing that. As this is something that must be done when Macro Scheduler and the MacroScript compiler are themselves compiled there is no way to make this an option for you at runtime anyway.

Anticipating the next question "why is BarColor" there at all - the answer is because these properties are inherited from the underlying visual framework (The Delphi VCL).

[olllllliii]

Thanks Marcus,

that means for me I need to find another graphic solution
to produce yellow, green and red progressbars.
I thought the windows would at Aero could do. Now I'm smarter.

But i am not unhappy to do that ...



Regards
Oliver Hilger

[JRL]

I posted a sample that uses Microsoft's Rectangle API to draw a progress bar of any color you choose HERE.

[Grovkillen]

I also made a somewhat all right solution for this as well. You find it here>>