OpenEuphoria

Re: RightDown event

• Posted by 1evan at sbcglobal.net Aug 06, 2003
• 403 views

This works for me:

include win32lib.ew
without warning

constant
win = createEx(Window,"Mouse Right Click Test",0,0,0,400,300,0,0)

setWindowBackColor(win,Black)

procedure RightClick(integer self, integer event, sequence params)

      if params[1] = RightUp then  --Right mouse btn released
           setTextColor(win,White)
           setPenPos(win,5,5)
           wPuts(win,"Right Clicked!")
      end if
end procedure
setHandler(win,w32HMouse,routine_id("RightClick"))

WinMain(win,Normal)



Joseph Semmel wrote:
> 
> 
> The Onmouse routine does not trap right clicks either.
> 
> 
> Pete Lomax wrote:
> 
>>
>>On Tue,  5 Aug 2003 19:20:06 +0000, Joseph Semmel <jsemmel at yahoo.com>
>>wrote:
>>
>>
>>>I had a question on right mouse clicking. I saw an example program 
>>>(ex20.exw) that uses a mouse procedure to trap right mouse clicks. This 
>>>does not work on a program that uses a menu.  Why does the OnClick 
>>>routine not trap for right mouse clicks ?
>>
>>w32HClick is the event triggered by left click, space when the focus
>>is on the button, or the Alt key if it has one.
>>To check for right clicks try w32HMouse.
>>
>>Pete
>>
> 
> 
> 
> TOPICA - Start your own email discussion group. FREE!
> 
>