mainunit.cpp

生成PDF文档的控件

//*******************************************************//
//                                                       //
//       This unit is part of the VISPDF VCL library.    //
//       Written by R.Husske - ALL RIGHTS RESERVED.      //
//                                                       //
//       Copyright (C) 2000-2008, www.vispdf.com         //
//                                                       //
//       e-mail: [e-mail]                      //
//       http://www.vispdf.com                           //
//                                                       //
//*******************************************************//

#include <vcl.h>
#pragma hdrstop

#include "MainUnit.h"

#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;

__fastcall TMainForm::TMainForm(TComponent* Owner)
        : TForm(Owner)
{
}


void __fastcall TMainForm::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 TMainForm::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
}
//---------------------------------------------------------------------------