Re: Code stürzt ab nachdem die Maustaste mehrmal gedrückt wurde
Verfasst: 07.01.2010 14:42
erstens das und dann muss es ein WindowEvent() geben in deiner Hauptschleife, wnen du ein Fenster offen hast.
Ansonsten werden keine Ereignisse vom Fenster empfangen -> Einfrieren des Fensters:
Ansonsten werden keine Ereignisse vom Fenster empfangen -> Einfrieren des Fensters:
Code: Alles auswählen
Procedure Init_Systems()
If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0
MessageRequester("Error!", "Kann nicht initialisiert werden!", 0)
End
EndIf
If OpenWindow(0, 0, 0, 1000, 780, "Maustest", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_ScreenCentered)
If OpenWindowedScreen(WindowID(0), 0, 0, 1000, 780, 0, 0, 0)
EndIf
EndIf
EndProcedure
Procedure Maus()
ExamineMouse()
DisplayTransparentSprite(50, MouseX(),MouseY()) ; Ausgabe des Mauspfeils
EndProcedure
;***Hauptprogramm***
Init_Systems()
LoadSprite(50, "GFX/Mauspfeil.bmp")
Repeat
WindowEvent()
Maus()
FlipBuffers()
ClearScreen(0)
Until MouseButton(#PB_MouseButton_Right)