THPDFPage.Width Property

Use a propriedade Width para ler ou mudar a largura da página. Para formatos padrão de papel, desenho, cartão, ID/passaporte e foto, prefira os valores de enum predefinidos de THPDFPage.Size como A2, A3, B2, B4, A5, B5, Tabloid, Ledger, ANSIC, ARCHD e P8R. Nomes psXXX existentes permanecem como apelidos compatíveis. Use Width e Height com UserDefined apenas quando as dimensões exigidas não forem predefinidas.

Width está em pontos e um novo valor é informado em pontos. As coordenadas de desenho estão em 1/THotPDF.Resolution de polegada, de modo que com uma Resolution diferente de 72 leia UserWidth para obter a largura da página nas unidades em que você desenha. Definir Width torna a página UserDefined, e uma página UserDefined desenha em pontos.

Quando a página foi carregada de um arquivo, definir Width grava o MediaBox da própria página: um MediaBox compartilhado com outras páginas, ou um cujos números são objetos separados, é primeiro substituído por uma cópia para esta página, de modo que as outras páginas e objetos mantenham seus valores. Definir Width em uma página cujo canvas foi fechado gera EHPDFPageClosedError

Tabloid é 11 x 17 polegadas. Ledger é o tamanho de paisagem de 17 x 11 polegadas; não trate Ledger como outro nome para Tabloid em retrato.

Nomes de enum de tamanho de foto usam um prefixo P quando a especificação real começa com um dígito. Por exemplo, P5R representa o tamanho de foto 5R voltado ao usuário.

Exemplo de código

program CustomPageSize;
{$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 := 'CustomPageSize.pdf';  // Set PDF filename
        HPDF.PageLayout := plOneColumn;  // Set one column viewer mode

        HPDF.BeginDoc;                              // Create PDF file

        HPDF.CurrentPage.Size := UserDefined;
        HPDF.CurrentPage.Width := 1024 / 25.4 * 72;   // 1024 mm in PDF points
        HPDF.CurrentPage.Height := 768 / 25.4 * 72;   // 768 mm in PDF points
        HPDF.CurrentPage.TextOut(10, 10, 0, '1024 x 768 mm custom page');

        HPDF.EndDoc;                                                       // Close PDF file
    finally
        HPDF.Free;
    end;
end.