Adding Right Double Click Event to Controls (OpenInsight Specific)
At 27 OCT 1998 10:34:33AM Dimitri wrote:
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
At 28 OCT 1998 12:35AM Bob Carten, WinWin Solutions Inc. wrote:
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=516text=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
At 28 OCT 1998 10:13AM Dimitri wrote:
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?