www.gnostice.com 

Tutorial - Auto Pagination

 Top  Previous  Next

 

To create an application to set Page and Document Level Actions follow these steps:

 

1.Open Delphi/C++Builder application and drop PDF Engine component (TgtPDFEngine).
2.Then add a button to the form and change the button caption to 'Auto Pagination'.
3.Double click the button and get to the Button's click event in the code editor.

4.    Paste the Delphi/C++Builder code mentioned below in the button's click event.

 

Delphi:

 

procedure TForm1.Button1Click(Sender: TObject);

var

LStr : string;

begin

LStr := 'This Demo is for AutoPagination. Gnostice eDocEngine is a ' +

   'comprehensive, generic, 100% pure VCL ' +

   'electronic document creation component suite for Borland® Delphi™ and ' +

   'Borland® C++Builder™. eDocEngine enables developers to deliver ' +

   'information straight from the applications they develop in over 20 ' +

   'popular electronic document formats. Rich content can be easily ' +

   'formatted to the precise look and feel required and delivered directly ' +

   'to users’ web browsers, sent as email attachments or saved to disk. ' +

   'Actionable and navigational elements can be easily added to created ' +

   'documents to provide interactivity and enhance the overall user ' +

   'experience. eDocEngine currently supports the creation of documents ' +

   'in PDF, RTF, HTML, XHTML, EXCEL, TEXT, CSV, Quattro Pro, LOTUS 1-2-3,' +

   'DIF, SYLK, TIFF, PNG, SVG (XML based vector graphics), JPEG, GIF, BMP, ' +

   'EMF and WMF formats. Metafile, BMP, DIF, SYLK and Text can be directly ' +

   'output to the Windows® Clipboard. eDocEngine does not use any external ' +

   'software or require any DLLs to be deployed for creation of documents ' +

   'in any of the formats. eDocEngine also exports from QuickReport, ' +

   'ReportBuilder, FastReport, Rave Reports, AceReporter, Express Printing ' +

   'System, TRichView, ThtmlViewer, GmPrintSuite and more.';

 

with gtPDFEngine1 do

begin

   FileName := 'Output';

   Page.TopMargin := 2;

   Page.BottomMargin := 2;

   BeginDoc;

     TextFormatting.LeftIndent := 2;

     TextFormatting.RightIndent := 2.5;

     Font.Size := 18;

     BeginPara;

       TextOut(LStr);

     EndPara;

   EndDoc;

end;

end;

 

5.   Run the application. Click 'Auto Pagination' button on the form to see the change in the 'Output.pdf' file.