I have to change the function keys for our application. A handicap user can�t get Ctrl+F1 to Ctrl+10, therefore we want to use F1-F10 function keys. Has been the functions keys in our old application (Lotus Approach).
The script within the onkey event works perfect for all function keys except F6. This function key jumps to next region of the form. It seems to be that the OnKey event will not fire.
This is my onkey event script, what�s wrong with the function key F6. I couldn�t find any hint on this board or Alphapedia.
Cornelius
The script within the onkey event works perfect for all function keys except F6. This function key jumps to next region of the form. It seems to be that the OnKey event will not fire.
This is my onkey event script, what�s wrong with the function key F6. I couldn�t find any hint on this board or Alphapedia.
Cornelius
Code:
dim layout_name as c = "" dim global vvg as n dim global vkom as n 'will not fire debug(1) select case a_user.key.value = "{^F1}" .and. a_user.key.event = "down" a_user.key.handled = .T. vvg = vg->id layout_name = "Level 01a" case a_user.key.value = "{^F3}" .and. a_user.key.event = "down" a_user.key.handled = .T. vvg = vg->id layout_name = "Level 03a" case a_user.key.value = "{^F4}" .and. a_user.key.event = "down" a_user.key.handled = .T. vvg = vg->id layout_name = "Level 04a" case a_user.key.value = "{^F5}" .and. a_user.key.event = "down" a_user.key.handled = .T. vvg = vg->id layout_name = "Level 05a" case a_user.key.value = "{F6}" '.and. a_user.key.event = "down" debug(1) a_user.key.handled = .T. vvg = vg->id layout_name = "Level 06a" case a_user.key.value = "{^F7}" .and. a_user.key.event = "down" a_user.key.handled = .T. vvg = vg->id layout_name = "Level 07a" case a_user.key.value = "{^F8}" .and. a_user.key.event = "down" a_user.key.handled = .T. vvg = vg->id layout_name = "Level 08a" case a_user.key.value = "{^F10}" .and. a_user.key.event = "down" a_user.key.handled = .T. vkom = kom->id_kom vvg = vg->id layout_name = "Menue" dim lv as p lv = layoutview(layout_name) goto ende case a_user.key.value = "{^F11}" .and. a_user.key.event = "down" a_user.key.handled = .T. vkom = kom->id_kom layout_name = "Level 11a" dim lv as p lv = layoutview(layout_name) lv.index_set("ID") lv.find(vkom) goto ende end select if layout_name <> "" then dim lv as p lv = layoutview(layout_name) lv.index_set("ID") lv.find(vvg) end if ende:
Comment