THPDFPage.DrawArc Method

THPDFPage.DrawArc

Начертава дъга по периметъра на елипсата, ограничена от зададения правоъгълник

Delphi syntax:

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

TCurrPoint Type Definition

THPDFCurrPoint defines a point in page coordinates

Unit
HPDFDoc

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

Описание:
Типът THPDFCurrPoint дефинира location върху PDF страницата. X задава хоризонталната координата, а Y задава вертикалната координата

C++ syntax:

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

Описание

Използвайте DrawArc, за да начертаете елиптично извита линия. Дъгата преминава по периметъра на елипса, ограничена от точките (X1, Y1) и (X2, Y2). Дъгата се чертае по периметъра на елипсата обратно на часовниковата стрелка, от началната точка до крайната точка. Началната точка се определя от пресечната точка на елипсата и права, зададена от центъра на елипсата и (X3, Y3). Крайната точка се определя от пресечната точка на елипсата и права, зададена от центъра на елипсата и (X4, Y4)

Примерен код

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.