[[https://www.revelation.com/|Sign up on the Revelation Software website to have access to the most current content, and to be able to ask questions and get answers from the Revelation community]]


==== Adding Right Double Click Event to Controls (OpenInsight Specific) ====
=== At 27 OCT 1998 10:34:33AM Dimitri wrote: ===
 
{{tag>"OpenInsight Specific"}}
 
<QUOTE>


Does anyone know how to add the right double click event to a control?



I've successfully added the left double click using the 0x203 and qualify event commands but when  I tried using the 0x206 for Right double click it just delivers the right click (edit,cut paste popop).



What am I Missing?



Thanks,



Dimitri

Dimitri@clandt.com
</QUOTE>
----

=== At 28 OCT 1998 12:35AM Bob Carten, WinWin Solutions Inc. wrote:  ===

<QUOTE>Dmitri-



The qualify event should be set on the Create event of the window, as you are doing.



However, you must also put the appropriate message in the WINMSG event of the control:



eg:

To qualify the event for every control on the window,  on the create event of the window, put something like this (use the appropriate event codes) :

Declare Function Send_Message



Win_Name=CtrlEntID1,'.'



* Create Event For Form



*---

* mouse_move

*---

Equ WM_MOUSEMOVE$     to   512	;* \0200\



MAP=@CtrlEntID-]CtrlMap

col='

loop

remove control from map at col setting pos

while control

	rv=Send_Message(Control, 'QUALIFY_EVENT', '0x204', 1)

	rv=Send_Message(Control, 'QUALIFY_EVENT', '0x203', 1)

	rv=Send_Message(Control, 'QUALIFY_EVENT', '0x206', 1)

	rv=Send_Message(Control, "QUALIFY_EVENT", "0x7b", 1)

	rv=Send_Message(Control, "QUALIFY_EVENT", wm_MouseMOve$, 1)

repeat







/* Events I know:

0x204       Right Mouse

0x203      Left Mouse Double Click

0x206      Right Mouse Double Click



The rest are in the windows.h header file

*/



On the winmsg event of the control, put this:



Declare Function Msg



begin case

  case message=516

  	text=Right Mouse Click'

  	

  Case message=515'

  	text=Double Left Mouse Click'

  	

  Case Message=512'

  	text=MouseOver'



end case





x=msg('','Message Received:': text)





RETURN 0





Hope it helps-



Bob

</QUOTE>

----

=== At 28 OCT 1998 10:13AM Dimitri wrote:  ===

<QUOTE>Thanks I think I've done all that but will double check my code.



Do you actually use the right double click on a control?

</QUOTE>


[[https://www.revelation.com/revweb/oecgi4p.php/O4W_HANDOFF?DESTN=O4W_RUN_FORM&INQID=NONWORKS_READ&SUMMARY=1&KEY=EFD2F86B41F873E4852566AA0050115E|View this thread on the  forum...]]