From 2bf4f5843e11de5b483d957b8734bb6db1b69a18 Mon Sep 17 00:00:00 2001 From: Luiz Rafael Culik Date: Sun, 12 Aug 2001 01:39:35 +0000 Subject: [PATCH] see Changelog 2001-08-11 22:45 GMT -3 --- harbour/ChangeLog | 5 +++++ harbour/include/hbextern.ch | 2 +- harbour/source/rtl/tbrowse.prg | 7 +++++++ 3 files changed, 13 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 833beeb679..cd95b27b15 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,8 @@ +2001-08-11 22:45 GMT -3 Luiz Rafael Culik + * include/hbextern.ch + * removed extern declaration for ALTD() function + * source/rtl/tbrowse.prg + * Added support for Autolite = .f. (I hope this is the right fix) 2001-08-11 08:40 GMT -3 Luiz Rafael Culik *tests/testbrw.prg * updated to show the use of pictures with tbrowse diff --git a/harbour/include/hbextern.ch b/harbour/include/hbextern.ch index 8e62c3e8d5..8759faf68e 100644 --- a/harbour/include/hbextern.ch +++ b/harbour/include/hbextern.ch @@ -837,7 +837,7 @@ EXTERNAL USED EXTERNAL __RDDSETDEFAULT EXTERNAL RDDSETDEFAULT EXTERNAL DBSETDRIVER -EXTERNAL ALTD + EXTERNAL DBFCDX // //symbols from file: rdd\dbf1.c diff --git a/harbour/source/rtl/tbrowse.prg b/harbour/source/rtl/tbrowse.prg index 326920b227..81f928f6d7 100644 --- a/harbour/source/rtl/tbrowse.prg +++ b/harbour/source/rtl/tbrowse.prg @@ -603,6 +603,13 @@ METHOD Hilite() CLASS TBrowse SetPos( nRow, nCol ) ::DispCell(::ColPos, 2) + /*QUESTION : Is this the correct fix when autolite is .f. */ + else + nRow := ::nTop + ::RowPos - iif( ::lHeaders, 0, 1 ) + iif( Empty( ::HeadSep ), 0, 1 ) + nCol := ::aColumns[ ::ColPos ]:ColPos + + SetPos( nRow, nCol ) + ::DispCell(::ColPos, 3) endif