mainunit.cpp

来自「生成PDF文档的控件」· C++ 代码 · 共 35 行

//---------------------------------------------------------------------------

#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)
{
   VPDF1->BeginDoc(false);                                       // Create PDF file

   VPDF1->CurrentPage->PrintHyperlink(10, 10, "Our main page: " + MainEdit->Text, MainEdit->Text); // Print hyperlink

   VPDF1->CurrentPage->SetFont( "Times New Roman", TFontStyles(), 18 , 0, false); // Set font

   VPDF1->CurrentPage->SetRGBHyperlinkColor(clRed); // Change hyperlink color

   VPDF1->CurrentPage->PrintHyperlink(10, 25, "Our buy page: " + BuyEdit->Text, BuyEdit->Text); // Print hyperlink

   VPDF1->CurrentPage->PrintText( 10, 50, 0, "Click the link to navigate" ); // Print text

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