Текущий архив: 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.44 MB
Время: 0.008 c
