cambiar color a progressbar

[[nlsgarcia]]

Caroso,

Empezado por Caroso

...los códigos que me facilitaron funcionan todos de maravilla en Delphi 7...¿porque no funciona para la ProgressBar de Delphi 2010?...yo queria aplicar esos códigos en Windows 7 pero con Delphi 2010...

El código sugerido en el Msg #7, funciona correctamente en Delphi 7 y Delphi 2010 bajo Windows 7 Professional x32.

El código sugerido en el Msg #5, funciona correctamente en Delphi 7 bajo Windows 7 Professional x32. En Delphi 2010 con Windows 7 Professional x32 solo requiere una ligera adaptación relacionada al Background del ProgressBar:

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

Espero sea útil

Nelson.