Dokumentasi HotPDF
Beranda Daftar isi Ikhtisar

 

THPDFPage.RoundRect

THPDFPage

 

 Atas  Sebelumnya  Berikutnya

Menggambar persegi panjang bersudut membulat pada kanvas

 

Sintaks Delphi:

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

 

Sintaks C++:

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

 

Deskripsi

 

Gunakan RoundRect untuk menggambar persegi panjang bersudut membulat. Persegi panjang akan memiliki sisi yang ditentukan oleh titik (X1,Y1), (X2,Y1), (X2,Y2), (X1,Y2), tetapi sudutnya dipangkas untuk menghasilkan tampilan membulat. Lengkung sudut membulat mengikuti kelengkungan elips dengan lebar X3 dan tinggi Y3

 

Untuk menggambar elips sebagai gantinya, gunakan Ellipse. Untuk menggambar persegi panjang murni, gunakan Rectangle

 

Contoh kode

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.