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

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

Как ProgressBar поместить на одну из панелей StatusBar? [D7, XP]

AlexanderMS ©   (2007-01-13 15:11:00) 

Видел в одной программе, а самому сделать слабо' :).

---

AlexanderMS   (2007-01-13 19:18:00) [1]

Конечно, получилось.
А теперь как можно поверх этого ProgressBar'a вывести текст в этой же панели StatusBar'a?

---

Kolan   (2007-01-13 19:05:00) [2]

«[6] Джо ©   (13.01.07 18:51)
> [5] Kolan ©   (13.01.07 18:48)
> Аналог [3]

Какой же это «аналого»? Это, собственно, то же самое :)
Разве что с SetBounds лучше будет.»

Дык я думал что слово «Аналог» и означает тожесамое…

---

Джо   (2007-01-13 18:51:00) [3]

> [5] Kolan ©   (13.01.07 18:48)
> Аналог [3]

Какой же это «аналого»? Это, собственно, то же самое :) Разве что с SetBounds лучше будет.

---

Kolan   (2007-01-13 18:48:00) [4]

function TMainForm.CreateProgresBar: TProgressBar;
begin
 Result := TProgressBar.Create(Self);
 with Result do begin
   Parent:= StatusBar;
   Position:= 0;
   Top:= 2;
   Left:= StatusBar.Panels[0].Width + StatusBar.Panels[1].Width + 50;
   Height:= StatusBar.Height - Top;
   Width:= StatusBar.Panels[2].Width - 51;
 end;
 Result.Visible:= True;
end;

Аналог [3]

---

AlexanderMS   (2007-01-13 17:28:00) [5]

Спасибо, сейчас попробую.

---

begin...end   (2007-01-13 16:44:00) [6]

with ProgressBar do
begin
 Parent := StatusBar;
 SetBounds(...);
end

---

Плохиш   (2007-01-13 15:57:00) [7]

> Как ProgressBar поместить на одну из панелей StatusBar?

Разве он на статусбар в дизайнере  не бросается?

---

TUser   (2007-01-13 15:51:00) [8]

> Видел в одной программе

internet explorer ?

Можно на OnDrawPanel повесить отрисовку прогресса на Canvas'е, благо он у статусбара есть.

---

Наверх