PureBoard

Verfasst: **14.09.2004 21:03**

Hallo,

ich habe mir einen Credits-Scroller gebastelt, er Funktioniert auch, bis auf ein Kleines Proble:

If OpenWindow(#About_Window,0 ,0 , 400, 300, #PB_Window_ScreenCentered | #PB_Window_SystemMenu | #PB_Window_TitleBar, "Über...")
  OpenWindowedScreen(WindowID(), 0, 0, 400, 300, 0, 0, 0)
[...]
Repeat
  ClearScreen(0,0,0)
  Event = WaitWindowEvent()
  Select Event 
  EndSelect
Until Event = #PB_Event_CloseWindow 
CloseScreen() 
End
Endif 
[...]

Bei dem o.g. Code, habe ich das Problem, dass beim Bewegen der Maus im Fenster alles Flakert. Wenn ich aber

Code: Alles auswählen

 Event = WaitWindowEvent()
  Select Event 
  EndSelect

Ausklammere, Flakert es nicht mehr, aber wenn ich mit der Maus ins Fenster Fahre, ist eine Sanduhr da, und der Inhalt kackt ab beim Minimieren.

Danke für Jede Hilfe

MFG Lukaso

Verfasst: **14.09.2004 21:22**

Muss zu meiner Schande gestehen, dass ich momentan ein wenig raus
bin aus der PureBasic-Programmierung aber probier mal

anstatt

Code: Alles auswählen

 Event = WaitWindowEvent() 
  Select Event 
  EndSelect

folgendes

Code: Alles auswählen

 Event = WindowEvent() 
  Select Event 
 EndSelect
 Delay(1)

Vielleicht hilft's ja

Verfasst: **14.09.2004 21:28**

Noch schöner und sinnvoller ist:

Code: Alles auswählen

Event = WindowEvent() 
Select Event 
  Case 0
    Delay(1)
EndSelect

Verfasst: **14.09.2004 21:55**

Danke funktioniert Bestens!

Verfasst: **14.09.2004 22:00**

Und noch "schöner"

Code: Alles auswählen

Select WindowEvent()
  Case 0 
    Delay(1) 
EndSelect

Müßte auch gehen

Verfasst: **14.09.2004 22:08**

Nanu? Da fehlt aber doch noch ein [c]FlipBuffers()[/c]. Oder hast du das mal eben fürs Forum rausgenommen?

Verfasst: **15.09.2004 14:32**

@NicTheQuick
Nein, das ist schon drinne. (In der Scroller Funktion, die rufe ich mit CreateTheared auf)

PureBoard

Problem mit WaitWindowEvent() und OpenWindowedScreen

Problem mit WaitWindowEvent() und OpenWindowedScreen