program ShowText;

{$APPTYPE CONSOLE}

uses

SysUtils, Graphics, Classes, HPDFDoc;

var

HPDF: THotPDF;

begin

HPDF := THotPDF.Create( nil );

try

HPDF.AutoLaunch := true; // PDF file will be shown automatically

HPDF.FileName := 'ShowText.pdf';

HPDF.BeginDoc; // Create PDF file

HPDF.CurrentPage.SetFont( 'Times New Roman', [], 12 ); // Aseta nykyinen fontti

HPDF.CurrentPage.BeginText; // Avaa tekstilohko

HPDF.CurrentPage.MoveTextPoint( 20, 20 ); // Siirrä tekstipistettä kohtaan 20, 20

HPDF.CurrentPage.ShowText( 'This' ); // Näytä teksti

HPDF.CurrentPage.SetTextRise( -5 ); // Aseta tekstin nousu

HPDF.CurrentPage.ShowText( 'text' ); // Show text

HPDF.CurrentPage.SetTextRise( 5 ); // Aseta tekstin nousu

HPDF.CurrentPage.ShowText( 'moves' ); // Näytä teksti

HPDF.CurrentPage.SetTextRise( 0 ); // Aseta tekstin nousu

HPDF.CurrentPage.ShowText( 'around' ); // Näytä teksti

HPDF.CurrentPage.EndText; // Sulje tekstilohko

HPDF.EndDoc; // Close PDF file

finally

HPDF.Free;

end;

end.