|
program CurveExample; {$APPTYPE CONSOLE} uses SysUtils, Graphics, Classes, HPDFDoc; var HPDF: THotPDF; begin HPDF := THotPDF.Create( nil ); try HPDF.AutoLaunch := true; // PDF 파일이 자동으로 표시됩니다 HPDF.FileName := 'Curve.pdf'; HPDF.BeginDoc; // PDF 파일 생성 HPDF.CurrentPage.MoveTo( 50, 300 ); // Move first point HPDF.CurrentPage.CurveToV(150, 50, 200, 200); // 곡선 그리기 HPDF.CurrentPage.Stroke; // Stroke curve HPDF.EndDoc; // PDF 파일 닫기 finally HPDF.Free; end; end. |