wenn ich
Code: Alles auswählen
InitSprite()
Global mem.l
Mem = AllocateMemory(1024)
Procedure.l DesktopOutput()
PokeL(Mem, 1)
ProcedureReturn Mem
EndProcedure
maus.POINT
OpenWindow(0,0,0,100,100,"muh")
OpenWindowedScreen(WindowID(0),0,0,100,100,1,0,0)
Repeat
event = WindowEvent()
If GetAsyncKeyState_(#VK_ESCAPE):esc = 1:EndIf
If GetAsyncKeyState_(#VK_R)
CreateSprite(0,50,50)
GetCursorPos_(maus)
For i = 0 To 50
For j = 0 To 50
StartDrawing(desktopoutput())
farbe = Point(maus\x+i,maus\y+j)
StopDrawing()
StartDrawing(SpriteOutput(0))
Box(i,j,1,1,farbe)
StopDrawing()
Next j
Next i
DisplaySprite(0,0,0)
FlipBuffers()
EndIf
Until esc = 1
wie kann ich die Maus anzeigen lassen?
thx!