procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. Μια εγγραφή που περιγράφει το annotation προς δημιουργία. Σημαντικά πεδία περιλαμβάνουν το SubType (τύπος annotation, π.χ. επισήμανση, σημείωση κειμένου, μελάνι), το Rect (ορογωνίζον ορθογώνιο σε συντεταγμένες χώρου χρήστη PDF), το Contents (το κείμενο του annotation) και το Color (το χρώμα του annotation). Συμπληρώστε όλα τα σχετικά πεδία πριν περάσετε την εγγραφή |
Η CreateAnnotation προσθέτει ένα νέο annotation στην τρέχουσα σελίδα χρησιμοποιώντας τις ιδιότητες που δίνονται στην εγγραφή TPdfAnnotation. Το annotation προσαρτάται στον πίνακα annotations της σελίδας και καθίσταται άμεσα προσβάσιμο μέσω του Annotation[AnnotationCount - 1]
Η εγγραφή TPdfAnnotation καταγράφει τον τύπο του annotation (SubType), τη θέση του στη σελίδα (Rect, σε σημεία χώρου χρήστη PDF με αρχικό σημείο την κάτω αριστερή γωνία), το ορατό κείμενο ή υπόδειξη εργαλείου (Contents) και το χρώμα εμφάνισης (Color). Ορίστε κάθε πεδίο που σχετίζει με τον επιλεγμένο υποτύπο πριν καλέσετε αυτή τη διαδικασία· τα μη ορισμένα πεδία παραμένουν στις μηδενικές τους τιμές
Αφού δημιουργήσετε annotations, καλέστε την SaveAs για να αποθηκεύσετε τις αλλαγές στον δίσκο. Για να αφαιρέσετε ένα annotation χρησιμοποιήστε την DeleteAnnotation με τον κατάλληλο δείκτη με βάση το 0
var
Ann: TPdfAnnotation;
begin
Pdf1.PageIndex := 0;
FillChar(Ann, SizeOf(Ann), 0);
Ann.SubType := asHighlight;
Ann.Rect.Left := 72.0;
Ann.Rect.Bottom := 680.0;
Ann.Rect.Right := 300.0;
Ann.Rect.Top := 695.0;
Ann.Contents := 'Key figure — review before sign-off';
Ann.Color := clYellow;
Pdf1.CreateAnnotation(Ann);
Pdf1.SaveAs('output_annotated.pdf');
end;