mainunit.cpp

生成PDF文档的控件

//*******************************************************//
//                                                       //
//       This unit is part of the VISPDF VCL library.    //
//       Written by R.Husske - ALL RIGHTS RESERVED.      //
//                                                       //
//       Copyright (C) 2000-2008, www.vispdf.com         //
//                                                       //
//       e-mail: [e-mail]                      //
//       http://www.vispdf.com                           //
//                                                       //
//*******************************************************//

#include <vcl.h>
#pragma hdrstop

#include "MainUnit.h"

#pragma package(smart_init)
#pragma link "VPDFDoc"
#pragma link "VPDFDoc"
#pragma resource "*.dfm"
TMainForm *MainForm;

__fastcall TMainForm::TMainForm(TComponent* Owner)
        : TForm(Owner)
{
}

void __fastcall TMainForm::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
}