si je t'ai répondu qu'on ne peut ouvrir qu'un seul ecran c'est pas par hasard
lorsque tu fait OpenWindowedScreen(WindowID(1),0,0,600,400,1,1,1)
tu ouvre deja un ecran !!
ton prg devrai ressembler a ça grosso modo
(cette exemple charge une image et l'affiche dans une fenetre-ecran)
quitte avec le bouton droit de la souris
Code : Tout sélectionner
; visualisateur de jpg
; by Dobro
; purebasic 4.51
InitMouse()
InitKeyboard()
InitJoystick()
UseJPEGImageDecoder()
UseJPEG2000ImageDecoder()
Structure sprite
x.l
y.l
pas.l
EndStructure
Dim sprite.sprite(1)
Declare TimerProc(hwnd.l, uMsg.l, idEvent.l, dwTime.l)
Global sec=5
Enumeration
#fenetre
#Police
#image
EndEnumeration
fileimage$=OpenFileRequester("charge une image", "c:\", "*.jpg", 1)
LoadImage(#image,fileimage$)
; ***********************************
Resultat = InitSprite()
FontID = LoadFont(#Police, "arial", 18, #PB_Font_Bold )
ExamineDesktops()
EcranX = DesktopWidth(0) ; recup la rez de l'ecran
EcranY = DesktopHeight(0)
OpenWindow(#fenetre, 0, 0,EcranX,EcranY, "hello",#PB_Window_BorderLess |#PB_Window_ScreenCentered )
Result = OpenWindowedScreen(WindowID(#fenetre) ,0,0, EcranX,EcranY, 1, 0,0)
Repeat
ExamineMouse()
If MouseButton(2) ; on quit si bouton gauche
CloseWindow(#fenetre) ; <----------- et voila on quitte !!
End
EndIf
ResizeImage(#image,EcranX,EcranY) ; redimentionne l'image a la taille du bureau
StartDrawing(ScreenOutput())
DrawImage(ImageID(#image),0,0)
StopDrawing()
FlipBuffers():; affiche l'ecran
; ClearScreen(RGB(0, 0, 0)) :;efface l'ecran
WaitWindowEvent(1)
Until Event=#PB_Event_CloseWindow
c'est
openscreen()
ou
OpenWindowedScreen()
mais pas les 2 !!