Текущий архив: 2006.09.10;
Скачать: CL | DM;
Вниз
Можно ли в TStatusPanel сделать Progress Bar... Найти похожие ветки
← →
DillerXX © (2006-08-19 17:00) [0]... наподобие как в IE?
← →
Правильный Вася (2006-08-19 17:07) [1]можно
← →
Chort © (2006-08-19 20:33) [2]Просто накладываеш на StatusPanel ProgressBar иделаешь ProgressBar невидимым.
Потом при необходимости делаешь Visible:=True и вперед.
Для красоты подбери ширину ячейки StatusPanel с шириной ProgressBar.
← →
AntiUser © (2006-08-19 20:33) [3]DillerXX © (19.08.06 17:00)
Можно, я разрешаю. Делай.
← →
Chort © (2006-08-19 20:34) [4]Рзаве что сплошной линии не получится, а выйдут таблетки.
← →
Anatoly Podgoretsky © (2006-08-19 20:39) [5]Chort © (19.08.06 20:34) [4]
Почему?
← →
AntiUser © (2006-08-19 20:50) [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;
Что-то типа того. Не проверял.
← →
guav © (2006-08-19 20:53) [7]Зачем там создавать TProgressBar, проще самому закраисть нужный прямогугольник в OnDrawPanel
← →
AntiUser © (2006-08-19 20:57) [8]Тьфу, извиняюсь. Не обратил внимание на то, что вопрос про StatusPanel, а не StatusBar. Сорри.
← →
Anatoly Podgoretsky © (2006-08-19 20:59) [9]AntiUser © (19.08.06 20:57) [8]
Так разница только в координатах панели, это логическое разделение на условные панели.
← →
AntiUser © (2006-08-19 21:05) [10]Anatoly Podgoretsky © (19.08.06 20:59) [9]
Ну, в общем и целом - да. Можно пересчитать положение и размер и вместо Align:= alClient; (как написано у меня), четко обозначить границы.
← →
PSPF2003 © (2006-08-19 21:07) [11]constructor StatusBar.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := ControlStyle + [csAcceptsControls];
end;
И толкай что хочещ...
Страницы: 1 вся ветка
Текущий архив: 2006.09.10;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.04 c
