وثائق HotPDF
الصفحة الرئيسية المحتويات نظرة عامة

 

THPDFPage.RoundRect

THPDFPage

 

 الأعلى  السابق  التالي

Draws a rectangle with rounded corners on the canvas.

 

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);

 

الوصف

 

استخدم 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.

 

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.