The following script is in the OnKey event of a form. the variable transtest is used to change the level of a conditional object that displays various "forms" for entry of various types of data. Everything works fine, except the Ctrl-N and Ctrl-P functions. As you can see in the script, all buttons on the form are accessible to the user by keystrokes not just mouse clicks. All works great, except ctrl-n and ctrl-p. Is there a limit to the amount of keys that can be defined in the OnKey event? Is there something special about the ctrl-n and ctrl-p keystrokes? Or is there something wrong with the folowing script?
script_play("DisableKeys")
if pymtcondtest1 .or. transtest=5 .or. transtest=6
if a_user.key.value="{PGDN}"
a_user.key.handled=.t.
end if
if a_user.key.value="{PGUP}"
a_user.key.handled=.t.
end if
end if
if transtest=0
if a_user.key.value = "{^d}"
a_user.key.handled = .T.
if a_user.key.event = "down"
DelLineBtn.push()
end if
end if
if a_user.key.value = "{^e}"
a_user.key.handled = .T.
if a_user.key.event = "down"
EditChargeBtn.push()
end if
end if
if a_user.key.value = "{^n}"
a_user.key.handled = .T.
if a_user.key.event = "down"
AddChargeBtn.push()
end if
end if
if a_user.key.value = "{^y}"
a_user.key.handled = .T.
if a_user.key.event = "down"
PytsAdjsBtn.push()
end if
end if
if a_user.key.value = "{^a}"
a_user.key.handled = .T.
if a_user.key.event = "down"
AuthsBtn.push()
end if
end if
if a_user.key.value = "{^g}"
a_user.key.handled = .T.
if a_user.key.event = "down"
ProgNotesBtn.push()
end if
end if
if a_user.key.value = "{^o}"
a_user.key.handled = .T.
if a_user.key.event = "down"
CollNotesBtn.push()
end if
end if
if a_user.key.value = "{^i}"
a_user.key.handled = .T.
if a_user.key.event = "down"
PtInfoBtn.push()
end if
end if
if a_user.key.value = "{^u}"
a_user.key.handled = .T.
if a_user.key.event = "down"
ApptsBtn.push()
end if
end if
if a_user.key.value = "{^t}"
a_user.key.handled = .T.
if a_user.key.event = "down"
TotalsBtn.push()
end if
end if
if a_user.key.value = "{^p}"
a_user.key.handled = .T.
if a_user.key.event = "down"
PrintBtn.push()
end if
end if
if a_user.key.value = "{^f}"
a_user.key.handled = .T.
if a_user.key.event = "down"
FindDateBtn.push()
end if
end if
if a_user.key.value = "{ESC}"
a_user.key.handled = .T.
if a_user.key.event = "down"
CloseTheBtn.push()
end if
end if
if a_user.key.value = "{^c}"
a_user.key.handled = .T.
if a_user.key.event = "down"
CloseTheBtn.push()
end if
end if
end if
if transtest=6
if a_user.key.value = "{^s}"
a_user.key.handled = .T.
if a_user.key.event = "down"
SaveNewBtn.push()
end if
end if
if a_user.key.value = "{Esc}"
a_user.key.handled = .T.
if a_user.key.event = "down"
CloseNewBtn.push()
end if
end if
end if
if transtest=4
if a_user.key.value="{F9}"
a_user.key.handled=.t.
SavePymtBtn.activate()
sys_send_keys("{ENTER}")
end if
end if
if transtest=5
if a_user.key.value="{F9}"
a_user.key.handled=.t.
SaveEditBtn.activate()
sys_send_keys("{ENTER}")
end if
end if
if transtest=6
if a_user.key.value="{F9}"
a_user.key.handled=.t.
SaveNewBtn.activate()
sys_send_keys("{ENTER}")
end if
end if
Thanks for any input.
Gary Traub
script_play("DisableKeys")
if pymtcondtest1 .or. transtest=5 .or. transtest=6
if a_user.key.value="{PGDN}"
a_user.key.handled=.t.
end if
if a_user.key.value="{PGUP}"
a_user.key.handled=.t.
end if
end if
if transtest=0
if a_user.key.value = "{^d}"
a_user.key.handled = .T.
if a_user.key.event = "down"
DelLineBtn.push()
end if
end if
if a_user.key.value = "{^e}"
a_user.key.handled = .T.
if a_user.key.event = "down"
EditChargeBtn.push()
end if
end if
if a_user.key.value = "{^n}"
a_user.key.handled = .T.
if a_user.key.event = "down"
AddChargeBtn.push()
end if
end if
if a_user.key.value = "{^y}"
a_user.key.handled = .T.
if a_user.key.event = "down"
PytsAdjsBtn.push()
end if
end if
if a_user.key.value = "{^a}"
a_user.key.handled = .T.
if a_user.key.event = "down"
AuthsBtn.push()
end if
end if
if a_user.key.value = "{^g}"
a_user.key.handled = .T.
if a_user.key.event = "down"
ProgNotesBtn.push()
end if
end if
if a_user.key.value = "{^o}"
a_user.key.handled = .T.
if a_user.key.event = "down"
CollNotesBtn.push()
end if
end if
if a_user.key.value = "{^i}"
a_user.key.handled = .T.
if a_user.key.event = "down"
PtInfoBtn.push()
end if
end if
if a_user.key.value = "{^u}"
a_user.key.handled = .T.
if a_user.key.event = "down"
ApptsBtn.push()
end if
end if
if a_user.key.value = "{^t}"
a_user.key.handled = .T.
if a_user.key.event = "down"
TotalsBtn.push()
end if
end if
if a_user.key.value = "{^p}"
a_user.key.handled = .T.
if a_user.key.event = "down"
PrintBtn.push()
end if
end if
if a_user.key.value = "{^f}"
a_user.key.handled = .T.
if a_user.key.event = "down"
FindDateBtn.push()
end if
end if
if a_user.key.value = "{ESC}"
a_user.key.handled = .T.
if a_user.key.event = "down"
CloseTheBtn.push()
end if
end if
if a_user.key.value = "{^c}"
a_user.key.handled = .T.
if a_user.key.event = "down"
CloseTheBtn.push()
end if
end if
end if
if transtest=6
if a_user.key.value = "{^s}"
a_user.key.handled = .T.
if a_user.key.event = "down"
SaveNewBtn.push()
end if
end if
if a_user.key.value = "{Esc}"
a_user.key.handled = .T.
if a_user.key.event = "down"
CloseNewBtn.push()
end if
end if
end if
if transtest=4
if a_user.key.value="{F9}"
a_user.key.handled=.t.
SavePymtBtn.activate()
sys_send_keys("{ENTER}")
end if
end if
if transtest=5
if a_user.key.value="{F9}"
a_user.key.handled=.t.
SaveEditBtn.activate()
sys_send_keys("{ENTER}")
end if
end if
if transtest=6
if a_user.key.value="{F9}"
a_user.key.handled=.t.
SaveNewBtn.activate()
sys_send_keys("{ENTER}")
end if
end if
Thanks for any input.
Gary Traub