THPDFPage.AddLineAnnotation

THPDFPage

Добавя нова Line аннотация към текущата страница

Delphi syntax:

procedure AddLineAnnotation ( Contents: AnsiString; BeginPoint: THPDFCurrPoint; EndPoint: THPDFCurrPoint; Color: TColor = clRed );

TPDFCurrPoint defines a point

Unit
HPDFDoc

type
    THPDFCurrPoint = record
        X: Extended;
        Y: Extended;
end;

Описание:
Типът THPDFCurrPoint дефинира pixel location. X задава хоризонталната координата на точката, Y задава вертикалната координата

C++ syntax:

void __fastcall AddLineAnnotation ( AnsiString Contents, THPDFCurrPoint &BeginPoint, THPDFCurrPoint &EndPoint, Graphics::TColor Color );

Описание

Използвайте AddLineAnnotation, за да добавите нова Line анотация със зададено текстово съобщение ( Contents), начална точка, крайна точка и цвят на текущата страница

Overload with line-ending styles (HotPDF v2.119.16)

procedure AddLineAnnotation ( Contents: AnsiString; BeginPoint, EndPoint: THPDFCurrPoint; BeginStyle, EndStyle: THPDFLineEndingStyle; Color: TColor = clRed );

This overload emits the PDF /LE [/<begin> /<end>] line-ending array per ISO 32000-1 §12.5.6.7 Table 175 + Table 176. The viewer then renders the supplied endpoint marks (arrows, ticks, shapes) without the caller having to draw them on the page. THPDFLineEndingStyle covers the full Table 176 set:

   lesNone — no endpoint marker (PDF spec default)
   lesSquare — filled square
   lesCircle — filled circle
   lesDiamond — filled diamond
   lesOpenArrow — open arrowhead
   lesClosedArrow — triangular closed arrowhead
   lesButt — short perpendicular tick
   lesROpenArrow — reverse-direction open arrow
   lesRClosedArrow — reverse-direction closed arrow
   lesSlash — ~30° clockwise short tick

Example

PDF.CurrentPage.AddLineAnnotation('Width = 120mm',
  Point1, Point2, lesClosedArrow, lesClosedArrow, clBlue);