Kod Örneği

program CurveExample;
{$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 := '.\Curve.pdf';                 // PDF dosya adını ayarla
        HPDF.BeginDoc;                                  // PDF dosyası oluştur
        HPDF.CurrentPage.MoveTo( 50, 300 );             // Move first point
        HPDF.CurrentPage.CurveToY( 60, 50, 200, 200 );  // Draw curve
        HPDF.CurrentPage.Stroke;                        // Stroke curve
        HPDF.EndDoc;                                    // PDF dosyasını kapat
    finally
        HPDF.Free;
    end;
end.