procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. Een record dat de aan te maken annotatie beschrijft. Belangrijke velden zijn SubType (annotatietype, bijvoorbeeld highlight, tekstnotitie, inkt), Rect (begrenzingsrechthoek in PDF-gebruikersruimtecoördinaten), Inhoud (de annotatietekst) en Color (de annotatiekleur). Vul alle relevante velden in voordat u het record doorgeeft |
CreateAnnotation voegt een nieuwe annotatie toe aan de huidige pagina met de eigenschappen uit het TPdfAnnotation-record. De annotatie wordt toegevoegd aan de annotatiearray van de pagina en is meteen toegankelijk via Annotation[AnnotationCount - 1]
Het TPdfAnnotation-record legt het annotatietype (SubType), de positie op de pagina (Rect, in PDF-gebruikersruimtepunten met de oorsprong linksonder), de zichtbare tekst of tooltip (Inhoud) en de weergavekleur (Color) vast. Stel elk veld in dat relevant is voor het gekozen subtype voordat u deze procedure aanroept; niet-ingevulde velden blijven op hun nulwaarden staan
Roep na het aanmaken van annotaties SaveAs aan om de wijzigingen op schijf vast te leggen. Gebruik om een annotatie te verwijderen DeleteAnnotation met de juiste index op basis van 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;