cambiar color a progressbar

[[nlsgarcia]]

Caroso,

Empezado por Caroso

...cambiar el color de la progressbar del típico verde a otro color...en Windows 7 pero con Delphi 2010...

Continuación del Msg #9:

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   i : Integer;

begin

   ProgressBar1.Position := 0;
   ProgressBar1.Min := 1;
   ProgressBar1.Max := 10000;
   ProgressBar1.Smooth := True;
   ProgressBar1.BarColor := clNavy;
   ProgressBar1.BackgroundColor := clWhite;

   for i:= ProgressBar1.Min to ProgressBar1.Max do
      ProgressBar1.StepBy(1);

end;

El código anterior permite cambiar el color de Foreground y Background de un componente TProgressBar en Delphi 2010 bajo Windows 7 Professional x32 si la opción Project -> Options -> Application -> Enable Runtime Themes esta Disabled, lo cual aplica de forma análoga para el código sugerido en los Msgs #7 y #9.

Revisa este link:

Disabling Themes in the IDE and in Your Application : http://docwiki.embarcadero.com/RADSt...ur_Application

Espero sea útil

Nelson.