OpenWindowedScreen Reagiert nicht ????

[The_Dark_Zim-.-]

Hey ho habe ein Problem mit diesem Code:

Code: Alles auswählen

InitSprite()
If OpenWindow(0, 0, 0, 1024,768, "Explorer1")
If OpenWindowedScreen(WindowID(0),0,0,1024,768, 1, 0, 0)
EndIf
EndIf
Repeat
Delay(1)
forever

Entweder ist da was Falsch oder mein Pc macht was Falsch denn bei mir hängt sich das auf wenn ich einmal in das Fenster klicke!!?

Danke für jeden Tipp im vorraus
PB v4.2
Gruß ZIM

[edel]

da fehlt auch eine Eventschleife, siehe WaitWindowEvent.

[NicTheQuick]

Am besten ein

Code: Alles auswählen

While WindowEvent() : Wend

mit in die Repeat-Schleife setzen, wenn die dir Window-Events egal sind.

[gnasen]

Code: Alles auswählen

If InitSprite() 
  If OpenWindow(0, 0, 0, 1024,768, "Explorer1") 
    If OpenWindowedScreen(WindowID(0),0,0,1024,768, 1, 0, 0) 
      
      ;put the stuff IN the if-clause. 
      ;Otherwise you ignore it, if the window/screen initialisation fails
      Repeat
      
        Repeat
          EventID = WindowEvent()
          Select EventID 
            Case #PB_Event_CloseWindow
              quit = 1
          EndSelect
        Until EventID  = 0
        
        ClearScreen(RGB(0,0,0))
        ;draw something and so on 
        ;later: some stuff to save cpu (get the time between two flips
        ;and wait for it. Have a look at the forum.
        FlipBuffers()  
      
      Until quit = 1
      
    EndIf 
  EndIf 
EndIf

edit: dachte wäre im englischen Forum? hmm ich leg mich besser wieder schlafen....

[Andreas21]

Code: Alles auswählen

If InitSprite() 
  If OpenWindow(0, 0, 0, 1024,768, "Explorer1") 
    If OpenWindowedScreen(WindowID(0),0,0,1024,768, 1, 0, 0) 
      Repeat 
        EventID = WaitWindowEvent() 
        If EventID = #PB_Event_CloseWindow
          Quit = 1
        EndIf
      Until Quit = 1
    EndIf 
  EndIf 
EndIf

[The_Dark_Zim-.-]

Danke euch
Wuste nicht, dass das da rein muss ^^, kommt davon wenn man das nicht richtig lernt und nur ausprobiert ...