EndStamp procedure (TgtCustomDocumentEngine)

TgtCustomDocumentEngine

procedure EndStamp; override;

Description

Call this method to end a stamping block.

Example:

Delphi:

// Main code

with gtPDFEngine do

begin

BeginStamp;

//...Set Font and Brush as required

TextOut(3, 4, 'DRAFT');

//...Set image properties as required

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

EndStamp;

end;

// OnBeginPage Event

procedure TForm1.gtPDFEngine1BeginPage(Sender: TgtCustomDocumentEngine);

begin

with gtPDFEngine1 do

begin

if (CurrentPage = 3) then

begin

BeginStamp;

TextOut(2, 3, 'Stamp2');

EndStamp;

end;

end;

end;

C++Builder:

// Main code

gtPDFEngine1->BeginStamp();

gtPDFEngine1->TextOut(3, 4, "DRAFT");

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

gtPDFEngine1->EndStamp();

// OnBeginPage Event

void __fastcall TForm1::gtPDFEngine1BeginPage(TgtCustomDocumentEngine* Sender)

{

if (gtPDFEngine1->CurrentPage == 3)

{

gtPDFEngine1->BeginStamp();

gtPDFEngine1->TextOut(2, 3, "Stamp2");

gtPDFEngine1->EndStamp();

}

}