Sets dash pattern type.
Delphi sözdizimi:
procedure SetDash ( DashArray: array of Byte; Phase: Byte );
C++ sözdizimi:
void __fastcall SetDash ( const Byte * DashArray, const int DashArray_Size, Byte Phase);
Açıklama:
Çizgi kesik deseni, path çizmek için kullanılan kesiklerin ve boşlukların desenini denetler. Bir dash dizisi ve dash fazı ile belirtilir. Dash dizisi öğeleri, dönüşümlü kesiklerin ve boşlukların uzunluklarını belirten sayılardır; dash fazı, kesiğin başlayacağı dash deseni içindeki mesafeyi belirtir
Examples of line dash patterns
| DASH ARRAY |
DASH PHASE |
APPEARANCE |
DESCRIPTION |
| [] [ 3 ] [ 2 ] [ 2 1 ] [ 3 5 ] [ 2 3 ] |
0 0 1 0 6 11 |
|
No dash 3 units on, 3 units off ... 1 açık, 2 kapalı, 2 açık, 2 kapalı, … 2 açık, 1 kapalı, 2 açık, 1 kapalı, … 2 kapalı, 3 açık, 5 kapalı, 3 açık, 5 kapalı, … 1 açık, 3 kapalı, 2 açık, 3 kapalı, 2 açık, …
|
Kod Örneği
program FillExample;
{$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 := '.\Ellipse.pdf'; // PDF dosya adını ayarla
HPDF.BeginDoc; // PDF dosyası oluştur
HPDF.CurrentPage.SetDash( DashArray, 0 ); // - . - tire desenini ayarla
HPDF.CurrentPage.MoveTo ( 20, 20 ); // Geçerli noktayı 20, 20'ye taşı
HPDF.CurrentPage.LineTo ( 300, 100 ); // Geçerli noktadan 200, 100'e çizgi çiz
HPDF.CurrentPage.Stroke; // ve kontur çiz
HPDF.CurrentPage.NoDash; // Set solid dash pattern
HPDF.CurrentPage.MoveTo ( 300, 100 ); // Move current point to 300, 100
HPDF.CurrentPage.LineTo ( 10, 200 ); // Draw line from current point to 10, 100
HPDF.CurrentPage.Stroke; // ve kontur çiz
HPDF.EndDoc; // PDF dosyasını kapat
finally
HPDF.Free;
end;
end.
Ayrıca bkz.: NoDash