see Changelog 2001-08-11 22:45 GMT -3

2001-08-12 01:39:35 +00:00
parent 8b15544ce1
commit 2bf4f5843e
3 changed files with 13 additions and 1 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+2001-08-11 22:45 GMT -3 Luiz Rafael Culik <culik@sl.conex.net>
+  * 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 <culik@sl.conex.net>
  *tests/testbrw.prg
    * updated to show the use of pictures with tbrowse
--- 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
--- 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