home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / aug95 / dond1f6.gif (.png) < prev    next >
Graphics Interchange Format  |  1996-01-31  |  15.2 KB  |  558x470  |  4-bit (6 colors)
   ocr: FRMNAV3.FSL-Forml-keyPhysical method keyPhysical(uar eventinfo KeyEvent) var UCC Smallint enduar if eventInfo.isPreFilter() then ;// This code executes for each object on the Form: doDefault if eventinfo.errorCode() <> 0 then UCC = eventinfo.UCharCode() switch case (UCC = UK_ Tab and eventinfo.isShiftkeyDown() ) or UCC = UK Left or UCC = UK_Up : active.Action(FieldGroupBackward) case UCC = UK Tab or UCC = UK Right or UCC = UK Down : active.Action(FieldGroupforward) endSwitch endif else ;// This code executes only for the Form: endif endmetnod Edit Line: 13 Col: 1