THPDFPage.RoundRect

THPDFPage

Ylös Edellinen Seuraava

Piirtää pyöristetyillä kulmilla varustetun suorakulmion canvas-alueelle

Delphi syntax:

procedure RoundRect ( X1, Y1, X2, Y2, X3, Y3: Integer );

C++ syntax:

void __fastcall RoundRect ( int X1, int Y1, int X2, int Y2, int X3, int Y3);

Kuvaus

Käytä metodia RoundRect piirtääksesi pyöristetyn suorakulmion. Suorakulmion reunat määräytyvät pisteiden (X1,Y1), (X2,Y1), (X2,Y2), (X1,Y2) mukaan, mutta kulmat pyöristetään pyöristetyn ulkoasun luomiseksi. Pyöristettyjen kulmien kaari vastaa sellaisen ellipsin kaarevuutta, jonka leveys on X3 ja korkeus Y3

Piirtääksesi sen sijaan ellipsin, käytä metodia Ellipse. Piirtääksesi todellisen suorakulmion, käytä metodia Rectangle

Code Example

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.