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 יוצג באופן אוטומטי

       HPDF.FileName := 'RoundRect.pdf'; 

       HPDF.BeginDoc; // צור קובץ PDF

       HPDF.CurrentPage.SetDash( DashArray, 0 ); // הגדר תבנית קו מקווקו

       HPDF.CurrentPage.RoundRect( 10, 10, 200, 100, 20, 20 ); // צייר מלבן מעוגל פינות

       HPDF.CurrentPage.Stroke; // וצייר קו מתאר

       HPDF.EndDoc; // סגור קובץ PDF

   finally

       HPDF.Free;

   end;

end.