THPDFPage.RoundRect Method

Използвайте RoundRect, за да начертаете заоблен правоъгълник. Правоъгълникът ще има ръбове, определени от точките (X1, Y1), (X2, Y1), (X2, Y2), (X1, Y2), но ъглите ще бъдат отрязани, за да се получи заоблен вид. Кривата на заоблените ъгли съвпада с кривината на елипса с ширина X3 и височина Y3

To draw an ellipse instead, use Ellipse. To draw a true rectangle, use Rectangle.

Примерен код

program RoundRect;
{$APPTYPE CONSOLE}
uses
    SysUtils, Graphics, Classes, HPDFDoc;

var
    HPDF: THotPDF;

const
    DashArray: array[0..3] of Byte = (6, 4, 2, 4);

begin
    HPDF := THotPDF.Create(nil);
    try
        HPDF.AutoLaunch := true;                  // PDF file will be shown automatically
        HPDF.FileName := '\RoundRect.pdf';   // Set PDF filename
        HPDF.BeginDoc;                                // Create PDF file

        HPDF.CurrentPage.SetDash( DashArray, 0 );                    // Set  - . -  dash pattern
        HPDF.CurrentPage.RoundRect( 10, 10, 200, 100, 20, 20 ); // Draw round rect
        HPDF.CurrentPage.Stroke;                                              // and stroke

        HPDF.EndDoc;                         // Close PDF file
    finally
        HPDF.Free;
    end;
end.