* Prev.Mousedown event >>if nButton = 1 >> now = seconds() >> do while !bof() and mdown() >> if seconds() - now > 1 >> skip -1 >> thisform.refresh >>* Update other nav buttons as necessary >> now = seconds() >> endif >> enddo >>endifCetin
if !mdown() release all lile oTimerx* return endif oTimerx = sys(1270) if !type("oTimerx") = "O" return endif if !inlist(oTimerx.name,"cmdPrev","cmdNext") release all lile oTimerx* return endif nSkipDir = iif(oTimerx.name = "cmdPrev",-1,1) skip iif(nSkipDir = 1, ; iif(!eof(), 1, -1),iif(!bof(), -1, 1)) if oTimerx.name = "cmdPrev" and bof() go top oTimerx.enabled = .f. endif if oTimerx.name = "cmdNext" and eof() go bottom oTimerx.enabled = .f. endif thisform.refreshThis one would be resistant to midnight too. But should be enhanced to avoid default click (moving all click code here maybe) and with a better navrefresh.