I am running Harbour's tbrowse in the latest version of xHarbour in the
following issues I have found:
METHOD refreshAll() CLASS TBROWSE
::setUnstable()
// The following 2 lines do not follow clipper behavior:
// Eval( ::bSkipBlock, 1 - ::nBufferPos )
// ::nBufferPos := 1
::lFrames := .T.
::lRefresh := .T.
RETURN Self
Not sure if the following is a difference in xhb/hb:
METHOD stabilize() CLASS TBROWSE
....
FOR EACH lStat, lDisp IN ::aCellStatus, ::aDispStatus DESCEND
IF !lStat
IF lRead
RETURN .F.
ENDIF
//this line was changed in xhb to work correctly:
lRead := ::readRecord( nrowcount+lStat:__enumIndex()+1 )
ENDIF
IF lDisp
::dispRow( nrowcount+lDisp:__enumIndex()+1 )
ENDIF
NEXT
lStat:__enumIndex() returns a negative number in xhb when using
"DESCEND" and it seems like we are trying to paint from the bottom up.
--
Regards
--------------------------------------
Gerald Drouillard
Technology Architect
Drouillard & Associates, Inc.
http://www.Drouillard.biz
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
