program Outlines;

{$APPTYPE CONSOLE}

uses

SysUtils,

Graphics,

Classes,

HPDFDoc;

var

I: Integer;

HPDF: THotPDF;

OutlineRoot: THPDFDocOutlineObject;

CurrnetOutline: THPDFDocOutlineObject;

begin

HPDF:= THotPDF.Create(nil);

try

HPDF.AutoLaunch := true; // A PDF fájl automatikusan megjelenítésre kerül

HPDF.FileName := 'Outlines.pdf';

HPDF.BeginDoc( true ); // PDF fájl létrehozása vázlatokkal

OutlineRoot := HPDF.OutlineRoot; // Vázlat gyökér lekérése

HPDF.CurrentPage.TextOut(0, 5, 0, ' Page 1 top'); // Első oldal tetejének megjelölése

HPDF.CurrentPage.TextOut(0, 830, 0, ' Page 1 bottom'); // Első oldal aljának megjelölése

for I := 2 to 100 do

begin

CurrnetOutline := OutlineRoot.AddChild( 'Page ' + IntToStr(I - 1) ); // Az aktuális oldal 0,0 koordinátájához kapcsolt vázlatblokk hozzáadása

CurrnetOutline.Opened := true; // Ez a vázlat meg van nyitva

CurrnetOutline.AddChild( 'Top ' ); // Az aktuális oldal 0,0 koordinátájához kapcsolt vázlat hozzáadása

CurrnetOutline.AddChild( 'Bottom ', 0, 800 ); // Az aktuális oldal 0,800 koordinátájához kapcsolt vázlat hozzáadása

HPDF.AddPage; // Következő oldal hozzáadása

HPDF.CurrentPage.TextOut( 0, 5, 0,' Page ' + IntToStr(I) + ' top' ); // Következő oldal tetejének megjelölése

HPDF.CurrentPage.TextOut( 0, 830, 0,' Page ' + IntToStr(I) + ' bottom' ); // Következő oldal aljának megjelölése

end;

CurrnetOutline := OutlineRoot.AddChild( 'Page 10 ' ); // Utolsó oldal hozzáadása

CurrnetOutline.AddChild( 'Top ' ); // Az utolsó oldal 0,0 koordinátájához kapcsolt vázlat hozzáadása

CurrnetOutline.AddChild( 'Bottom ', 0, 830 ); // Az utolsó oldal 0,830 koordinátájához kapcsolt vázlat hozzáadása

HPDF.EndDoc; // PDF fájl bezárása

finally

HPDF.Free;

end;

end.