Disable first screen exporting pdf

Minh · June 2015

When I click on export pdf, I see the first screen (Export to pdf), then second screen(Save As). Is there away that I can disbale the first screen and keep second screen? If I set ShowDialog := False, then both srceen are disabled.

Thanks

gpi · June 2015

Try

uses
Â Â Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Â Â Dialogs, frxClass, frxExportPDF, frxPreview, frxDsgnIntf, Menus;

type
Â Â TForm1 = class(TForm)
Â Â Â Â frxReport1: TfrxReport;
Â Â Â Â frxPDFExport1: TfrxPDFExport;
Â Â Â Â SaveDialog1: TSaveDialog;
Â Â Â Â procedure FormCreate(Sender: TObject);
Â Â Â Â procedure frxReport1Preview(Sender: TObject);
Â Â Â Â procedure PDFExport(Sender: TObject);
Â Â private
Â Â Â Â { Private declarations }
Â Â public
Â Â Â Â { Public declarations }
Â Â end;

var
Â Â Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.PDFExport(Sender: TObject);
begin
Â Â Â Â  if SaveDialog1.Execute then
Â Â Â Â Â Â  begin
Â Â Â Â Â Â Â Â  frxPDFExport1.FileName:=SaveDialog1.FileName;
Â Â Â Â Â Â Â Â  TfrxPreview(frxReport1.Preview).Export(frxPDFExport1);
Â Â Â Â Â Â  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Â Â Â Â  frxPDFExport1.ShowDialog := False;
Â Â Â Â  frxReport1.ShowReport;
end;

procedure TForm1.frxReport1Preview(Sender: TObject);
var i, j, mi: integer;
begin
Â Â Â Â Â Â  TfrxPreviewForm(frxReport1.PreviewForm).PdfB.OnClick:=PDFExport;
Â Â Â Â Â Â  for i := 0 to frxExportFilters.Count - 1 do
Â Â Â Â Â Â Â Â  begin
Â Â Â Â Â Â Â Â Â Â  if TfrxCustomExportFilter(frxExportFilters[i].Filter).ClassName = 'TfrxPDFExport' then
Â Â Â Â Â Â Â Â Â Â Â Â  mi:=i;
Â Â Â Â Â Â Â Â  end;
Â Â Â Â Â Â  TfrxPreviewForm(frxReport1.PreviewForm).ExportPopup.Items[mi].OnClick:=PDFExport;
Â Â Â Â Â Â  for i:=0 to TfrxPreviewForm(frxReport1.PreviewForm).RightMenu.Items.Count-1 do
Â Â Â Â Â Â Â Â  begin
Â Â Â Â Â Â Â Â Â Â  if TfrxPreviewForm(frxReport1.PreviewForm).RightMenu.Items[i].Caption=TfrxPreviewForm(frxReport1.PreviewForm).ExportB.Hint then
Â Â Â Â Â Â Â Â Â Â Â Â  begin
Â Â Â Â Â Â Â Â Â Â Â Â Â Â  for j:=0 to TfrxPreviewForm(frxReport1.PreviewForm).RightMenu.Items[i].Count-1 do
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â  if TfrxPreviewForm(frxReport1.PreviewForm).RightMenu.Items[i][j].Caption=TfrxPreviewForm(frxReport1.PreviewForm).ExportPopup.Items[mi].Caption then
Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â TfrxPreviewForm(frxReport1.PreviewForm).RightMenu.Items[i][j].OnClick:=PDFExport;
Â Â Â Â Â Â Â Â Â Â Â Â  end;
Â Â Â Â Â Â Â Â Â Â  if TfrxPreviewForm(frxReport1.PreviewForm).RightMenu.Items[i].Caption=TfrxPreviewForm(frxReport1.PreviewForm).PdfB.Hint then
Â Â Â Â Â Â Â Â Â Â Â Â  TfrxPreviewForm(frxReport1.PreviewForm).RightMenu.Items[i].OnClick:=PDFExport;
Â Â Â Â Â Â Â Â  end;
end;

end.

stewag25 · July 2017

gpi wrote: »

Try

Â Â Â Â Â Â Â Â Â Â  if TfrxPreviewForm(frxReport1.PreviewForm).RightMenu.Items[i].Caption=TfrxPreviewForm(frxReport1.PreviewForm).ExportB.Hint then

comment: This code work when 'ExportB.' is omitted

Disable first screen exporting pdf

Comments

Leave a Comment