program ShowText;

{$APPTYPE CONSOLE}

uses

SysUtils, Graphics, Classes, HPDFDoc;

var

HPDF: THotPDF;

begin

HPDF := THotPDF.Create( nil );

   try

HPDF.AutoLaunch := true;                // سيتم عرض ملف PDF تلقائيًا

HPDF.FileName := 'ShowText.pdf';

HPDF.BeginDoc;                                 // إنشاء ملف PDF

HPDF.CurrentPage.SetFont( 'Times New Roman', [], 12 );  // تعيين الخط الحالي

HPDF.CurrentPage.BeginText;                                // فتح كتلة النص

HPDF.CurrentPage.MoveTextPoint( 20, 20 );      // نقل نقطة النص إلى 20، 20

HPDF.CurrentPage.ShowText( 'This' );                 // عرض النص

HPDF.CurrentPage.SetTextRise( -5 );                  // تعيين إزاحة النص

HPDF.CurrentPage.ShowText( 'text' );                  // عرض النص

HPDF.CurrentPage.SetTextRise( 5 );               // تعيين إزاحة النص

HPDF.CurrentPage.ShowText( 'moves' );             // عرض النص

HPDF.CurrentPage.SetTextRise( 0 );               // تعيين إزاحة النص

HPDF.CurrentPage.ShowText( 'around' );            // عرض النص

HPDF.CurrentPage.EndText;                                  // إغلاق كتلة النص

HPDF.EndDoc;                                       // إغلاق ملف PDF

   finally

HPDF.Free;

end;

end.