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)
{
    Randomize;
    VPDF->FileName = FileNameEdit->Text;                     // Set Filename
    VPDF->BeginDoc(false);                                          // Create PDF file
    VPDF->Canvas->Font->Size = 15;                            // Set canvas font size
    int I = 20;
    int Y = 40;
    VPDF->Canvas->TextOut(10, 10, "Canvas Ellipses");        // Print text
    while ( I <= 690 )                                       //  Draw colour
    {                                                        //    ellipses
        VPDF->Canvas->Brush->Color = random(0xFFFFFF);       //
        VPDF->Canvas->Ellipse(I, Y, I+90, Y + 160);
        I += 30;
        Y += 3;
    };
    I =20;
    Y = 340;
    VPDF->Canvas->TextOut(10, 310, "Canvas Rectangles");      // Print text
    while ( I <= 690 )
    {                                                        //  Draw colour
        VPDF->Canvas->Brush->Color = random(0xFFFFFF);       //   rectangles
        VPDF->Canvas->Rectangle(I, Y, I+90, Y + 160);        //
        I += 30;
        Y += 3;
    };
    I =20;
    Y = 680;
    VPDF->Canvas->TextOut(10, 650, "Canvas RoundRects");      // Print text
    while ( I <= 690 )
    {
        VPDF->Canvas->Brush->Color = random(0xFFFFFF);         //  Draw colour
        VPDF->Canvas->RoundRect(I, Y, I+90, Y + 160, 20, 20);  //   roundrects
        I += 30;
        Y += 3;
    };
    VPDF->EndDoc();                                            // Close PDF file
}
//---------------------------------------------------------------------------