Zoom in ppDesigner Preview

rbuser

How can I set the zoom in the Report Designer Preview panel in code?

--
Paul
Blueberry Hill Services
www.bbhservices.com

rbuser

Step1: Goto newsgroup digital-metaphors.public.reportbuilder.tech-tips
Step2: Search "zoom"
Step3: read tech-tip from Digital-Metaphors

OK, hier the tip from DM:

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

rbuser

But how about zooming on the design page?

rbuser

Hi Svein,

this feature is currently not implemented - unfortunately.

regards,
Chris Ueberall;

rbuser

You could use my custom report builder component :-). Actually, it is
very simple. Just create your own descendant of TppReport to do that.....I
know I was not going to write the code DM says is necessary to do full
screen previews everywhere I wanted that!

Here is the relevant code extraced from my source...

TAprReport = class(TppReport)
private
FMaximizePreview: Boolean;
protected
procedure DoOnPreviewFormCreate; override;
public
constructor Create(aOwner: TComponent); override;
published
property MaximizePreviewWindow: Boolean read FMaximizePreview write
FMaximizePreview default True;
end;

constructor TAprReport.Create(aOwner: TComponent);
begin
inherited Create(aOwner);
FMaximizePreview:=True; //I want this to default to True in the
component!
end;

procedure TAprReport.DoOnPreviewFormCreate;
begin
if FMaximizePreview then begin
PreviewForm.WindowState := wsMaximized;
TppViewer(PreviewForm.Viewer).ZoomSetting := zs100Percent;
end;
end;



Wayne