procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. Záznam popisujúci anotáciu, ktorá sa má vytvoriť. Kľúčové polia zahŕňajú SubType (typ anotácie, napr. zvýraznenie, textová poznámka, ink), Rect (ohraničujúci obdĺžnik v súradniciach používateľského priestoru PDF), Contents (text anotácie) a Color (farba anotácie). Vyplňte všetky relevantné polia pred odovzdaním záznamu |
CreateAnnotation pridá novú anotáciu na aktuálnu stranu pomocou vlastností dodaných v zázname TPdfAnnotation. Anotácia sa pripojí do poľa anotácií strany a je okamžite prístupná cez Annotation[AnnotationCount - 1]
Záznam TPdfAnnotation zachytáva typ anotácie (SubType), jej pozíciu na strane (Rect, v bodoch používateľského priestoru PDF s počiatkom v ľavom dolnom rohu), viditeľný text alebo tooltip (Contents) a zobrazovaciu farbu (Color). Pred volaním tejto procedúry nastavte každé pole relevantné pre zvolený podtyp; nenastavené polia zostanú na nulových hodnotách
Po vytvorení anotácií zavolajte SaveAs na uloženie zmien na disk. Na odstránenie anotácie použite DeleteAnnotation s príslušným indexom počítaným od 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;