FiveTech Support Forums

#include 'fivewin.ch'
#include 'xbrowse.ch'

function main()

local ownd, obrw, ocol, adata := {}, n

	for n := 1 to 50
		aadd( adata, { str(n,3), replicate( chr(64+n), 20 ) } )
	next n

	define window ownd
	obrw := txbrowse():new( ownd )
	obrw:setarray( adata )
	obrw:acols[1]:cheader := 'No'
	obrw:acols[2]:cheader := 'details'
	obrw:createfromcode()
	ownd:oclient := obrw
	activate window ownd

return nil

METHOD PageUp( nLines ) CLASS TXBrowse

   local nSkipped

   if ::nLen < 1
      return nil
   endif

   DEFAULT nLines := ::RowCount()

   ::CancelEdit()
   ::Seek()
   ::DrawLine()

   nSkipped = Eval( ::bSkip, -nLines )

   if nSkipped = 0
      ::DrawLine(.t.)
      return nil
   endif

   if -nSkipped < nLines
      ::nRowSel = 1
   	if ::bChange != nil
   	   Eval( ::bChange, Self )
   	endif
      // ::lRefreshOnlyData := .t.
      ::Super:Refresh( .f. )
      if ::oVScroll != nil
         ::VGoTop()
      endif
   else
      // FIX : Insert the following three lines
      if eval( ::bkeyno ) < ::nRowSel     // fix
         eval( ::bKeyNo, ::nRowSel )      // fix
      endif                                          // fix
      // FIX : END
   	if ::bChange != nil                  
   	   Eval( ::bChange, Self )       
   	endif                                     
      // ::lRefreshOnlyData := .t.
      ::Super:Refresh( .f. )
      if ::oVScroll != nil
         ::VSetPos( ::VGetPos() + nSkipped )
      endif
   endif

return nil