Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.029 c
1-1154337186
Demand
2006-07-31 13:13
2006.09.10
Динамическое создание форм


1-1153984853
[wl]
2006-07-27 11:20
2006.09.10
Функция удаления тегов из HTML


2-1155976846
JTAG
2006-08-19 12:40
2006.09.10
Господа подскажите плз, как сделатть вертикальный ползунок


2-1156148882
Очень грустный человек
2006-08-21 12:28
2006.09.10
Delphi и работа с DBF


2-1156101306
Vazelin
2006-08-20 23:15
2006.09.10
Распаковка проги




   Наверх