diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 66a997507d..14d6220beb 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +2001-11-04 15:54 GMT+1 Maurilio Longo + * source/rtl/tbrowse.prg + ! ::Hilite() cursor positioning was wrong for TBrowsers without heading + 2001-11-04 13:56 UTC+0100 Viktor Szakats * bin/bld.bat diff --git a/harbour/source/rtl/tbrowse.prg b/harbour/source/rtl/tbrowse.prg index 5c92cbd5f2..d77735118f 100644 --- a/harbour/source/rtl/tbrowse.prg +++ b/harbour/source/rtl/tbrowse.prg @@ -633,7 +633,7 @@ METHOD Hilite() CLASS TBrowse local nRow local cType - nRow := ::nTop + ::RowPos + iif(::lHeaders, ::nHeaderHeight, 1) + iif(Empty(::HeadSep), 0, 1) - 1 + nRow := ::nTop + ::RowPos + iif(::lHeaders, ::nHeaderHeight, 0) + iif(Empty(::HeadSep), 0, 1) - 1 // Start of cell SetPos( nRow, ::aColumns[ ::ColPos ]:ColPos )