Текущий архив: 2002.12.12;
Скачать: CL | DM;

Вниз

Как   Найти похожие ветки 

← →
vlv   (2002-12-02 12:59) [0]

???

---

← →
Song   (2002-12-02 13:03) [1]

TStatusBar.Parent

---

← →
Андрей Сенченко   (2002-12-02 13:03) [2]

Нарисовать ProgressBar на той же панели

---

← →
Игорь Шевченко   (2002-12-02 13:09) [3]

К примеру, так:

ProgressBar рисуется на той области StatusBar"а, которая не занята панелями...


procedure TfrmMain.ShowProgress;
var I : Integer;
R : TRect;
begin
SetRect(R, 0, 0, 0, 0);
for I:=0 to Pred(ssBar.Panels.Count) do
Inc(R.Left, ssBar.Panels[I].Width);
R.Right := ssBar.ClientWidth;
if WindowState <> wsMaximized then
Dec(R.Right, ssBar.ClientHeight);
R.Top := 3;
R.Bottom := ssBar.ClientHeight;
with ProgressBar1 do begin
BoundsRect := R;
Parent := ssBar;
Visible := True;
end;
end;


---

← →
vlv   (2002-12-02 13:10) [4]

TStatusBar.Parent нужно присвоить какой-нить WinControl.
А панель статусбара им не является. Можно, конечно, сам бар сунуть, но если много панелей, лениво координаты пересчитывать.

---

← →
Song   (2002-12-02 13:22) [5]

Я извиняюсь. Не TStatusBar.Parent. А TProgressBar.Parent

Вот, более ничего не надо:

procedure TForm1.FormShow(Sender: TObject);
begin
With TProgressBar.Create(Self) Do Parent:=StatusBar1;
end;

---

← →
Кот Бегемот   (2002-12-02 14:55) [6]

Аааааа - нашествие ламеров :(((

---

← →
Кулюкин Олег   (2002-12-02 15:05) [7]

Я задавал такой вопрос 3 года назад, он (точнее, ответ на него) потом вошел в "Советы по Дельфи от Валентина Озерова".
Ностальгия заела :)))

---

← →
Lord Warlock   (2002-12-02 15:08) [8]

> Как "засунуть" ProgressBar в панель статусбара?


Нет ничего проще... просто поставь его на статусбар, сделай невидимым, а когда нужно, видимым. Все... глупо и просто

---

Страницы: 1 вся ветка

Текущий архив: 2002.12.12;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.005 c