main.pas

生成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                           }
{                                                       }
{*******************************************************}

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, VPDFDoc;

type
  TForm1 = class(TForm)
    VPDF: TVPDF;
    StartJSDButton: TButton;
    Label1: TLabel;
    WCEdit: TEdit;
    WSEdit: TEdit;
    WPEdit: TEdit;
    DSEdit: TEdit;
    DPEdit: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure StartJSDButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.StartJSDButtonClick(Sender: TObject);
begin
    VPDF.BeginDoc;                                          // Create PDF file

    VPDF.SetActionScript(astClose, WCEdit.Text ); // Add action when document will close
    VPDF.SetActionScript(astWillSave, WSEdit.Text ); // Add action when document will save
    VPDF.SetActionScript(astDidSave, DSEdit.Text ); // Add action when document did save
    VPDF.SetActionScript(astWillPrint, WPEdit.Text ); // Add action when document will print
    VPDF.SetActionScript(astDidPrint, DPEdit.Text ); // Add action when document did print

    VPDF.EndDoc;                                            // Close PDF file
end;

end.