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->AutoLaunch = true;                      // PDF file will be shown automatically
    VPDF->Compression = cmNone;
    VPDF->FileName = FileNameEdit->Text;          // Set PDF filename
    VPDF->BeginDoc(false);                        // Create PDF file
    VPDF->CurrentPage->DrawBarcode( TVPDFBarcodeType(BarcodeTypeComboBox->ItemIndex),    // Draw colored barcode
                                  10, 10, 50, 1, 0, BarValueEdit->Text                ,  // on the coordinates 10, 10
                                  Checksum->Checked, ColorPanel->Color, BGPanel->Color );
    VPDF->EndDoc();                              // Close PDF file
	
}
//---------------------------------------------------------------------------