main.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 "Main.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->BeginDoc( true );                // Create PDF file with outlines
    TVPDFDocOutlineObject * OutlineRoot = VPDF->OutlineRoot;      // Get Outlines Root
    VPDF->CurrentPage->PrintText( 0, 5, 0, "  Page 1 top");           // Mark first page top
    VPDF->CurrentPage->PrintText( 0, 830, 0, "  Page 1 bottom");      // Mark first page bottom
    for ( int I = 2; I <= 100; I++ )
    {
        TVPDFDocOutlineObject * CurrnetOutline = OutlineRoot->AddChild( "Page " + IntToStr(I - 1) , 0, 0);  // Add Outline block linked to 0,0 in current page
        CurrnetOutline->AddChild( "Top ", 0, 0 );                //  Add Outline linked to 0,0 in current page
        CurrnetOutline->AddChild( "Bottom ", 0, 800 );     //  Add Outline linked to 0,800 in current page
        VPDF->AddPage();                                                     // ADD Next Page
        VPDF->CurrentPage->PrintText(0, 5,  0,"  Page " + IntToStr(I) + " top");      // Mark Next page top
        VPDF->CurrentPage->PrintText(0, 830,  0,"  Page " + IntToStr(I) + " bottom"); // Mark Next page bottom
    }
    TVPDFDocOutlineObject * CurrnetOutline = OutlineRoot->AddChild( "Page 100 ", 0, 0 );             // ADD last  Page
    CurrnetOutline->AddChild( "Top " , 0, 0);                      //  Add Outline linked to 0,0 in last page
    CurrnetOutline->AddChild( "Bottom ", 0, 830 );           //  Add Outline linked to 0,830 in last page
    VPDF->EndDoc();                                            // Close PDF file
}
//---------------------------------------------------------------------------