Как изменить цвет ProgressBar'а?
 

Как изменить цвет Прогрессбара? Стандарный у него синий цвет стоит. Я пробовал через свойство Brush но он меняет фон Прогрессбара, а цвет от 0 до Position остается синим. А мне надо чтоб он менял именно* цвет от 0 до Position.

procedure TForm1.Timer1Timer(Sender: TObject);
begin

if(ProgressBar1.Position = 100) then
Close()
else
ProgressBar1.Position := ProgressBar1.Position + 10;
Label2.Caption := IntToStr(ProgressBar1.Position) + '* %';

end;

procedure TForm1.FormCreate(Sender: TObject);
Var
mycolor : TColor;
begin

mycolor := 399929; // Коричневый цвет
ProgressBar1.Position := 0;
ProgressBar1.Brush.Color := mycolor;

end;

Результат получается вот такой:

Re: Как изменить цвет ProgressBar'а?
 

SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clRed);

Re: Как изменить цвет ProgressBar'а?
 

Почему то так не пашет?
Даже не компилируется.... ???





P.S.
Думаю что то пропустили.... :o

Re: Как изменить цвет ProgressBar'а?
 

Ага, соответствующие юниты ты забыл добавить в свой модуль в раздел Uses* ;D

CommCtrl и Windows

Re: Как изменить цвет ProgressBar'а?
 

Ага!
Сенк ю!!!! ;D