function CharacterIndexAtPos(X, Y: Integer; ToleranceX, ToleranceY: Double): Integer;
Επιστρέφει τον δείκτη χαρακτήρα στην τρέχουσα σελίδα που είναι πλησιέστερος στο pixel οθόνης (X, Y), ή -1 αν δεν υπάρχει αρκετά κοντινός χαρακτήρας.
Χρησιμοποιήστε το σε OnMouseDown για να ξεκινήσετε επιλογή κειμένου.
Το TPdfView διατηρεί τον μετασχηματισμό συσκευής-σε-σελίδα εσωτερικά με βάση το Zoom, το Rotation, την πλήρωση σελίδας και τη μετατόπιση κύλισης· αυτά τα βοηθήματα είναι το ασφαλές δημόσιο interface σε αυτόν τον μετασχηματισμό.
PageNumber := ακυρώνουν τις αποθηκευμένες συντεταγμένες.Rotation, οπότε μια σελίδα περιστραμμένη 90° εξακολουθεί να αντιστοιχεί στο σωστό ορθογώνιο PDF.
procedure TForm1.PdfView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
PageX, PageY: Double;
begin
if PdfView1.CharacterIndexAtPos(X, Y, PageX, PageY) then
Caption := Format('pt = (%.2f, %.2f)', [PageX, PageY]);
end;