@Re57,
hier mal eine bereinigte Version des codes mit ein paar Anpassungen.
Ich weiß nicht warum du die Auswertung mit einem Mausklick brauchst, aber dieser Code hier wertet die Position fortlaufend aus. Sobald du die Maus nach rechts über die Grenzlinie (375 Pixel) ziehst, wird dein Kreis gezeichnet.
Code:
EnableExplicit
#Flags = #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget
Define.i event, wmx, wmy, border, width, height
border = 375
width = 1366
height = 700
If InitKeyboard() = 0
MessageRequester("InitKeyboard fehlgeschlagen", "Programm endet")
End
EndIf
If InitSprite() = 0
MessageRequester("InitSprite fehlgeschlagen", "Programm endet")
End
EndIf
If OpenWindow(1, 0, 0, width, height, "", #Flags) = 0
MessageRequester("OpenWindow fehlgeschlagen", "Programm endet")
End
EndIf
If OpenWindowedScreen(WindowID(1), 0, 0, width, height) = 0
MessageRequester("OpenWindowedScreen fehlgeschlagen", "Programm endet")
End
EndIf
Repeat
ExamineKeyboard()
;event = WindowEvent()
event = WaitWindowEvent()
wmx = WindowMouseX(1)
wmy = WindowMouseY(1)
If wmx > border
StartDrawing(ScreenOutput())
Box(0, 0, width, height, RGB(0, 200, 0))
Line(border, 0, 1, height, RGB(200, 0, 0))
Circle(wmx, wmy, 7, RGB(200, 0, 0))
StopDrawing()
FlipBuffers()
Else
StartDrawing(ScreenOutput())
Box(0, 0, width, height, RGB(0, 200, 0))
Line(border, 0, 1, height, RGB(200, 0, 0))
StopDrawing()
FlipBuffers()
EndIf
Until event = #PB_Event_CloseWindow Or KeyboardPushed(#PB_Key_Escape)
End
PS: Warum sollte es mit WaitWindowEvent() nicht gehen?