PDF dalam Form

Dari Fox-Id
{ Vfp Code }
LOCAL form1
form1 = CREATEOBJECT("fvp_acrobatreader")
form1.SHOW(1)

DEFINE CLASS fvp_acrobatreader AS FORM
TOP = 0
LEFT = 0
HEIGHT = 550
WIDTH = 700
DOCREATE = .T.
BORDERSTYLE = 2
CAPTION = "Sample of using Acrobat Reader in FoxPro"
MAXBUTTON = .F.
MINBUTTON = .F.
NAME = "FVP_AcrobatReader"
AUTOCENTER = .T.
ADD OBJECT olecontrol1 AS OLECONTROL WITH ;
TOP = 12, ;
LEFT = 12, ;
HEIGHT = 467, ;
WIDTH = 673, ;
TABINDEX = 10, ;
NAME = "Olecontrol1", ;
OLECLASS = "PDF.PdfCtrl.5" && Ganti nilai ini bila memakai Acrobat Versi lain (bukan 5.0)
ADD OBJECT cmdload AS COMMANDBUTTON WITH ;
TOP = 492, ;
LEFT = 24, ;
HEIGHT = 27, ;
WIDTH = 96, ;
CAPTION = "Load PDF File", ;
TABINDEX = 1, ;
NAME = "cmdLoad"
ADD OBJECT cmdTools AS COMMANDBUTTON WITH ;
TOP = 520, ;
LEFT = 24, ;
HEIGHT = 27, ;
WIDTH = 115, ;
CAPTION = "Hide/Show Toolbar", ;
TABINDEX = 2, ;
NAME = "cmdTools"
ADD OBJECT cmdtop AS COMMANDBUTTON WITH ;
TOP = 492, ;
LEFT = 348, ;
HEIGHT = 27, ;
WIDTH = 84, ;
CAPTION = "Top", ;
TABINDEX = 5, ;
NAME = "cmdTop"
ADD OBJECT cmdprev AS COMMANDBUTTON WITH ;
TOP = 492, ;
LEFT = 432, ;
HEIGHT = 27, ;
WIDTH = 84, ;
CAPTION = "Prev", ;
TABINDEX = 6, ;
NAME = "cmdPrev"
ADD OBJECT cmdnext AS COMMANDBUTTON WITH ;
TOP = 492, ;
LEFT = 516, ;
HEIGHT = 27, ;
WIDTH = 84, ;
CAPTION = "Next", ;
TABINDEX = 7, ;
NAME = "cmdNext"
ADD OBJECT cmdend AS COMMANDBUTTON WITH ;
TOP = 492, ;
LEFT = 600, ;
HEIGHT = 27, ;
WIDTH = 84, ;
CAPTION = "End", ;
TABINDEX = 8, ;
NAME = "cmdEnd"
ADD OBJECT cmdzoomdown AS COMMANDBUTTON WITH ;
TOP = 492, ;
LEFT = 263, ;
HEIGHT = 27, ;
WIDTH = 84, ;
CAPTION = "Zoom (-)", ;
TABINDEX = 4, ;
NAME = "cmdZoomDown"
ADD OBJECT cmdzoomup AS COMMANDBUTTON WITH ;
TOP = 492, ;
LEFT = 180, ;
HEIGHT = 27, ;
WIDTH = 84, ;
CAPTION = "Zoom (+)", ;
TABINDEX = 3, ;
NAME = "cmdZoomUp"
PROCEDURE INIT
THISFORM.ADDPROPERTY("ZoomVal",100) && u/ nyimpen Nilai Zoom
THISFORM.ADDPROPERTY("ToolVal",.T.) && u/ nyimpen Status Toolbars
ENDPROC
PROCEDURE cmdload.CLICK
THISFORM.olecontrol1.OBJECT.LoadFile(GETFILE("PDF"))
ENDPROC
PROCEDURE cmdTools.CLICK
THISFORM.ToolVal = .NOT. THISFORM.ToolVal
THISFORM.olecontrol1.OBJECT.setShowToolbar(THISFORM.ToolVal)
THISFORM.REFRESH()
ENDPROC
PROCEDURE cmdtop.CLICK
&&>> -U/ Mengatur tampilan gambar dgn koding : OBJECT.gotoFirstPage,gotoPreviousPage, Dsb
&&>> -Method/property lainnya yg bisa dipake bisa diliat dgn memanfaatkan Intellisense
THISFORM.olecontrol1.OBJECT.gotoFirstPage()
THISFORM.REFRESH()
ENDPROC
PROCEDURE cmdprev.CLICK
THISFORM.olecontrol1.OBJECT.gotoPreviousPage()
THISFORM.REFRESH()
ENDPROC
PROCEDURE cmdnext.CLICK
THISFORM.olecontrol1.OBJECT.gotoNextPage()
THISFORM.REFRESH()
ENDPROC

PROCEDURE cmdend.CLICK
THISFORM.olecontrol1.OBJECT.gotoLastPage()
THISFORM.REFRESH()
ENDPROC
PROCEDURE cmdzoomdown.CLICK
LOCAL lnNewVal
lnNewVal = THISFORM.ZoomVal - 10
THISFORM.olecontrol1.OBJECT.setZoom(lnNewVal)
THISFORM.ZoomVal= lnNewVal
THISFORM.REFRESH()
ENDPROC
PROCEDURE cmdzoomup.CLICK
LOCAL lnNewVal
lnNewVal = THISFORM.ZoomVal + 10
THISFORM.olecontrol1.OBJECT.setZoom(lnNewVal)
THISFORM.ZoomVal= lnNewVal
THISFORM.REFRESH()
ENDPROC
ENDDEFINE
{ End Code }