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