![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Можно ли в 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]можно