Processing report
Hi,
I'm a newbie in free reports.
I have installed everything and it seems to be working.
The problem what i have is....
OnClickButton(...)
begin
MyReport.LoadFromFile('rep1.frf');
MyReport.Preview;
end;
If I press the button with onClick event described above, the new window is displayed with a caption "Processing report" and a message "Processing page: 1". On the form is only one button "Cancel". I can wait 10 minutes but nothing is happend after. I can just press Cancel button, but I don't see my report...
What do I wrong ? What could be a problem ?
Could you help me ?
Thank you
Jan
PS> the whole code you can see below:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, FR_Class, Grids, DBGrids, DB, DBTables, FR_DSet, FR_DBSet, StdCtrls,
ExtCtrls, FR_View;
type
TForm1 = class(TForm)
Report: TfrReport;
frPreview1: TfrPreview;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Report.LoadFromFile('rep1.frf');
Report.ShowReport;
end;
I'm a newbie in free reports.
I have installed everything and it seems to be working.
The problem what i have is....
OnClickButton(...)
begin
MyReport.LoadFromFile('rep1.frf');
MyReport.Preview;
end;
If I press the button with onClick event described above, the new window is displayed with a caption "Processing report" and a message "Processing page: 1". On the form is only one button "Cancel". I can wait 10 minutes but nothing is happend after. I can just press Cancel button, but I don't see my report...
What do I wrong ? What could be a problem ?
Could you help me ?
Thank you
Jan
PS> the whole code you can see below:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, FR_Class, Grids, DBGrids, DB, DBTables, FR_DSet, FR_DBSet, StdCtrls,
ExtCtrls, FR_View;
type
TForm1 = class(TForm)
Report: TfrReport;
frPreview1: TfrPreview;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Report.LoadFromFile('rep1.frf');
Report.ShowReport;
end;
Comments
I've changed " Report.ShowProgress := False;" and it is working now.