Re: onKeyPress[Screen]
- Posted by Derek Parnell <ddparnell at bigpond.com> Aug 02, 2001
- 446 views
Hi George, > Well when this job is done I would hope to move some of my existing > customers over to the window's product...without a great deal of burden..I > agree that I certainly won't violate standard windows UI, but hidden behind > the system it would be nice for current users of my software to have some > familiar controls without losing the windows UI. I may abandon this at some > point if it becomes to troublesome. This is what I have done at present .. Fair enough. I've reqorked your code to show you another style which may help future maintenance etc... --------------------- key press routines ------------------- constant keyRtns = { routine_id("processExit"), routine_id("processNext"), routine_id("processPrev"), routine_id("processFind"), routine_id("processAdd"), routine_id("processSettab"), routine_id("processChange"), routine_id("processDelete"), routine_id("processSave"), routine_id("processAbort")} constant keyCodes = "XNPFASCDVB" procedure keyPressProcess(integer keyCode,integer shift) if mode = 0 then keyCode = find(upper(keyCode), keyCodes) if keyCode != 0 then call_proc(keyRtns[keyCode]) end if end if end procedure ---------- cheers, Derek.