Code : Tout sélectionner
Enumeration
#MainForm
EndEnumeration
Enumeration Gadgets
#Reader
EndEnumeration
FileName.s=""
If OpenWindow(#MainForm, 0, 0, 600, 400, "PDF Viewer", #PB_Window_SystemMenu | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget |#PB_Window_ScreenCentered )
WebGadget(#Reader, 10, 10, 580,380, "")
FileName = OpenFileRequester("Fichier à ouvrir", "","Acrobat Reader (*.pdf)",0)
If Len(FileName) > 0
SetGadgetText(#Reader, "file://"+FileName)
EndIf
Repeat
Select WaitWindowEvent(100)
Case #PB_Event_CloseWindow
End
Case #PB_Event_SizeWindow
ResizeGadget(0,10,10,WindowWidth(0)-20,WindowHeight(0)-20)
EndSelect
ForEver
EndIf