Отображение процесса создания отчета

mutant78

Добрый день!
При построении отчета используется таблица с огромным количеством записей.
Когда пользователь запускает отчет на выполнение ему приходится долго ждать когда он появится на экране.

Вопрос в следующем, возможно например, выводить окно "Подождите пожалуйста..." пока отчет формируется, как только отчет сформировался, убрать это окно и отобразить сам отчет.

Для создания отчета использую FastReport Studio 3.20

Заранее спасибо.

BelRom

Есть вариант сначала подготовить отчет - Report.PrepareReport(.T.), а затем показать на экран уже готовый отчет. Пока готовится можно выдать из своей программы любое сообщение.

mutant78

Спасибо за многочисленные советы , сделал сам
Кому интересно:

var f : Tform; //глобальные переменные
l : TLabel;

procedure Button1OnClick(Sender: TfrxComponent);
//кнопка на форме при нажатии на которую вызывается отчет и передаются
//параметры для его построения
begin
f := TForm.Create(nil);
f.BorderStyle := bsSingle;
f.BorderIcons := (biMinimize);
f.Height := 160;
f.Width := 390;
f.Position := poDesktopCenter;
l := TLabel.Create(f);
l.Parent := f;
l.Caption := 'Пожалуйста подождите...';
l.Font.Size := 10;
l.Width := 332;
l.Height := 16;
l.Alignment := taCenter;
l.Left := 28;
l.Top := 52;
f.Show;
end;

procedure ReportOnStopReport(Sender: TfrxComponent);
begin
l.Free;
f.Free;
end;

Жду коментарии, если будут, может что упростить можно

AlexTZ

Не уверен, что это доступно в Студии - попробуйте TfrxReport.OldStyleProgress := True

mutant78

Почему не доступно?
Очень даже доступно, работает как часы.

FastReport Studio 3.20

mutant78

TfrxReport.OldStyleProgress := True

Попробовал, что-то не работает

alman

mutant78 написал:

TfrxReport.OldStyleProgress := True

Попробовал, что-то не работает

Странно. Только что проверил на отчёте Master/Detail/Supbdetail из поставки Студии. Во время генерации отчёта показывается окошко в котором "бегит" индикатор сформированных страниц.

mutant78

Так я сначала и пытался использовать TfrxReport.OldStyleProgress, ну ни как не захотел работать, вот и пришлось выкручиваться.

alman

mutant78 написал:

Так я сначала и пытался использовать TfrxReport.OldStyleProgress, ну ни как не захотел работать, вот и пришлось выкручиваться.

А какой номер используемой сборки?
Среда разработки Delphi.NET?

mutant78

Отчет сделан в FastReport Studio, вызывается для построения через командную строку из приложения написанного на 4GL.