Kod Örneği

program Rectangle;
{$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 := '\Rectangle.pdf';                   // PDF dosya adını ayarla
        HPDF.BeginDoc;                                               // PDF dosyası oluştur

        HPDF.CurrentPage.SetGrayStrokeColor ( 0.252 ); // Gri kontur rengini ayarla
        HPDF.CurrentPage.SetGrayFillColor ( 0.525 );       // Gri dolgu rengini ayarla

        HPDF.CurrentPage.Rectangle( 10, 10, 100, 100 ); // Dikdörtgen çiz
        HPDF.CurrentPage.FillAndStroke;                       // ve renklendirip kontur çiz

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