Code Example

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';           // Set PDF filename

        HPDF.BeginDoc;                                  // Create PDF file

        HPDF.CurrentPage.SetFont( 'Times New Roman', [], 12 );  // Set current font
        HPDF.CurrentPage.BeginText;                             // Open text block
        HPDF.CurrentPage.MoveTextPoint( 20, 20 );           // Move text point to 20, 20
        HPDF.CurrentPage.ShowText( 'This' );                    // Show text
        HPDF.CurrentPage.SetTextRise( -5 );                     // Set text rise
        HPDF.CurrentPage.ShowText( 'text' );                    // Show text
        HPDF.CurrentPage.SetTextRise( 5 );                      // Set text rise
        HPDF.CurrentPage.ShowText( 'moves' );                 // Show text
        HPDF.CurrentPage.SetTextRise( 0 );                      // Set text rise
        HPDF.CurrentPage.ShowText( 'around' );                 // Show text
        HPDF.CurrentPage.EndText;                               // Close text block

        HPDF.EndDoc;                                                  // Close PDF file
    finally
        HPDF.Free;
    end;
end.