OpenEuphoria

Win32Lib: Mouse Down Event for Window

• Posted by cklester <cklester at yahoo.com> May 13, 2004
• 461 views

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"))