diff options
author | Jean-Marc Levecque <jean-marc.levecque@jmlesite.fr> | 2012-08-28 17:28:51 +0100 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-08-28 17:28:51 +0100 |
commit | a6d92d1a9507f684270f22ac7da7f7309a7b8fab (patch) | |
tree | 5a3b4928e80f36e91f213c3c55f3c7d35ef46d63 /examples/gui/reporting/u_demo.pas | |
parent | edc69a9b2db94201ffd695a589f2996b915c79a5 (diff) | |
download | fpGUI-a6d92d1a9507f684270f22ac7da7f7309a7b8fab.tar.xz |
pdf demo: removes lots of code duplication by moving some functionality into the report unit.
Diffstat (limited to 'examples/gui/reporting/u_demo.pas')
-rw-r--r-- | examples/gui/reporting/u_demo.pas | 534 |
1 files changed, 26 insertions, 508 deletions
diff --git a/examples/gui/reporting/u_demo.pas b/examples/gui/reporting/u_demo.pas index fe5dc342..b8091690 100644 --- a/examples/gui/reporting/u_demo.pas +++ b/examples/gui/reporting/u_demo.pas @@ -22,7 +22,6 @@ uses fpg_checkbox, fpg_dialogs, fpg_spinedit, - fpg_utils, U_Report; type @@ -161,651 +160,170 @@ const Langue = 'F'; procedure TF_Demo.Bt_PdfEmptyPageClick(Sender: TObject); -var - Fd_SavePdf: TfpgFileDialog; - PdfFile: string; - PdfFileStream: TFileStream; begin FReport := T_Report.Create; with FReport do begin // Language:= Version; PrintEmptyPage(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then - begin - ShowMessage('There is no file to print'); - Exit; - end; - Fd_SavePdf := TfpgFileDialog.Create(nil); - Fd_SavePdf.InitialDir := ExtractFilePath(ParamStr(0)); - Fd_SavePdf.FontDesc := 'bitstream vera sans-9'; - Fd_SavePdf.Filter := 'PDF files (*.pdf) |*.pdf'; - Fd_SavePdf.FileName := 'EmptyPage.pdf'; - try - if Fd_SavePdf.RunSaveFile then - begin - PdfFile := Fd_SavePdf.FileName; - if Lowercase(Copy(PdfFile, Length(PdfFile) - 3, 4)) <> '.pdf' then - PdfFile := PdfFile + '.pdf'; - Document := TPdfDocument.CreateDocument(LayoutMode, ZoomValue, Preferences); - with Document do - begin - PdfFileStream := TFileStream.Create(PdfFile, fmCreate); - WriteDocument(PdfFileStream); - PdfFileStream.Free; - Free; - end; - { TODO: Create a cross-platform fpgViewFile() method or something } - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0, PChar('OPEN'), PChar(PdfFile), PChar(''), PChar(''), 1); - {$endif} - end; - finally - Fd_SavePdf.Free; - end; + DefaultFile:= 'EmptyPage.pdf'; + PrintPdf(LayoutMode, ZoomValue, Preferences); Free; end; end; procedure TF_Demo.Bt_PdfSimpleTextClick(Sender: TObject); -var - Fd_SavePdf: TfpgFileDialog; - PdfFile: string; - PdfFileStream: TFileStream; begin FReport := T_Report.Create; with FReport do begin // Language:= Version; PrintSimpleText(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then - begin - ShowMessage('There is no file to print'); - Exit; - end; - Fd_SavePdf := TfpgFileDialog.Create(nil); - Fd_SavePdf.InitialDir := ExtractFilePath(ParamStr(0)); - Fd_SavePdf.FontDesc := 'bitstream vera sans-9'; - Fd_SavePdf.Filter := 'PDF files (*.pdf) |*.pdf'; - Fd_SavePdf.FileName := 'SimpleText.pdf'; - try - if Fd_SavePdf.RunSaveFile then - begin - PdfFile := Fd_SavePdf.FileName; - if Lowercase(Copy(PdfFile, Length(PdfFile) - 3, 4)) <> '.pdf' then - PdfFile := PdfFile + '.pdf'; - Document := TPdfDocument.CreateDocument(LayoutMode, ZoomValue, Preferences); - with Document do - begin - PdfFileStream := TFileStream.Create(PdfFile, fmCreate); - WriteDocument(PdfFileStream); - PdfFileStream.Free; - Free; - end; - { TODO: Create a cross-platform fpgViewFile() method or something } - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0, PChar('OPEN'), PChar(PdfFile), PChar(''), PChar(''), 1); - {$endif} - end; - finally - Fd_SavePdf.Free; - end; + DefaultFile:= 'SimpleText.pdf'; + PrintPdf(LayoutMode, ZoomValue, Preferences); Free; end; end; procedure TF_Demo.Bt_PdfMultiPagesClick(Sender: TObject); -var - Fd_SavePdf: TfpgFileDialog; - PdfFile: string; - PdfFileStream: TFileStream; begin FReport := T_Report.Create; with FReport do begin // Language:= Version; PrintMultiPages(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then - begin - ShowMessage('There is no file to print'); - Exit; - end; - Fd_SavePdf := TfpgFileDialog.Create(nil); - Fd_SavePdf.InitialDir := ExtractFilePath(ParamStr(0)); - Fd_SavePdf.FontDesc := 'bitstream vera sans-9'; - Fd_SavePdf.Filter := 'PDF files (*.pdf) |*.pdf'; - Fd_SavePdf.FileName := 'MultiPages.pdf'; - try - if Fd_SavePdf.RunSaveFile then - begin - PdfFile := Fd_SavePdf.FileName; - if Lowercase(Copy(PdfFile, Length(PdfFile) - 3, 4)) <> '.pdf' then - PdfFile := PdfFile + '.pdf'; - Document := TPdfDocument.CreateDocument(LayoutMode, ZoomValue, Preferences); - with Document do - begin - PdfFileStream := TFileStream.Create(PdfFile, fmCreate); - WriteDocument(PdfFileStream); - PdfFileStream.Free; - Free; - end; - { TODO: Create a cross-platform fpgViewFile() method or something } - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0, PChar('OPEN'), PChar(PdfFile), PChar(''), PChar(''), 1); - {$endif} - end; - finally - Fd_SavePdf.Free; - end; + DefaultFile:= 'MultiPages.pdf'; + PrintPdf(LayoutMode, ZoomValue, Preferences); Free; end; end; procedure TF_Demo.Bt_PdfMultiSectionsClick(Sender: TObject); -var - Fd_SavePdf: TfpgFileDialog; - PdfFile: string; - PdfFileStream: TFileStream; begin FReport := T_Report.Create; with FReport do begin // Language:= Version; PrintMultiSections(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then - begin - ShowMessage('There is no file to print'); - Exit; - end; - Fd_SavePdf := TfpgFileDialog.Create(nil); - Fd_SavePdf.InitialDir := ExtractFilePath(ParamStr(0)); - Fd_SavePdf.FontDesc := 'bitstream vera sans-9'; - Fd_SavePdf.Filter := 'PDF files (*.pdf) |*.pdf'; - Fd_SavePdf.FileName := 'MultiSections.pdf'; - try - if Fd_SavePdf.RunSaveFile then - begin - PdfFile := Fd_SavePdf.FileName; - if Lowercase(Copy(PdfFile, Length(PdfFile) - 3, 4)) <> '.pdf' then - PdfFile := PdfFile + '.pdf'; - Document := TPdfDocument.CreateDocument(LayoutMode, ZoomValue, Preferences); - with Document do - begin - PdfFileStream := TFileStream.Create(PdfFile, fmCreate); - WriteDocument(PdfFileStream); - PdfFileStream.Free; - Free; - end; - { TODO: Create a cross-platform fpgViewFile() method or something } - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0, PChar('OPEN'), PChar(PdfFile), PChar(''), PChar(''), 1); - {$endif} - end; - finally - Fd_SavePdf.Free; - end; + DefaultFile:= 'MultiSections.pdf'; + PrintPdf(LayoutMode, ZoomValue, Preferences); Free; end; end; procedure TF_Demo.Bt_PdfOutlinesClick(Sender: TObject); -var - Fd_SavePdf: TfpgFileDialog; - PdfFile: string; - PdfFileStream: TFileStream; begin FReport := T_Report.Create; with FReport do begin // Language:= Version; PrintOutlines(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then - begin - ShowMessage('There is no file to print'); - Exit; - end; - Fd_SavePdf := TfpgFileDialog.Create(nil); - Fd_SavePdf.InitialDir := ExtractFilePath(ParamStr(0)); - Fd_SavePdf.FontDesc := 'bitstream vera sans-9'; - Fd_SavePdf.Filter := 'PDF files (*.pdf) |*.pdf'; - Fd_SavePdf.FileName := 'Outlines.pdf'; - try - if Fd_SavePdf.RunSaveFile then - begin - PdfFile := Fd_SavePdf.FileName; - if Lowercase(Copy(PdfFile, Length(PdfFile) - 3, 4)) <> '.pdf' then - PdfFile := PdfFile + '.pdf'; - Document := TPdfDocument.CreateDocument(LayoutMode, ZoomValue, Preferences); - with Document do - begin - PdfFileStream := TFileStream.Create(PdfFile, fmCreate); - WriteDocument(PdfFileStream); - PdfFileStream.Free; - Free; - end; - { TODO: Create a cross-platform fpgViewFile() method or something } - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0, PChar('OPEN'), PChar(PdfFile), PChar(''), PChar(''), 1); - {$endif} - end; - finally - Fd_SavePdf.Free; - end; + DefaultFile:= 'Outlines.pdf'; + PrintPdf(LayoutMode, ZoomValue, Preferences); Free; end; end; procedure TF_Demo.Bt_PdfCadresClick(Sender: TObject); -var - Fd_SavePdf: TfpgFileDialog; - PdfFile: string; - PdfFileStream: TFileStream; begin FReport := T_Report.Create; with FReport do begin // Language:= Version; PrintCadres(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then - begin - ShowMessage('There is no file to print'); - Exit; - end; - Fd_SavePdf := TfpgFileDialog.Create(nil); - Fd_SavePdf.InitialDir := ExtractFilePath(ParamStr(0)); - Fd_SavePdf.FontDesc := 'bitstream vera sans-9'; - Fd_SavePdf.Filter := 'PDF files (*.pdf) |*.pdf'; - Fd_SavePdf.FileName := 'Cadres.pdf'; - try - if Fd_SavePdf.RunSaveFile then - begin - PdfFile := Fd_SavePdf.FileName; - if Lowercase(Copy(PdfFile, Length(PdfFile) - 3, 4)) <> '.pdf' then - PdfFile := PdfFile + '.pdf'; - Document := TPdfDocument.CreateDocument(LayoutMode, ZoomValue, Preferences); - with Document do - begin - PdfFileStream := TFileStream.Create(PdfFile, fmCreate); - WriteDocument(PdfFileStream); - PdfFileStream.Free; - Free; - end; - { TODO: Create a cross-platform fpgViewFile() method or something } - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0, PChar('OPEN'), PChar(PdfFile), PChar(''), PChar(''), 1); - {$endif} - end; - finally - Fd_SavePdf.Free; - end; + DefaultFile:= 'Cadres.pdf'; + PrintPdf(LayoutMode, ZoomValue, Preferences); Free; end; end; procedure TF_Demo.Bt_PdfColorClick(Sender: TObject); -var - Fd_SavePdf: TfpgFileDialog; - PdfFile: string; - PdfFileStream: TFileStream; begin FReport := T_Report.Create; with FReport do begin // Language:= Version; PrintColor(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then - begin - ShowMessage('There is no file to print'); - Exit; - end; - Fd_SavePdf := TfpgFileDialog.Create(nil); - Fd_SavePdf.InitialDir := ExtractFilePath(ParamStr(0)); - Fd_SavePdf.FontDesc := 'bitstream vera sans-9'; - Fd_SavePdf.Filter := 'PDF files (*.pdf) |*.pdf'; - Fd_SavePdf.FileName := 'Color.pdf'; - try - if Fd_SavePdf.RunSaveFile then - begin - PdfFile := Fd_SavePdf.FileName; - if Lowercase(Copy(PdfFile, Length(PdfFile) - 3, 4)) <> '.pdf' then - PdfFile := PdfFile + '.pdf'; - Document := TPdfDocument.CreateDocument(LayoutMode, ZoomValue, Preferences); - with Document do - begin - PdfFileStream := TFileStream.Create(PdfFile, fmCreate); - WriteDocument(PdfFileStream); - PdfFileStream.Free; - Free; - end; - { TODO: Create a cross-platform fpgViewFile() method or something } - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0, PChar('OPEN'), PChar(PdfFile), PChar(''), PChar(''), 1); - {$endif} - end; - finally - Fd_SavePdf.Free; - end; + DefaultFile:= 'Color.pdf'; + PrintPdf(LayoutMode, ZoomValue, Preferences); Free; end; end; procedure TF_Demo.Bt_PdfLinesClick(Sender: TObject); -var - Fd_SavePdf: TfpgFileDialog; - PdfFile: string; - PdfFileStream: TFileStream; begin FReport := T_Report.Create; with FReport do begin // Language:= Version; PrintLines(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then - begin - ShowMessage('There is no file to print'); - Exit; - end; - Fd_SavePdf := TfpgFileDialog.Create(nil); - Fd_SavePdf.InitialDir := ExtractFilePath(ParamStr(0)); - Fd_SavePdf.FontDesc := 'bitstream vera sans-9'; - Fd_SavePdf.Filter := 'PDF files (*.pdf) |*.pdf'; - Fd_SavePdf.FileName := 'Lines.pdf'; - try - if Fd_SavePdf.RunSaveFile then - begin - PdfFile := Fd_SavePdf.FileName; - if Lowercase(Copy(PdfFile, Length(PdfFile) - 3, 4)) <> '.pdf' then - PdfFile := PdfFile + '.pdf'; - Document := TPdfDocument.CreateDocument(LayoutMode, ZoomValue, Preferences); - with Document do - begin - PdfFileStream := TFileStream.Create(PdfFile, fmCreate); - WriteDocument(PdfFileStream); - PdfFileStream.Free; - Free; - end; - { TODO: Create a cross-platform fpgViewFile() method or something } - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0, PChar('OPEN'), PChar(PdfFile), PChar(''), PChar(''), 1); - {$endif} - end; - finally - Fd_SavePdf.Free; - end; + DefaultFile:= 'Lines.pdf'; + PrintPdf(LayoutMode, ZoomValue, Preferences); Free; end; end; procedure TF_Demo.Bt_PdfGridClick(Sender: TObject); -var - Fd_SavePdf: TfpgFileDialog; - PdfFile: string; - PdfFileStream: TFileStream; begin FReport := T_Report.Create; with FReport do begin // Language:= Version; PrintGrid(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then - begin - ShowMessage('There is no file to print'); - Exit; - end; - Fd_SavePdf := TfpgFileDialog.Create(nil); - Fd_SavePdf.InitialDir := ExtractFilePath(ParamStr(0)); - Fd_SavePdf.FontDesc := 'bitstream vera sans-9'; - Fd_SavePdf.Filter := 'PDF files (*.pdf) |*.pdf'; - Fd_SavePdf.FileName := 'Grid.pdf'; - try - if Fd_SavePdf.RunSaveFile then - begin - PdfFile := Fd_SavePdf.FileName; - if Lowercase(Copy(PdfFile, Length(PdfFile) - 3, 4)) <> '.pdf' then - PdfFile := PdfFile + '.pdf'; - Document := TPdfDocument.CreateDocument(LayoutMode, ZoomValue, Preferences); - with Document do - begin - PdfFileStream := TFileStream.Create(PdfFile, fmCreate); - WriteDocument(PdfFileStream); - PdfFileStream.Free; - Free; - end; - { TODO: Create a cross-platform fpgViewFile() method or something } - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0, PChar('OPEN'), PChar(PdfFile), PChar(''), PChar(''), 1); - {$endif} - end; - finally - Fd_SavePdf.Free; - end; + DefaultFile:= 'Grid.pdf'; + PrintPdf(LayoutMode, ZoomValue, Preferences); Free; end; end; procedure TF_Demo.Bt_PdfGraphClick(Sender: TObject); -var - Fd_SavePdf: TfpgFileDialog; - PdfFile: string; - PdfFileStream: TFileStream; begin FReport := T_Report.Create; with FReport do begin // Language:= Version; PrintGraph(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then - begin - ShowMessage('There is no file to print'); - Exit; - end; - Fd_SavePdf := TfpgFileDialog.Create(nil); - Fd_SavePdf.InitialDir := ExtractFilePath(ParamStr(0)); - Fd_SavePdf.FontDesc := 'bitstream vera sans-9'; - Fd_SavePdf.Filter := 'PDF files (*.pdf) |*.pdf'; - Fd_SavePdf.FileName := 'Graph.pdf'; - try - if Fd_SavePdf.RunSaveFile then - begin - PdfFile := Fd_SavePdf.FileName; - if Lowercase(Copy(PdfFile, Length(PdfFile) - 3, 4)) <> '.pdf' then - PdfFile := PdfFile + '.pdf'; - Document := TPdfDocument.CreateDocument(LayoutMode, ZoomValue, Preferences); - with Document do - begin - PdfFileStream := TFileStream.Create(PdfFile, fmCreate); - WriteDocument(PdfFileStream); - PdfFileStream.Free; - Free; - end; - { TODO: Create a cross-platform fpgViewFile() method or something } - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0, PChar('OPEN'), PChar(PdfFile), PChar(''), PChar(''), 1); - {$endif} - end; - finally - Fd_SavePdf.Free; - end; + DefaultFile:= 'Graph.pdf'; + PrintPdf(LayoutMode, ZoomValue, Preferences); Free; end; end; procedure TF_Demo.Bt_PdfSurfClick(Sender: TObject); -var - Fd_SavePdf: TfpgFileDialog; - PdfFile: string; - PdfFileStream: TFileStream; begin FReport := T_Report.Create; with FReport do begin // Language:= Version; PrintSurf(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then - begin - ShowMessage('There is no file to print'); - Exit; - end; - Fd_SavePdf := TfpgFileDialog.Create(nil); - Fd_SavePdf.InitialDir := ExtractFilePath(ParamStr(0)); - Fd_SavePdf.FontDesc := 'bitstream vera sans-9'; - Fd_SavePdf.Filter := 'PDF files (*.pdf) |*.pdf'; - Fd_SavePdf.FileName := 'Surface.pdf'; - try - if Fd_SavePdf.RunSaveFile then - begin - PdfFile := Fd_SavePdf.FileName; - if Lowercase(Copy(PdfFile, Length(PdfFile) - 3, 4)) <> '.pdf' then - PdfFile := PdfFile + '.pdf'; - Document := TPdfDocument.CreateDocument(LayoutMode, ZoomValue, Preferences); - with Document do - begin - PdfFileStream := TFileStream.Create(PdfFile, fmCreate); - WriteDocument(PdfFileStream); - PdfFileStream.Free; - Free; - end; - { TODO: Create a cross-platform fpgViewFile() method or something } - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0, PChar('OPEN'), PChar(PdfFile), PChar(''), PChar(''), 1); - {$endif} - end; - finally - Fd_SavePdf.Free; - end; + DefaultFile:= 'Surface.pdf'; + PrintPdf(LayoutMode, ZoomValue, Preferences); Free; end; end; procedure TF_Demo.Bt_PdfImagClick(Sender: TObject); -var - Fd_SavePdf: TfpgFileDialog; - PdfFile: string; - PdfFileStream: TFileStream; begin FReport := T_Report.Create; with FReport do begin // Language:= Version; PrintImage(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then - begin - ShowMessage('There is no file to print'); - Exit; - end; - Fd_SavePdf := TfpgFileDialog.Create(nil); - Fd_SavePdf.InitialDir := ExtractFilePath(ParamStr(0)); - Fd_SavePdf.FontDesc := 'bitstream vera sans-9'; - Fd_SavePdf.Filter := 'PDF files (*.pdf) |*.pdf'; - Fd_SavePdf.FileName := 'Images.pdf'; - try - if Fd_SavePdf.RunSaveFile then - begin - PdfFile := Fd_SavePdf.FileName; - if Lowercase(Copy(PdfFile, Length(PdfFile) - 3, 4)) <> '.pdf' then - PdfFile := PdfFile + '.pdf'; - Document := TPdfDocument.CreateDocument(LayoutMode, ZoomValue, Preferences); - with Document do - begin - PdfFileStream := TFileStream.Create(PdfFile, fmCreate); - WriteDocument(PdfFileStream); - PdfFileStream.Free; - Free; - end; - { TODO: Create a cross-platform fpgViewFile() method or something } - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0, PChar('OPEN'), PChar(PdfFile), PChar(''), PChar(''), 1); - {$endif} - end; - finally - Fd_SavePdf.Free; - end; + DefaultFile:= 'Images.pdf'; + PrintPdf(LayoutMode, ZoomValue, Preferences); Free; end; end; procedure TF_Demo.Bt_PdfTtfFontClick(Sender: TObject); -var - Fd_SavePdf: TfpgFileDialog; - PdfFile: string; - PdfFileStream: TFileStream; begin FReport := T_Report.Create; with FReport do begin // Language:= Version; PrintTtfFont(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then - begin - ShowMessage('There is no file to print'); - Exit; - end; - Fd_SavePdf := TfpgFileDialog.Create(nil); - Fd_SavePdf.InitialDir := ExtractFilePath(ParamStr(0)); - Fd_SavePdf.FontDesc := 'bitstream vera sans-9'; - Fd_SavePdf.Filter := 'PDF files (*.pdf) |*.pdf'; - Fd_SavePdf.FileName := 'TtfFont.pdf'; - try - if Fd_SavePdf.RunSaveFile then - begin - PdfFile := Fd_SavePdf.FileName; - if Lowercase(Copy(PdfFile, Length(PdfFile) - 3, 4)) <> '.pdf' then - PdfFile := PdfFile + '.pdf'; - Document := TPdfDocument.CreateDocument(LayoutMode, ZoomValue, Preferences); - with Document do - begin - PdfFileStream := TFileStream.Create(PdfFile, fmCreate); - WriteDocument(PdfFileStream); - PdfFileStream.Free; - Free; - end; - { TODO: Create a cross-platform fpgViewFile() method or something } - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0, PChar('OPEN'), PChar(PdfFile), PChar(''), PChar(''), 1); - {$endif} - end; - finally - Fd_SavePdf.Free; - end; + DefaultFile:= 'TtfFont.pdf'; + PrintPdf(LayoutMode, ZoomValue, Preferences); Free; end; end; |