DODEFAULT() THISFORM.pgf.ACTIVEPAGE = THISFORM.GetNextPageNo() THISFORM.PrevNextCaption()PreviousButton.Click()
DODEFAULT() THISFORM.pgf.ACTIVEPAGE = THISFORM.GetPreviousPageNo() THISFORM.PrevNextCaption()Form.PrevNextCaption()
IF TYPE("THISFORM.cmdPrevious.CAPTION") # "C" RETURN ENDIF WITH THISFORM .cmdPrevious.CAPTION = "<< " + .pgf.PAGES(.GetPreviousPageNo()).CAPTION .cmdNext.CAPTION = .pgf.PAGES(.GetNextPageNo()).CAPTION + " >>" ENDWITHForm.GetNextPageNo()
LOCAL lnActPage, lnLastPage, lnNextPage WITH THISFORM lnActPage = .pgf.ACTIVEPAGE lnLastPage = .pgf.PAGECOUNT DO WHILE .T. lnNextPage = lnActPage + 1 && Nominally "active" page but not necessarily active IF lnNextPage > lnLastPage lnNextPage = 1 ENDIF IF NOT .pgf.PAGES( lnNextPage).ENABLED && If chosen page not enabled lnActPage = lnNextPage ELSE EXIT && SUCCESS!!! ENDIF ENDDO ENDWITH RETURN lnNextPageForm.GetPreviousPageNo()
LOCAL lnActPage, lnLastPage, lnNextPage WITH THISFORM lnActPage = .pgf.ACTIVEPAGE lnLastPage = .pgf.PAGECOUNT DO WHILE .T. lnNextPage = lnActPage - 1 && Nominally "active" page but not necessarily active IF lnNextPage < 1 lnNextPage = lnLastPage ENDIF IF NOT .pgf.PAGES( lnNextPage).ENABLED && If chosen page not enabled lnActPage = lnNextPage ELSE EXIT && SUCCESS!!! ENDIF ENDDO ENDWITH RETURN lnNextPage