|
Kreslí oblouk podél obvodu elipsy ohraničené zadaným obdélníkem
Syntaxe Delphi:
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;
Description:
The THPDFCurrPoint type defines a location on the PDF page. X specifies the horizontal coordinate and Y specifies the vertical coordinate.
Syntaxe C++:
TCurrPoint __fastcall DrawArc( float X1, float Y1, float X2, float Y2, float X3, float Y3, float X4, float Y4 );
Popis
Pomocí DrawArc nakreslíte elipticky zakřivenou čáru. Oblouk prochází po obvodu elipsy ohraničené body (X1,Y1) a (X2,Y2). Oblouk se kreslí po obvodu elipsy proti směru hodinových ručiček od počátečního bodu ke koncovému bodu. Počáteční bod je definován průsečíkem elipsy a přímky určené středem elipsy a bodem (X3,Y3). Koncový bod je definován průsečíkem elipsy a přímky určené středem elipsy a bodem (X4, Y4)
Příklad kódu
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.
|