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

[Akrom Obidov]

Как изменить цвет Прогрессбара? Стандарный у него синий цвет стоит. Я пробовал через свойство 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;

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

http://project.cppmp.uz/images/SaveBase.bmp

[AAlexander]

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

[Akrom Obidov]

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





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

[AAlexander]

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

CommCtrl и Windows

[Akrom Obidov]

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