Problem mit WaitWindowEvent() und OpenWindowedScreen

Für allgemeine Fragen zur Programmierung mit PureBasic.
Benutzeravatar
Lukaso
Beiträge: 720
Registriert: 08.09.2004 18:51
Wohnort: Oberkirch
Kontaktdaten:

Problem mit WaitWindowEvent() und OpenWindowedScreen

Beitrag von Lukaso »

Hallo,

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

Code: Alles auswählen

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 :allright:
Nextgen Guild Wars Fanseite: Guild Wars Tactics (Pseudo-Admin + Developer)
"Das Fluchen ist die einzige Sprache, die jeder Programmierer beherrscht." - Unbekannter Autor
Benutzeravatar
benny
Beiträge: 383
Registriert: 29.08.2004 09:18
Wohnort: Am Ende des www's
Kontaktdaten:

Beitrag von benny »

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 :?:
So long,
benny!
.
nur t0te f1sche schw1mmen m1t dem str0m - 00100 !
Benutzeravatar
Lars
Beiträge: 347
Registriert: 31.08.2004 23:53
Wohnort: Shanghai
Kontaktdaten:

Beitrag von Lars »

Noch schöner und sinnvoller ist:

Code: Alles auswählen

Event = WindowEvent() 
Select Event 
  Case 0
    Delay(1)
EndSelect 
Lars
The only problem with troubleshooting is, that sometimes the trouble shoots back.
P4 2,6Ghz, 512MB RAM, GeForce 6200, WinXP Pro SP2, PB V3.94
Benutzeravatar
Lukaso
Beiträge: 720
Registriert: 08.09.2004 18:51
Wohnort: Oberkirch
Kontaktdaten:

Beitrag von Lukaso »

Danke funktioniert Bestens! :allright:
Nextgen Guild Wars Fanseite: Guild Wars Tactics (Pseudo-Admin + Developer)
"Das Fluchen ist die einzige Sprache, die jeder Programmierer beherrscht." - Unbekannter Autor
Benutzeravatar
benny
Beiträge: 383
Registriert: 29.08.2004 09:18
Wohnort: Am Ende des www's
Kontaktdaten:

Beitrag von benny »

Und noch "schöner" :wink:

Code: Alles auswählen

Select WindowEvent()
  Case 0 
    Delay(1) 
EndSelect 
Müßte auch gehen :roll: :?:
So long,
benny!
.
nur t0te f1sche schw1mmen m1t dem str0m - 00100 !
Benutzeravatar
NicTheQuick
Ein Admin
Beiträge: 8675
Registriert: 29.08.2004 20:20
Computerausstattung: Ryzen 7 5800X, 32 GB DDR4-3200
Ubuntu 22.04.3 LTS
GeForce RTX 3080 Ti
Wohnort: Saarbrücken
Kontaktdaten:

Beitrag von NicTheQuick »

Nanu? Da fehlt aber doch noch ein [c]FlipBuffers()[/c]. Oder hast du das mal eben fürs Forum rausgenommen?
Bild
Benutzeravatar
Lukaso
Beiträge: 720
Registriert: 08.09.2004 18:51
Wohnort: Oberkirch
Kontaktdaten:

Beitrag von Lukaso »

@NicTheQuick
Nein, das ist schon drinne. (In der Scroller Funktion, die rufe ich mit CreateTheared auf) :wink:
Nextgen Guild Wars Fanseite: Guild Wars Tactics (Pseudo-Admin + Developer)
"Das Fluchen ist die einzige Sprache, die jeder Programmierer beherrscht." - Unbekannter Autor
Antworten