program ParaDemo;

{$APPTYPE CONSOLE}

uses

Graphics, SysUtils, HPDFDoc;

var

HPDF: THotPDF;

CurrntParaLine: Single;

ParaIndex1: Integer;

ParaIndex2: Integer;

begin

HPDF := THotPDF.Create(nil);

try

HPDF.File名前 := '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('PDFドキュメントを作成するためのDelphi用VCLコンポーネント。'); // 段落のテキストを出力します

HPDF.CurrentPage.SetRGBFillColor(clBlack);

HPDF.EndParagraph;

HPDF.BeginParagraph(ParaIndex2); // 狭い段落を開きます

HPDF.CurrentPage.SetFont('Arial', [], 14 ); // 段落のフォントを設定します

HPDF.CurrentParagraph.ShowText('HotPDFはDelphiおよびC++Builder用のPDF作成ライブラリです。HotPDFはPDFファイルを作成するためにDLLやその他のソフトウェアを使用しません。HotPDFのディストリビューションには、完全なヘルプシステムと多くのデモプログラムが含まれています。');

HPDF.CurrentParagraph.ShowText('：PDFのロードと編集の例、PDFコンソールアプリケーションのサンプル、PDF GUIアプリケーションのサンプル、サーバーPDFアプリケーションのサンプルなど。');

CurrntParaLine := HPDF.CurrentParagraph.CurrentLine; // 現在の印刷行を取得します

HPDF.EndParagraph; // 段落を閉じます

HPDF.EndDoc; // PDFファイルを閉じます

finally

HPDF.Free;

end;

end.