Caroso,
Cita:
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.