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 link "VPDFDoc"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    VPDF->FileName = FileNameEdit->Text;
    VPDF->BeginDoc(false);

    if ( HideToolbar->Checked )
       VPDF->ViewerPreferences = VPDF->ViewerPreferences << vpHideToolbar;
    if ( HideMenubar->Checked )
       VPDF->ViewerPreferences = VPDF->ViewerPreferences << vpHideMenubar;
    if ( HideWindowUI->Checked )
       VPDF->ViewerPreferences = VPDF->ViewerPreferences << vpHideWindowUI;
    if ( FitWindow->Checked )
       VPDF->ViewerPreferences = VPDF->ViewerPreferences << vpFitWindow;
    if ( CenterWindow->Checked )
       VPDF->ViewerPreferences = VPDF->ViewerPreferences << vpCenterWindow;
       
    VPDF->CurrentPage->PrintText ( 10, 10, 0, "Viewer preferences demo" );
    VPDF->EndDoc();
}
//---------------------------------------------------------------------------