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 be shown automatically
	VPDF->PageLayout =plOneColumn;           // One column viewer mode
	VPDF->BeginDoc( true );                  // Create PDF file with outlines

	TVPDFDocOutlineObject * OutlineRoot = VPDF->OutlineRoot; // Get Outlines Root
	OutlineRoot->AddChild( "Image rotation" , 0, 0); // Add Outline block linked to 0, 0 in current page
	OutlineRoot->AddChild( "Image zoom ", 0, 800 );  // Add Outline block linked to 0, 800 in current page

	VPDF->CurrentPage->SetFont("Arial", TFontStyles() << fsBold << fsUnderline, 24, 0, false); // Set font for header
	VPDF->CurrentPage->PrintText(200, 10, 0, "VisPDF Image Demo");                      // Print text
	int Index = VPDF->AddImageFromFile( "../Image.jpg", icJpeg, false, -1 );                 // Add image to the document
	VPDF->CurrentPage->SetFont("Arial", TFontStyles()<< fsUnderline, 18, 0, False);            // Set font for subheader
	VPDF->CurrentPage->PrintText(10, 40, 0, "IMAGE ROTATION");                          // Print text

	int I = 0;
	while (I < 360)
	{
		VPDF->CurrentPage->ShowImage( Index, 300, 130, 130, 100, I ); // Show image and rotate
		I += 30;
	}

	VPDF->CurrentPage->PrintText(10, 400, 0, "IMAGE ZOOM");              // Print text
	VPDF->CurrentPage->SetFont("Times New Roman", TFontStyles(), 14, 0, false); // Set font for text

	VPDF->CurrentPage->ShowImage( Index, 10, 430, 390, 300, 0 );    // Show image with sizes 390 x 300
	VPDF->CurrentPage->PrintText( 180, 730, 0, "390 X 300");        // Print text

	VPDF->CurrentPage->ShowImage( Index, 430, 430, 130, 100, 0 );   // Show image with sizes 130 x 100
	VPDF->CurrentPage->PrintText( 470, 530, 0, "130 X 100");        // Print text

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