Caroso,
Cita:
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
public
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); 1 : SendMessage(ProgressBar1.Handle, 1040, 3, 0); 2 : SendMessage(ProgressBar1.Handle, 1040, 1, 0); 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.