Example - Footer

Delphi:

procedure TForm1.Button1Click(Sender: TObject);

begin

with gtPDFEngine1 do

begin

   Page.FooterHeight := 1;

   Page.HeaderHeight := 1;

   FileName := 'C:\Footer';

   BeginDoc;

   BeginFooter;

   //...Set Font and Brush as required

   TextOut(0, 0, 'This is a sample text in Footer');

   //...Set image properties as required

   DrawImage(0, 0, Image1.Picture.Graphic);

   EndFooter;

   EndDoc;

end;

end;

C++Builder:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

gtPDFEngine1->FileName = "C:\\Footer";

gtPDFEngine1->Page->FooterHeight = 1;

gtPDFEngine1->BeginDoc();

gtPDFEngine1->BeginFooter();

//...Set Font and Brush as required

gtPDFEngine1->TextOut(0, 0, "This is a sample text in Footer");

//...Set image properties as required

gtPDFEngine1->DrawImage(0, 0.2, Image1->Picture->Graphic);

gtPDFEngine1->EndFooter();

gtPDFEngine1->EndDoc();

}