OpenEuphoria

Re: Win32Lib: Mouse Down Event for Window

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

cklester wrote:
> 
> Shouldn't the following work for the left mouse button down event?

I've modified it to the following:

procedure win_Main_onMouse (integer self, integer event, sequence
params)--params is ( int event, int x, int y, int shift )
sequence mpos, rect
integer leftDragged
	mpos = getPointerPos()
	rect = getClientRect( win_Main )
	leftDragged = False
	
	if params[1] = LeftDown or leftDragged then
		leftDragged = True
	elsif params[1] = LeftUp then
		leftDragged = False
	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"))

Anybody have a "paint by mouse" example anywhere?