<< Click to Display Table of Contents >> Navigation:  PDFWorkbench > Create a reusable work-bench in a dialog (TForm)

The form requires a pointer variable "workbench"

 

uses

  ... WPViewPDF3,  WPDF_ViewCommands;

 

{$I PDFLicense.INC}

 

var

    workbench : Pointer;

    PageCount : Integer;

 

In OnCreate it is initialized

 

procedure TPDFRenderDemo.FormCreate(Sender: TObject);

begin

  WPViewPDFLoadDLL( 'wPDFViewDemo04' );

  if Assigned(wpview_pdfWorkbenchCreate) then

  begin

    workbench := wpview_pdfWorkbenchCreate(

         WPViewPDF_LicName, WPViewPDF_LicKey, WPViewPDF_LicCode );

  end;

  OpenBtn.Enabled := Assigned(workbench);

end;

 

In OnDestroy the workbench is freed.

 

procedure TForm1.FormDestroy(Sender: TObject);

begin

  if workbench<>nil then

      wpview_pdfWorkbenchFree(workbench);

end;

 

This code is used to load a PDF file

 

procedure TForm1.OpenBtnClick(Sender: TObject);

var s : WideString;

begin

  s := PDFFileName.Text;

  PageCount := wpview_pdfWorkbenchLoad(workbench, PWideChar(s), 0, 0);

  CloseBtn.Enabled := PageCount>0;

  PageNo.Text := '1';

end;

 

 

This function will show the print dialog

 

procedure TForm1.PrintBtnClick(Sender: TObject);

var bit : TBitmap;

begin

  wpview_pdfWorkbenchCommand( workbench, COMPDF_PrintDialog, 0, '', nil );

end;