THPDFPage.DrawArc Method

THPDFPage.DrawArc

Vẽ một cung theo chu vi của hình ellipse được giới hạn bởi hình chữ nhật chỉ định

Delphi syntax:

function DrawArc( X1, Y1, X2, Y2, X3, Y3, X4, Y4: Single ):TCurrPoint;

Định nghĩa kiểu TCurrPoint

THPDFCurrPoint định nghĩa một điểm trong tọa độ trang

Unit
HPDFDoc

type
    THPDFCurrPoint = record
        X: Extended;
        Y: Extended;
    end;

Mô tả:
Kiểu THPDFCurrPoint định nghĩa một vị trí trên trang PDF. X chỉ tọa độ ngang và Y chỉ tọa độ dọc

C++ syntax:

TCurrPoint __fastcall DrawArc( float X1, float Y1, float X2, float Y2, float X3, float Y3, float X4, float Y4 );

Mô tả

Dùng DrawArc để vẽ một đường cong hình ellipse. Cung đi theo chu vi của một ellipse được giới hạn bởi các điểm (X1,Y1) và (X2,Y2). Cung được vẽ theo chu vi ellipse, ngược chiều kim đồng hồ, từ điểm bắt đầu đến điểm kết thúc. Điểm bắt đầu được xác định bởi giao điểm của ellipse với một đường thẳng đi qua tâm ellipse và (X3,Y3). Điểm kết thúc được xác định bởi giao điểm của ellipse với một đường thẳng đi qua tâm ellipse và (X4, Y4)

Ví dụ mã

program ArcExample;
{$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 := '.\Curve.pdf';                                             // Set PDF filename
        HPDF.BeginDoc;                                                              // Create PDF file
        HPDF.CurrentPage.DrawArc(10, 10, 110, 110, 50, 10, 10, 50); // Draw Arc
        HPDF.CurrentPage.Stroke;                                                    // Stroke curve
        HPDF.EndDoc;                                                                // Close PDF file
    finally
        HPDF.Free;
    end;
end.