A question about preview.

rbuser

Hi.

I have an exampel that the report does not trigger OnPreviewFormCreate
because I want to set some property to the preview form. Can anyone tell me
why this is not working ????? HELP.

procedure TForm1.Button1Click(Sender: TObject);
begin
with Reprort1 do
begin
Template.FileName := 'test.rtm';
Template.LoadFromFile;
Print;
end;
end;

procedure TForm1.Report1PreviewFormCreate(Sender: TObject);
begin
Report1.PreviewForm.WindowState := wsMaximized;
TppViewer(Report1.PreviewForm.Viewer).ZoomSetting := zs100Percent;
end;


Thanks

J?rgen

digitalmetaphors

Reconnect the event handler after loading the template using the
Report.Template.OnLoadEnd event.

procedure TForm1.LoadEndEvent(Sender: TObject);
begin
ppReport1.OnPreviewFormCreate := PreviewFormCreateEvent;
end;

--
Cheers,

Alexander Kramnik
Digital Metaphors

rbuser

It works.

Thank You.

"Alexander Kramnik (Digital Metaphors)" wrote