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.