Lazarus

Programming => Packages and Libraries => LazReport => Topic started by: GaborBoros on September 22, 2017, 04:37:45 pm

Title: How to reset preview window to the default state?
Post by: GaborBoros on September 22, 2017, 04:37:45 pm

Hi All,

See the below code. When the preview window showed first set scale to 200%, close the preview, preview showed second time and scaled to 200%. Why? How to reset the preview to the original state? (Not just the scale, but everything.)

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2.  
3.  procedure Proc_Report;
4.  var
5.    Report:TfrReport;
6.  
7.  begin
8.    Report:=TfrReport.Create(Self);
9.    Report.Clear;
10.    Report.PrintToDefault:=True;
11.    Report.Pages.Add;
12.    Report.ShowReport;
13.    Report.Free;
14.  end;
15.  
16. begin
17.   Proc_Report;
18.   Proc_Report;
19. end;

Gabor