VPF::ProgressBar в StatusBar? - Форум программистов

Alex

Дата 16.5.2002, 08:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Как поместить ProgressBar в пятую панель StatusBar?

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Дата 19.5.2002, 10:04 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Просто установи у него Parent соответствующий.

Vit

Дата 19.5.2002, 16:55 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Цитата(Guest @ 19.5.2002, 02:04)

Просто установи у него Parent соответствующий.

Да? А как? TPanel наследуется от TCollection а не от TControl...

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Vit

Дата 20.5.2002, 15:36 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Корректнее было бы самому канву рисовать, но можно и просто вставить - держи функцию для этого - применять вместо стандартного метода Create.

Код


Function CreateProgressBar(StatusBar:TStatusBar; index:integer):TProgressBar;
var findleft:integer;
   i:integer;
begin
 result:=TProgressBar.create(Statusbar);
 result.parent:=Statusbar;
 result.visible:=true;
 result.top:=2;
 findleft:=0;
 for i:=0 to index-1 do findleft:=findleft+Statusbar.Panels[i].width+1;
 result.left:=findleft;
 result.width:=Statusbar.Panels[index].width-4;
 result.height:=Statusbar.height-2;
end;

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »