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->FileName = Edit2->Text;     // Set out filename
    VPDF->LoadFromFile(Edit1->Text);    // Load an existing PDF file
    VPDF->PageLayout = plOneColumn;        // Set one column page layout

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

    VPDF->CurrentPageNumber = 0;           // Set page number 0 as current page
    VPDF->CurrentPage->SetRGBColor(clRed);   //
    VPDF->CurrentPage->MoveTo(472, 110);     //
    VPDF->CurrentPage->LineTo(509, 105);     //  Draw red line
    VPDF->CurrentPage->Stroke();               //
    VPDF->CurrentPage->SetFont("Arial", TFontStyles() << fsItalic, 12, 0, false);
    VPDF->CurrentPage->PrintText(478, 90, 0, "bird");          // Print text
    VPDF->CurrentPage->MoveTo(105, 200);     //
    VPDF->CurrentPage->LineTo(134, 195);     //    Draw red line
    VPDF->CurrentPage->Stroke();               //
    VPDF->CurrentPage->SetFont("Arial", TFontStyles() << fsItalic, 12, 0, false);
    VPDF->CurrentPage->PrintText(105, 180, 0, "black");        // Print text
    VPDF->CurrentPage->AddStampAnnotation ( "Draft",  Rect(300, 300, 450, 390), satDraft, clRed); //  Set stamp DRAW
    int ImInd = VPDF->AddImageFromFile("..//Stamp.jpg", icJpeg, false, -1 );
    VPDF->CurrentPage->ShowImage(ImInd, 50, 300, 100, 50, 0 );              // Draw image stamp
    VPDF->CurrentPageNumber = 1;                                          // Set page number 1 as current page
    VPDF->CurrentPage->ShowImage(ImInd, 50, 300, 100, 50, 0 );              // Draw image stamp
    VPDF->CurrentPage->AddStampAnnotation ( "Approved",  Rect(300, 300, 450, 390), satApproved, clRed); // Set stamp APPROVED

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