|
|
Знаете ли Вы, что ... | |
...до того как открыть новую тему, стоит использовать поиск: такая тема уже может существовать. | |
<< Предыдущий совет - Случайный совет - Следующий совет >> |
Pascal, Delphi & Builder Вопросы программирования касающиеся Pascal и Delphi |
Ответить |
|
Опции темы | Опции просмотра |
07.06.2006 16:09 | #1 | ||
Как изменить цвет Прогрессбара? Стандарный у него синий цвет стоит. Я пробовал через свойство 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; Результат получается вот такой: Последний раз редактировалось Akrom Obidov; 13.03.2007 в 01:59. |
|||
|
Ответить |
|