program ParaDemo;

{$APPTYPE CONSOLE}

uses

   SysUtils,

   Graphics,

   Classes,

   HPDFDoc;

var

    HPDF: THotPDF;

ParaIndex: Integer;

begin

   HPDF:= THotPDF.Create(nil);

   try

      HPDF.AutoLaunch := true;

      HPDF.FileName := 'ParaDemo.pdf';      

      HPDF.BeginDoc;

      ParaIndex := HPDF.CreateParagraph( 20, jtLeft, 60, 60, 30, 30  ); // Создать абзац

      HPDF.CurrentPage.SetFont( 'Arial', [fsBold], 14  );                    // Установить шрифт абзаца

      HPDF.CurrentParagraph.Justification := jtCenter;                      // Установить выравнивание абзаца по центру

      HPDF.CurrentPage.SetRGBFillColor ( clGray );

      HPDF.CurrentParagraph.ShowText( 'VCL component for Delphi for creating PDF documents.' ); // Вывести текст абзаца

      HPDF.CurrentPage.SetRGBFillColor ( clBlack );

      HPDF.CurrentParagraph.NewLine;                                           // Разрыв строки

      HPDF.CurrentParagraph.NewLine;                                           // Разрыв строки

      HPDF.CurrentParagraph.Justification := jtLeft;                          // Установить выравнивание абзаца по левому краю

      HPDF.CurrentParagraph.ShowText ( 'HotPDF is PDF Creation Library for Delphi & C++Builder.' ); // Вывести текст абзаца

      HPDF.EndParagraph;                                                             // Закрыть текущий абзац

      HPDF.EndDoc;

   finally

       HPDF.Free;

   end;

end.