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;

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

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