cambiar color a progressbar

[ecfisa]

Empezado por Caroso

hola Casimiro Notevi... gracias por tu respuesta...

de ese mismo enlace fue que obtuve la función esa... lo que intento saber es como aplicarla a un progressbar... el cual se ejecuta en windows 7...

Hola Caroso.

Creo que lo mas reusable es hacerte un procedimiento:

Código Delphi [-]
procedure ChangeProgressBarColor(PB: TProgressBar; const Color, BackgroundColor: TColor);
const
  PBM_SETBARCOLOR = WM_USER + 9;
begin
  PB.Brush.Color := BackgroundColor;
  PB.Perform(PBM_SETBARCOLOR, 0, Color);
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ChangeProgressBarColor(ProgressBar1, clLime, clMoneyGreen);
  ...

Saludos.