function DeviceToPage(X, Y: Integer; out PageX, PageY: Double): Boolean; overload;
function DeviceToPage(X, Y: Integer; var PageNumber: Integer; var PageX, PageY: Double): Boolean; overload;
function DeviceToPage(Rectangle: TRect): TPdfRectangle; overload;
Convertit un pixel d’écran (X, Y) dans la vue en un point d’espace utilisateur PDF sur la page courante
Renvoie False lorsque le point se trouve en dehors du rectangle de page ; utilisez-le dans OnMouseDown / OnMouseMove pour mapper le curseur vers des coordonnées PDF
TPdfView maintient en interne la transformation device-to-page à partir de Zoom, Rotation, de la marge de page et du défilement; ces assistants constituent l’interface publique sûre vers cette transformation
PageNumber := assignments invalidate cached coordinates.Rotation, so a page rotated 90° still maps to the correct PDF rectangle.
procedure TForm1.PdfView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
PageX, PageY: Double;
begin
if PdfView1.DeviceToPage(X, Y, PageX, PageY) then
Caption := Format('pt = (%.2f, %.2f)', [PageX, PageY]);
end;