Can a Browse Event be triggered mannually with xBasic?

[John Turner]

I have just learned that I will not be able to use mice on 5 computers in an installation and while I was going to wait till after beta testing and the UI was finalized to set up all the keyboard shortcuts I now have to rush something into place to get the testing done for users who don't have access to a mouse. I have many embedded browses that I don't really want to put buttons on - is there a way to mannually trigger the OnRowDblClk event that I could then attach to a captured keypress? - I have searched the forum and looked at the docs but I don't see anything that might offer a solution?

Any help will be gratly appreciated.

Thank you
John

[Mike Wilson]

Re: Can a Browse Event be triggered mannually with xBasic?

John,
If you have the OnRowDblClk event as a script or as a User Defined Function (UDF) you could also use the OnKey event to call the script that the OnRowDblClk event calls. I have a UDF that is named define_hotkeys() that I place on the form event OnKey to call a calendar, calculator, and for you could be the F10 key to call the OnRowDblClk event script.

FUNCTION define_hotkeys AS C ( )
	 IF a_user.key.value = "{F12}" THEN
	  sDate=UI_GET_DATE_CALENDAR("Enter Date",dtoc(date()))
	  a_user.key.handled = .T. 
	      IF a_user.key.event = "down" THEN
	   	sys_send_keys(sDate)
	      END IF 
 else IF a_user.key.value = "{F11}" THEN
 	snum = popup.calculator(0)
             a_user.key.handled = .T. 
                   IF a_user.key.event = "down" THEN
  	           sys_send_keys(sNum)
     	       END IF
 else IF a_user.key.value = "{F10}" THEN
 	[COLOR="Red"]msgbox("The OnRowBdlClick script called here with the F10 Key")[/COLOR]
 
   		
 ' ======== Remove this section if you don't want to disable control-D (Delete shortcut) =======

 else IF a_user.key.value = "{^d}" THEN
  '**** Ignore Control D ****
     a_user.key.handled = .T. 
 '**** End of Section to Take out for Control D ****
 end if

END FUNCTION