Скачать: CL | DM;

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

← →
Igor_thief ©   (2002-10-20 18:57) [0]

Как сделать, чтобы progressbar отображался на одной из пенелей statusbar?

---

← →
TTCustomDelphiMaster ©   (2002-10-20 19:13) [1]

ProgressBar.Parent := StatusBar;
ProgressBar.Left := 100;

---

← →
Reindeer Moss Eater   (2002-10-21 08:55) [2]

ProgressBar.PainTo(...

---

← →
Игорь Шевченко ©   (2002-10-21 10:28) [3]

Например, так:
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;


Показывается в последней по счету панели

---

← →
REA ©   (2002-10-21 11:08) [4]

Pred(ssBar.Panels.Count) - а оно быстрее что ли чем -1 сделать?
кстати -1 вроде всегда вычисляется или просто я неоптимизированный код смотрел?

---

← →
Игорь Шевченко ©   (2002-10-21 11:11) [5]

REA © (21.10.02 11:08)

Одинаково вычисляется. Дело не в вычислениях а в привычке писать программы так, чтобы через полгода в них что-то понимать

---

← →
Igor_thief ©   (2002-10-25 20:01) [6]

Большое спасибо!

---

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

Скачать: CL | DM;



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