Caroso,
Cita:
|
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:
Espero sea útil
Nelson.