program ShowText;

{$APPTYPE CONSOLE}

uses

SysUtils, Graphics, Classes, HPDFDoc;

var

HPDF: THotPDF;

begin

HPDF := THotPDF.Create(nil );

   try

HPDF.AutoLaunch := true;// PDF-fil vil blive vist automatisk

HPDF.FileName :='ShowText.pdf';         

HPDF.BeginDoc;// Opret PDF-fil

HPDF.CurrentPage.SetFont('Times New Roman', [], 12 );  // Indstil aktuel skrifttype

HPDF.CurrentPage.BeginText;// Åbn tekstblok

HPDF.CurrentPage.MoveTextPoint( 20, 20 );// Flyt tekstpunkt til 20, 20

HPDF.CurrentPage.ShowText('This' );                 // Vis tekst

HPDF.CurrentPage.SetTextRise( -5 );// Indstil teksthævning

HPDF.CurrentPage.ShowText('text' );                  // Vis tekst

HPDF.CurrentPage.SetTextRise( 5 );// Indstil teksthævning

HPDF.CurrentPage.ShowText('moves' );             // Vis tekst

HPDF.CurrentPage.SetTextRise( 0 );// Indstil teksthævning

HPDF.CurrentPage.ShowText('around' );            // Vis tekst

HPDF.CurrentPage.EndText;// Luk tekstblok

HPDF.EndDoc;// Luk PDF-fil

   finally

HPDF.Free;

   end;

end