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 = Edit2->Text;     // Set out filename
    VPDF->LoadFromFile(Edit1->Text);    // Load an existing PDF file
    VPDF->PageLayout = plOneColumn;        // Set one column page layout

    VPDF->BeginDoc( false );                         // Create PDF file

    VPDF->CurrentPageNumber = 0;           // Set page number 0 as current page
    VPDF->CurrentPage->SetRGBColor(clRed);   //
    VPDF->CurrentPage->MoveTo(472, 110);     //
    VPDF->CurrentPage->LineTo(509, 105);     //  Draw red line
    VPDF->CurrentPage->Stroke();               //
    VPDF->CurrentPage->SetFont("Arial", TFontStyles() << fsItalic, 12, 0, false);
    VPDF->CurrentPage->PrintText(478, 90, 0, "bird");          // Print text
    VPDF->CurrentPage->MoveTo(105, 200);     //
    VPDF->CurrentPage->LineTo(134, 195);     //    Draw red line
    VPDF->CurrentPage->Stroke();               //
    VPDF->CurrentPage->SetFont("Arial", TFontStyles() << fsItalic, 12, 0, false);
    VPDF->CurrentPage->PrintText(105, 180, 0, "black");        // Print text
    VPDF->CurrentPage->AddStampAnnotation ( "Draft",  Rect(300, 300, 450, 390), satDraft, clRed); //  Set stamp DRAW
    int ImInd = VPDF->AddImageFromFile("Stamp.jpg", icJpeg, false, -1 );
    VPDF->CurrentPage->ShowImage(ImInd, 50, 300, 100, 50, 0 );              // Draw image stamp
    VPDF->CurrentPageNumber = 1;                                          // Set page number 1 as current page
    VPDF->CurrentPage->ShowImage(ImInd, 50, 300, 100, 50, 0 );              // Draw image stamp
    VPDF->CurrentPage->AddStampAnnotation ( "Approved",  Rect(300, 300, 450, 390), satApproved, clRed); // Set stamp APPROVED

    VPDF->EndDoc();                           // Close PDF file
}