home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / aug95 / dond1f4.gif < prev    next >
Graphics Interchange Format  |  1996-01-31  |  15.2 KB  |  543x481  |  4-bit (5 colors)
   ocr: FRMNAVZ.FSLEForml-keyPhysical method Keyrnysical(uar eventinto KeyEvent) var UCC Smallint endvar if - eventInfo.isPreFilter() then UCC = eventinfo.UCharCode() if active.atFirst0) then if (active.Name = "Order No" and (UCC = UK LEFT or (UCC = UK_ - TAB and eventinfo.isshiftkeyDown() ))) or UCC = UK UP then disableDefault Sendkeys(4F3,False) endif endit if - active.atLast0) then if (active.Name = "Amount Paid" and (UCC = UK RIGHT or UCC = UK TAB)) or UCC = UK DOWN then disableDefault sendkeys("XF4)",False) endif endif endif endmethod Edit Line: 10 Col: 1