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

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

    int PCI = VPDF->PagesCount;            // Receive count of pages in existing PDF file


    for (int I = 1; I < ( PCI - I + 1 );I++ )
    {
        VPDF->DeletePage(I);               // Delete all even pages from an existing PDF file
    }

    VPDF->EndDoc();                          // Close PDF file	
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    VPDF->FileName = OutFileEdit->Text;    // Set out filename
    VPDF->LoadFromFile(InFileEdit->Text);  // Load an existing PDF file
    VPDF->PageLayout = plOneColumn;       // Set one column page layout

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

    for (int I = 1;I < 6;I++)
    {
        VPDF->AddPage();                  // Add five new pages
    }                                     //

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