{
       модуль с подпрограммами отображения хода процесса.
	   здесь же формируются окно прогресса и выполняется управление
	   контролами хода процесса.
       эти переменные беруться из текущей открытой формы и в явном
     виде объявляться не должны!
       переменные и их инициализацию в begin end. следует расскомментировать
     при отладке скриптов.
}
{не удалять этот комментарий
var
  ProgressBar: TProgressBar;
  StatusBar: TStatusBar;
{не удалять этот комментарий}

procedure ShowProgress( xProgress: integer);
begin
  if (ProgressBar <> nil)
    then ProgressBar.Position := xProgress;
end;

procedure SetProgress( xMin, xMax: integer);
begin
  if (ProgressBar <> nil) then begin
    ProgressBar.Min := xMin;
    ProgressBar.Max := xMax;
  end;
end;

procedure SetProgressBarMax( xMax: integer);
begin
  if (ProgressBar <> nil)
    then ProgressBar.Max := xMax;
end;

procedure ShowProgressNext;
begin
  if (ProgressBar <> nil)
    then ProgressBar.Position := ProgressBar.Position + 1;
end;

procedure SetProgressBar( xMin, xMax: integer);
begin
  SetProgress( xMin, xMax);
end;

procedure StatusBarSimpleText( xText: string);
begin
  if (StatusBar <> nil)
    then StatusBar.SimpleText := xText;
end;

begin
{не удалять этот комментарий
  ProgressBar := nil;
  StatusBar := nil;
{не удалять этот комментарий}
end.
