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)
{
	TVPDFCurrPoint BeginPoint;
    TVPDFCurrPoint EndPoint;

    VPDF->BeginDoc(false);                 // Create PDF document

    VPDF->CurrentPage->AddTextAnnotation( "Text annotations example", Rect(10, 10, 20, 20), true, taComment, clBlue ); // Draw text annotation

    VPDF->CurrentPage->AddFreeTextAnnotation( "Free text annotations example", Rect(10, 160, 200, 220), ftLeftJust, clRed ); // Draw free text annotation

    BeginPoint.X = 10;
    BeginPoint.Y = 230;
    EndPoint.X = 100;
    EndPoint.Y = 290;

    VPDF->CurrentPage->AddLineAnnotation( "Line annotation example", BeginPoint, EndPoint, clYellow); // Draw line annotation

    VPDF->CurrentPage->AddCircleSquareAnnotation( "Circle annotation example", Rect(10, 300, 200, 330), csCircle, clGreen ); // Draw circle and square annotation

    VPDF->CurrentPage->AddStampAnnotation("Stamp annotation example", Rect(313, 20, 475, 120), satDraft, clPurple); // Draw stamp annotation

	VPDF->CurrentPage->AddFileAttachmentAnnotation("File attach annotation example", "..//License.txt", Rect(300, 160, 450, 200), clLime); // Draw file attachment annotation

	VPDF->CurrentPage->AddSoundAnnotation( "Sound Annotation demo", "..//Music.wav", Rect(300, 230, 450, 250), 0x550000); // Draw sound annotation

	VPDF->CurrentPage->AddMovieAnnotation( "Movie annotation demo", "..//Clock.mov", Rect(300, 290, 450, 370), clGreen ); // Draw movie annotation

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