| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ProgressBar в StatusBar`е... [D5, Win2k]

tovSuhov ©   (2002-02-08 16:36:00) 

Люди, а как, собственно, осуществляется сабж? Хочу сделать что-то вроде Internet Explorer`ого статусбара...

---

DMN   (2002-02-09 04:09:00) [1]

Чтобы не подгонять размеры прогрессбара под какую-либо панель, пользуйтесь сообщением SB_GETRECT, возвращающим прямоугольник, занимаемый какой-либо панелью статусбара.

---

Alicho   (2002-02-08 19:17:00) [2]

var
pb: TProgressBar;
....
pb:= TProgressBar.Create(self);
with pb do begin
Parent:= StatusBar1;
Position:= 30;
Top:= 2;
Left:= 0;
Height:= StatusBar1.Height - Top;
Width:= StatusBar1.Panels[0].Width - Left;
end;
pb.Visible:= True

---

McSimm   (2002-02-08 17:45:00) [3]

Скорее всего он лежит на Статусбаре, но за его пределами
Попробуй:
ProgressBar1.Parent := StatusBar1;
ProgressBar1.Top := 2;
ProgressBar1.Left := StatusBar1.Panels[0].Width + 2;
ProgressBar1.Height := StatusBar1.Height - 4;
ProgressBar1.Width := StatusBar1.Panels[1].Width - 4;

---

tovSuhov   (2002-02-08 17:29:00) [4]

После этого он у меня вообще пропал с формы...

---

McSimm   (2002-02-08 17:09:00) [5]

Если сделать
ProgressBar.Parent := StatusBar;

То он туда попадет.
Останется только подогнать размеры под какой нибудь Panels[X]

---

Наверх