procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. Zapis, ki opisuje opombo za ustvarjanje. Ključna polja vključujejo SubType (vrsta opombe, npr. poudarek, besedilna opomba, črnilo), Rect (omejitveni pravokotnik v koordinatah uporabniškega prostora PDF), Contents (besedilo opombe) in Color (barva opombe). Pred posredovanjem zapisa izpolnite vsa ustrezna polja. |
CreateAnnotation doda novo opombo k trenutni strani z lastnostmi, podanimi v zapisu TPdfAnnotation. Opomba se pripne polju opomb strani in postane takoj dostopna prek Annotation[AnnotationCount - 1].
Zapis TPdfAnnotation zajema vrsto opombe (SubType), njen položaj na strani (Rect, v uporabniških točkah PDF z izhodiščem spodaj levo), vidno besedilo ali namig (Contents) in barvo prikaza (Color). Pred klicem te procedure nastavite vsako polje, ki je ustrezno za izbrano podvrsto; nenastavljena polja ostanejo na svojih ničelnih vrednostih.
Po ustvarjanju opomb pokličite SaveAs, da spremembe shranite na disk. Za odstranitev opombe uporabite DeleteAnnotation z ustreznim 0-osnovanim indeksom.
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;