procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. Záznam popisující anotaci, která se má vytvořit. Mezi klíčová pole patří SubType (typ anotace, např. zvýraznění, textová poznámka, ink), Rect (ohraničující obdélník v uživatelských souřadnicích PDF), Contents (text anotace) a Color (barva anotace). Před předáním záznamu vyplňte všechna relevantní pole |
CreateAnnotation přidá na aktuální stránku novou anotaci pomocí vlastností dodaných v záznamu TPdfAnnotation. Anotace se připojí na konec pole anotací stránky a je okamžitě přístupná přes Annotation[AnnotationCount - 1].
Záznam TPdfAnnotation zachycuje typ anotace (SubType), její polohu na stránce (Rect, v bodech uživatelského prostoru PDF s počátkem vlevo dole), viditelný text nebo popisek (Contents) a barvu zobrazení (Color). Před voláním této procedury nastavte každé pole relevantní pro zvolený podtyp; nenastavená pole zůstanou na nulových hodnotách.
Po vytvoření anotací zavolejte SaveAs, aby se změny trvale uložily na disk. K odstranění anotace použijte DeleteAnnotation s příslušným indexem s nulovým základem.
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;