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)
    FileNameEdit: TEdit;
    Label1: TLabel;
    HideToolbar: TCheckBox;
    HideMenubar: TCheckBox;
    HideWindowUI: TCheckBox;
    FitWindow: TCheckBox;
    CenterWindow: TCheckBox;
    Button1: TButton;
    VPDF: TVPDF;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
    VPref: TVPDFViewerPreferences;

begin
    VPDF.Filename := FileNameEdit.text;
    VPDF.BeginDoc;

    VPref := [];
    if HideToolbar.Checked then
       VPref := VPref + [vpHideToolbar];
    if HideMenubar.Checked then
       VPref := VPref + [vpHideMenubar];
    if HideWindowUI.Checked then
       VPref := VPref + [vpHideWindowUI];
    if FitWindow.Checked then
       VPref := VPref + [vpFitWindow];
    if CenterWindow.Checked then
       VPref := VPref + [vpCenterWindow];

    VPDF.ViewerPreferences := VPref;

    VPDF.CurrentPage.TextOut ( 10, 10, 0, 'Viewer preferences demo' );

    VPDF.EndDoc;
end;

end.