mainunit.cpp

生成PDF文档的控件

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "MainUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "VPDFDoc"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   int MaskIndex;
   int ImageIndex;

//   Image masking available in Acrobat 6 and higher !!!

   VPDF1->BeginDoc(false);                                              // Create PDF file

   MaskIndex = VPDF1->AddImageFromFile( "..//Mask.bmp", icFlate, true, -1 );            // Add image as mask
   ImageIndex = VPDF1->AddImageFromFile( "..//Image.jpg", icFlate, false, MaskIndex );  // Add image as masked by mask MaskIndex

   VPDF1->CurrentPage->ShowImage( ImageIndex, 10, 10, 390, 300, 0 );   // Show image with sizes 390 x 300

   VPDF1->EndDoc();                                              // Close PDF file
}
//---------------------------------------------------------------------------