cambiar color a progressbar

[[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.