Code: Alles auswählen
#Flags = #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget
If InitMouse() = 0
MessageRequester("InitMouse fehlgeschlagen", "Programm endet")
EndIf
If InitKeyboard() = 0
MessageRequester("InitKeyboard fehlgeschlagen", "Programm endet")
EndIf
If InitSprite() = 0
MessageRequester("InitSprite fehlgeschlagen", "Programm endet")
EndIf
If OpenWindow(1,0,0,1366,700,"",#Flags) = 0
MessageRequester("OpenWindow fehlgeschlagen", "Programm endet")
EndIf
If OpenWindowedScreen(WindowID(1),0,0,1366,700) = 0
MessageRequester("OpenWindowedScreen fehlgeschlagen", "Programm endet")
EndIf
StartDrawing(ScreenOutput())
Box(0,0,1366,700,RGB(0,200,0))
StopDrawing()
Repeat
Repeat
ExamineKeyboard()
ExamineMouse() : ReleaseMouse(#True)
Event = WindowEvent()
Select event
Case #WM_LBUTTONDOWN
wmx = WindowMouseX(1) : Debug wmx
Case #PB_Event_CloseWindow
schliessen = 1
EndSelect
If wmx > 375
StartDrawing(ScreenOutput())
Circle(300,290,7,RGB(200,0,0))
StopDrawing()
EndIf
Until Event = 0
Until schliessen = 1 Or #PB_Event_CloseWindow Or KeyboardPushed(#PB_Key_Escape)
End