Kod Örneği

program ShowText;
{$APPTYPE CONSOLE}
uses
    SysUtils, Graphics, Classes, HPDFDoc;
var
    HPDF: THotPDF;
begin
    HPDF := THotPDF.Create( nil );
    try
        HPDF.AutoLaunch := true;                     // PDF dosyası otomatik olarak gösterilir
        HPDF.FileName := '.\ShowText.pdf';           // PDF dosya adını ayarla
        HPDF.BeginDoc;                               // PDF dosyası oluştur

        HPDF.CurrentPage.SetFont( 'Times New Roman', [], 12 );  // Geçerli yazı tipini ayarla
        HPDF.CurrentPage.BeginText;                             // Metin bloğunu aç
        HPDF.CurrentPage.MoveTextPoint( 20, 20 );               // Metin noktasını 20, 20'ye taşı
        HPDF.CurrentPage.ShowText( 'This' );                    // Metni göster
        HPDF.CurrentPage.SetTextRise( -5 );                     // Metin yükseltmesini ayarla
        HPDF.CurrentPage.ShowText( 'text' );                    // Metni göster
        HPDF.CurrentPage.SetTextRise( 5 );                      // Metin yükseltmesini ayarla
        HPDF.CurrentPage.ShowText( 'moves' );                   // Metni göster
        HPDF.CurrentPage.SetTextRise( 0 );                      // Metin yükseltmesini ayarla
        HPDF.CurrentPage.ShowText( 'around' );                  // Metni göster
        HPDF.CurrentPage.EndText;                               // Metin bloğunu kapat

        HPDF.EndDoc;                                            // PDF dosyasını kapat
    finally
        HPDF.Free;
    end;
end.