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; // הגדר את גודל גופן הקנבס

         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.