about oldStyleProgress ???

wiseinfo

We have one report with 300 pages and when we call frReport.PrepareReport it need some time!

the project is mdi application:
frxReport.PreviewOptions.MdiChild:=True;
frxReport.PreviewOptions.Modal:=True;

frxReport.oldStyleProgress:=true;

use frReport.PrepareReport,Can view the progress,User can click cancel button stop the report,but user can click application mainform control ,other form , I'm hope same to FR2.5X,the progress windows is modal ,user can't click other forms,


thank ,Sorry,My english is very pooR!

wiseinfo

I'm now chang source,Fix the problem(bug)

procedure TfrxProgress.FormCreate(Sender: TObject);
begin
CancelB.Caption := frxGet(2);
FActiveForm := Screen.ActiveForm;

if FActiveForm <> nil then
FActiveForm.Enabled := False;
//Wise Add
if Application.MainForm <> nil then
Application.MainForm.Enabled := False;
Bar.Max := 100;
Position := 0;
end;


procedure TfrxProgress.FormDestroy(Sender: TObject);
begin
if FActiveForm <> nil then
FActiveForm.Enabled := True;
//Wise Add
if Application.MainForm <> nil then
Application.MainForm.Enabled := True;
end;