program StrokeExample;

{$APPTYPE CONSOLE}

uses

   SysUtils, Graphics, Classes, HPDFDoc;

var

   HPDF: THotPDF;

begin

   HPDF := THotPDF.Create(nil);

   try

       HPDF.AutoLaunch := true;                                // Soubor PDF se zobrazí automaticky

       HPDF.FileName := 'Circle.pdf';                       

       HPDF.BeginDoc;                                               // Vytvořit soubor PDF

       HPDF.CurrentPage.Circle( 200, 200, 100 );         // Nakreslit kružnici

       HPDF.CurrentPage.Stroke;                                // a vykreslit obrys

       HPDF.EndDoc;                                                  // Zavřít soubor PDF

   finally

       HPDF.Free;

   end;

end.