Вниз
Скачать: 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.031 c
1-1153968571
-=Germe$=-
2006-07-27 06:49
2006.09.10
Перерисовка контрола


15-1155533371
Ega23
2006-08-14 09:29
2006.09.10
С Днём рождения! 12 августа


2-1155888631
Elen
2006-08-18 12:10
2006.09.10
SendMessage VS Access Violation


3-1151502224
antoxa2005
2006-06-28 17:43
2006.09.10
Вопросик. Сколько клиентов можно подк MS SQL 2005 Server Express


2-1155929127
Itonixxx
2006-08-18 23:25
2006.09.10
LookUpCombobox




   Наверх