program ParaDemo;

{$APPTYPE CONSOLE}

uses

Graphics, SysUtils, HPDFDoc;

var

HPDF: THotPDF;

CurrntParaLine: Single;

ParaIndex1: Integer;

ParaIndex2: Integer;

begin

HPDF := THotPDF.Create(nil);

try

HPDF.FileName := 'ParaDemo.pdf';

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

ParaIndex1 := HPDF.CreateParagraph( 20, jtLeft, 60, 60, 30, 30 ); // צור פסקה ראשית

ParaIndex2 := HPDF.CreateParagraph( 20, jtLeft, 60, 60, 90, 30 ); // צור פסקה צרה

HPDF.ParaAutoAddPage := true; // הפסקה תוסיף עמודים באופן אוטומטי

HPDF.BeginParagraph(ParaIndex1); // פתח פסקה ראשית

HPDF.CurrentPage.SetFont('Arial', [fsBold], 14 ); // הגדר את גופן הפסקה

HPDF.CurrentParagraph.Justification := jtCenter; // הגדר את יישור הפסקה

HPDF.CurrentPage.SetRGBFillColor(clGray);

HPDF.CurrentParagraph.ShowText('HotPDF היא ספריית יצירת PDF עבור Delphi ו-C++Builder. HotPDF אינה משתמשת ב-DLL או בתוכנה אחרת כדי ליצור קובצי PDF. ההפצה של HotPDF כוללת מערכת עזרה מלאה ותוכניות demo רבות');

HPDF.CurrentPage.SetRGBFillColor(clBlack);

HPDF.EndParagraph;

HPDF.BeginParagraph(ParaIndex2); // פתח פסקה צרה

HPDF.CurrentPage.SetFont('Arial', [], 14 ); // הגדר את גופן הפסקה

HPDF.CurrentParagraph.ShowText('HotPDF היא ספריית יצירת PDF עבור Delphi ו-C++Builder. HotPDF אינה משתמשת ב-DLL או בתוכנה אחרת כדי ליצור קובצי PDF. ההפצה של HotPDF כוללת מערכת עזרה מלאה ותוכניות demo רבות');

HPDF.CurrentParagraph.ShowText('HotPDF היא ספריית יצירת PDF עבור Delphi ו-C++Builder. HotPDF אינה משתמשת ב-DLL או בתוכנה אחרת כדי ליצור קובצי PDF. ההפצה של HotPDF כוללת מערכת עזרה מלאה ותוכניות demo רבות');

CurrntParaLine := HPDF.CurrentParagraph.CurrentLine; //קבל את שורת ההדפסה הנוכחית

HPDF.EndParagraph; // סגור את הפסקה

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

finally

HPDF.Free;

end;

end.