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)
{
    VPDF->AutoLaunch = true;                                  // PDF file will shown automatically
    VPDF->FileName = "InfoDemo.pdf";                          // Set PDF filename
    VPDF->ShowInfo = true;                                   // Include information into document
    VPDF->Author = "VisPDF console user";                    // Set information about author
    VPDF->Subject = "VisPDF console information demo";       // Set document subject
    VPDF->Title = "Information Demo";                        // Set document title
    VPDF->BeginDoc(false);                                      // Create PDF file
    VPDF->CurrentPage->PrintText(10, 10, 0, "Information Demo"); // Print text
    VPDF->EndDoc();	
}
//---------------------------------------------------------------------------