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

Вниз

Как положить ProgressBar на StatusBar   Найти похожие ветки 

← →
sidorov_al   (2003-04-08 11:17) [0]

Привет. Подскажите как положить ProgressBar на панельку StatusBar-а. Заранее благодарен.

---

← →
NickBat ©   (2003-04-08 11:32) [1]

Приблизительно так:

mg:=TGauge.Create(self);
mg.Hide;
mg.Parent:=SB;
mg.ForeColor:=clInfoBk;
mg.Height:=SB.ClientHeight-3;
mg.Width:=sb.Panels[0].Width-2;
mg.Top:=2;
mg.Left:=1;
mg.Show;
где SB: TStatusBar;

---

← →
Silver_   (2003-04-08 12:12) [2]

У меня так. 100% работает

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

---

← →
Diouzshev   (2003-04-08 13:33) [3]

1. создать наследника от StatusBar, где прописать что StatusBar может принимать контролы в дизайнтайме (к сожалению не помню как это делается)
2. Я же использую TDFSStatusBar
http://www.delphifreestuff.com
Бесплатно, часики, гауджи-прогрессы(с любыми надписями, например "1 из 5"), иконки, OnDrawPanel, CapsLock и пр.

---

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

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

Наверх

Память: 0.47 MB
Время: 0.014 c