|
program FillExample; {$APPTYPE CONSOLE} uses �� SysUtils, Graphics, Classes, HPDFDoc; � var �� HPDF: THotPDF; � begin �� HPDF := THotPDF.Create(nil); �� try ������ HPDF.AutoLaunch := true;������������������������������� // PDF 파일이 자동으로 표시됩니다 ������ HPDF.FileName := 'Ellipse.pdf';����������������������� ������ HPDF.BeginDoc;���������������������������������������������� // PDF 파일 생성 ������ HPDF.CurrentPage.Ellipse( 10, 10, 200, 100 );��� // Draw ellipse ������ HPDF.CurrentPage.Fill;����������������������������� � // and fill ������ HPDF.EndDoc;������������������������������������������������� // PDF 파일 닫기 �� finally ������ HPDF.Free; �� end; end. |