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 به طور خودکار نشان داده خواهد شد

HPDF.FileName := 'Outlines.pdf';

HPDF.BeginDoc( true );                                                   // ایجاد فایل PDF

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

HPDF.CurrentPage.TextOut(0, 5, 0, '  Page 1 top');             // Mark first page top

HPDF.CurrentPage.TextOut(0, 830, 0, '  Page 1 bottom');      // Mark first page bottom

for I := 2 to 100 do

  begin

CurrnetOutline := OutlineRoot.AddChild( 'Page ' + IntToStr(I - 1) );         // افزودن اوت‌لاین

       CurrnetOutline.Opened := true;                                                           // This outline is opened.

CurrnetOutline.AddChild( 'Top ' );                                                         //  افزودن اوت‌لاین

CurrnetOutline.AddChild( 'Bottom ', 0, 800 );                                        //  افزودن اوت‌لاین

HPDF.AddPage;                                                                                // ADD Next Page

HPDF.CurrentPage.TextOut( 0, 5,  0,'  Page ' + IntToStr(I) + ' top' );         // Mark Next page top

HPDF.CurrentPage.TextOut( 0, 830,  0,'  Page ' + IntToStr(I) + ' bottom' ); // Mark Next page bottom

  end;

CurrnetOutline := OutlineRoot.AddChild( 'Page 10 ' );  // ADD last  Page

CurrnetOutline.AddChild( 'Top ' );                                //  افزودن اوت‌لاین

CurrnetOutline.AddChild( 'Bottom ', 0, 830 );                //  افزودن اوت‌لاین

HPDF.EndDoc;                                                         // بستن فایل PDF

finally

HPDF.Free;

end;

end.