Seite 1 von 1
OpenWindowedScreen Reagiert nicht ????
Verfasst: 27.11.2008 01:42
von 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
Verfasst: 27.11.2008 02:00
von edel
da fehlt auch eine Eventschleife, siehe WaitWindowEvent.
Verfasst: 27.11.2008 02:17
von NicTheQuick
Am besten ein
mit in die Repeat-Schleife setzen, wenn die dir Window-Events egal sind.
Verfasst: 27.11.2008 10:30
von 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....
Verfasst: 27.11.2008 11:56
von 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
Verfasst: 27.11.2008 12:14
von The_Dark_Zim-.-
Danke euch
Wuste nicht, dass das da rein muss ^^, kommt davon wenn man das nicht richtig lernt und nur ausprobiert ...