Use Toolbar from frxPreviewForm in frxPreview

Poliview

Hello,

There's any way to use the default toolbar from tfrxPreviewForm in an tfrxPreview?
If not, is possible to use the tfrxPreviewForm as an tfrxPreview, I mean, embedded into a form?

Obs.: I'm using Delphi 7.

Thanks

P.S.: The attached file shows the toolbar that I'm referring.

gpi

Try

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;

or create own toolbar with such code for each button:

frxPreview1.Print;
frxPreview1.LoadFromFile;
frxPreview1.SaveToFile;
frxPreview1.Export(Filter);
frxPreview1.Find;
frxPreview1.Zoom:=frxPreview1.Zoom + 0.25;
frxPreview1.Zoom:=frxPreview1.Zoom - 0.25;
frxPreview1.OutlineVisible := frxPreview1.OutlineVisible;
frxPreview1.ThumbnailVisible:=not frxPreview1.ThumbnailVisible;
frxPreview1.PageSetupDlg;
frxPreview1.Edit;
frxPreview1.First;
frxPreview1.Prior;
frxPreview1.PageNo := 1;
frxPreview1.Next;
frxPreview1.Last;

Poliview

gpi wrote: »

Try

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;

This solution worked flawlessly, thanks!

technisoft

I know I am completely lazy here and ask someone else to do some work for me.

How can I add additional buttons to the standard preview toolbar?

gpi

uses frxClass, frxPreview, ComCtrls, ToolWin, Buttons;
...

procedure TForm1.ButtonClick(Sender: TObject);
begin
     ShowMessage('My Button pressed');
end;

procedure TForm1.frxReport1Preview(Sender: TObject);
var
  Button: TSpeedButton;
begin
  // Add new button
  Button := TSpeedButton.Create(TfrxPreviewForm(frxReport1.PreviewForm).ToolBar);
  Button.Parent:=TfrxPreviewForm(frxReport1.PreviewForm).ToolBar;
  Button.Caption:='My Button';
  Button.Width:=60;
  Button.Left:=650;
  // OnClick event for new button
  Button.OnClick:=ButtonClick;
end;

technisoft

Thanks, gpi. Great stuff!

sen

gpi wrote: »

uses frxClass, frxPreview, ComCtrls, ToolWin, Buttons;
...

procedure TForm1.ButtonClick(Sender: TObject);
begin
     ShowMessage('My Button pressed');
end;

procedure TForm1.frxReport1Preview(Sender: TObject);
var
  Button: TSpeedButton;
begin
  // Add new button
  Button := TSpeedButton.Create(TfrxPreviewForm(frxReport1.PreviewForm).ToolBar);
  Button.Parent:=TfrxPreviewForm(frxReport1.PreviewForm).ToolBar;
  Button.Caption:='My Button';
  Button.Width:=60;
  Button.Left:=650;
  // OnClick event for new button
  Button.OnClick:=ButtonClick;
end;

Well, how can I use Dialogpage1 (TfrxDialogPage).

gpi

Do you want to add a button on TfrxDialogPage?

sen

How can I use DevExpress TcxFilterControl component TfrxDialogPage page.

gpi

Yes, you can. If you will write wrapper for it