function LinkAtPoint(X, Y: Double): Boolean;
| X, Y | Double. Ponto em unidades de página PDF, com a origem no canto inferior esquerdo da página |
| Result | Boolean. True quando uma anotação de link cobre esse ponto |
Pergunta ao próprio PDFium se um link está presente, em vez de percorrer os retângulos de LinkAnnotation. O teste nativo respeita os quad points da anotação, de modo que um link que acompanha texto quebrado em várias linhas é correspondido pela sua forma real, e não pela caixa delimitadora que o envolve
Ele responde apenas à presença. Para ler o destino ou a URI, percorra LinkAnnotation e LinkAnnotationCount, ou use WebLink para URLs detectadas automaticamente no texto da página
Converta uma posição do mouse para unidades de página com DeviceToPage antes de chamar
var PX, PY: Double;
if Pdf.DeviceToPage(X, Y, 0, 0, W, H, ro0, PX, PY) then
if Pdf.LinkAtPoint(PX, PY) then
Screen.Cursor := crHandPoint;