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.

[[nlsgarcia]]

Caroso,

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:

Disabling Themes in the IDE and in Your Application : http://docwiki.embarcadero.com/RADSt...ur_Application

Espero sea útil

Nelson.

[[nlsgarcia]]

Caroso,

Empezado por Caroso

...y yo queria que quede algo similar a esto...en Windows 7 pero con Delphi 2010...

Continuación del Msg #10:

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    ProgressBar1: TProgressBar;
    RadioGroup1: TRadioGroup;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
   i : Integer;

begin

   case RadioGroup1.ItemIndex of
      0 : SendMessage(ProgressBar1.Handle, 1040, 2, 0); // ProgressBar Red
      1 : SendMessage(ProgressBar1.Handle, 1040, 3, 0); // ProgressBar Yellow
      2 : SendMessage(ProgressBar1.Handle, 1040, 1, 0); // ProgressBar Green
   end;

   ProgressBar1.Style :=  pbstNormal;
   ProgressBar1.Position := 0;
   ProgressBar1.Min := 1;
   ProgressBar1.Max := 10000;

   for i:= ProgressBar1.Min to ProgressBar1.Max do
      ProgressBar1.StepBy(1);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   RadioGroup1.ItemIndex := 0;
end;

end.

El código anterior permite cambiar el color de Foreground de un componente TProgressBar en Delphi 2010 bajo Windows 7 Professional x32 si la opción Project -> Options -> Application -> Enable Runtime Themes esta Enabled, como se muestra en la siguiente imagen:



Espero sea útil

Nelson.

[Caroso]

muchisimas gracias por tu tiempo y dedicacion con las respuestas nlsgarcia...

me sirvio mucho la ultima...

Saludos cordiales y gracias a todos