zsZoomSettings #500

rbuser

Delphi 6, Win2K, RBEnt 6.03: New machine, new D6 install, new RB6.03 install. This code:
showmessage('fMain 209 reportPreviewFormCreate');
procedure TfrmMain.testInternalReportPreviewFormCreate(Sender: TObject);
begin
showmessage('fMain 209 reportPreviewFormCreate');
testInternalReport.PreviewForm.WindowState := wsMaximized;
TppViewer(testInternalReport.PreviewForm.Viewer).ZoomSetting := zs100Percent;
end;

The showmessage does not appear, and the preview screen is at 24%.

What might be wrong?

Dennis McFall

digitalmetaphors

Are you loading a report template? Try reassigning the OnPreviewFormCreate
event handler to the report object after the template is loaded.


Cheers,

Jim Bennett
Digital Metaphors