Форум: "WinAPI";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c