* 5.0 workaround -- if page is disabled, * 5.0 lets users keyboard to it, paints it, * and then won't activate. Skip to the next enabled page. * * FORM'S KeyPreview PROPERTY MUST BE SET .T. LOCAL nLeft, nRight nLeft = 19 nRight = 4 IF nShiftAltCtrl = 0 AND INLIST(nKeyCode,nLeft, nRight) ; AND TYPE("THIS.activecontrol.pageOrder") = "N" LOCAL nNextPage, lFound WITH THIS.activecontrol.parent nNextPage = .activepage * Find next enabled Page DO WHILE !lFound nNextPage = nNextPage + IIF(nKeyCode = nLeft, -1, 1) IF nNextPage < 1 nNextPage = .PageCount ELSE IF nNextPage > .PageCount nNextPage = 1 ENDIF ENDIF IF .Pages(nNextPage).Enabled .activepage = nNextPage NODEFAULT EXIT ENDIF ENDDO ENDWITH ENDIF