Jump to content

Screenmask when preparing a report.


GerhardV

Recommended Posts

I have a report module based on the UniGUI demos. Some of the larger reports take a while to generate and I want to show the screenmask with "Preparing report...". The parent of the UniURLFrameReport is a TuniFrame.

 

I have tried different variations but cannot get the screenmask to show properly. The mask only appears once the PDF report is downloading.

procedure TframeReport.Initialize;
var
  dm : TdmReportData;
begin
  UniURLFrameReport.ShowMask('Preparing report...');
  dm := TdmReportData.Create(nil);
  try
    UniURLFrameReport.URL := dm.GenerateReportPDF(ImqsReport, '');
  finally
    dm.Free;
    UniURLFrameReport.HideMask;
  end;
end;

Any advice?

Link to comment
Share on other sites

Hi Farshad:

 

Thank you but it does not seem to work with TUniFrame, I also tried with "UniURLFrameReport" but same result. I also noticed that TUniFrame does not have a published property ScreenMask.

procedure TframeReport.Initialize;
var
  dm : TdmReportData;
begin
  ShowMask('Preparing report...');
  UniSession.Synchronize;

  dm := TdmReportData.Create(nil);
  try
    UniURLFrameReport.URL := dm.GenerateReportPDF(ImqsReport, '');
  finally
    dm.Free;
    HideMask;
  end;
end;
Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...