THPDFPage-paginasdemoprojecten

De Delphi PageSetup-map scheidt paginaformaatvoorbeelden nu op praktische uitvoergrootte:

LargeSize demonstreert QuadA0, DoubA0, A0, A1, A2, B0+, B0, B1, B2, ANSI-C/D/E, ARCH-C/D/E1/E, Japanse bladformaten, grote fotoformaten en een UserDefined-pagina van 1024 x 768 mm

NormalSize demonstreert A3, Tabloid, Ledger, A4, Letter, A5, B3, B4, B5, middelgrote fotoformaten, ANSI-A/B en ARCH-A/B

SmallSize demonstreert A6-A10, B6-B10, visitekaartformaten, ISO 7810-ID-/paspoortformaten, ID-fotoformaten en kleine fotoafdrukformaten

Bestaande psXXX-namen blijven compatibele aliassen. Nieuwe code gebruikt bij voorkeur enumwaarden voor paginaformaat zonder prefix, zoals A0, A2, B2, B3, Tabloid, Ledger, ANSIC, ARCHD, USBC en P8R, voor standaardformaten. Gebruik UserDefined alleen voor afmetingen die niet vooraf zijn gedefinieerd

Het Tabloid-formaat is 11 x 17 inch; Ledger is het liggende formaat van 17 x 11 inch en is geen andere naam voor staand Tabloid

Namen van fotoformaat-enums gebruiken een P-prefix wanneer de echte specificatie met een cijfer begint. P5R staat bijvoorbeeld voor het gebruikersgerichte 5R-fotoformaat

De B-seriewaarden volgen de bestaande HotPDF B4 / B5-conventie en gebruiken JIS B-afmetingen; psB4 en psB5 blijven ondersteunde aliassen

Voorbeeld:

program NormalSize;

{$APPTYPE CONSOLE}

uses

SysUtils,

HPDFDoc;

var

  HPDF: THotPDF;

begin

   HPDF:= THotPDF.Create( nil );

   try

       HPDF.AutoLaunch := true;                // PDF file will be shown automatically

       HPDF.FileName := 'NormalSize.pdf';  

       HPDF.PageLayout := plOneColumn; // Set one column viewer mode

       HPDF.BeginDoc;                              // Create PDF file

       HPDF.CurrentPage.Size := A3;                        // Prefer predefined standard sizes

       HPDF.CurrentPage.TextOut(10, 10, 0, 'A3 Size'); // Print text

       HPDF.AddPage;                                          // Add new page

       HPDF.CurrentPage.Size := B3;                        // JIS B3 page size

       HPDF.CurrentPage.TextOut(10, 10, 0, 'B3 Size'); // Print text

       HPDF.AddPage;                                                        // Add new page

       HPDF.CurrentPage.Size := P8R;                      // 8 x 10 inch photo page

       HPDF.CurrentPage.TextOut(10, 10, 0, '8R Photo Size'); // Print text

       HPDF.AddPage;                                                     // Add new page

       HPDF.CurrentPage.Size := Tabloid;                  // 11 x 17 inch Tabloid page size

       HPDF.CurrentPage.TextOut(10, 10, 0, 'Tabloid Size'); // Print text

       HPDF.AddPage;                                                     // Add new page

       HPDF.CurrentPage.Size := Ledger;                   // 17 x 11 inch Ledger page size

       HPDF.CurrentPage.TextOut(10, 10, 0, 'Ledger Size'); // Print text

       HPDF.EndDoc;                                                       // Close PDF file

   finally

       HPDF.Free;

   end;

end