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

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

Можно ли в TStatusPanel сделать Progress Bar... [D7, XP]


DillerXX ©   (2006-08-19 17:00:00) 

... наподобие как в IE?


PSPF2003   (2006-08-19 21:07:00) [1]

constructor StatusBar.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := ControlStyle + [csAcceptsControls];
end;

И толкай что хочещ...


AntiUser   (2006-08-19 21:05:00) [2]

Anatoly Podgoretsky ©   (19.08.06 20:59) [9]

Ну, в общем и целом - да. Можно пересчитать положение и размер и вместо Align:= alClient; (как написано у меня), четко обозначить границы.


Anatoly Podgoretsky   (2006-08-19 20:59:00) [3]

AntiUser ©   (19.08.06 20:57) [8]
Так разница только в координатах панели, это логическое разделение на условные панели.


AntiUser   (2006-08-19 20:57:00) [4]

Тьфу, извиняюсь. Не обратил внимание на то, что вопрос про StatusPanel, а не StatusBar. Сорри.


guav   (2006-08-19 20:53:00) [5]

Зачем там создавать TProgressBar, проще самому закраисть нужный прямогугольник в OnDrawPanel


AntiUser   (2006-08-19 20:50:00) [6]

Chort ©   (19.08.06 20:33) [2]
Просто накладываеш на StatusPanel    ProgressBar


Тогда уж проще создать его там.

var
 ProgressBar: TProgressBar;
begin
 ProgressBar := TProgressBar.Create(Self);
 with ProgressBar do begin
   Name := 'ProgressBar';
   Align:= alClient;
   Parent := StatusBar1;
 end;
end;

Что-то типа того. Не проверял.


Anatoly Podgoretsky   (2006-08-19 20:39:00) [7]

Chort ©   (19.08.06 20:34) [4]
Почему?


Chort   (2006-08-19 20:34:00) [8]

Рзаве что сплошной линии не получится, а выйдут таблетки.


Chort   (2006-08-19 20:33:00) [9]

Просто накладываеш на StatusPanel    ProgressBar иделаешь ProgressBar невидимым.
Потом при необходимости делаешь Visible:=True и вперед.
Для красоты подбери ширину ячейки StatusPanel с шириной ProgressBar.


AntiUser   (2006-08-19 20:33:00) [10]

DillerXX ©   (19.08.06 17:00)

Можно, я разрешаю. Делай.


Правильный Вася   (2006-08-19 17:07:00) [11]

можно


Наверх

Титульная страница Поиск, карта сайта Написать письмо