Post by rosy on Aug 25, 2021 16:19:50 GMT -6
WindowOpen(0, "maximize", WINDOWPOS_CENTERED, WINDOWPOS_CENTERED, 640, 400, WINDOW_RESIZABLE, 1)
CanvasOpen(0, 640, 400, 0, 0, 640, 400, 1)
SetColor (-1)
graczy=0
Do
ClearCanvas
Circle (mousex, mousey,10)
If WindowEvent_Maximize(0) then
SetWindowFullscreen (0, 1)
End If
s=Inkey
Update
if (s or MouseButton(0)) then
print s
End If
gol=0
CanvasOpen(0, 640, 400, 0, 0, 640, 400, 1)
SetColor (-1)
graczy=0
Do
ClearCanvas
Circle (mousex, mousey,10)
If WindowEvent_Maximize(0) then
SetWindowFullscreen (0, 1)
End If
s=Inkey
Update
if (s or MouseButton(0)) then
print s
End If
gol=0
Loop Until s=K_Escape or (graczy=0 and (s or MouseButton(0)))
Any key should end the program. But, for example, R or UP does not end there.
After entering s <> 0 is OK
