OpenEuphoria

RE: Win32Lib: Mouse Down Event for Window

• Posted by Brian Broker <bkb at cnw.com> May 13, 2004
• 457 views

Don't confuse your event variables...

procedure win_Main_onMouse (integer self, integer event, sequence
params)--params is ( int event, int x, int y, int shift )
    object junk
    integer mouse_event
    sequence mpos

    mouse_event = params[1]
    mpos = params[2..3]

    if mouse_event != MouseMove then
        junk = message_box(sprintf("Event = %d",{event}),"Check",MB_OK)
    end if
    if mouse_event = LeftDown then
        junk = message_box("Left down!","Check",MB_OK)
    end if
    setText( StatusBar14, sprintf("%d,%d",mpos) )
end procedure
setHandler( win_Main, w32HMouse, routine_id("win_Main_onMouse"))

-- Brian

cklester wrote:
> 
> 
> posted by: cklester <cklester at yahoo.com>
> 
> Shouldn't the following work for the left mouse button down event?
> 
> procedure win_Main_onMouse (integer self, integer event, sequence 
> params)--params is ( int event, int x, int y, int shift )
> object junk
> 	if event != 3 then
> 		junk = message_box(sprintf("Event = %d",{event}),"Check",MB_OK)
> 	end if
> 	if event = LeftDown then
> 		junk = message_box("Left down!","Check",MB_OK)
> 	end if
> 	setText( StatusBar14, 
> sprintf("%d,%d",{mpos[1]-rect[1]+1,mpos[2]-rect[2]+1}) )
> end procedure
> setHandler( win_Main, w32HMouse, routine_id("win_Main_onMouse"))