_MOUSEHIDE / _MOUSESHOW

[Pete]

Here are some interesting observations about _MOUSEHIDE and _MOUSESHOW

See the remark statements at the top of the code.

Code: (Select All)

' _MOUSEHIDE _MOUSE SHOW DEMO
' Note: _MOUSEHIDE WILL BE DISENGAGED WHEN A MOUSE BUTTON IS HELD DOWN.
' A MOUSE TRIGGER EVENT LIKE _MOUSEMOVE IS NEEDED TO HIDE/SHOW MOUSE WHEN MOUSE IS IDLE.

REM PRESS ESC TO END. <==================================================

WHILE _MOUSEINPUT: WEND
DO UNTIL my
    my = _MOUSEY
    mx = _MOUSEX
LOOP
PALETTE 8, 0
DO
    _LIMIT 30
    COLOR 1, 0
    _MOUSESHOW
    WHILE _MOUSEINPUT: WEND: my = _MOUSEY: mx = _MOUSEX
    _MOUSEMOVE mx, my
    PALETTE 0, 63
    FOR i = 1 TO 10
        _DELAY .2
        PRINT i
        IF INKEY$ = CHR$(27) THEN EXIT DO
    NEXT
    COLOR 8, 0
    myhide = my: mxhide = mx
    _MOUSEHIDE
    PRINT "_MOUSEMOVEX ="; mxhide, "_MOUSEMOVEY ="; myhide
    WHILE _MOUSEINPUT: WEND: myhide = _MOUSEY: mxhide = _MOUSEX
    _MOUSEMOVE mxhide, myhide
    PALETTE 0, 4
    FOR i = 10 TO 1 STEP -1
        _DELAY .2
        PRINT i
        IF INKEY$ = CHR$(27) THEN EXIT DO
    NEXT
    oldmy = my: oldmy = mx
LOOP

So curious that if you continuously move the mouse with no button held, the pointer hides on the red screen and shows on the white, as expected, but... if you initiate and hold any mouse button down WHILE ON THE WHITE SCREEN, it shows up all the time, even on the red screen. Personally, I wish it would continue to show and hide regardless of mouse button status, but unless this is a "glitch" I wonder what was the thought process to have it coded this way?


Pete