Progress в Status Bar

← →
Wolverin © (2002-09-20 17:38) [0]

Как отобразить прогресс в статус баре?

← →
Reindeer Moss Eater (2002-09-20 17:53) [1]

procedure TProgressBar.PaintTo(DC: HDC; X, Y: Integer);

← →
Link (2002-09-20 18:02) [2]

ProgressBar1.StepBy(100);

Можно распределить по процедуре, написав несколько раз эту строчку, но сотню распределить по количеству строчек.
100 - это проценты от ProgressBar.

← →
Алексей Ким © (2002-09-20 18:11) [3]

можно использовать панели тогда можно делать панель с другим цветом
как статус бар

← →
Reindeer Moss Eater (2002-09-20 18:52) [4]

Дополнение :
DC:=GetDC(StatusBar1.Handle);
SBar.Panels[N].Style:=psOwnerDraw;
X и У - координаты, что бы попасть на нужную Panels[N]

← →
Link (2002-09-20 19:08) [5]

Сори за ошибку...
Только щас заметил, что тут о StatusBar, а не о ProgressBar

> Reindeer Moss Eater

!)

with(ProgressBar1)do begin Parent := StatusBar1; Left := 0; Top := 0; end;
На мой взгляд это наиболее элегантное решений.

← →
jones (2002-09-23 09:43) [7]

в развитие последнего предложения можно сделать свой компонент и юзать его как захочеться. возьми базовый statusbar за основу и в его конструктор добавь
ControlStyle = ControlStyle << csAcceptsControls;
(енто в билдёре, на дельфях сам сориентируешься)
потом пожешь на statusbar кидать все что хочешь

__fastcall TMyStatusBar::TMyStatusBar(TComponent* Owner) : TStatusBar(Owner) { ControlStyle = ControlStyle << csAcceptsControls; }

Progress в Status Bar Найти похожие ветки