procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. Een record dat de aan te maken annotatie beschrijft. Belangrijke velden zijn SubType (annotatietype, bijv. markering, tekstnotitie, ink), Rect (begrenzende rechthoek in PDF-gebruikersruimtecoördinaten), Contents (de annotatietekst) en Color (de annotatiekleur). Vul alle relevante velden voordat u het record doorgeeft. |
CreateAnnotation voegt een nieuwe annotatie toe aan de huidige pagina met de eigenschappen die in het TPdfAnnotation-record worden meegeleverd. De annotatie wordt toegevoegd aan de annotatie-array van de pagina en is onmiddellijk toegankelijk via Annotation[AnnotationCount - 1].
Het TPdfAnnotation-record legt het annotatietype (SubType), de positie op de pagina (Rect, in PDF-gebruikersruimte-punten met de oorsprong linksonder), de zichtbare tekst of tooltip (Contents) en de weergavekleur (Color) vast. Stel elk veld dat relevant is voor het gekozen subtype in voordat u deze procedure aanroept; niet-ingestelde velden behouden hun nulwaarden.
Roep na het aanmaken van annotaties SaveAs aan om de wijzigingen naar schijf te bewaren. Om een annotatie te verwijderen gebruikt u DeleteAnnotation met de juiste op 0 gebaseerde index.
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;