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; // PDF-tiedosto näytetään automaattisesti

HPDF.FileName := 'Outlines.pdf';

HPDF.BeginDoc( true ); // Luo PDF-tiedosto jäsennysten kanssa

OutlineRoot := HPDF.OutlineRoot; // Get Outlines Root

HPDF.CurrentPage.TextOut(0, 5, 0, ' Page 1 top'); // Merkitse ensimmäisen sivun yläreuna

HPDF.CurrentPage.TextOut(0, 830, 0, ' Page 1 bottom'); // Merkitse ensimmäisen sivun alareuna

for I := 2 to 100 do

begin

CurrnetOutline := OutlineRoot.AddChild( 'Page ' + IntToStr(I - 1) ); // Lisää nykyisen sivun kohtaan 0,0 linkitetty jäsennyslohko

CurrnetOutline.Opened := true; // Tämä jäsennys on avattu

CurrnetOutline.AddChild( 'Top ' ); // Lisää nykyisen sivun kohtaan 0,0 linkitetty jäsennys

CurrnetOutline.AddChild( 'Bottom ', 0, 800 ); // Lisää nykyisen sivun kohtaan 0,800 linkitetty jäsennys

HPDF.AddPage; // ADD Next Page

HPDF.CurrentPage.TextOut( 0, 5, 0,' Page ' + IntToStr(I) + ' top' ); // Merkitse seuraavan sivun yläreuna

HPDF.CurrentPage.TextOut( 0, 830, 0,' Page ' + IntToStr(I) + ' bottom' ); // Merkitse seuraavan sivun alareuna

end;

CurrnetOutline := OutlineRoot.AddChild( 'Page 10 ' ); // LISÄÄ viimeinen sivu

CurrnetOutline.AddChild( 'Top ' ); // Lisää viimeisen sivun kohtaan 0,0 linkitetty jäsennys

CurrnetOutline.AddChild( 'Bottom ', 0, 830 ); // Lisää viimeisen sivun kohtaan 0,830 linkitetty jäsennys

HPDF.EndDoc; // Close PDF file

finally

HPDF.Free;

end;

end.