program CanvasDraw;

{$APPTYPE CONSOLE}

uses

SysUtils, Graphics, Classes, HPDFDoc;

var

I, Y: Integer;

HPDF: THotPDF;

begin

HPDF:= THotPDF.Create(nil);

   try

Randomize;

HPDF.AutoLaunch := true;                              // سيتم عرض ملف PDF تلقائيًا

HPDF.FileName := 'Canvas Drawing.pdf';

HPDF.BeginDoc;                                        // إنشاء ملف PDF

HPDF.Canvas.Font.Size := 15;                        // تعيين حجم خط canvas

I :=20;

Y := 40;

HPDF.Canvas.TextOut(10, 10, 'Canvas Ellipses');        // طباعة النص

while I <= 520 do                                         // رسم اللون

        begin                                                                    // أشكال بيضاوية

HPDF.Canvas.Brush.Color := random($FFFFFF)   //

HPDF.Canvas.Ellipse(I, Y, I+90, Y + 160);

Inc(I, 30);

Inc( Y, 3 );

end;

HPDF.EndDoc;                                 // إغلاق ملف PDF

   finally

HPDF.Free;

end;

end.