| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Progress в Status Bar [D6, WinXP]
Wolverin © (2002-09-20 17:38:00)Как отобразить прогресс в статус баре?
jones (2002-09-23 09:43:00) [1]в развитие последнего предложения можно сделать свой компонент и юзать его как захочеться. возьми базовый statusbar за основу и в его конструктор добавь
ControlStyle = ControlStyle << csAcceptsControls;
(енто в билдёре, на дельфях сам сориентируешься)
потом пожешь на statusbar кидать все что хочешь
__fastcall TMyStatusBar::TMyStatusBar(TComponent* Owner)
: TStatusBar(Owner)
{
ControlStyle = ControlStyle << csAcceptsControls;
}
Толик (2002-09-20 19:43:00) [2]
with(ProgressBar1)do begin
Parent := StatusBar1;
Left := 0;
Top := 0;
end;
На мой взгляд это наиболее элегантное решений.
Link (2002-09-20 19:08:00) [3]Сори за ошибку...
Только щас заметил, что тут о StatusBar, а не о ProgressBar
> Reindeer Moss Eater
!)
Reindeer Moss Eater (2002-09-20 18:52:00) [4]Дополнение :
DC:=GetDC(StatusBar1.Handle);
SBar.Panels[N].Style:=psOwnerDraw;
X и У - координаты, что бы попасть на нужную Panels[N]
Алексей Ким (2002-09-20 18:11:00) [5]можно использовать панели тогда можно делать панель с другим цветом
как статус бар
Link (2002-09-20 18:02:00) [6]ProgressBar1.StepBy(100);
Можно распределить по процедуре, написав несколько раз эту строчку, но сотню распределить по количеству строчек.
100 - это проценты от ProgressBar.
Reindeer Moss Eater (2002-09-20 17:53:00) [7]procedure TProgressBar.PaintTo(DC: HDC; X, Y: Integer);
| |
