Kod Örneği

program LineExample;
{$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 := '.\Line.pdf';             // PDF dosya adını ayarla
        HPDF.BeginDoc;                             // PDF dosyası oluştur
        HPDF.CurrentPage.MoveTo ( 20, 20 );        // Geçerli noktayı 20, 20'ye taşı
        HPDF.CurrentPage.LineTo (  200, 100 );     // Geçerli noktadan 200, 100'e çizgi çiz
        HPDF.CurrentPage.Stroke;                   // ve kontur çiz
        HPDF.EndDoc;                               // PDF dosyasını kapat
    finally
        HPDF.Free;
    end;
end.