What do you guys like to use for mouse mapping?

[TempodiBasic]

The monumental example of Steve let me try to use my original code for getting a subMenu..
here is the example

Code: (Select All)

Rem demo of menu with mouse selection



DefLng L

lwindow = _NewImage(800, 600, 32)

Screen lwindow

_Font 16

MenuItem$ = "First/Second/Third/Forth/Fifth/Menu2/Sixth/Seventh/Eighth/Ninth/"

Menu2$ = "1st/2nd/3rd/4th/5th/6th/7th/8th/9th/Back/"

item$ = ""

Do

    Color _RGBA(6, 6, 127, 255), _RGBA(227, 55, 55, 255)

    While _MouseInput: _PrintString (580, 300), " X" + Str$(_MouseX) + "/ Y" + Str$(_MouseY) + "    ": Wend

    Mx% = _MouseX

    My% = _MouseY

    Mb% = _MouseButton(1)



    If item$ = "Menu2" Then

        item2$ = ShowMenu$(Menu2$, 40 + (_FontWidth * 12), 20 + (_FontHeight * a%), Mx%, My%, Mb%)

        If item2$ = "Back" Then item$ = "": Line (40 + (_FontWidth * 12), 20 + (_FontHeight * a%))-(40 + (_FontWidth * 24), 20 + (_FontHeight * (a% + b%))), _RGBA(0, 0, 0, 255), BF

    Else

        item$ = ShowMenu$(MenuItem$, 40, 20, Mx%, My%, Mb%)

        a% = Mx%

        b% = My%

    End If



Loop Until _MouseButton(2)

End



Function ShowMenu$ (Menu$, X%, Y%, Xm%, Ym%, Bm%)

    Start% = 1

    Ends% = 0

    Nitem% = 0

    item$ = ""

    While InStr(Start%, Menu$, "/")

        Ends% = InStr(Start%, Menu$, "/")

        item$ = Mid$(Menu$, Start%, Ends% - Start%)

        lbase$ = Space$(Int((12 - Len(item$)) / 2))

        rbase$ = Space$(12 - (Len(lbase$ + item$)))

        If MouseOver(X%, X% + (_FontWidth * 12), Y% + (_FontHeight * Nitem%), Y% + (_FontHeight * (Nitem% + 1)), Xm%, Ym%) Then

            Color _RGBA(6, 238, 127, 255), _RGBA(0, 6, 255, 255)

            _PrintString (580, 330), Space$(20)

            _PrintString (580, 330), "Mouse over item" + Str$(Nitem% + 1) + lbase$ + item$ + rbase$

            If Bm% Then

                _PrintString (580, 360), Space$(20)

                _PrintString (580, 360), "Selected item" + Str$(Nitem% + 1) + lbase$ + item$ + rbase$

                ShowMenu$ = item$

                Ntemp% = Nitem%

            End If

        Else

            Color _RGBA(6, 6, 127, 255), _RGBA(227, 55, 55, 255)

        End If

        _PrintString (X%, Y% + (_FontHeight * Nitem%)), lbase$ + item$ + rbase$

        Nitem% = Nitem% + 1

        Start% = Ends% + 1

    Wend

    Xm% = Ntemp%

    Ym% = Nitem%

End Function



Function MouseOver (X%, X1%, Y%, Y1%, Mx%, My%)

    MouseOver = 0

    If (Mx% >= X% And Mx% <= X1%) Then

        If (My% > Y% And My% <= Y1%) Then MouseOver = 1

    End If

End Function

It is fine to see how a sub can be more util becoming a function!