THPDFPage-demoprojekt för sidstorlekar

Delphi PageSetup-mappen delar nu upp sidstorleksexempel efter praktisk utmatningsstorlek:

LargeSize demonstrerar QuadA0, DoubA0, A0, A1, A2, B0+, B0, B1, B2, ANSI-C/D/E, ARCH-C/D/E1/E, japanska arkstorlekar, stora fotostorlekar och en 1024 x 768 mm UserDefined-sida.

NormalSize demonstrerar A3, Tabloid, Ledger, A4, Letter, A5, B3, B4, B5, medelstora fotostorlekar, ANSI-A/B och ARCH-A/B.

SmallSize demonstrerar A6-A10, B6-B10, visitkortsstorlekar, ISO 7810 ID/passstorlekar, ID-fotostorlekar och små fotoutskriftsstorlekar.

Befintliga psXXX-namn förblir kompatibla alias. Ny kod bör föredra page-size enum-värden utan prefix, till exempel A0, A2, B2, B3, Tabloid, Ledger, ANSIC, ARCHD, USBC och P8R för standardstorlekar. Använd UserDefined endast för dimensioner som inte är fördefinierade.

Tabloid är 11 x 17 tum. Ledger är den liggande storleken 17 x 11 tum; behandla inte Ledger som ett annat namn för stående Tabloid.

Enum-namn för fotostorlekar använder prefixet P när den verkliga specifikationen börjar med en siffra. Till exempel representerar P5R den användarsynliga fotostorleken 5R.

B-serievärdena följer den befintliga HotPDF B4 / B5-konventionen och använder JIS B-dimensioner; psB4 och psB5 förblir stödda alias.

Exempel:

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.