OpenEuphoria

Re: What am I doing wrong??!!

• Posted by Tone Škoda <tskoda at email.si> Sep 14, 2004
• 431 views

i don't know but i use this code to trap ALT+m key press:

procedure on_viewer_window_event (integer self, integer event, sequence params)
    atom winmsg
    object wParam
    object lParam 
    atom char
    winmsg = params [1]
    wParam = params [2]
    lParam = params [3]
    if winmsg = WM_SYSCHAR then
        char = wParam    
        if lower (char) = 'm'
        and getKeyState( VK_MENU ) then
            ...
        end if
    end if
end procedure
setHandler(Viewer_pic_window, w32HEvent,  routine_id( "on_viewer_window_event"))

EU Coder wrote:
> 
> Hello
> 
> I am using the following procedure:
> 
> procedure onKeyDown_MainWin(integer key, integer shift)
>     if and_bits( shift, AltMask )
>      and key = 'A'
>       then
>        setVisible(Windows2,True)
>    end if
> end procedure
> onKeyDown[Screen] = routine_id("onKeyDown_MainWin")
> 
> The above code works fine with ShiftMask or ControlMask, but when I try to=
> =20
> use AltMask, nothing happens. What am I doing wrong?
> 
>