procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. En post der beskriver den annotation, der skal oprettes. Nøglefelter omfatter SubType (annotationstype, f.eks. fremhævning, tekstnote, ink), Rect (afgrænsningsrektangel i PDF-brugerrum-koordinater), Contents (annotationsteksten) og Color (annotationsfarven). Udfyld alle relevante felter, før du overfører posten. |
CreateAnnotation tilføjer en ny annotation til den aktuelle side ved hjælp af de egenskaber der leveres i TPdfAnnotation-posten. Annotationen tilføjes sidens annotations-array og bliver øjeblikkeligt tilgængelig via Annotation[AnnotationCount - 1].
TPdfAnnotation-posten fanger annotationstypen (SubType), dens position på siden (Rect, i PDF-brugerrum-punkter med origo i nederste venstre hjørne), den synlige tekst eller tooltip (Contents) og visningsfarven (Color). Sæt hvert felt der er relevant for den valgte subtype, før du kalder denne procedure; usatte felter forbliver på deres nulværdier.
Efter oprettelse af annotationer, kald SaveAs for at gemme ændringerne til disk. Brug DeleteAnnotation med det relevante 0-baserede indeks for at fjerne en annotation.
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;