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