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; // Opret PDF-fil

ParaIndex1 := HPDF.CreateParagraph( 20, jtLeft, 60, 60, 30, 30 ); // Opret hovedafsnit

ParaIndex2 := HPDF.CreateParagraph( 20, jtLeft, 60, 60, 90, 30 ); // Opret smalt afsnit

HPDF.ParaAutoAddPage := true; // Afsnit tilføjer sider automatisk

HPDF.BeginParagraph(ParaIndex1); // Åbn hovedafsnit

HPDF.CurrentPage.SetFont('Arial', [fsBold], 14 ); // Indstil afsnittets skrifttype

HPDF.CurrentParagraph.Justification := jtCenter; // Indstil afsnitsjustering

HPDF.CurrentPage.SetRGBFillColor(clGray);

HPDF.CurrentParagraph.ShowText('VCL-komponent til Delphi til oprettelse af PDF-dokumenter.'); // Udskriv afsnitstekst

HPDF.CurrentPage.SetRGBFillColor(clBlack);

HPDF.EndParagraph;

HPDF.BeginParagraph(ParaIndex2); // Åbn smalt afsnit

HPDF.CurrentPage.SetFont('Arial', [], 14 ); // Indstil afsnittets skrifttype

HPDF.CurrentParagraph.ShowText('HotPDF er et PDF-oprettelsesbibliotek til Delphi & C++Builder. HotPDF bruger ikke nogen DLL\n eller anden software til at oprette PDF-filer. HotPDF-distributionen inkluderer det komplette hjælpesystem og many demoprogrammer');

HPDF.CurrentParagraph.ShowText(': PDF load og edit eksempler, PDF konsolapplikationseksempler, PDF GUI applikationseksempler\n server PDF applikationseksempel osv.');

CurrntParaLine := HPDF.CurrentParagraph.CurrentLine; // Hent aktuel udskrivningslinje

HPDF.EndParagraph; // Luk afsnittet

HPDF.EndDoc; // Luk PDF-fil

finally

HPDF.Free;

end;

end