THPDFPage.DrawArc

THPDFPage

 

Boven  Vorige  Volgende

Teken een boog langs de omtrek van de ellips die wordt begrensd door de opgegeven rechthoek

 

Delphi-syntaxis:

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;

Beschrijving:
The THPDFCurrPoint type defines a location on the PDF page. X specifies the horizontal coordinate and Y specifies the vertical coordinate.

 

C++-syntaxis:

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

 

Beschrijving

Gebruik DrawArc om een elliptisch gebogen lijn te tekenen. De boog volgt de omtrek van een ellips die wordt begrensd door de punten (X1,Y1) en (X2,Y2). De boog wordt tegen de klok in langs de omtrek van de ellips getekend, van het beginpunt naar het eindpunt. Het beginpunt wordt bepaald door het snijpunt van de ellips en een lijn die wordt gedefinieerd door het middelpunt van de ellips en (X3,Y3). Het eindpunt wordt bepaald door het snijpunt van de ellips en een lijn die wordt gedefinieerd door het middelpunt van de ellips en (X4, Y4)

 

Codevoorbeeld

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.