Можно ли в 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 © (19.08.06 20:59) [9]

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

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

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

Можно ли в TStatusPanel сделать Progress Bar... Найти похожие ветки