diff options
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/gui/reporting/pdf_demo.lpr | 9 | ||||
| -rw-r--r-- | examples/gui/reporting/u_demo.pas | 2564 |
2 files changed, 1273 insertions, 1300 deletions
diff --git a/examples/gui/reporting/pdf_demo.lpr b/examples/gui/reporting/pdf_demo.lpr index 9593287c..f640cc50 100644 --- a/examples/gui/reporting/pdf_demo.lpr +++ b/examples/gui/reporting/pdf_demo.lpr @@ -13,17 +13,20 @@ uses U_Demo; procedure MainProc; +var + frm: TF_Demo; begin fpgApplication.Initialize; - F_Demo:= TF_Demo.Create(nil); + frm := TF_Demo.Create(nil); try - F_Demo.Show; + frm.Show; fpgApplication.Run; finally - F_Demo.Free; + frm.Free; end; end; begin MainProc; end. + diff --git a/examples/gui/reporting/u_demo.pas b/examples/gui/reporting/u_demo.pas index 424cd574..33db3a64 100644 --- a/examples/gui/reporting/u_demo.pas +++ b/examples/gui/reporting/u_demo.pas @@ -1,3 +1,5 @@ +{ Demo program for PDF Reporting engine } + unit U_Demo; {$mode objfpc}{$H+} @@ -5,149 +7,158 @@ unit U_Demo; interface uses - Classes, SysUtils, + Classes, + SysUtils, {$ifdef win32} ShellApi, {$endif} - fpg_main, fpg_base, - fpg_form, fpg_button, fpg_label, fpg_panel, fpg_radiobutton, fpg_checkbox, fpg_dialogs, fpg_spinedit, fpg_utils, + fpg_main, + fpg_base, + fpg_form, + fpg_button, + fpg_label, + fpg_panel, + fpg_radiobutton, + fpg_checkbox, + fpg_dialogs, + fpg_spinedit, + fpg_utils, U_Report; type TF_Demo = class(TfpgForm) - private - FReport: T_Report; - L_Pdf: TfpgLabel; - Bt_PdfEmptyPage: TfpgButton; - Bt_PdfSimpleText: TfpgButton; - Bt_PdfMultiPages: TfpgButton; - Bt_PdfMultiSections: TfpgButton; - Bt_PdfOutlines: TfpgButton; - Bt_PdfCadres: TfpgButton; - Bt_PdfColor: TfpgButton; - Bt_PdfLines: TfpgButton; - Bt_PdfGrid: TfpgButton; - Bt_PdfGraph: TfpgButton; - Bt_PdfSurf: TfpgButton; - Bt_PdfImages: TfpgButton; - Bt_PdfTtfFont: TfpgButton; - L_Visu: TfpgLabel; - Bt_VisuEmptyPage: TfpgButton; - Bt_VisuSimpleText: TfpgButton; - Bt_VisuMultiPages: TfpgButton; - Bt_VisuMultiSections: TfpgButton; - Bt_VisuOutlines: TfpgButton; - Bt_VisuCadres: TfpgButton; - Bt_VisuColor: TfpgButton; - Bt_VisuLines: TfpgButton; - Bt_VisuGrid: TfpgButton; - Bt_VisuGraph: TfpgButton; - Bt_VisuSurf: TfpgButton; - Bt_VisuImages: TfpgButton; - Bt_VisuTtfFont: TfpgButton; - L_Print: TfpgLabel; - Bt_PrintEmptyPage: TfpgButton; - Bt_PrintSimpleText: TfpgButton; - Bt_PrintMultiPages: TfpgButton; - Bt_PrintMultiSections: TfpgButton; - Bt_PrintOutlines: TfpgButton; - Bt_PrintCadres: TfpgButton; - Bt_PrintColor: TfpgButton; - Bt_PrintLines: TfpgButton; - Bt_PrintGrid: TfpgButton; - Bt_PrintGraph: TfpgButton; - Bt_PrintSurf: TfpgButton; - Bt_PrintImages: TfpgButton; - Bt_PrintTtfFont: TfpgButton; - L_Settings: TfpgLabel; - Ckb_Preferences: TfpgCheckBox; - P_Zoom: TfpgPanel; - SE_Zoom: TFpgSpinEdit; - L_Zoom: TfpgLabel; - P_Layout: TfpgPanel; - RB_Single: TfpgRadiobutton; - RB_Two: TfpgRadiobutton; - RB_Continuous: TfpgRadiobutton; - Bt_FontDir: TfpgButton; - Bt_Exit: TfpgButton; - procedure Bt_PdfEmptyPageClick(Sender: TObject); - procedure Bt_PdfSimpleTextClick(Sender: TObject); - procedure Bt_PdfMultiPagesClick(Sender: TObject); - procedure Bt_PdfMultiSectionsClick(Sender: TObject); - procedure Bt_PdfOutlinesClick(Sender: TObject); - procedure Bt_PdfCadresClick(Sender: TObject); - procedure Bt_PdfColorClick(Sender: TObject); - procedure Bt_PdfLinesClick(Sender: TObject); - procedure Bt_PdfGridClick(Sender: TObject); - procedure Bt_PdfGraphClick(Sender: TObject); - procedure Bt_PdfSurfClick(Sender: TObject); - procedure Bt_PdfImagClick(Sender: TObject); - procedure Bt_PdfTtfFontClick(Sender: TObject); - procedure Bt_VisuEmptyPageClick(Sender: TObject); - procedure Bt_VisuSimpleTextClick(Sender: TObject); - procedure Bt_VisuMultiPagesClick(Sender: TObject); - procedure Bt_VisuMultiSectionsClick(Sender: TObject); - procedure Bt_VisuOutlinesClick(Sender: TObject); - procedure Bt_VisuCadresClick(Sender: TObject); - procedure Bt_VisuColorClick(Sender: TObject); - procedure Bt_VisuLinesClick(Sender: TObject); - procedure Bt_VisuGridClick(Sender: TObject); - procedure Bt_VisuGraphClick(Sender: TObject); - procedure Bt_VisuSurfClick(Sender: TObject); - procedure Bt_VisuImagClick(Sender: TObject); - procedure Bt_VisuTtfFontClick(Sender: TObject); - procedure Bt_PrintEmptyPageClick(Sender: TObject); - procedure Bt_PrintSimpleTextClick(Sender: TObject); - procedure Bt_PrintMultiPagesClick(Sender: TObject); - procedure Bt_PrintMultiSectionsClick(Sender: TObject); - procedure Bt_PrintOutlinesClick(Sender: TObject); - procedure Bt_PrintCadresClick(Sender: TObject); - procedure Bt_PrintColorClick(Sender: TObject); - procedure Bt_PrintLinesClick(Sender: TObject); - procedure Bt_PrintGridClick(Sender: TObject); - procedure Bt_PrintGraphClick(Sender: TObject); - procedure Bt_PrintSurfClick(Sender: TObject); - procedure Bt_PrintImagClick(Sender: TObject); - procedure Bt_PrintTtfFontClick(Sender: TObject); - procedure Bt_ExitClick(Sender: TObject); - procedure Bt_FontDirClick(Sender: TObject); - procedure PrintEmptyPage(Preview: Boolean); - procedure PrintSimpleText(Preview: Boolean); - procedure PrintMultiPages(Preview: Boolean); - procedure PrintMultiSections(Preview: Boolean); - procedure PrintOutlines(Preview: Boolean); - procedure PrintCadres(Preview: Boolean); - procedure PrintColor(Preview: Boolean); - procedure PrintLines(Preview: Boolean); - procedure PrintGrid(Preview: Boolean); - procedure PrintGraph(Preview: Boolean); - procedure PrintSurf(Preview: Boolean); - procedure PrintImage(Preview: Boolean); - procedure PrintTtfFont(Preview: Boolean); - procedure Ckb_PreferencesChange(Sender: TObject); - procedure SE_ZoomChange(Sender: TObject); - procedure SE_ZoomExit(Sender: TObject); - procedure P_LayoutRBChange(Sender: TObject); - public - constructor Create(AOwner: TComponent); override; - end; + private + FReport: T_Report; + L_Pdf: TfpgLabel; + Bt_PdfEmptyPage: TfpgButton; + Bt_PdfSimpleText: TfpgButton; + Bt_PdfMultiPages: TfpgButton; + Bt_PdfMultiSections: TfpgButton; + Bt_PdfOutlines: TfpgButton; + Bt_PdfCadres: TfpgButton; + Bt_PdfColor: TfpgButton; + Bt_PdfLines: TfpgButton; + Bt_PdfGrid: TfpgButton; + Bt_PdfGraph: TfpgButton; + Bt_PdfSurf: TfpgButton; + Bt_PdfImages: TfpgButton; + Bt_PdfTtfFont: TfpgButton; + L_Visu: TfpgLabel; + Bt_VisuEmptyPage: TfpgButton; + Bt_VisuSimpleText: TfpgButton; + Bt_VisuMultiPages: TfpgButton; + Bt_VisuMultiSections: TfpgButton; + Bt_VisuOutlines: TfpgButton; + Bt_VisuCadres: TfpgButton; + Bt_VisuColor: TfpgButton; + Bt_VisuLines: TfpgButton; + Bt_VisuGrid: TfpgButton; + Bt_VisuGraph: TfpgButton; + Bt_VisuSurf: TfpgButton; + Bt_VisuImages: TfpgButton; + Bt_VisuTtfFont: TfpgButton; + L_Print: TfpgLabel; + Bt_PrintEmptyPage: TfpgButton; + Bt_PrintSimpleText: TfpgButton; + Bt_PrintMultiPages: TfpgButton; + Bt_PrintMultiSections: TfpgButton; + Bt_PrintOutlines: TfpgButton; + Bt_PrintCadres: TfpgButton; + Bt_PrintColor: TfpgButton; + Bt_PrintLines: TfpgButton; + Bt_PrintGrid: TfpgButton; + Bt_PrintGraph: TfpgButton; + Bt_PrintSurf: TfpgButton; + Bt_PrintImages: TfpgButton; + Bt_PrintTtfFont: TfpgButton; + L_Settings: TfpgLabel; + Ckb_Preferences: TfpgCheckBox; + P_Zoom: TfpgPanel; + SE_Zoom: TFpgSpinEdit; + L_Zoom: TfpgLabel; + P_Layout: TfpgPanel; + RB_Single: TfpgRadiobutton; + RB_Two: TfpgRadiobutton; + RB_Continuous: TfpgRadiobutton; + Bt_FontDir: TfpgButton; + Bt_Exit: TfpgButton; + procedure Bt_PdfEmptyPageClick(Sender: TObject); + procedure Bt_PdfSimpleTextClick(Sender: TObject); + procedure Bt_PdfMultiPagesClick(Sender: TObject); + procedure Bt_PdfMultiSectionsClick(Sender: TObject); + procedure Bt_PdfOutlinesClick(Sender: TObject); + procedure Bt_PdfCadresClick(Sender: TObject); + procedure Bt_PdfColorClick(Sender: TObject); + procedure Bt_PdfLinesClick(Sender: TObject); + procedure Bt_PdfGridClick(Sender: TObject); + procedure Bt_PdfGraphClick(Sender: TObject); + procedure Bt_PdfSurfClick(Sender: TObject); + procedure Bt_PdfImagClick(Sender: TObject); + procedure Bt_PdfTtfFontClick(Sender: TObject); + procedure Bt_VisuEmptyPageClick(Sender: TObject); + procedure Bt_VisuSimpleTextClick(Sender: TObject); + procedure Bt_VisuMultiPagesClick(Sender: TObject); + procedure Bt_VisuMultiSectionsClick(Sender: TObject); + procedure Bt_VisuOutlinesClick(Sender: TObject); + procedure Bt_VisuCadresClick(Sender: TObject); + procedure Bt_VisuColorClick(Sender: TObject); + procedure Bt_VisuLinesClick(Sender: TObject); + procedure Bt_VisuGridClick(Sender: TObject); + procedure Bt_VisuGraphClick(Sender: TObject); + procedure Bt_VisuSurfClick(Sender: TObject); + procedure Bt_VisuImagClick(Sender: TObject); + procedure Bt_VisuTtfFontClick(Sender: TObject); + procedure Bt_PrintEmptyPageClick(Sender: TObject); + procedure Bt_PrintSimpleTextClick(Sender: TObject); + procedure Bt_PrintMultiPagesClick(Sender: TObject); + procedure Bt_PrintMultiSectionsClick(Sender: TObject); + procedure Bt_PrintOutlinesClick(Sender: TObject); + procedure Bt_PrintCadresClick(Sender: TObject); + procedure Bt_PrintColorClick(Sender: TObject); + procedure Bt_PrintLinesClick(Sender: TObject); + procedure Bt_PrintGridClick(Sender: TObject); + procedure Bt_PrintGraphClick(Sender: TObject); + procedure Bt_PrintSurfClick(Sender: TObject); + procedure Bt_PrintImagClick(Sender: TObject); + procedure Bt_PrintTtfFontClick(Sender: TObject); + procedure Bt_ExitClick(Sender: TObject); + procedure Bt_FontDirClick(Sender: TObject); + procedure PrintEmptyPage(Preview: Boolean); + procedure PrintSimpleText(Preview: Boolean); + procedure PrintMultiPages(Preview: Boolean); + procedure PrintMultiSections(Preview: Boolean); + procedure PrintOutlines(Preview: Boolean); + procedure PrintCadres(Preview: Boolean); + procedure PrintColor(Preview: Boolean); + procedure PrintLines(Preview: Boolean); + procedure PrintGrid(Preview: Boolean); + procedure PrintGraph(Preview: Boolean); + procedure PrintSurf(Preview: Boolean); + procedure PrintImage(Preview: Boolean); + procedure PrintTtfFont(Preview: Boolean); + procedure Ckb_PreferencesChange(Sender: TObject); + procedure SE_ZoomChange(Sender: TObject); + procedure SE_ZoomExit(Sender: TObject); + procedure P_LayoutRBChange(Sender: TObject); + public + constructor Create(AOwner: TComponent); override; + end; -var - F_Demo: TF_Demo; implementation uses - U_Command, U_Pdf; + U_Command, + U_Pdf; var - ChartValues: array[0..18] of Integer; + ChartValues: array[0..18] of integer; Preferences: Boolean; ZoomValue: string; LayoutMode: TPageLayout; const - Langue= 'F'; + Langue = 'F'; procedure TF_Demo.Bt_PdfEmptyPageClick(Sender: TObject); var @@ -155,49 +166,47 @@ var PdfFile: string; PdfFileStream: TFileStream; begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin -// Language:= Version; - PrintEmptyPage(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 - then + // Language:= Version; + PrintEmptyPage(False); + if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then begin - ShowMessage('There is no file to print'); - Exit; + 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 + 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 + 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; + PdfFileStream := TFileStream.Create(PdfFile, fmCreate); + WriteDocument(PdfFileStream); + PdfFileStream.Free; + Free; end; - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0,PChar('OPEN'),PChar(PdfFile),PChar(''),PChar(''),1); - {$endif} + { 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; + finally + Fd_SavePdf.Free; end; - Free; + Free; end; end; @@ -207,49 +216,47 @@ var PdfFile: string; PdfFileStream: TFileStream; begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin -// Language:= Version; - PrintSimpleText(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 - then + // Language:= Version; + PrintSimpleText(False); + if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then begin - ShowMessage('There is no file to print'); - Exit; + 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 + 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 + 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; + PdfFileStream := TFileStream.Create(PdfFile, fmCreate); + WriteDocument(PdfFileStream); + PdfFileStream.Free; + Free; end; - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0,PChar('OPEN'),PChar(PdfFile),PChar(''),PChar(''),1); - {$endif} + { 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; + finally + Fd_SavePdf.Free; end; - Free; + Free; end; end; @@ -259,49 +266,47 @@ var PdfFile: string; PdfFileStream: TFileStream; begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin -// Language:= Version; - PrintMultiPages(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 - then + // Language:= Version; + PrintMultiPages(False); + if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then begin - ShowMessage('There is no file to print'); - Exit; + 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 + 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 + 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; + PdfFileStream := TFileStream.Create(PdfFile, fmCreate); + WriteDocument(PdfFileStream); + PdfFileStream.Free; + Free; end; - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0,PChar('OPEN'),PChar(PdfFile),PChar(''),PChar(''),1); - {$endif} + { 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; + finally + Fd_SavePdf.Free; end; - Free; + Free; end; end; @@ -311,49 +316,47 @@ var PdfFile: string; PdfFileStream: TFileStream; begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin -// Language:= Version; - PrintMultiSections(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 - then + // Language:= Version; + PrintMultiSections(False); + if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then begin - ShowMessage('There is no file to print'); - Exit; + 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 + 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 + 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; + PdfFileStream := TFileStream.Create(PdfFile, fmCreate); + WriteDocument(PdfFileStream); + PdfFileStream.Free; + Free; end; - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0,PChar('OPEN'),PChar(PdfFile),PChar(''),PChar(''),1); - {$endif} + { 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; + finally + Fd_SavePdf.Free; end; - Free; + Free; end; end; @@ -363,49 +366,47 @@ var PdfFile: string; PdfFileStream: TFileStream; begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin -// Language:= Version; - PrintOutlines(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 - then + // Language:= Version; + PrintOutlines(False); + if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then begin - ShowMessage('There is no file to print'); - Exit; + 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 + 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 + 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; + PdfFileStream := TFileStream.Create(PdfFile, fmCreate); + WriteDocument(PdfFileStream); + PdfFileStream.Free; + Free; end; - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0,PChar('OPEN'),PChar(PdfFile),PChar(''),PChar(''),1); - {$endif} + { 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; + finally + Fd_SavePdf.Free; end; - Free; + Free; end; end; @@ -415,49 +416,47 @@ var PdfFile: string; PdfFileStream: TFileStream; begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin -// Language:= Version; - PrintCadres(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 - then + // Language:= Version; + PrintCadres(False); + if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then begin - ShowMessage('There is no file to print'); - Exit; + 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 + 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 + 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; + PdfFileStream := TFileStream.Create(PdfFile, fmCreate); + WriteDocument(PdfFileStream); + PdfFileStream.Free; + Free; end; - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0,PChar('OPEN'),PChar(PdfFile),PChar(''),PChar(''),1); - {$endif} + { 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; + finally + Fd_SavePdf.Free; end; - Free; + Free; end; end; @@ -467,49 +466,47 @@ var PdfFile: string; PdfFileStream: TFileStream; begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin -// Language:= Version; - PrintColor(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 - then + // Language:= Version; + PrintColor(False); + if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then begin - ShowMessage('There is no file to print'); - Exit; + 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 + 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 + 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; + PdfFileStream := TFileStream.Create(PdfFile, fmCreate); + WriteDocument(PdfFileStream); + PdfFileStream.Free; + Free; end; - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0,PChar('OPEN'),PChar(PdfFile),PChar(''),PChar(''),1); - {$endif} + { 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; + finally + Fd_SavePdf.Free; end; - Free; + Free; end; end; @@ -519,49 +516,47 @@ var PdfFile: string; PdfFileStream: TFileStream; begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin -// Language:= Version; - PrintLines(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 - then + // Language:= Version; + PrintLines(False); + if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then begin - ShowMessage('There is no file to print'); - Exit; + 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 + 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 + 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; + PdfFileStream := TFileStream.Create(PdfFile, fmCreate); + WriteDocument(PdfFileStream); + PdfFileStream.Free; + Free; end; - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0,PChar('OPEN'),PChar(PdfFile),PChar(''),PChar(''),1); - {$endif} + { 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; + finally + Fd_SavePdf.Free; end; - Free; + Free; end; end; @@ -571,49 +566,47 @@ var PdfFile: string; PdfFileStream: TFileStream; begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin -// Language:= Version; - PrintGrid(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 - then + // Language:= Version; + PrintGrid(False); + if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then begin - ShowMessage('There is no file to print'); - Exit; + 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 + 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 + 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; + PdfFileStream := TFileStream.Create(PdfFile, fmCreate); + WriteDocument(PdfFileStream); + PdfFileStream.Free; + Free; end; - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0,PChar('OPEN'),PChar(PdfFile),PChar(''),PChar(''),1); - {$endif} + { 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; + finally + Fd_SavePdf.Free; end; - Free; + Free; end; end; @@ -623,49 +616,47 @@ var PdfFile: string; PdfFileStream: TFileStream; begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin -// Language:= Version; - PrintGraph(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 - then + // Language:= Version; + PrintGraph(False); + if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then begin - ShowMessage('There is no file to print'); - Exit; + 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 + 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 + 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; + PdfFileStream := TFileStream.Create(PdfFile, fmCreate); + WriteDocument(PdfFileStream); + PdfFileStream.Free; + Free; end; - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0,PChar('OPEN'),PChar(PdfFile),PChar(''),PChar(''),1); - {$endif} + { 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; + finally + Fd_SavePdf.Free; end; - Free; + Free; end; end; @@ -675,49 +666,47 @@ var PdfFile: string; PdfFileStream: TFileStream; begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin -// Language:= Version; - PrintSurf(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 - then + // Language:= Version; + PrintSurf(False); + if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then begin - ShowMessage('There is no file to print'); - Exit; + 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 + 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 + 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; + PdfFileStream := TFileStream.Create(PdfFile, fmCreate); + WriteDocument(PdfFileStream); + PdfFileStream.Free; + Free; end; - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0,PChar('OPEN'),PChar(PdfFile),PChar(''),PChar(''),1); - {$endif} + { 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; + finally + Fd_SavePdf.Free; end; - Free; + Free; end; end; @@ -727,49 +716,47 @@ var PdfFile: string; PdfFileStream: TFileStream; begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin -// Language:= Version; - PrintImage(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 - then + // Language:= Version; + PrintImage(False); + if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then begin - ShowMessage('There is no file to print'); - Exit; + 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 + 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 + 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; + PdfFileStream := TFileStream.Create(PdfFile, fmCreate); + WriteDocument(PdfFileStream); + PdfFileStream.Free; + Free; end; - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0,PChar('OPEN'),PChar(PdfFile),PChar(''),PChar(''),1); - {$endif} + { 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; + finally + Fd_SavePdf.Free; end; - Free; + Free; end; end; @@ -779,205 +766,203 @@ var PdfFile: string; PdfFileStream: TFileStream; begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin -// Language:= Version; - PrintTtfFont(False); - if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 - then + // Language:= Version; + PrintTtfFont(False); + if T_Section(Sections[Pred(Sections.Count)]).TotPages = 0 then begin - ShowMessage('There is no file to print'); - Exit; + 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 + 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 + 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; + PdfFileStream := TFileStream.Create(PdfFile, fmCreate); + WriteDocument(PdfFileStream); + PdfFileStream.Free; + Free; end; - {$ifdef linux} - fpgOpenURL(PdfFile); - {$endif} - {$ifdef win32} - ShellExecute(0,PChar('OPEN'),PChar(PdfFile),PChar(''),PChar(''),1); - {$endif} + { 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; + finally + Fd_SavePdf.Free; end; - Free; + Free; end; end; procedure TF_Demo.Bt_VisuEmptyPageClick(Sender: TObject); begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin - //Language:= Version; - DefaultFile:= 'EmptyPage.pdf'; - PrintEmptyPage(True); - Free; + //Language:= Version; + DefaultFile := 'EmptyPage.pdf'; + PrintEmptyPage(True); + Free; end; end; procedure TF_Demo.Bt_VisuSimpleTextClick(Sender: TObject); begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin - //Language:= Version; - DefaultFile:= 'SimpleText.pdf'; - PrintSimpleText(True); - Free; + //Language:= Version; + DefaultFile := 'SimpleText.pdf'; + PrintSimpleText(True); + Free; end; end; procedure TF_Demo.Bt_VisuMultiPagesClick(Sender: TObject); begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin - //Language:= Version; - DefaultFile:= 'MultiPages.pdf'; - PrintMultiPages(True); - Free; + //Language:= Version; + DefaultFile := 'MultiPages.pdf'; + PrintMultiPages(True); + Free; end; end; procedure TF_Demo.Bt_VisuMultiSectionsClick(Sender: TObject); begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin - //Language:= Version; - DefaultFile:= 'MultiSections.pdf'; - PrintMultiSections(True); - Free; + //Language:= Version; + DefaultFile := 'MultiSections.pdf'; + PrintMultiSections(True); + Free; end; end; procedure TF_Demo.Bt_VisuOutlinesClick(Sender: TObject); begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin - //Language:= Version; - DefaultFile:= 'Outlines.pdf'; - PrintOutlines(True); - Free; + //Language:= Version; + DefaultFile := 'Outlines.pdf'; + PrintOutlines(True); + Free; end; end; procedure TF_Demo.Bt_VisuCadresClick(Sender: TObject); begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin - //Language:= Version; - DefaultFile:= 'Cadres.pdf'; - PrintCadres(True); - Free; + //Language:= Version; + DefaultFile := 'Cadres.pdf'; + PrintCadres(True); + Free; end; end; procedure TF_Demo.Bt_VisuColorClick(Sender: TObject); begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin - //Language:= Version; - DefaultFile:= 'Color.pdf'; - PrintColor(True); - Free; + //Language:= Version; + DefaultFile := 'Color.pdf'; + PrintColor(True); + Free; end; end; procedure TF_Demo.Bt_VisuLinesClick(Sender: TObject); begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin - //Language:= Version; - DefaultFile:= 'Lines.pdf'; - PrintLines(True); - Free; + //Language:= Version; + DefaultFile := 'Lines.pdf'; + PrintLines(True); + Free; end; end; procedure TF_Demo.Bt_VisuGridClick(Sender: TObject); begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin - //Language:= Version; - DefaultFile:= 'Grid.pdf'; - PrintGrid(True); - Free; + //Language:= Version; + DefaultFile := 'Grid.pdf'; + PrintGrid(True); + Free; end; end; procedure TF_Demo.Bt_VisuGraphClick(Sender: TObject); begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin - //Language:= Version; - DefaultFile:= 'Graph.pdf'; - PrintGraph(True); - Free; + //Language:= Version; + DefaultFile := 'Graph.pdf'; + PrintGraph(True); + Free; end; end; procedure TF_Demo.Bt_VisuSurfClick(Sender: TObject); begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin - //Language:= Version; - DefaultFile:= 'Surface.pdf'; - PrintSurf(True); - Free; + //Language:= Version; + DefaultFile := 'Surface.pdf'; + PrintSurf(True); + Free; end; end; procedure TF_Demo.Bt_VisuImagClick(Sender: TObject); begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin - //Language:= Version; - DefaultFile:= 'Images.pdf'; - PrintImage(True); - Free; + //Language:= Version; + DefaultFile := 'Images.pdf'; + PrintImage(True); + Free; end; end; procedure TF_Demo.Bt_VisuTtfFontClick(Sender: TObject); begin -FReport:= T_Report.Create; -with FReport do + FReport := T_Report.Create; + with FReport do begin - //Language:= Version; - DefaultFile:= 'TtfFont.pdf'; - PrintTtfFont(True); - Free; + //Language:= Version; + DefaultFile := 'TtfFont.pdf'; + PrintTtfFont(True); + Free; end; end; @@ -1048,772 +1033,757 @@ end; procedure TF_Demo.Bt_FontDirClick(Sender: TObject); begin -FontDirectory:= SelectDirDialog('/Home'); + { TODO: Change the initial directory to a cross-platform option } + FontDirectory := SelectDirDialog('/Home'); end; procedure TF_Demo.Bt_ExitClick(Sender: TObject); begin -Close; + Close; end; procedure TF_Demo.PrintEmptyPage(Preview: Boolean); begin -with FReport do + with FReport do begin - // define orientation, page format, measurement unit, language, preview (true) or print (false) - BeginWrite(oPortrait,A4,msMM,Langue,Preview); - // create a new section and define the margins - Section(0,0,0,0); - // create an empty page - Page; - // preparation is finished, so create PDF objects - EndWrite; + // define orientation, page format, measurement unit, language, preview (true) or print (false) + BeginWrite(oPortrait, A4, msMM, Langue, Preview); + // create a new section and define the margins + Section(0, 0, 0, 0); + // create an empty page + Page; + // preparation is finished, so create PDF objects + EndWrite; end; end; procedure TF_Demo.PrintSimpleText(Preview: Boolean); var - FtText1,FtText2,FtText3: Integer; + FtText1, FtText2, FtText3: integer; begin -with FReport do + with FReport do begin - // define orientation, page format, measurement unit, language, preview (true) or print (false) - BeginWrite(oPortrait,A4,msMM,Langue,Preview); - // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) - FtText1:= Font('helvetica-15:bold',clBlack); - FtText2:= Font('helvetica-8',clBlack); - FtText3:= Font('helvetica-8:italic',clBlack); - // create a new section and define the margins: 10 mm each side - Section(10,10,10,10); - // write the text at position 100 mm from left and 120 mm from top - WritePage(100,120,'Big text at absolute position',-1,FtText1); - // write the text aligned to left - WritePage(cnLeft,50,'Text aligned to left (50mm from the top)',ColDefaut,FtText2); - // write the text aligned to right - WritePage(cnRight,75,'Text aligned to right (75mm from the top)',ColDefaut,FtText3); - // write the text aligned to center - WritePage(cnCenter,100,'Text aligned to center(100mm from the top)',ColDefaut,FtText2); - // write a long text in the default column - WritePage(cnLeft,150,'This long text is supposed to be written on two lines in ColDefaut (and does include parenthesis). If it does not, there is obviously a remaining bug in the way wrapping is performed.',ColDefaut,FtText2); - // write a long text without columns - WritePage(50,200,'This long text is supposed to be written on two lines without column (and does include parenthesis). If it does not, there is obviously a remaining bug in the way wrapping is performed.',-1,FtText2); - // preparation is finished, so create PDF objects - EndWrite; + // define orientation, page format, measurement unit, language, preview (true) or print (false) + BeginWrite(oPortrait, A4, msMM, Langue, Preview); + // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) + FtText1 := Font('helvetica-15:bold', clBlack); + FtText2 := Font('helvetica-8', clBlack); + FtText3 := Font('helvetica-8:italic', clBlack); + // create a new section and define the margins: 10 mm each side + Section(10, 10, 10, 10); + // write the text at position 100 mm from left and 120 mm from top + WritePage(100, 120, 'Big text at absolute position', -1, FtText1); + // write the text aligned to left + WritePage(cnLeft, 50, 'Text aligned to left (50mm from the top)', ColDefaut, FtText2); + // write the text aligned to right + WritePage(cnRight, 75, 'Text aligned to right (75mm from the top)', ColDefaut, FtText3); + // write the text aligned to center + WritePage(cnCenter, 100, 'Text aligned to center(100mm from the top)', ColDefaut, FtText2); + // write a long text in the default column + WritePage(cnLeft, 150, 'This long text is supposed to be written on two lines in ColDefaut (and does include parenthesis). If it does not, there is obviously a remaining bug in the way wrapping is performed.', ColDefaut, FtText2); + // write a long text without columns + WritePage(50, 200, 'This long text is supposed to be written on two lines without column (and does include parenthesis). If it does not, there is obviously a remaining bug in the way wrapping is performed.', -1, FtText2); + // preparation is finished, so create PDF objects + EndWrite; end; end; procedure TF_Demo.PrintMultiPages(Preview: Boolean); var - FtTitle,FtText: Integer; - Cpt: Integer; + FtTitle, FtText: integer; + Cpt: integer; begin -with FReport do + with FReport do begin - // define orientation, page format, measurement unit, language, preview (true) or print (false) - BeginWrite(oPortrait,A4,msMM,Langue,Preview); - // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) - FtTitle:= Font('helvetica-15:bold',clBlack); - FtText:= Font('helvetica-8',clBlack); - // create a new section and define the margins - Section(20,10,10,10); - // write title on each page - WriteHeader(cnCenter,lnEnd,'MULTIPAGE DOCUMENT',ColDefaut,FtTitle); - // write page number and total of pages on each page - NumPageFooter(cnRight,lnEnd,'Page','of',True,ColDefaut,FtText); - // create five new empty pages - for Cpt:= 1 to 5 do - Page; - // preparation is finished, so create PDF objects - EndWrite; + // define orientation, page format, measurement unit, language, preview (true) or print (false) + BeginWrite(oPortrait, A4, msMM, Langue, Preview); + // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) + FtTitle := Font('helvetica-15:bold', clBlack); + FtText := Font('helvetica-8', clBlack); + // create a new section and define the margins + Section(20, 10, 10, 10); + // write title on each page + WriteHeader(cnCenter, lnEnd, 'MULTIPAGE DOCUMENT', ColDefaut, FtTitle); + // write page number and total of pages on each page + NumPageFooter(cnRight, lnEnd, 'Page', 'of', True, ColDefaut, FtText); + // create five new empty pages + for Cpt := 1 to 5 do + Page; + // preparation is finished, so create PDF objects + EndWrite; end; end; procedure TF_Demo.PrintMultiSections(Preview: Boolean); var - FtTitleS1,FtTitleS2,FtTitleS3,FtNum,FtNumS: Integer; - Cpt: Integer; + FtTitleS1, FtTitleS2, FtTitleS3, FtNum, FtNumS: integer; + Cpt: integer; begin -with FReport do + with FReport do begin - // define orientation, page format, measurement unit, language, preview (true) or print (false) - BeginWrite(oPortrait,A4,msMM,Langue,Preview); - // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) - FtTitleS1:= Font('helvetica-15:bold',clBlack); - FtTitleS2:= Font('helvetica-14:italic',clBlack); - FtTitleS3:= Font('helvetica-12:bold:italic',clBlack); - FtNum:= Font('helvetica-7:italic',clBlack); - FtNumS:= Font('helvetica-7:italic',clGray); - // create a new section and define the margins - Section(20,10,10,10); - // write title on each page of the section - WriteHeader(cnCenter,lnEnd,'MULTI SECTION DOCUMENT',ColDefaut,FtTitleS1); - // write section number and total of sections on each page - NumSectionHeader(cnRight,lnEnd,'Section','of',True,False,ColDefaut,FtNum); - // write page number for the section and total pages of the section on each page - NumPageSectionFooter(cnCenter,lnEnd,'Section page','of',True,False,ColDefaut,FtNumS); - // write page number and total of pages on each page - NumPageFooter(cnCenter,lnEnd,'Page','of',True,ColDefaut,FtNum); - // create some new empty pages in the section - for Cpt:= 1 to 3 do - Page; - - // create a new section and define the margins - Section(10,10,10,10,0,oLandscape); - // create a default column for section2 which is landscape oriented - // write title on each page of the section - WriteHeader(cnCenter,lnEnd,'MULTI SECTION DOCUMENT',ColDefaut,FtTitleS2); - // write section number and total of sections on each page - NumSectionHeader(cnRight,lnEnd,'Section','of',True,False,ColDefaut,FtNum); - // write page number for the section and total pages of the section on each page - NumPageSectionHeader(cnCenter,lnEnd,'Section page','of',True,True,ColDefaut,FtNumS); - // write page number and total of pages on each page - NumPageFooter(cnCenter,lnEnd,'Page','of',True,ColDefaut,FtNum); - // create some new empty pages in the section - for Cpt:= 1 to 2 do - Page; - - // create a new section and define the margins - Section(20,20,20,20); - // write title on each page of the section - WriteHeader(cnCenter,lnEnd,'MULTI SECTION DOCUMENT',ColDefaut,FtTitleS3); - // write section number and total of sections on each page - NumSectionHeader(cnRight,lnEnd,'Section','of',True,True,ColDefaut,FtNum); - // write page number for the section and total pages of the section on each page - NumPageSectionHeader(cnCenter,lnEnd,'Section page','of',True,False,ColDefaut,FtNumS); - // write page number and total of pages on each page - NumPageFooter(cnCenter,lnEnd,'Page','of',True,ColDefaut,FtNum); - // create some new empty pages in the section - for Cpt:= 1 to 4 do - Page; - - // preparation is finished, so create PDF objects - EndWrite; + // define orientation, page format, measurement unit, language, preview (true) or print (false) + BeginWrite(oPortrait, A4, msMM, Langue, Preview); + // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) + FtTitleS1 := Font('helvetica-15:bold', clBlack); + FtTitleS2 := Font('helvetica-14:italic', clBlack); + FtTitleS3 := Font('helvetica-12:bold:italic', clBlack); + FtNum := Font('helvetica-7:italic', clBlack); + FtNumS := Font('helvetica-7:italic', clGray); + // create a new section and define the margins + Section(20, 10, 10, 10); + // write title on each page of the section + WriteHeader(cnCenter, lnEnd, 'MULTI SECTION DOCUMENT', ColDefaut, FtTitleS1); + // write section number and total of sections on each page + NumSectionHeader(cnRight, lnEnd, 'Section', 'of', True, False, ColDefaut, FtNum); + // write page number for the section and total pages of the section on each page + NumPageSectionFooter(cnCenter, lnEnd, 'Section page', 'of', True, False, ColDefaut, FtNumS); + // write page number and total of pages on each page + NumPageFooter(cnCenter, lnEnd, 'Page', 'of', True, ColDefaut, FtNum); + // create some new empty pages in the section + for Cpt := 1 to 3 do + Page; + + // create a new section and define the margins + Section(10, 10, 10, 10, 0, oLandscape); + // create a default column for section2 which is landscape oriented + // write title on each page of the section + WriteHeader(cnCenter, lnEnd, 'MULTI SECTION DOCUMENT', ColDefaut, FtTitleS2); + // write section number and total of sections on each page + NumSectionHeader(cnRight, lnEnd, 'Section', 'of', True, False, ColDefaut, FtNum); + // write page number for the section and total pages of the section on each page + NumPageSectionHeader(cnCenter, lnEnd, 'Section page', 'of', True, True, ColDefaut, FtNumS); + // write page number and total of pages on each page + NumPageFooter(cnCenter, lnEnd, 'Page', 'of', True, ColDefaut, FtNum); + // create some new empty pages in the section + for Cpt := 1 to 2 do + Page; + + // create a new section and define the margins + Section(20, 20, 20, 20); + // write title on each page of the section + WriteHeader(cnCenter, lnEnd, 'MULTI SECTION DOCUMENT', ColDefaut, FtTitleS3); + // write section number and total of sections on each page + NumSectionHeader(cnRight, lnEnd, 'Section', 'of', True, True, ColDefaut, FtNum); + // write page number for the section and total pages of the section on each page + NumPageSectionHeader(cnCenter, lnEnd, 'Section page', 'of', True, False, ColDefaut, FtNumS); + // write page number and total of pages on each page + NumPageFooter(cnCenter, lnEnd, 'Page', 'of', True, ColDefaut, FtNum); + // create some new empty pages in the section + for Cpt := 1 to 4 do + Page; + + // preparation is finished, so create PDF objects + EndWrite; end; end; procedure TF_Demo.PrintOutlines(Preview: Boolean); var - FtTitleS1,FtTitleS2,FtTitleS3,FtNum,FtNumS: Integer; - Cpt: Integer; + FtTitleS1, FtTitleS2, FtTitleS3, FtNum, FtNumS: integer; + Cpt: integer; begin -with FReport do + with FReport do begin - // define orientation, page format, measurement unit, language, preview (true) or print (false) - BeginWrite(oPortrait,A4,msMM,Langue,Preview); - // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) - FtTitleS1:= Font('helvetica-15:bold',clBlack); - FtTitleS2:= Font('helvetica-14:italic',clBlack); - FtTitleS3:= Font('helvetica-12:bold:italic',clBlack); - FtNum:= Font('helvetica-7:italic',clBlack); - FtNumS:= Font('helvetica-7:italic',clGray); - // create a new section and define the margins - Section(20,10,10,10); - // write title on each page of the section - WriteHeader(cnCenter,lnEnd,'MULTI SECTION DOCUMENT',ColDefaut,FtTitleS1); - // write section number and total of sections on each page - NumSectionHeader(cnRight,lnEnd,'Section','of',True,False,ColDefaut,FtNum); - // write page number for the section and total pages of the section on each page - NumPageSectionFooter(cnCenter,lnEnd,'Section page','of',True,False,ColDefaut,FtNumS); - // write page number and total of pages on each page - NumPageFooter(cnCenter,lnEnd,'Page','of',True,ColDefaut,FtNum); - // create some new empty pages in the section - for Cpt:= 1 to 3 do - Page; - - // create a new section and define the margins - Section(10,10,10,10,0,oLandscape); - SectionTitle:= 'Landscape oriented'; - // write title on each page of the section - WriteHeader(cnCenter,lnEnd,'MULTI SECTION DOCUMENT',ColDefaut,FtTitleS2); - // write section number and total of sections on each page - NumSectionHeader(cnRight,lnEnd,'Section','of',True,False,ColDefaut,FtNum); - // write page number for the section and total pages of the section on each page - NumPageSectionHeader(cnCenter,lnEnd,'Section page','of',True,True,ColDefaut,FtNumS); - // write page number and total of pages on each page - NumPageFooter(cnCenter,lnEnd,'Page','of',True,ColDefaut,FtNum); - // create some new empty pages in the section - for Cpt:= 1 to 2 do - Page; - - // create a new section and define the margins - Section(20,20,20,20); - // write title on each page of the section - WriteHeader(cnCenter,lnEnd,'MULTI SECTION DOCUMENT',ColDefaut,FtTitleS3); - // write section number and total of sections on each page - NumSectionHeader(cnRight,lnEnd,'Section','of',True,True,ColDefaut,FtNum); - // write page number for the section and total pages of the section on each page - NumPageSectionHeader(cnCenter,lnEnd,'Section page','of',True,False,ColDefaut,FtNumS); - // write page number and total of pages on each page - NumPageFooter(cnCenter,lnEnd,'Page','of',True,ColDefaut,FtNum); - // create some new empty pages in the section - for Cpt:= 1 to 4 do - Page; - - // preparation is finished, so create PDF objects - Outline:= True; - EndWrite; + // define orientation, page format, measurement unit, language, preview (true) or print (false) + BeginWrite(oPortrait, A4, msMM, Langue, Preview); + // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) + FtTitleS1 := Font('helvetica-15:bold', clBlack); + FtTitleS2 := Font('helvetica-14:italic', clBlack); + FtTitleS3 := Font('helvetica-12:bold:italic', clBlack); + FtNum := Font('helvetica-7:italic', clBlack); + FtNumS := Font('helvetica-7:italic', clGray); + // create a new section and define the margins + Section(20, 10, 10, 10); + // write title on each page of the section + WriteHeader(cnCenter, lnEnd, 'MULTI SECTION DOCUMENT', ColDefaut, FtTitleS1); + // write section number and total of sections on each page + NumSectionHeader(cnRight, lnEnd, 'Section', 'of', True, False, ColDefaut, FtNum); + // write page number for the section and total pages of the section on each page + NumPageSectionFooter(cnCenter, lnEnd, 'Section page', 'of', True, False, ColDefaut, FtNumS); + // write page number and total of pages on each page + NumPageFooter(cnCenter, lnEnd, 'Page', 'of', True, ColDefaut, FtNum); + // create some new empty pages in the section + for Cpt := 1 to 3 do + Page; + + // create a new section and define the margins + Section(10, 10, 10, 10, 0, oLandscape); + SectionTitle := 'Landscape oriented'; + // write title on each page of the section + WriteHeader(cnCenter, lnEnd, 'MULTI SECTION DOCUMENT', ColDefaut, FtTitleS2); + // write section number and total of sections on each page + NumSectionHeader(cnRight, lnEnd, 'Section', 'of', True, False, ColDefaut, FtNum); + // write page number for the section and total pages of the section on each page + NumPageSectionHeader(cnCenter, lnEnd, 'Section page', 'of', True, True, ColDefaut, FtNumS); + // write page number and total of pages on each page + NumPageFooter(cnCenter, lnEnd, 'Page', 'of', True, ColDefaut, FtNum); + // create some new empty pages in the section + for Cpt := 1 to 2 do + Page; + + // create a new section and define the margins + Section(20, 20, 20, 20); + // write title on each page of the section + WriteHeader(cnCenter, lnEnd, 'MULTI SECTION DOCUMENT', ColDefaut, FtTitleS3); + // write section number and total of sections on each page + NumSectionHeader(cnRight, lnEnd, 'Section', 'of', True, True, ColDefaut, FtNum); + // write page number for the section and total pages of the section on each page + NumPageSectionHeader(cnCenter, lnEnd, 'Section page', 'of', True, False, ColDefaut, FtNumS); + // write page number and total of pages on each page + NumPageFooter(cnCenter, lnEnd, 'Page', 'of', True, ColDefaut, FtNum); + // create some new empty pages in the section + for Cpt := 1 to 4 do + Page; + + // preparation is finished, so create PDF objects + Outline := True; + EndWrite; end; end; procedure TF_Demo.PrintCadres(Preview: Boolean); var - FtTitle,FtText: Integer; - TsThin,TsNorm,TsThick: Integer; - IlTitle,IlText: Integer; + FtTitle, FtText: integer; + TsThin, TsNorm, TsThick: integer; + IlTitle, IlText: integer; begin -with FReport do + with FReport do begin - // define orientation, page format, measurement unit, language, preview (true) or print (false) - BeginWrite(oPortrait,A4,msMM,Langue,Preview); - // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) - FtTitle:= Font('helvetica-15:bold',clBlack); - FtText:= Font('helvetica-8',clBlack); - // create the style of lines to be used - TsThin:= LineStyle(0.2,clBlack,lsSolid); - TsNorm:= LineStyle(1,clBlack,lsSolid); - TsThick:= LineStyle(2,clBlack,lsSolid); - // create line spacings to be used - IlTitle:= LineSpace(3,0,3); - IlText:= LineSpace(1,0,1); - // create a new section and define the margins with an additional one due to frames drawing - Section(20,10,10,10,5); - // write title on each page - WriteHeader(cnCenter,lnEnd,'SHOWING FRAMES',ColDefaut,FtTitle,IlTitle); - // write page number and total of pages on each page - NumPageFooter(cnRight,lnEnd,'Page','of',True,ColDefaut,FtText,IlText); - // draw thin frame rectangle at margins -// FrameMargins(TsThin); - // draw thick frame rectangle at header - FrameHeader(TsThick); - // draw thick frame rectangle at footer - FramePage(TsNorm); - // draw normal frame rectangle at page - FrameFooter(TsThick); - // preparation is finished, so create PDF objects - EndWrite; + // define orientation, page format, measurement unit, language, preview (true) or print (false) + BeginWrite(oPortrait, A4, msMM, Langue, Preview); + // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) + FtTitle := Font('helvetica-15:bold', clBlack); + FtText := Font('helvetica-8', clBlack); + // create the style of lines to be used + TsThin := LineStyle(0.2, clBlack, lsSolid); + TsNorm := LineStyle(1, clBlack, lsSolid); + TsThick := LineStyle(2, clBlack, lsSolid); + // create line spacings to be used + IlTitle := LineSpace(3, 0, 3); + IlText := LineSpace(1, 0, 1); + // create a new section and define the margins with an additional one due to frames drawing + Section(20, 10, 10, 10, 5); + // write title on each page + WriteHeader(cnCenter, lnEnd, 'SHOWING FRAMES', ColDefaut, FtTitle, IlTitle); + // write page number and total of pages on each page + NumPageFooter(cnRight, lnEnd, 'Page', 'of', True, ColDefaut, FtText, IlText); + // draw thin frame rectangle at margins + // FrameMargins(TsThin); + // draw thick frame rectangle at header + FrameHeader(TsThick); + // draw thick frame rectangle at footer + FramePage(TsNorm); + // draw normal frame rectangle at page + FrameFooter(TsThick); + // preparation is finished, so create PDF objects + EndWrite; end; end; procedure TF_Demo.PrintColor(Preview: Boolean); var - FtTitle,FtNormBlack,FtNormRed,FtNormGreen,FtBoldBlue,FtItalGray,FtBoldItalFuchsia: Integer; - BcBeige,BcAqua,BcPaleGreen: Integer; - IlTitle,IlText: Integer; - Col1,Col2,Col3: Integer; - + FtTitle, FtNormBlack, FtNormRed, FtNormGreen, FtBoldBlue, FtItalGray, FtBoldItalFuchsia: integer; + BcBeige, BcAqua, BcPaleGreen: integer; + IlTitle, IlText: integer; + Col1, Col2, Col3: integer; begin -with FReport do + with FReport do begin - // define orientation, page format, measurement unit, language, preview (true) or print (false) - BeginWrite(oPortrait,A4,msMM,Langue,Preview); - // create the filling colors to be used - BcBeige:= BackColor(clBeige); - BcAqua:= BackColor(clAqua); - BcPaleGreen:= BackColor(clPaleGreen); - // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) - FtTitle:= Font('helvetica-15:bold',clBlack); - FtNormBlack:= Font('helvetica-8',clBlack); - FtNormRed:= Font('helvetica-8',clRed); - FtNormGreen:= Font('helvetica-8',clGreen); - FtBoldBlue:= Font('helvetica-8:bold',clBlue); - FtItalGray:= Font('helvetica-8:italic',clGray); - FtBoldItalFuchsia:= Font('helvetica-8:bold:italic',clFuchsia); - // create columns to be used - Col1:= Column(20,100,2); - Col2:= Column(120,80,1); - Col3:= Column(70,100,5); - // create line spacings to be used - IlTitle:= LineSpace(5,0,5); - IlText:= LineSpace(0,0,0); - // create a new section and define the margins - Section(20,10,10,10); - // write title on each page - WriteHeader(cnCenter,lnEnd,'SHOWING COLORS',ColDefaut,FtTitle,IlTitle); - // write page number and total of pages on each page - NumPageFooter(cnRight,lnEnd,'Page','of',True,ColDefaut,FtNormRed,IlText); - // write some example texts - WritePage(cnLeft,lnEnd,'Bold blue text aligned to left',ColDefaut,FtBoldBlue,IlText); - SpacePage(10,ColDefaut,BcPaleGreen); - WritePage(cnCenter,lnEnd,'followed by centered normal black text after a 1 cm colored space',ColDefaut,FtNormBlack,IlText); - SpacePage(15); - WritePage(cnLeft,lnEnd,'text written on colored background after a 1.5 cm colored space',ColDefaut,FtItalGray,IlText,BcAqua); - SpacePage(10); - WritePage(cnLeft,lnCurrent,'This text starts in column 1',Col1,FtNormGreen,IlText,BcBeige); - WritePage(cnLeft,lnEnd,'and ends in column 2',Col2,FtBoldItalFuchsia,IlText); - WritePage(cnCenter,lnEnd,'And this one is centered in column 3',Col3,FtNormRed,IlText,BcBeige); - // preparation is finished, so create PDF objects - EndWrite; + // define orientation, page format, measurement unit, language, preview (true) or print (false) + BeginWrite(oPortrait, A4, msMM, Langue, Preview); + // create the filling colors to be used + BcBeige := BackColor(clBeige); + BcAqua := BackColor(clAqua); + BcPaleGreen := BackColor(clPaleGreen); + // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) + FtTitle := Font('helvetica-15:bold', clBlack); + FtNormBlack := Font('helvetica-8', clBlack); + FtNormRed := Font('helvetica-8', clRed); + FtNormGreen := Font('helvetica-8', clGreen); + FtBoldBlue := Font('helvetica-8:bold', clBlue); + FtItalGray := Font('helvetica-8:italic', clGray); + FtBoldItalFuchsia := Font('helvetica-8:bold:italic', clFuchsia); + // create columns to be used + Col1 := Column(20, 100, 2); + Col2 := Column(120, 80, 1); + Col3 := Column(70, 100, 5); + // create line spacings to be used + IlTitle := LineSpace(5, 0, 5); + IlText := LineSpace(0, 0, 0); + // create a new section and define the margins + Section(20, 10, 10, 10); + // write title on each page + WriteHeader(cnCenter, lnEnd, 'SHOWING COLORS', ColDefaut, FtTitle, IlTitle); + // write page number and total of pages on each page + NumPageFooter(cnRight, lnEnd, 'Page', 'of', True, ColDefaut, FtNormRed, IlText); + // write some example texts + WritePage(cnLeft, lnEnd, 'Bold blue text aligned to left', ColDefaut, FtBoldBlue, IlText); + SpacePage(10, ColDefaut, BcPaleGreen); + WritePage(cnCenter, lnEnd, 'followed by centered normal black text after a 1 cm colored space', ColDefaut, FtNormBlack, IlText); + SpacePage(15); + WritePage(cnLeft, lnEnd, 'text written on colored background after a 1.5 cm colored space', ColDefaut, FtItalGray, IlText, BcAqua); + SpacePage(10); + WritePage(cnLeft, lnCurrent, 'This text starts in column 1', Col1, FtNormGreen, IlText, BcBeige); + WritePage(cnLeft, lnEnd, 'and ends in column 2', Col2, FtBoldItalFuchsia, IlText); + WritePage(cnCenter, lnEnd, 'And this one is centered in column 3', Col3, FtNormRed, IlText, BcBeige); + // preparation is finished, so create PDF objects + EndWrite; end; end; procedure TF_Demo.PrintLines(Preview: Boolean); var - FtTitle,FtText: Integer; - TsThinBlack,TsThinBlue,TsThinRed,TsThick: Integer; - IlTitle,IlText: Integer; - Col1,Col2,Col3: Integer; - BdRect,BdColn,BdEndColn: Integer; + FtTitle, FtText: integer; + TsThinBlack, TsThinBlue, TsThinRed, TsThick: integer; + IlTitle, IlText: integer; + Col1, Col2, Col3: integer; + BdRect, BdColn, BdEndColn: integer; begin -with FReport do + with FReport do begin - // define orientation, page format, measurement unit, language, preview (true) or print (false) - BeginWrite(oPortrait,A4,msMM,Langue,Preview); - // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) - FtTitle:= Font('helvetica-15:bold',clBlack); - FtText:= Font('helvetica-8',clBlack); - // create the style of lines to be used - TsThinBlack:= LineStyle(0.2,clBlack,lsSolid); - TsThinBlue:= LineStyle(0.1,clBlue,lsDash); - TsThick:= LineStyle(2,clBlack,lsSolid); - TsThinRed:= LineStyle(1,clRed,lsDashDot); - // create line spacings to be used - IlTitle:= LineSpace(3,0,3); - IlText:= LineSpace(0,0,0); - // define column borders - BdRect:= Border([bfLeft,bfRight,bfTop,bfBottom],TsThick); - BdColn:= Border([bfLeft,bfRight,bfTop],TsThinBlue); - BdEndColn:= Border([bfLeft,bfRight,bfTop,bfBottom],TsThinBlack); - // create columns to be used - Col1:= Column(20,60,2); - Col2:= Column(80,60,2); - Col3:= Column(140,60,2); - // create a new section and define the margins - Section(20,10,10,10); - // write title on each page - WriteHeader(cnCenter,lnEnd,'SHOWING LINES',ColDefaut,FtTitle,IlTitle); - // write page number and total of pages on each page - NumPageFooter(cnRight,lnEnd,'Page','of',True,ColDefaut,FtText,IlText); - // write some example texts with column borders - WritePage(cnLeft,lnCurrent,'Example of lines',Col1,FtText,IlText,-1,BdColn); - WritePage(cnLeft,lnCurrent,'with column borders',Col2,FtText,IlText,-1,BdEndColn); - WritePage(cnLeft,lnEnd,'',Col3,FtText); - SpacePage(5); - WritePage(cnLeft,lnEnd,'A thick border',Col3,FtText,IlText,-1,BdRect); - HorizLinePage(2,2,Col2,TsThick); - LinePage(30,100,150,150,TsThinBlack); - LinePage(50,70,180,100,TsThinBlue); - LinePage(40,140,160,80,TsThinRed); - LinePage(60,50,60,120,TsThick); - // preparation is finished, so create PDF objects - EndWrite; + // define orientation, page format, measurement unit, language, preview (true) or print (false) + BeginWrite(oPortrait, A4, msMM, Langue, Preview); + // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) + FtTitle := Font('helvetica-15:bold', clBlack); + FtText := Font('helvetica-8', clBlack); + // create the style of lines to be used + TsThinBlack := LineStyle(0.2, clBlack, lsSolid); + TsThinBlue := LineStyle(0.1, clBlue, lsDash); + TsThick := LineStyle(2, clBlack, lsSolid); + TsThinRed := LineStyle(1, clRed, lsDashDot); + // create line spacings to be used + IlTitle := LineSpace(3, 0, 3); + IlText := LineSpace(0, 0, 0); + // define column borders + BdRect := Border([bfLeft, bfRight, bfTop, bfBottom], TsThick); + BdColn := Border([bfLeft, bfRight, bfTop], TsThinBlue); + BdEndColn := Border([bfLeft, bfRight, bfTop, bfBottom], TsThinBlack); + // create columns to be used + Col1 := Column(20, 60, 2); + Col2 := Column(80, 60, 2); + Col3 := Column(140, 60, 2); + // create a new section and define the margins + Section(20, 10, 10, 10); + // write title on each page + WriteHeader(cnCenter, lnEnd, 'SHOWING LINES', ColDefaut, FtTitle, IlTitle); + // write page number and total of pages on each page + NumPageFooter(cnRight, lnEnd, 'Page', 'of', True, ColDefaut, FtText, IlText); + // write some example texts with column borders + WritePage(cnLeft, lnCurrent, 'Example of lines', Col1, FtText, IlText, -1, BdColn); + WritePage(cnLeft, lnCurrent, 'with column borders', Col2, FtText, IlText, -1, BdEndColn); + WritePage(cnLeft, lnEnd, '', Col3, FtText); + SpacePage(5); + WritePage(cnLeft, lnEnd, 'A thick border', Col3, FtText, IlText, -1, BdRect); + HorizLinePage(2, 2, Col2, TsThick); + LinePage(30, 100, 150, 150, TsThinBlack); + LinePage(50, 70, 180, 100, TsThinBlue); + LinePage(40, 140, 160, 80, TsThinRed); + LinePage(60, 50, 60, 120, TsThick); + // preparation is finished, so create PDF objects + EndWrite; end; end; procedure TF_Demo.PrintGrid(Preview: Boolean); var - FtTitle,FtText,FtTextBlue,FtTextRed,FtSTitle: Integer; - TsThinBlack,TsThickBlue: Integer; - IlTitle,IlText: Integer; - BcBeige: Integer; - Col: array[1..5] of Integer; - BdColn,BdColnL,BdColnR: Integer; - CptLin,CptCol: Integer; - PosHoriz,PredPosHoriz: Single; + FtTitle, FtText, FtTextBlue, FtTextRed, FtSTitle: integer; + TsThinBlack, TsThickBlue: integer; + IlTitle, IlText: integer; + BcBeige: integer; + Col: array[1..5] of integer; + BdColn, BdColnL, BdColnR: integer; + CptLin, CptCol: integer; + PosHoriz, PredPosHoriz: single; const - Col1Pos= 20; - Col1Wid= 40; - Col2Pos= 60; - Col2Wid= 35; - Col3Pos= 95; - Col3Wid= 35; - Col4Pos= 130; - Col4Wid= 35; - Col5Pos= 165; - Col5Wid= 35; + Col1Pos = 20; + Col1Wid = 40; + Col2Pos = 60; + Col2Wid = 35; + Col3Pos = 95; + Col3Wid = 35; + Col4Pos = 130; + Col4Wid = 35; + Col5Pos = 165; + Col5Wid = 35; begin -with FReport do + with FReport do begin - // define orientation, page format, measurement unit, language, preview (true) or print (false) - BeginWrite(oPortrait,A4,msMM,Langue,Preview); - // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) - FtTitle:= Font('helvetica-15:bold',clBlack); - FtText:= Font('helvetica-7',clBlack); - FtTextBlue:= Font('helvetica-7',clBlue); - FtTextRed:= Font('helvetica-7',clRed); - FtSTitle:= Font('helvetica-9:bold:italic',clBlue); - // create the style of lines to be used - TsThinBlack:= LineStyle(0.5,clBlack,lsSolid); - TsThickBlue:= LineStyle(1.5,clBlue,lsSolid); - // create line spacings to be used - IlTitle:= LineSpace(3,0,3); - IlText:= LineSpace(1,0,0); - // define column background color - BcBeige:= BackColor(clBeige); - // define column borders - BdColn:= Border([bfLeft,bfRight],TsThinBlack); - BdColnL:= Border([bfLeft],TsThickBlue); - BdColnR:= Border([bfRight],TsThickBlue); - // create columns to be used - Col[1]:= Column(Col1Pos,Col1Wid,2); - Col[2]:= Column(Col2Pos,Col2Wid,2); - Col[3]:= Column(Col3Pos,Col3Wid,2); - Col[4]:= Column(Col4Pos,Col4Wid,2); - Col[5]:= Column(Col5Pos,Col5Wid,2); - // create a new section and define the margins - Section(20,10,10,10); - // write title on each page - WriteHeader(cnCenter,lnEnd,'SHOWING GRIDS',ColDefaut,FtTitle,IlTitle); - // write page number and total of pages on each page - NumPageFooter(cnRight,lnEnd,'Page','of',True,ColDefaut,FtText,IlText); - // write a grid without borders - WritePage(cnCenter,lnEnd,'Grid without borders',ColDefaut,FtSTitle,IlTitle); - for CptLin:= 1 to 10 do - for CptCol:= 1 to 5 do - if CptCol= 5 - then - WritePage(cnLeft,lnEnd,'line '+IntToStr(CptLin)+' ; column '+IntToStr(CptCol),Col[CptCol],FtText,IlText) - else - WritePage(cnLeft,lnCurrent,'line '+IntToStr(CptLin)+' ; column '+IntToStr(CptCol),Col[CptCol],FtText,IlText); - SpacePage(5); - // write a grid with borders - PosHoriz:= WritePage(cnCenter,lnEnd,'Grid with borders and colors',ColDefaut,FtSTitle,IlTitle); - LinePage(Col1Pos,PosHoriz,Col5Pos+Col5Wid,PosHoriz,TsThickBlue); - for CptLin:= 1 to 10 do - for CptCol:= 1 to 5 do - if CptCol= 1 - then - if CptLin mod 2= 0 - then - WritePage(cnLeft,lnCurrent,'line '+IntToStr(CptLin)+' ; column '+IntToStr(CptCol),Col[CptCol],FtText,IlText,BcBeige,BdColnL) + // define orientation, page format, measurement unit, language, preview (true) or print (false) + BeginWrite(oPortrait, A4, msMM, Langue, Preview); + // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) + FtTitle := Font('helvetica-15:bold', clBlack); + FtText := Font('helvetica-7', clBlack); + FtTextBlue := Font('helvetica-7', clBlue); + FtTextRed := Font('helvetica-7', clRed); + FtSTitle := Font('helvetica-9:bold:italic', clBlue); + // create the style of lines to be used + TsThinBlack := LineStyle(0.5, clBlack, lsSolid); + TsThickBlue := LineStyle(1.5, clBlue, lsSolid); + // create line spacings to be used + IlTitle := LineSpace(3, 0, 3); + IlText := LineSpace(1, 0, 0); + // define column background color + BcBeige := BackColor(clBeige); + // define column borders + BdColn := Border([bfLeft, bfRight], TsThinBlack); + BdColnL := Border([bfLeft], TsThickBlue); + BdColnR := Border([bfRight], TsThickBlue); + // create columns to be used + Col[1] := Column(Col1Pos, Col1Wid, 2); + Col[2] := Column(Col2Pos, Col2Wid, 2); + Col[3] := Column(Col3Pos, Col3Wid, 2); + Col[4] := Column(Col4Pos, Col4Wid, 2); + Col[5] := Column(Col5Pos, Col5Wid, 2); + // create a new section and define the margins + Section(20, 10, 10, 10); + // write title on each page + WriteHeader(cnCenter, lnEnd, 'SHOWING GRIDS', ColDefaut, FtTitle, IlTitle); + // write page number and total of pages on each page + NumPageFooter(cnRight, lnEnd, 'Page', 'of', True, ColDefaut, FtText, IlText); + // write a grid without borders + WritePage(cnCenter, lnEnd, 'Grid without borders', ColDefaut, FtSTitle, IlTitle); + for CptLin := 1 to 10 do + for CptCol := 1 to 5 do + if CptCol = 5 then + WritePage(cnLeft, lnEnd, 'line ' + IntToStr(CptLin) + ' ; column ' + IntToStr(CptCol), Col[CptCol], FtText, IlText) else - WritePage(cnLeft,lnCurrent,'line '+IntToStr(CptLin)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTextBlue,IlText,-1,BdColnL) - else - if CptCol= 5 - then - if CptLin= 10 - then - begin - PredPosHoriz:= PosHoriz; - PosHoriz:= WritePage(cnLeft,lnEnd,'line '+IntToStr(CptLin)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTextRed,IlText,BcBeige,BdColnR); - LinePage(Col1Pos,PredPosHoriz,Col5Pos+Col5Wid,PredPosHoriz,TsThinBlack); - LinePage(Col1Pos,PosHoriz,Col5Pos+Col5Wid,PosHoriz,TsThickBlue); - LinePage(Col5Pos,PredPosHoriz,Col5Pos,PosHoriz,TsThinBlack); - end + WritePage(cnLeft, lnCurrent, 'line ' + IntToStr(CptLin) + ' ; column ' + IntToStr(CptCol), Col[CptCol], FtText, IlText); + SpacePage(5); + // write a grid with borders + PosHoriz := WritePage(cnCenter, lnEnd, 'Grid with borders and colors', ColDefaut, FtSTitle, IlTitle); + LinePage(Col1Pos, PosHoriz, Col5Pos + Col5Wid, PosHoriz, TsThickBlue); + for CptLin := 1 to 10 do + for CptCol := 1 to 5 do + if CptCol = 1 then + if CptLin mod 2 = 0 then + WritePage(cnLeft, lnCurrent, 'line ' + IntToStr(CptLin) + ' ; column ' + IntToStr(CptCol), Col[CptCol], FtText, IlText, BcBeige, BdColnL) + else + WritePage(cnLeft, lnCurrent, 'line ' + IntToStr(CptLin) + ' ; column ' + IntToStr(CptCol), Col[CptCol], FtTextBlue, IlText, -1, BdColnL) + else if CptCol = 5 then + if CptLin = 10 then + begin + PredPosHoriz := PosHoriz; + PosHoriz := WritePage(cnLeft, lnEnd, 'line ' + IntToStr(CptLin) + ' ; column ' + IntToStr(CptCol), Col[CptCol], FtTextRed, IlText, BcBeige, BdColnR); + LinePage(Col1Pos, PredPosHoriz, Col5Pos + Col5Wid, PredPosHoriz, TsThinBlack); + LinePage(Col1Pos, PosHoriz, Col5Pos + Col5Wid, PosHoriz, TsThickBlue); + LinePage(Col5Pos, PredPosHoriz, Col5Pos, PosHoriz, TsThinBlack); + end else + begin + if CptLin = 1 then + PosHoriz := WritePage(cnLeft, lnEnd, 'line ' + IntToStr(CptLin) + ' ; column ' + IntToStr(CptCol), Col[CptCol], FtText, IlText, -1, BdColnR) + else if CptLin mod 2 = 0 then begin - if CptLin= 1 - then - PosHoriz:= WritePage(cnLeft,lnEnd,'line '+IntToStr(CptLin)+' ; column '+IntToStr(CptCol),Col[CptCol],FtText,IlText,-1,BdColnR) - else - if CptLin mod 2= 0 - then - begin - PredPosHoriz:= PosHoriz; - PosHoriz:= WritePage(cnLeft,lnEnd,'line '+IntToStr(CptLin)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTextRed,IlText,BcBeige,BdColnR); - LinePage(Col1Pos,PredPosHoriz,Col5Pos+Col5Wid,PredPosHoriz,TsThinBlack); - LinePage(Col5Pos,PredPosHoriz,Col5Pos,PosHoriz,TsThinBlack); - end - else - begin - PredPosHoriz:= PosHoriz; - PosHoriz:= WritePage(cnLeft,lnEnd,'line '+IntToStr(CptLin)+' ; column '+IntToStr(CptCol),Col[CptCol],FtText,IlText,-1,BdColnR); - LinePage(Col1Pos,PredPosHoriz,Col5Pos+Col5Wid,PredPosHoriz,TsThinBlack); - end; + PredPosHoriz := PosHoriz; + PosHoriz := WritePage(cnLeft, lnEnd, 'line ' + IntToStr(CptLin) + ' ; column ' + IntToStr(CptCol), Col[CptCol], FtTextRed, IlText, BcBeige, BdColnR); + LinePage(Col1Pos, PredPosHoriz, Col5Pos + Col5Wid, PredPosHoriz, TsThinBlack); + LinePage(Col5Pos, PredPosHoriz, Col5Pos, PosHoriz, TsThinBlack); end + else + begin + PredPosHoriz := PosHoriz; + PosHoriz := WritePage(cnLeft, lnEnd, 'line ' + IntToStr(CptLin) + ' ; column ' + IntToStr(CptCol), Col[CptCol], FtText, IlText, -1, BdColnR); + LinePage(Col1Pos, PredPosHoriz, Col5Pos + Col5Wid, PredPosHoriz, TsThinBlack); + end; + end + else if CptLin mod 2 = 0 then + WritePage(cnLeft, lnCurrent, 'line ' + IntToStr(CptLin) + ' ; column ' + IntToStr(CptCol), Col[CptCol], FtText, IlText, BcBeige, BdColn) else - if CptLin mod 2= 0 - then - WritePage(cnLeft,lnCurrent,'line '+IntToStr(CptLin)+' ; column '+IntToStr(CptCol),Col[CptCol],FtText,IlText,BcBeige,BdColn) - else - WritePage(cnLeft,lnCurrent,'line '+IntToStr(CptLin)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTextBlue,IlText,-1,BdColn); - // preparation is finished, so create PDF objects - EndWrite; + WritePage(cnLeft, lnCurrent, 'line ' + IntToStr(CptLin) + ' ; column ' + IntToStr(CptCol), Col[CptCol], FtTextBlue, IlText, -1, BdColn); + // preparation is finished, so create PDF objects + EndWrite; end; end; procedure TF_Demo.PrintGraph(Preview: Boolean); var - FtTitle,FtText,FtMax: Integer; - TsBlack,TsGray,TsBlue,TsFuchsia: Integer; - IlTitle,IlText: Integer; - Cpt,Max: Integer; + FtTitle, FtText, FtMax: integer; + TsBlack, TsGray, TsBlue, TsFuchsia: integer; + IlTitle, IlText: integer; + Cpt, Max: integer; const - Base= 150; + Base = 150; begin -with FReport do + with FReport do begin - // define orientation, page format, measurement unit, language, preview (true) or print (false) - BeginWrite(oPortrait,A4,msMM,Langue,Preview); - // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) - FtTitle:= Font('helvetica-15:bold',clBlack); - FtText:= Font('helvetica-7',clBlack); - FtMax:= Font('helvetica-7',clFuchsia); - // create line spacings to be used - IlTitle:= LineSpace(3,0,3); - IlText:= LineSpace(1,0,0); - // create the style of lines to be used - TsBlack:= LineStyle(1,clBlack,lsSolid); - TsGray:= LineStyle(1,clGray,lsDot); - TsBlue:= LineStyle(1,clBlue,lsSolid); - TsFuchsia:= LineStyle(1,clFuchsia,lsDot); - // create a new section and define the margins - Section(10,10,10,10); - WriteHeader(cnCenter,lnEnd,'SHOWING GRAPH',ColDefaut,FtTitle,IlTitle); - // write page number and total of pages on each page - NumPageFooter(cnRight,lnEnd,'Page','of',True,ColDefaut,FtText,IlText); - // draw a graph - Max:= 0; - WritePage(10,Base,'0',-1,FtText); - LinePage(20,Base,200,Base,TsBlack); - for Cpt:= 1 to 5 do + // define orientation, page format, measurement unit, language, preview (true) or print (false) + BeginWrite(oPortrait, A4, msMM, Langue, Preview); + // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) + FtTitle := Font('helvetica-15:bold', clBlack); + FtText := Font('helvetica-7', clBlack); + FtMax := Font('helvetica-7', clFuchsia); + // create line spacings to be used + IlTitle := LineSpace(3, 0, 3); + IlText := LineSpace(1, 0, 0); + // create the style of lines to be used + TsBlack := LineStyle(1, clBlack, lsSolid); + TsGray := LineStyle(1, clGray, lsDot); + TsBlue := LineStyle(1, clBlue, lsSolid); + TsFuchsia := LineStyle(1, clFuchsia, lsDot); + // create a new section and define the margins + Section(10, 10, 10, 10); + WriteHeader(cnCenter, lnEnd, 'SHOWING GRAPH', ColDefaut, FtTitle, IlTitle); + // write page number and total of pages on each page + NumPageFooter(cnRight, lnEnd, 'Page', 'of', True, ColDefaut, FtText, IlText); + // draw a graph + Max := 0; + WritePage(10, Base, '0', -1, FtText); + LinePage(20, Base, 200, Base, TsBlack); + for Cpt := 1 to 5 do begin - WritePage(10,Base-Cpt*20,IntToStr(Cpt),-1,FtText); - LinePage(20,Base-Cpt*20,200,Base-Cpt*20,TsGray); + WritePage(10, Base - Cpt * 20, IntToStr(Cpt), -1, FtText); + LinePage(20, Base - Cpt * 20, 200, Base - Cpt * 20, TsGray); end; - for Cpt:= 0 to 18 do + for Cpt := 0 to 18 do begin - if ChartValues[Cpt]> Max - then - Max:= ChartValues[Cpt]; - WritePage(18+Cpt*10,Base+5,IntToStr(Cpt),-1,FtText); - LinePage(20+Cpt*10,Base,20+Cpt*10,Base-ChartValues[Cpt],TsGray); - if Cpt>0 then - LinePage(20+Pred(Cpt)*10,Base-ChartValues[Pred(Cpt)],20+Cpt*10,Base-ChartValues[Cpt],TsBlue); + if ChartValues[Cpt] > Max then + Max := ChartValues[Cpt]; + WritePage(18 + Cpt * 10, Base + 5, IntToStr(Cpt), -1, FtText); + LinePage(20 + Cpt * 10, Base, 20 + Cpt * 10, Base - ChartValues[Cpt], TsGray); + if Cpt > 0 then + LinePage(20 + Pred(Cpt) * 10, Base - ChartValues[Pred(Cpt)], 20 + Cpt * 10, Base - ChartValues[Cpt], TsBlue); end; - WritePage(16,Base-Max,IntToStr(Max),-1,FtMax); - LinePage(20,Base-Max,200,Base-Max,TsFuchsia); - // preparation is finished, so create PDF objects - EndWrite; + WritePage(16, Base - Max, IntToStr(Max), -1, FtMax); + LinePage(20, Base - Max, 200, Base - Max, TsFuchsia); + // preparation is finished, so create PDF objects + EndWrite; end; end; procedure TF_Demo.PrintSurf(Preview: Boolean); var - FtTitle,FtText: Integer; - IlTitle,IlText: Integer; + FtTitle, FtText: integer; + IlTitle, IlText: integer; begin -with FReport do + with FReport do begin - // define orientation, page format, measurement unit, language, preview (true) or print (false) - BeginWrite(oPortrait,A4,msMM,Langue,Preview); - // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) - FtTitle:= Font('helvetica-15:bold',clBlack); - FtText:= Font('helvetica-7',clBlack); - // create line spacings to be used - IlTitle:= LineSpace(3,0,3); - IlText:= LineSpace(1,0,0); - // create a new section and define the margins - Section(10,10,10,10); - WriteHeader(cnCenter,lnEnd,'SHOWING SURFACE',ColDefaut,FtTitle,IlTitle); - // write page number and total of pages on each page - NumPageFooter(cnRight,lnEnd,'Page','of',True,ColDefaut,FtText,IlText); - // paint some surfaces - SurfPage([40,40,100],[50,110,80],clGreen); - SurfPage([30,50,150,80,120,130],[120,180,180,160,140,120],clFuchsia); - // preparation is finished, so create PDF objects - EndWrite; + // define orientation, page format, measurement unit, language, preview (true) or print (false) + BeginWrite(oPortrait, A4, msMM, Langue, Preview); + // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) + FtTitle := Font('helvetica-15:bold', clBlack); + FtText := Font('helvetica-7', clBlack); + // create line spacings to be used + IlTitle := LineSpace(3, 0, 3); + IlText := LineSpace(1, 0, 0); + // create a new section and define the margins + Section(10, 10, 10, 10); + WriteHeader(cnCenter, lnEnd, 'SHOWING SURFACE', ColDefaut, FtTitle, IlTitle); + // write page number and total of pages on each page + NumPageFooter(cnRight, lnEnd, 'Page', 'of', True, ColDefaut, FtText, IlText); + // paint some surfaces + SurfPage([40, 40, 100], [50, 110, 80], clGreen); + SurfPage([30, 50, 150, 80, 120, 130], [120, 180, 180, 160, 140, 120], clFuchsia); + // preparation is finished, so create PDF objects + EndWrite; end; end; procedure TF_Demo.PrintImage(Preview: Boolean); var - FtTitle,FtText: Integer; - IlTitle,IlText: Integer; - Col1,Col2,Col3: Integer; + FtTitle, FtText: integer; + IlTitle, IlText: integer; + Col1, Col2, Col3: integer; begin -with FReport do + with FReport do begin - // define orientation, page format, measurement unit, language, preview (true) or print (false) - BeginWrite(oPortrait,A4,msMM,Langue,Preview); - // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) - FtTitle:= Font('helvetica-15:bold',clBlack); - FtText:= Font('helvetica-7',clBlack); - // create line spacings to be used - IlTitle:= LineSpace(0,0,3); - IlText:= LineSpace(1,0,0); - Col1:= Column(20,60,2); - Col2:= Column(80,60,2); - Col3:= Column(140,60,2); - // create a new section and define the margins - Section(10,10,10,10); - WriteHeader(cnCenter,lnEnd,'SHOWING IMAGES',ColDefaut,FtTitle,IlTitle); - // write page number and total of pages on each page - NumPageFooter(cnRight,lnEnd,'Page','of',True,ColDefaut,FtText,IlText); - // paint some images - ImageHeader(0,0,'poppy.jpg',Col1,4); - ImagePage(30,40,'poppy.jpg',ColDefaut,3); - ImagePage(40,70,'poppy.jpg',ColDefaut,2); - ImagePage(50,130,'poppy.jpg'); - ImagePage(0,20,'sys.radiobuttons',Col3); - Page; - ImagePage(0,0,'poppy-nb.jpg',Col2); - ImagePage(20,100,'poppy.jpg',ColDefaut,2); - Page; - // preparation is finished, so create PDF objects - EndWrite; + // define orientation, page format, measurement unit, language, preview (true) or print (false) + BeginWrite(oPortrait, A4, msMM, Langue, Preview); + // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) + FtTitle := Font('helvetica-15:bold', clBlack); + FtText := Font('helvetica-7', clBlack); + // create line spacings to be used + IlTitle := LineSpace(0, 0, 3); + IlText := LineSpace(1, 0, 0); + Col1 := Column(20, 60, 2); + Col2 := Column(80, 60, 2); + Col3 := Column(140, 60, 2); + // create a new section and define the margins + Section(10, 10, 10, 10); + WriteHeader(cnCenter, lnEnd, 'SHOWING IMAGES', ColDefaut, FtTitle, IlTitle); + // write page number and total of pages on each page + NumPageFooter(cnRight, lnEnd, 'Page', 'of', True, ColDefaut, FtText, IlText); + // paint some images + ImageHeader(0, 0, 'poppy.jpg', Col1, 4); + ImagePage(30, 40, 'poppy.jpg', ColDefaut, 3); + ImagePage(40, 70, 'poppy.jpg', ColDefaut, 2); + ImagePage(50, 130, 'poppy.jpg'); + ImagePage(0, 20, 'sys.radiobuttons', Col3); + Page; + ImagePage(0, 0, 'poppy-nb.jpg', Col2); + ImagePage(20, 100, 'poppy.jpg', ColDefaut, 2); + Page; + // preparation is finished, so create PDF objects + EndWrite; end; end; procedure TF_Demo.PrintTtfFont(Preview: Boolean); var - FtTitle,FtText,FtText1,FtText2,FtText3,FtText4,FtText5,FtText6,FtText7,FtText8,FtText9,FtText10: Integer; - IlTitle,IlText: Integer; + FtTitle, FtText, FtText1, FtText2, FtText3, FtText4, FtText5, FtText6, FtText7, FtText8, FtText9, FtText10: integer; + IlTitle, IlText: integer; begin -with FReport do + with FReport do begin - // define orientation, page format, measurement unit, language, preview (true) or print (false) - BeginWrite(oPortrait,A4,msMM,Langue,Preview); - // create a new section and define the margins: 10 mm each side - Section(10,10,10,10); - // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) - FtTitle:= Font('helvetica-15:bold',clBlack); - FtText:= Font('helvetica-7',clBlack); - FtText1:= Font('LiberationSans-10',clBlack); - FtText2:= Font('LiberationSans-10:bold:italic',clBlack); - FtText3:= Font('LiberationMono-10:italic',clBlack); - FtText4:= Font('LiberationSerif-10:bold',clBlack); - FtText5:= Font('DejaVuSans-10',clBlack); - FtText6:= Font('DejaVuSansCondensed-10',clBlack); - FtText7:= Font('DejaVuSansMono-10:bold:oblique',clBlack); - FtText8:= Font('DejaVuSerif-10:italic',clBlack); - FtText9:= Font('ComicSansMS-10',clBlack); - FtText10:= Font('ComicSansMS-10:bold',clBlack); - // create line spacings to be used - IlTitle:= LineSpace(0,0,5); - IlText:= LineSpace(3,0,3); - WriteHeader(cnCenter,lnEnd,'SHOWING TRUE TYPE FONTS',ColDefaut,FtTitle,IlTitle); - // write page number and total of pages on each page - NumPageFooter(cnRight,lnEnd,'Page','of',True,ColDefaut,FtText,IlText); - // write text aligned to center of the page - WritePage(cnCenter,lnEnd,'LiberationSans-10',ColDefaut,FtText1); - WritePage(cnCenter,lnEnd,'LiberationSans-10:bold:italic',ColDefaut,FtText2); - WritePage(cnCenter,lnEnd,'LiberationMono-10:italic',ColDefaut,FtText3); - WritePage(cnCenter,lnEnd,'LiberationSerif-10:bold',ColDefaut,FtText4); - WritePage(cnCenter,lnEnd,'DejaVuSans-10',ColDefaut,FtText5); - WritePage(cnCenter,lnEnd,'DejaVuSansCondensed-10',ColDefaut,FtText6); - WritePage(cnCenter,lnEnd,'DejaVuSansMono-10:bold:oblique',ColDefaut,FtText7); - WritePage(cnCenter,lnEnd,'DejaVuSerif-10:italic',ColDefaut,FtText8); - WritePage(cnCenter,lnEnd,'ComicSansMS-10',ColDefaut,FtText9); - WritePage(cnCenter,lnEnd,'ComicSansMS-10:bold',ColDefaut,FtText10); - EndWrite; + // define orientation, page format, measurement unit, language, preview (true) or print (false) + BeginWrite(oPortrait, A4, msMM, Langue, Preview); + // create a new section and define the margins: 10 mm each side + Section(10, 10, 10, 10); + // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) + FtTitle := Font('helvetica-15:bold', clBlack); + FtText := Font('helvetica-7', clBlack); + FtText1 := Font('LiberationSans-10', clBlack); + FtText2 := Font('LiberationSans-10:bold:italic', clBlack); + FtText3 := Font('LiberationMono-10:italic', clBlack); + FtText4 := Font('LiberationSerif-10:bold', clBlack); + FtText5 := Font('DejaVuSans-10', clBlack); + FtText6 := Font('DejaVuSansCondensed-10', clBlack); + FtText7 := Font('DejaVuSansMono-10:bold:oblique', clBlack); + FtText8 := Font('DejaVuSerif-10:italic', clBlack); + FtText9 := Font('ComicSansMS-10', clBlack); + FtText10 := Font('ComicSansMS-10:bold', clBlack); + // create line spacings to be used + IlTitle := LineSpace(0, 0, 5); + IlText := LineSpace(3, 0, 3); + WriteHeader(cnCenter, lnEnd, 'SHOWING TRUE TYPE FONTS', ColDefaut, FtTitle, IlTitle); + // write page number and total of pages on each page + NumPageFooter(cnRight, lnEnd, 'Page', 'of', True, ColDefaut, FtText, IlText); + // write text aligned to center of the page + WritePage(cnCenter, lnEnd, 'LiberationSans-10', ColDefaut, FtText1); + WritePage(cnCenter, lnEnd, 'LiberationSans-10:bold:italic', ColDefaut, FtText2); + WritePage(cnCenter, lnEnd, 'LiberationMono-10:italic', ColDefaut, FtText3); + WritePage(cnCenter, lnEnd, 'LiberationSerif-10:bold', ColDefaut, FtText4); + WritePage(cnCenter, lnEnd, 'DejaVuSans-10', ColDefaut, FtText5); + WritePage(cnCenter, lnEnd, 'DejaVuSansCondensed-10', ColDefaut, FtText6); + WritePage(cnCenter, lnEnd, 'DejaVuSansMono-10:bold:oblique', ColDefaut, FtText7); + WritePage(cnCenter, lnEnd, 'DejaVuSerif-10:italic', ColDefaut, FtText8); + WritePage(cnCenter, lnEnd, 'ComicSansMS-10', ColDefaut, FtText9); + WritePage(cnCenter, lnEnd, 'ComicSansMS-10:bold', ColDefaut, FtText10); + EndWrite; end; end; procedure TF_Demo.Ckb_PreferencesChange(Sender: TObject); begin -Preferences:= Ckb_Preferences.Checked; + Preferences := Ckb_Preferences.Checked; end; procedure TF_Demo.SE_ZoomChange(Sender: TObject); begin -ZoomValue:= IntToStr(SE_Zoom.Value); + ZoomValue := IntToStr(SE_Zoom.Value); end; procedure TF_Demo.SE_ZoomExit(Sender: TObject); begin -ZoomValue:= IntToStr(SE_Zoom.Value); + ZoomValue := IntToStr(SE_Zoom.Value); end; procedure TF_Demo.P_LayoutRBChange(Sender: TObject); begin -if RB_Single.Checked -then - LayoutMode:= lSingle; -if RB_Two.Checked -then - LayoutMode:= lTwo; -if RB_Continuous.Checked -then - LayoutMode:= lContinuous; + if RB_Single.Checked then + LayoutMode := lSingle; + if RB_Two.Checked then + LayoutMode := lTwo; + if RB_Continuous.Checked then + LayoutMode := lContinuous; end; constructor TF_Demo.Create(AOwner: TComponent); var - Cpt: Integer; + Cpt: integer; begin -inherited Create(AOwner); -Name := 'F_Demo'; -WindowTitle:= 'PDF demo'; -SetPosition(0, 0, 900, 600); -WindowPosition:= wpScreenCenter; -Sizeable:= False; -fpgSetNamedColor(clWindowBackground,clPaleGreen); -fpgSetNamedColor(clButtonFace,clCyan); -fpgSetNamedColor(clText1,clBlue); -fpgSetNamedColor(clSelection,clSkyBlue); -fpgSetNamedColor(clSelectionText,clDarkBlue); -fpgSetNamedFont('Label1','bitstream vera sans-10'); -fpgSetNamedFont('Edit1','bitstream vera sans-10'); -L_Pdf:= CreateLabel(Self,50,5,'Print to PDF',150,20,taCenter); -Bt_PdfEmptyPage:= CreateButton(Self,50,30,150,'Empty page',@Bt_PdfEmptyPageClick,'stdimg.Adobe_pdf'); -Bt_PdfSimpleText:= CreateButton(Self,50,70,150,'Simple text',@Bt_PdfSimpleTextClick,'stdimg.Adobe_pdf'); -Bt_PdfMultiPages:= CreateButton(Self,50,110,150,'Multiple pages',@Bt_PdfMultiPagesClick,'stdimg.Adobe_pdf'); -Bt_PdfMultiSections:= CreateButton(Self,50,150,150,'Multiple sections',@Bt_PdfMultiSectionsClick,'stdimg.Adobe_pdf'); -Bt_PdfOutlines:= CreateButton(Self,50,190,150,'Outlines',@Bt_PdfOutlinesClick,'stdimg.Adobe_pdf'); -Bt_PdfCadres:= CreateButton(Self,50,230,150,'Draw frames',@Bt_PdfCadresClick,'stdimg.Adobe_pdf'); -Bt_PdfColor:= CreateButton(Self,50,270,150,'Show colors',@Bt_PdfColorClick,'stdimg.Adobe_pdf'); -Bt_PdfLines:= CreateButton(Self,50,310,150,'Draw lines',@Bt_PdfLinesClick,'stdimg.Adobe_pdf'); -Bt_PdfGrid:= CreateButton(Self,50,350,150,'Show grid',@Bt_PdfGridClick,'stdimg.Adobe_pdf'); -Bt_PdfGraph:= CreateButton(Self,50,390,150,'Show graph',@Bt_PdfGraphClick,'stdimg.Adobe_pdf'); -Bt_PdfSurf:= CreateButton(Self,50,430,150,'Show surface',@Bt_PdfSurfClick,'stdimg.Adobe_pdf'); -Bt_PdfImages:= CreateButton(Self,50,470,150,'Show images',@Bt_PdfImagClick,'stdimg.Adobe_pdf'); -Bt_PdfTtfFont:= CreateButton(Self,50,510,150,'True type fonts',@Bt_PdfTtfFontClick,'stdimg.Adobe_pdf'); -L_Visu:= CreateLabel(Self,250,5,'Preview',150,20,taCenter); -Bt_VisuEmptyPage:= CreateButton(Self,250,30,150,'Empty page',@Bt_VisuEmptyPageClick,'stdimg.preview'); -Bt_VisuSimpleText:= CreateButton(Self,250,70,150,'Simple text',@Bt_VisuSimpleTextClick,'stdimg.preview'); -Bt_VisuMultiPages:= CreateButton(Self,250,110,150,'Multiple pages',@Bt_VisuMultiPagesClick,'stdimg.preview'); -Bt_VisuMultiSections:= CreateButton(Self,250,150,150,'Multiple sections',@Bt_VisuMultiSectionsClick,'stdimg.preview'); -Bt_VisuOutlines:= CreateButton(Self,250,190,150,'Outlines',@Bt_VisuOutlinesClick,'stdimg.preview'); -Bt_VisuCadres:= CreateButton(Self,250,230,150,'Draw frames',@Bt_VisuCadresClick,'stdimg.preview'); -Bt_VisuColor:= CreateButton(Self,250,270,150,'Show colors',@Bt_VisuColorClick,'stdimg.preview'); -Bt_VisuLines:= CreateButton(Self,250,310,150,'Draw lines',@Bt_VisuLinesClick,'stdimg.preview'); -Bt_VisuGrid:= CreateButton(Self,250,350,150,'Show grid',@Bt_VisuGridClick,'stdimg.preview'); -Bt_VisuGraph:= CreateButton(Self,250,390,150,'Show graph',@Bt_VisuGraphClick,'stdimg.preview'); -Bt_VisuSurf:= CreateButton(Self,250,430,150,'Show surface',@Bt_VisuSurfClick,'stdimg.preview'); -Bt_VisuImages:= CreateButton(Self,250,470,150,'Show images',@Bt_VisuImagClick,'stdimg.preview'); -Bt_VisuTtfFont:= CreateButton(Self,250,510,150,'True type fonts',@Bt_VisuTtfFontClick,'stdimg.preview'); -L_Print:= CreateLabel(Self,450,5,'Print to printer',150,20,taCenter); -Bt_PrintEmptyPage:= CreateButton(Self,450,30,150,'Empty page',@Bt_PrintEmptyPageClick,'stdimg.print'); -Bt_PrintEmptyPage.Enabled:= False; -Bt_PrintSimpleText:= CreateButton(Self,450,70,150,'Simple text',@Bt_PrintSimpleTextClick,'stdimg.print'); -Bt_PrintSimpleText.Enabled:= False; -Bt_PrintMultiPages:= CreateButton(Self,450,110,150,'Multiple pages',@Bt_PrintMultiPagesClick,'stdimg.print'); -Bt_PrintMultiPages.Enabled:= False; -Bt_PrintMultiSections:= CreateButton(Self,450,150,150,'Multiple sections',@Bt_PrintMultiSectionsClick,'stdimg.print'); -Bt_PrintMultiSections.Enabled:= False; -Bt_PrintOutlines:= CreateButton(Self,450,190,150,'Outlines',@Bt_PrintOutlinesClick,'stdimg.print'); -Bt_PrintOutlines.Enabled:= False; -Bt_PrintCadres:= CreateButton(Self,450,230,150,'Draw frames',@Bt_PrintCadresClick,'stdimg.print'); -Bt_PrintCadres.Enabled:= False; -Bt_PrintColor:= CreateButton(Self,450,270,150,'Show colors',@Bt_PrintColorClick,'stdimg.print'); -Bt_PrintColor.Enabled:= False; -Bt_PrintLines:= CreateButton(Self,450,310,150,'Draw lines',@Bt_PrintLinesClick,'stdimg.print'); -Bt_PrintLines.Enabled:= False; -Bt_PrintGrid:= CreateButton(Self,450,350,150,'Show grid',@Bt_PrintGridClick,'stdimg.print'); -Bt_PrintGrid.Enabled:= False; -Bt_PrintGraph:= CreateButton(Self,450,390,150,'Show graph',@Bt_PrintGraphClick,'stdimg.print'); -Bt_PrintGraph.Enabled:= False; -Bt_PrintSurf:= CreateButton(Self,450,430,150,'Show surface',@Bt_PrintSurfClick,'stdimg.print'); -Bt_PrintSurf.Enabled:= False; -Bt_PrintImages:= CreateButton(Self,450,470,150,'Show images',@Bt_PrintImagClick,'stdimg.print'); -Bt_PrintImages.Enabled:= False; -Bt_PrintTtfFont:= CreateButton(Self,450,510,150,'True type fonts',@Bt_PrintTtfFontClick,'stdimg.print'); -Bt_PrintTtfFont.Enabled:= False; -L_Settings:= CreateLabel(Self,650,5,'PDF settings',200,20,taCenter); -Ckb_Preferences:= CreateCheckBox(Self,650,30,'FitWindow preference'); -Ckb_Preferences.OnChange:= @Ckb_PreferencesChange;; -P_Zoom:= CreatePanel(Self,650,60,200,60,'Zoom',bsRaised,taCenter,tlTop,5); -P_Zoom.BackgroundColor:= clPaleGreen; -SE_Zoom:= CreateSpinEdit(P_Zoom,10,25,55,20,20,200,1,5,100); -SE_Zoom.OnChange:= @SE_ZoomChange; -L_Zoom:= CreateLabel(P_Zoom,70,25,'%'); -P_Layout:= CreatePanel(Self,650,130,200,110,'Layout',bsRaised,taCenter,tlTop,5); -P_Layout.BackgroundColor:= clPaleGreen; -RB_Single:= CreateRadiobutton(P_Layout,10,25,'Single'); -RB_Single.OnChange:= @P_LayoutRBChange; -RB_Two:= CreateRadiobutton(P_Layout,10,50,'Two pages'); -RB_Two.OnChange:= @P_LayoutRBChange; -RB_Continuous:= CreateRadiobutton(P_Layout,10,75,'Continuous'); -RB_Continuous.OnChange:= @P_LayoutRBChange; -Bt_FontDir:= CreateButton(Self,640,260,220,'True type font files directory',@Bt_FontDirClick,''); -Ckb_Preferences.Checked:= True; -RB_Single.Checked:= True; -Bt_Exit:= CreateButton(Self,375,550,150,'Exit',@Bt_ExitClick,'stdimg.exit'); -Bt_Exit.BackgroundColor:= clTomato; -ZoomValue:= '100'; -Randomize; -for Cpt:= 0 to 18 do - ChartValues[Cpt]:= Round(Random*100); + inherited Create(AOwner); + Name := 'F_Demo'; + WindowTitle := 'PDF demo'; + SetPosition(0, 0, 900, 600); + WindowPosition := wpScreenCenter; + Sizeable := False; + fpgSetNamedColor(clWindowBackground, clPaleGreen); + fpgSetNamedColor(clButtonFace, clCyan); + fpgSetNamedColor(clText1, clBlue); + fpgSetNamedColor(clSelection, clSkyBlue); + fpgSetNamedColor(clSelectionText, clDarkBlue); + fpgSetNamedFont('Label1', 'bitstream vera sans-10'); + fpgSetNamedFont('Edit1', 'bitstream vera sans-10'); + L_Pdf := CreateLabel(Self, 50, 5, 'Print to PDF', 150, 20, taCenter); + Bt_PdfEmptyPage := CreateButton(Self, 50, 30, 150, 'Empty page', @Bt_PdfEmptyPageClick, 'stdimg.Adobe_pdf'); + Bt_PdfSimpleText := CreateButton(Self, 50, 70, 150, 'Simple text', @Bt_PdfSimpleTextClick, 'stdimg.Adobe_pdf'); + Bt_PdfMultiPages := CreateButton(Self, 50, 110, 150, 'Multiple pages', @Bt_PdfMultiPagesClick, 'stdimg.Adobe_pdf'); + Bt_PdfMultiSections := CreateButton(Self, 50, 150, 150, 'Multiple sections', @Bt_PdfMultiSectionsClick, 'stdimg.Adobe_pdf'); + Bt_PdfOutlines := CreateButton(Self, 50, 190, 150, 'Outlines', @Bt_PdfOutlinesClick, 'stdimg.Adobe_pdf'); + Bt_PdfCadres := CreateButton(Self, 50, 230, 150, 'Draw frames', @Bt_PdfCadresClick, 'stdimg.Adobe_pdf'); + Bt_PdfColor := CreateButton(Self, 50, 270, 150, 'Show colors', @Bt_PdfColorClick, 'stdimg.Adobe_pdf'); + Bt_PdfLines := CreateButton(Self, 50, 310, 150, 'Draw lines', @Bt_PdfLinesClick, 'stdimg.Adobe_pdf'); + Bt_PdfGrid := CreateButton(Self, 50, 350, 150, 'Show grid', @Bt_PdfGridClick, 'stdimg.Adobe_pdf'); + Bt_PdfGraph := CreateButton(Self, 50, 390, 150, 'Show graph', @Bt_PdfGraphClick, 'stdimg.Adobe_pdf'); + Bt_PdfSurf := CreateButton(Self, 50, 430, 150, 'Show surface', @Bt_PdfSurfClick, 'stdimg.Adobe_pdf'); + Bt_PdfImages := CreateButton(Self, 50, 470, 150, 'Show images', @Bt_PdfImagClick, 'stdimg.Adobe_pdf'); + Bt_PdfTtfFont := CreateButton(Self, 50, 510, 150, 'True type fonts', @Bt_PdfTtfFontClick, 'stdimg.Adobe_pdf'); + L_Visu := CreateLabel(Self, 250, 5, 'Preview', 150, 20, taCenter); + Bt_VisuEmptyPage := CreateButton(Self, 250, 30, 150, 'Empty page', @Bt_VisuEmptyPageClick, 'stdimg.preview'); + Bt_VisuSimpleText := CreateButton(Self, 250, 70, 150, 'Simple text', @Bt_VisuSimpleTextClick, 'stdimg.preview'); + Bt_VisuMultiPages := CreateButton(Self, 250, 110, 150, 'Multiple pages', @Bt_VisuMultiPagesClick, 'stdimg.preview'); + Bt_VisuMultiSections := CreateButton(Self, 250, 150, 150, 'Multiple sections', @Bt_VisuMultiSectionsClick, 'stdimg.preview'); + Bt_VisuOutlines := CreateButton(Self, 250, 190, 150, 'Outlines', @Bt_VisuOutlinesClick, 'stdimg.preview'); + Bt_VisuCadres := CreateButton(Self, 250, 230, 150, 'Draw frames', @Bt_VisuCadresClick, 'stdimg.preview'); + Bt_VisuColor := CreateButton(Self, 250, 270, 150, 'Show colors', @Bt_VisuColorClick, 'stdimg.preview'); + Bt_VisuLines := CreateButton(Self, 250, 310, 150, 'Draw lines', @Bt_VisuLinesClick, 'stdimg.preview'); + Bt_VisuGrid := CreateButton(Self, 250, 350, 150, 'Show grid', @Bt_VisuGridClick, 'stdimg.preview'); + Bt_VisuGraph := CreateButton(Self, 250, 390, 150, 'Show graph', @Bt_VisuGraphClick, 'stdimg.preview'); + Bt_VisuSurf := CreateButton(Self, 250, 430, 150, 'Show surface', @Bt_VisuSurfClick, 'stdimg.preview'); + Bt_VisuImages := CreateButton(Self, 250, 470, 150, 'Show images', @Bt_VisuImagClick, 'stdimg.preview'); + Bt_VisuTtfFont := CreateButton(Self, 250, 510, 150, 'True type fonts', @Bt_VisuTtfFontClick, 'stdimg.preview'); + L_Print := CreateLabel(Self, 450, 5, 'Print to printer', 150, 20, taCenter); + Bt_PrintEmptyPage := CreateButton(Self, 450, 30, 150, 'Empty page', @Bt_PrintEmptyPageClick, 'stdimg.print'); + Bt_PrintEmptyPage.Enabled := False; + Bt_PrintSimpleText := CreateButton(Self, 450, 70, 150, 'Simple text', @Bt_PrintSimpleTextClick, 'stdimg.print'); + Bt_PrintSimpleText.Enabled := False; + Bt_PrintMultiPages := CreateButton(Self, 450, 110, 150, 'Multiple pages', @Bt_PrintMultiPagesClick, 'stdimg.print'); + Bt_PrintMultiPages.Enabled := False; + Bt_PrintMultiSections := CreateButton(Self, 450, 150, 150, 'Multiple sections', @Bt_PrintMultiSectionsClick, 'stdimg.print'); + Bt_PrintMultiSections.Enabled := False; + Bt_PrintOutlines := CreateButton(Self, 450, 190, 150, 'Outlines', @Bt_PrintOutlinesClick, 'stdimg.print'); + Bt_PrintOutlines.Enabled := False; + Bt_PrintCadres := CreateButton(Self, 450, 230, 150, 'Draw frames', @Bt_PrintCadresClick, 'stdimg.print'); + Bt_PrintCadres.Enabled := False; + Bt_PrintColor := CreateButton(Self, 450, 270, 150, 'Show colors', @Bt_PrintColorClick, 'stdimg.print'); + Bt_PrintColor.Enabled := False; + Bt_PrintLines := CreateButton(Self, 450, 310, 150, 'Draw lines', @Bt_PrintLinesClick, 'stdimg.print'); + Bt_PrintLines.Enabled := False; + Bt_PrintGrid := CreateButton(Self, 450, 350, 150, 'Show grid', @Bt_PrintGridClick, 'stdimg.print'); + Bt_PrintGrid.Enabled := False; + Bt_PrintGraph := CreateButton(Self, 450, 390, 150, 'Show graph', @Bt_PrintGraphClick, 'stdimg.print'); + Bt_PrintGraph.Enabled := False; + Bt_PrintSurf := CreateButton(Self, 450, 430, 150, 'Show surface', @Bt_PrintSurfClick, 'stdimg.print'); + Bt_PrintSurf.Enabled := False; + Bt_PrintImages := CreateButton(Self, 450, 470, 150, 'Show images', @Bt_PrintImagClick, 'stdimg.print'); + Bt_PrintImages.Enabled := False; + Bt_PrintTtfFont := CreateButton(Self, 450, 510, 150, 'True type fonts', @Bt_PrintTtfFontClick, 'stdimg.print'); + Bt_PrintTtfFont.Enabled := False; + L_Settings := CreateLabel(Self, 650, 5, 'PDF settings', 200, 20, taCenter); + Ckb_Preferences := CreateCheckBox(Self, 650, 30, 'FitWindow preference'); + Ckb_Preferences.OnChange := @Ckb_PreferencesChange; + P_Zoom := CreatePanel(Self, 650, 60, 200, 60, 'Zoom', bsRaised, taCenter, tlTop, 5); + P_Zoom.BackgroundColor := clPaleGreen; + SE_Zoom := CreateSpinEdit(P_Zoom, 10, 25, 55, 20, 20, 200, 1, 5, 100); + SE_Zoom.OnChange := @SE_ZoomChange; + L_Zoom := CreateLabel(P_Zoom, 70, 25, '%'); + P_Layout := CreatePanel(Self, 650, 130, 200, 110, 'Layout', bsRaised, taCenter, tlTop, 5); + P_Layout.BackgroundColor := clPaleGreen; + RB_Single := CreateRadiobutton(P_Layout, 10, 25, 'Single'); + RB_Single.OnChange := @P_LayoutRBChange; + RB_Two := CreateRadiobutton(P_Layout, 10, 50, 'Two pages'); + RB_Two.OnChange := @P_LayoutRBChange; + RB_Continuous := CreateRadiobutton(P_Layout, 10, 75, 'Continuous'); + RB_Continuous.OnChange := @P_LayoutRBChange; + Bt_FontDir := CreateButton(Self, 640, 260, 220, 'True type font files directory', @Bt_FontDirClick, ''); + Ckb_Preferences.Checked := True; + RB_Single.Checked := True; + Bt_Exit := CreateButton(Self, 375, 550, 150, 'Exit', @Bt_ExitClick, 'stdimg.exit'); + Bt_Exit.BackgroundColor := clTomato; + ZoomValue := '100'; + Randomize; + for Cpt := 0 to 18 do + ChartValues[Cpt] := Round(Random * 100); end; end. |