HotPDF belgeleri
Ana sayfa İçindekiler Genel bakış

 

THPDFPage.RoundRect

THPDFPage

 

 Üst  Önceki  Sonraki

Tuval üzerine yuvarlatılmış köşeli bir dikdörtgen çizer.

 

Delphi sözdizimi:

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

 

C++ sözdizimi:

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

 

Açıklama

 

Yuvarlatılmış dikdörtgen çizmek için RoundRect kullanın. Dikdörtgenin kenarları (X1,Y1), (X2,Y1), (X2,Y2), (X1,Y2) noktalarıyla tanımlanır, ancak köşeler yuvarlatılmış görünüm oluşturmak için kırpılır. Yuvarlatılmış köşelerin eğrisi X3 genişliğinde ve Y3 yüksekliğinde bir elipsin eğriliğiyle eşleşir

 

Bunun yerine elips çizmek için Ellipse kullanın. Gerçek bir dikdörtgen çizmek için Rectangle.

 

Kod Örneği

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 dosyası otomatik olarak gösterilir
        HPDF.FileName := '\RoundRect.pdf';   // PDF dosya adını ayarla
        HPDF.BeginDoc;                                // PDF dosyası oluştur

        HPDF.CurrentPage.SetDash( DashArray, 0 );                    // - . - tire desenini ayarla
        HPDF.CurrentPage.RoundRect( 10, 10, 200, 100, 20, 20 ); // Yuvarlatılmış dikdörtgen çiz
        HPDF.CurrentPage.Stroke;                                              // ve kontur çiz

        HPDF.EndDoc;                         // PDF dosyasını kapat
    finally
        HPDF.Free;
    end;
end.