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)
{
	Randomize;
	VPDF->FileName = FileNameEdit->Text;                     // Set Filename
	VPDF->BeginDoc(false);                                          // Create PDF file
	VPDF->Canvas->Font->Size = 15;                            // Set canvas font size
	int I = 20;
	int Y = 40;
	VPDF->Canvas->TextOut(10, 10, "Canvas Ellipses");        // Print text
	while ( I <= 690 )                                       //  Draw colour
	{                                                        //    ellipses
		VPDF->Canvas->Brush->Color = random(0xFFFFFF);       //
		VPDF->Canvas->Ellipse(I, Y, I+90, Y + 160);
		I += 30;
		Y += 3;
	};
	I =20;
	Y = 340;
	VPDF->Canvas->TextOut(10, 310, "Canvas Rectangles");      // Print text
	while ( I <= 690 )
	{                                                        //  Draw colour
		VPDF->Canvas->Brush->Color = random(0xFFFFFF);       //   rectangles
		VPDF->Canvas->Rectangle(I, Y, I+90, Y + 160);        //
		I += 30;
		Y += 3;
	};
	I =20;
	Y = 680;
	VPDF->Canvas->TextOut(10, 650, "Canvas RoundRects");      // Print text
	while ( I <= 690 )
	{
		VPDF->Canvas->Brush->Color = random(0xFFFFFF);         //  Draw colour
		VPDF->Canvas->RoundRect(I, Y, I+90, Y + 160, 20, 20);  //   roundrects
		I += 30;
		Y += 3;
	};
	VPDF->EndDoc();                                            // Close PDF file
}
//---------------------------------------------------------------------------