|
Vẽ một đường thẳng
Cú pháp Delphi:
procedure LineTo ( X, Y: Single );
Cú pháp C++:
void __fastcall LineTo ( float X, float Y );
Mô tả
Nối thêm một đoạn thẳng từ điểm hiện tại đến điểm X, Y. Điểm hiện tại mới sẽ là X, Y
Ví dụ mã
program LineExample;
{$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 := '.\Line.pdf'; // Set PDF filename
HPDF.BeginDoc; // Create PDF file
HPDF.CurrentPage.MoveTo ( 20, 20 ); // Move current point to 20, 20
HPDF.CurrentPage.LineTo ( 200, 100 ); // Draw line from current point to 200, 100
HPDF.CurrentPage.Stroke; // and stroke
HPDF.EndDoc; // Close PDF file
finally
HPDF.Free;
end;
end.
|