WindowedScreen() dans un ScrollAreraGadget() ?
Publié : ven. 03/sept./2004 20:40
Est-ce possible ? Si oui comment ?
J'ai repris le code de chris que j'ai modifié rapidement pour vérifier si ça pouvait fonctionner :
http://purebasic.hmt-forum.com/viewtopic.php?t=1177
Code : Tout sélectionner
#Window = 0
#Width = 600
#Height = 600
Enumeration
#Panel
#Cont
#Button
EndEnumeration
;- Initialisation de DirectX
If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0
MessageRequester("Erreur", "Impossible d'initialiser DirectX", 0)
CloseWindow(#Window) : End
EndIf
;- Ouverture de la fenêtre et de l'écran
hwnd = OpenWindow(#Window, 0, 0, #Width, #Height, #PB_Window_TitleBar | #PB_Window_ScreenCentered, "")
If CreateGadgetList(hwnd)
ScrollAreaGadget(#Panel,10, 10,300,300, 1024, 768, 30)
hCont = ContainerGadget(#Cont,10,10,1024,768,#PB_Container_Double)
OpenWindowedScreen(hCont, 0, 0, 1024, 768, 0, 0, 0)
EndIf
If CreateSprite(1000,24,24)
StartDrawing(SpriteOutput(1000))
Box(0,0,24,24,RGB($0,$0,$FF))
StopDrawing()
EndIf
Dep = 8
;- début de la boucle
Repeat
Select WindowEvent()
EndSelect
FlipBuffers() : ClearScreen(0,0,0)
DisplaySprite(1000, x, 100)
x + Dep
If x >=536 Or x <=0 : Dep = -Dep : EndIf
ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape) 
