THPDFPage.DrawArc Method

THPDFPage.DrawArc

Tegner en bue langs omrisset av ellipsen som avgrenses av den angitte rektangelen

Delphi syntax:

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

TCurrPoint-typedefinisjon

THPDFCurrPoint defines a point in page coordinates

Unit
HPDFDoc

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

Description:
THPDFCurrPoint-typen definerer en plassering på PDF-siden. X angir den horisontale koordinaten og Y angir den vertikale koordinaten.

C++-syntaks:

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

Beskrivelse

Bruk DrawArc til å tegne en elliptisk buet linje. Buen følger omrisset av en ellipse som er avgrenset av punktene (X1,Y1) og (X2,Y2). Buen tegnes mot klokken langs ellipsens omriss fra startpunktet til sluttpunktet. Startpunktet bestemmes av skjæringen mellom ellipsen og en linje definert av ellipsens sentrum og (X3,Y3). Sluttpunktet bestemmes av skjæringen mellom ellipsen og en linje definert av ellipsens sentrum og (X4, Y4)

Kodeeksempel

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.