frxPreview toolbar

coolmankk

Hello,

Is there a way to show standard toolbar controls /print,export,etc./ in frxPreview?
By default they are missing.

Thank you.


example:

var
  pp: TfrxPreview;
begin
    pp := TfrxPreview.Create(Self);
    pp.Parent := Self;
    pp.ManualDock( Form2.PageControl1 );

    form2.frxReport1.Preview := pp;
    form2.frxReport1.Clear;
    form2.frxReport1.LoadFromFile( Extractfilepath( Application.ExeName ) + 'test.fr3' );
    form2.frxReport1.ShowReport;
end;

coolmankk

Any suggestions, please?

gpi

procedure TForm1.frxReport1Preview(Sender: TObject);
var
   frmPreview: TfrxPreviewForm;
begin
   frxReport1.PreviewOptions.Modal := False;
   frmPreview := TfrxPreviewForm(frxReport1.PreviewForm);
   frmPreview.BorderStyle := bsNone;
   frmPreview.Parent:=Panel1;
   frmPreview.Left:=0;
   frmPreview.Top:=0;
   frmPreview.Width:=Panel1.ClientWidth;
   frmPreview.Height:=Panel1.ClientHeight;
end;