program FillExample;

{$APPTYPE CONSOLE}

uses

�� SysUtils, Graphics, Classes, HPDFDoc;

�

var

�� HPDF: THotPDF;

�

begin

�� HPDF := THotPDF.Create(nil);

�� try

������ HPDF.AutoLaunch := true;������������������������������� // PDF file will be shown automatically

������ HPDF.FileName := 'Ellipse.pdf';�����������������������

������ HPDF.BeginDoc;���������������������������������������������� // Vytvořit soubor PDF

������ HPDF.CurrentPage.Ellipse( 10, 10, 200, 100 );��� // Nakreslit elipsu

������ HPDF.CurrentPage.Fill;����������������������������� � // a vyplnit

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

�� finally

������ HPDF.Free;

�� end;

end.