OpenEuphoria

Buttons

• Posted by Irv Mullins <irvm at ellijay.com> Aug 01, 2001
• 459 views

I have several buttons on panels like:

     leftButtonText = {"E&XIT","&NEXT","&PREV","&FIND","&ADD","&SETTAB"}

and 'alt letter' like 'alt x' will activate the EXIT button's process. I
would also like to just press the letter 'x' (upper or lower) and not have
to press the alt as well. Is their a way to do this?

I was wondering when you were going to ask :)

Hook the onKeyPress event for the window on which the buttons appear:
procedure MainWindow_onKeyPress ( int keyCode, int shift )
keyCode = upper(keyCode)
if keyCode = 'C' then
   ReadCustomerFile()
   openWindow(CustomerWindow,Normal)
elsif keyCode = 'D' then
   ReadDriverFile()
   openWindow(DriverWindow,Normal)
.... and so on.

Regards,
Irv