_MOUSEHIDE / _MOUSESHOW - Printable Version

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

Code: (Select All)

DIM WinMse AS POINTAPI

TYPE POINTAPI

    X_Pos AS LONG

    Y_Pos AS LONG

END TYPE



DECLARE DYNAMIC LIBRARY "User32"

    FUNCTION GetWindowLongA& (BYVAL hwnd AS LONG, BYVAL nIndex AS LONG)

    FUNCTION SetWindowLongA& (BYVAL hwnd AS LONG, BYVAL nIndex AS LONG, BYVAL dwNewLong AS LONG)

    FUNCTION SetWindowPos& (BYVAL hwnd AS LONG, BYVAL hWndInsertAfter AS LONG, BYVAL x AS LONG, BYVAL y AS LONG, BYVAL cx AS LONG, BYVAL cy AS LONG, BYVAL wFlags AS LONG)

    FUNCTION GetAsyncKeyState% (BYVAL vkey AS LONG)

    FUNCTION GetCursorPos (lpPoint AS POINTAPI)

    FUNCTION SetCursorPos& (BYVAL x AS INTEGER, BYVAL y AS INTEGER)

END DECLARE



DIM AS INTEGER setxy



WIDTH 50, 25

DO: LOOP UNTIL _SCREENEXISTS

GWL_STYLE = -16

ws_border = &H800000

WS_VISIBLE = &H10000000

_TITLE "No Border"

hwnd& = _WINDOWHANDLE

winstyle& = GetWindowLongA&(hwnd&, GWL_STYLE)

_DELAY .25

a& = SetWindowLongA&(hwnd&, GWL_STYLE, winstyle& AND WS_VISIBLE)

a& = SetWindowPos&(hwnd&, 0, 0, 200, 400, 0, 39)



LOCATE 1, 1

COLOR 0, 7

PRINT SPACE$(_WIDTH);

fw = _FONTWIDTH

fh = _FONTHEIGHT

x = _SCREENX: y = _SCREENY



DO

    _LIMIT 60



    IF GetAsyncKeyState(1) < 0 THEN

        IF lb = 0 THEN lb = 1

    ELSE

        IF lb THEN lb = 0: dragx = 0: dragy = 0

    END IF



    z = GetCursorPos(WinMse)



    IF lb THEN

        IF dragx THEN

            IF WinMse.X_Pos <> oldxpos OR WinMse.Y_Pos <> oldypos THEN

                j1 = (WinMse.X_Pos - oldxpos)

                j2 = (WinMse.Y_Pos - oldypos)

                x = x + j1: y = y + j2

                _SCREENMOVE x, y

                z1 = TIMER

                DO

                    setxy = SetCursorPos(x + dragx, y + dragy)

                LOOP UNTIL ABS(TIMER - z1) > .001

            END IF

            z = GetCursorPos(WinMse)

        ELSE

            IF WinMse.Y_Pos >= _SCREENY AND WinMse.Y_Pos <= _SCREENY + fh THEN

                x = _SCREENX: y = _SCREENY

                dragx = (WinMse.X_Pos - x)

                dragy = fw \ 2 ' Set to middle of the title bar vertical height.

            END IF

        END IF

    END IF

    IF LEN(INKEY$) THEN SYSTEM

    oldypos = WinMse.Y_Pos

    oldxpos = WinMse.X_Pos

LOOP

Code: (Select All)

Screen _NewImage(800, 600, 32)

$Color:32



Declare Dynamic Library "User32"

    Function GetWindowLongA& (ByVal hwnd As Long, Byval nIndex As Long)

    Function SetWindowLongA& (ByVal hwnd As Long, Byval nIndex As Long, Byval dwNewLong As Long)

    Function SetWindowPos& (ByVal hwnd As Long, Byval hWndInsertAfter As Long, Byval x As Long, Byval y As Long, Byval cx As Long, Byval cy As Long, Byval wFlags As Long)

End Declare



Do: Loop Until _ScreenExists

GWL_STYLE = -16

ws_border = &H800000

WS_VISIBLE = &H10000000

hwnd& = _WindowHandle

winstyle& = GetWindowLongA&(hwnd&, GWL_STYLE)

a& = SetWindowLongA&(hwnd&, GWL_STYLE, winstyle& And WS_VISIBLE)

a& = SetWindowPos&(hwnd&, 0, 0, 200, 400, 0, 39)



Line (0, 0)-(_Width, 30), SkyBlue, BF 'My custom titlebar

pw = _PrintWidth("ð Steve's Tripple Line Title ð")

_PrintString ((_Width - pw) \ 2, 2), "ð Steve's Tripple Line Tittle ð"



Do

    x = _ScreenX: y = _ScreenY

    result = MBS

    If (result And 64) And (_MouseY <= 30) Then startdrag = -1 '            we're in the title bar and triggered a hold event.

    If startdrag Then

        _ScreenMove x + MMX, y + MMY '                                      drag the window from the title bar

        _MouseMove Mouse_StartX, Mouse_StartY '                              keep the mouse in its original position

    End If

    If (result And 1) = 0 Then startdrag = 0 '                              hold event is over, quit dragging

    _Limit 60

Loop Until _KeyDown(27)





Function MBS% 'Mouse Button Status

    Static StartTimer As _Float

    Static ButtonDown As Integer

    Static ClickCount As Integer

    Const ClickLimit## = 0.2 'Less than 1/4th of a second to down, up a key to count as a CLICK.

    '                          Down longer counts as a HOLD event.

    Shared Mouse_StartX, Mouse_StartY, Mouse_EndX, Mouse_EndY, MMX, MMY



    MMX = 0: MMY = 0

    While _MouseInput 'Remark out this block, if mouse main input/clear is going to be handled manually in main program.

        Select Case Sgn(_MouseWheel)

            Case 1: tempMBS = tempMBS Or 512

            Case -1: tempMBS = tempMBS Or 1024

        End Select

        MMX = MMX + _MouseMovementX

        MMY = MMY + _MouseMovementY

    Wend





    If _MouseButton(1) Then tempMBS = tempMBS Or 1

    If _MouseButton(2) Then tempMBS = tempMBS Or 2

    If _MouseButton(3) Then tempMBS = tempMBS Or 4





    If StartTimer = 0 Then

        If _MouseButton(1) Then 'If a button is pressed, start the timer to see what it does (click or hold)

            ButtonDown = 1: StartTimer = Timer(0.01)

            Mouse_StartX = _MouseX: Mouse_StartY = _MouseY

        ElseIf _MouseButton(2) Then

            ButtonDown = 2: StartTimer = Timer(0.01)

            Mouse_StartX = _MouseX: Mouse_StartY = _MouseY

        ElseIf _MouseButton(3) Then

            ButtonDown = 3: StartTimer = Timer(0.01)

            Mouse_StartX = _MouseX: Mouse_StartY = _MouseY

        End If

    Else

        BD = ButtonDown Mod 3

        If BD = 0 Then BD = 3

        If Timer(0.01) - StartTimer <= ClickLimit Then 'Button was down, then up, within time limit.  It's a click

            If _MouseButton(BD) = 0 Then tempMBS = 4 * 2 ^ ButtonDown: ButtonDown = 0: StartTimer = 0

        Else

            If _MouseButton(BD) = 0 Then 'hold event has now ended

                tempMBS = 0: ButtonDown = 0: StartTimer = 0

                Mouse_EndX = _MouseX: Mouse_EndY = _MouseY

            Else 'We've now started the hold event

                tempMBS = tempMBS Or 32 * 2 ^ ButtonDown

            End If

        End If

    End If

    MBS = tempMBS

End Function

Code: (Select All)

DIM Rec AS Rectangle

DIM hWnd AS LONG



TYPE Rectangle

    left AS LONG

    top AS LONG

    right AS LONG

    bottom AS LONG

END TYPE



DECLARE DYNAMIC LIBRARY "user32"

    FUNCTION GetWindowRect& (BYVAL Hwnd AS LONG, Rec AS Rectangle)

END DECLARE



hWnd = _WINDOWHANDLE

fwp$ = "Find Windows Position"

_TITLE fwp$

_DELAY .25



' What's interesting is Windows will not report the change in location until the window stops moving. Same if using _SCREENX _SCREENY.

DO

    _LIMIT 10

    SOUND 1000, .1 ' Shows the loop run continuously while being dragged.

    y& = GetWindowRect&(hWnd, Rec)

    LOCATE 1, 1

    PRINT "top ="; Rec.top; "    ";

    PRINT "right ="; Rec.right; "    ";

    PRINT "left ="; Rec.left; "    ";

    PRINT "Bottom ="; Rec.bottom; "    ";

LOOP UNTIL LEN(INKEY$)