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

Вниз

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

← →
AlekseyZ ©   (2003-02-18 17:25) [0]

Мастера, не подскажете, может где-нибудь есть готовый
ProgressBar in StatusBar???

---

← →
Игорь Шевченко ©   (2003-02-18 17:27) [1]

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;

---

← →
AlekseyZ ©   (2003-02-19 11:25) [2]

Спасибо, все очень просто :)

---

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

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

Наверх

Память: 0.46 MB
Время: 0.012 c