From 381764ff755f52feef605fbf93f8f88c5b600118 Mon Sep 17 00:00:00 2001 From: Maurilio Longo Date: Sun, 4 Nov 2001 14:46:10 +0000 Subject: [PATCH] 2001-11-04 15:54 GMT+1 Maurilio Longo * source/rtl/tbrowse.prg ! ::Hilite() cursor positioning was wrong for TBrowsers without heading --- harbour/ChangeLog | 4 ++++ harbour/source/rtl/tbrowse.prg | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 )