What do you guys like to use for mouse mapping?

[Dimster]

Hi Pete, I have always been partial to Drop Down Menus. With B+ help I have one that is still very much under construction but here a piece of the code that would give you an idea of the approach I'm now using

Code: (Select All)

Screen _NewImage(1900, 900, 32)
$Color:32
'Color LightGreen
'Menu Item 1
Line (1, 1)-(100, 100), _RGB32(0, 255, 0), BF
Line (3, 3)-(97, 97), _RGB32(0), B
Color Brown, _RGB32(0, 255, 0)
_PrintString (15, 5), "OPENING"
_PrintString (15, 20), "INFO"
Do
    Do While _MouseInput
        '    'INboxX = _MouseX
        '    'INboxY = _MouseY
        For INBX = 1 To 100
            For INBY = 1 To 100

                If _MouseX <> INBX Or _MouseY <> INBY Then
                    x = _MouseX
                    y = _MouseY
                    x$ = Str$(x)
                    y$ = Str$(y)
                    _PrintString (500, 10), "I'm NOT in the menu box"
                    _PrintString (500, 50), x$
                    _PrintString (530, 50), y$
                    _PrintString (500, 10), "                       "
                    Exit For
                ElseIf _MouseX = INBX And _MouseY = INBY Then
                    x = _MouseX
                    y = _MouseY
                    x$ = Str$(x)
                    y$ = Str$(y)
                    _PrintString (500, 10), "I'm in the menu box"
                    _PrintString (500, 50), x$
                    _PrintString (530, 50), y$
                    _PrintString (500, 10), "                  "
                    Exit For
                    'Exit For
                End If


                '_Display
                'Sleep
                '_PrintString (INBX, INBY), "                      "
            Next
            Exit For
        Next

    Loop
Loop Until InKey$ = Chr$(27)
'Do 'main program loop