ocr: MENUZELIbraryl.HandleMenu" method Handlemenu(nchoice Smallint) t var dyM Dynarrayll String - CopyTo array on Menu table fCrntForm Form Current form, for closing 1Continue Logical Set False if menu selection fails aErrMsg String - Used if menu selection fails libSrc Library enduar 1Continue = True aErrMsg = : if nChoice > UserMenu and nChoice < UserMenumax then tcGlobalmenu.Switchindex("Parent-Item-Urder") 1Continue = tcGlobalmenu.locate("Menu tag", nChoice - UserMenu) if - not 1Continue then aErrMsg = "Cannot locate this item in menu table" endif if 1Continue then 1Continue = tcGlobalmenu.copy ...
