THPDFPage.UserWidth

THPDFPage

Trả về bề rộng của trang theo đơn vị vẽ, tức 1/THotPDF.Resolution inch

Delphi syntax:

property UserWidth: Single; // read-only

C++ syntax:

__property float UserWidth = {read=GetUserWidth};

Description

Tọa độ X, lề, cỡ font và các giá trị do TextWidth và TextHeight trả về đều tính theo 1/Resolution inch. Width giữ bề rộng trang theo điểm và nhận giá trị điểm khi bạn gán, nên với Resolution khác 72 nó không khớp với tọa độ bạn đang vẽ. Hãy đọc UserWidth mỗi khi cần so sánh hoặc kết hợp bề rộng trang với tọa độ vẽ, ví dụ để tìm mép lề phải, căn giữa một khối hoặc quyết định lúc nào nội dung phải chuyển sang trang kế tiếp

Ở Resolution mặc định 72, UserWidth bằng Width. Một trang được định cỡ bằng cách gán Width và Height sẽ vẽ theo điểm bất kể Resolution, và khi đó UserWidth cũng bằng Width

program RightAlignedText;
{$APPTYPE CONSOLE}
uses
  SysUtils,
  HPDFDoc;

var
  HPDF: THotPDF;
  Text: AnsiString;
  X: Single;

begin
  HPDF:= THotPDF.Create(nil);
  try
    HPDF.FileName:= 'RightAlignedText.pdf';
    HPDF.Resolution:= 144;                    // Coordinates in 1/144 inch
    HPDF.BeginDoc;
    HPDF.CurrentPage.SetFont('Arial', [], 24); // 12 pt
    Text:= 'Right aligned with a one inch margin';
    // UserWidth is 1190 on an A4 page here; Width stays 595 points
    X:= HPDF.CurrentPage.UserWidth- 144- HPDF.CurrentPage.TextWidth(Text);
    HPDF.CurrentPage.TextOut(X, 144, 0, Text);
    HPDF.EndDoc;
  finally
    HPDF.Free;
  end;
end.

Xem thêm: Width, UserHeight, THotPDF.Resolution