From 66544e3957a72cd3fc36b15adaf79c2726ad550b Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Sat, 7 Aug 1999 22:59:39 +0000
Subject: [PATCH] *** empty log message ***

---
 harbour/source/rtl/tbcolumn.prg   |  4 ++++
 harbour/source/rtl/tbrowse.prg    | 16 ++++++++++++----
 harbour/tests/working/testbrw.prg |  4 ++++
 3 files changed, 20 insertions(+), 4 deletions(-)

diff --git a/harbour/source/rtl/tbcolumn.prg b/harbour/source/rtl/tbcolumn.prg
index 58e30ce6e6..234efdab34 100644
--- a/harbour/source/rtl/tbcolumn.prg
+++ b/harbour/source/rtl/tbcolumn.prg
@@ -1,3 +1,7 @@
+/*
+ * $Id$
+ */
+
 /*
  * Harbour Class TBColumn
  * Copyright(C) 1999 by Antonio Linares <alinares@fivetech.com>
diff --git a/harbour/source/rtl/tbrowse.prg b/harbour/source/rtl/tbrowse.prg
index 9671561788..45d3cf65b3 100644
--- a/harbour/source/rtl/tbrowse.prg
+++ b/harbour/source/rtl/tbrowse.prg
@@ -1,3 +1,7 @@
+/*
+ * $Id$
+ */
+
 /*
  * Harbour Class TBrowse
  * Copyright(C) 1999 by Antonio Linares <alinares@fivetech.com>
@@ -168,7 +172,9 @@ METHOD Stabilize() CLASS TBrowse
       SetPos( ::nTop + nRow, ::nLeft )
       DevOut( Space( ( nWidth - nColsWidth ) / 2 ), ::ColorSpec )
       for n = 1 to nColsVisible
-         ::aColumns[ n ]:ColPos = Col()
+         if nRow == 1
+            ::aColumns[ n ]:ColPos = Col()
+         endif
          if lDisplay
             DevOut( PadR( Eval( ::aColumns[ n ]:block ),;
                     ::aColumns[ n ]:Width ), ::ColorSpec )
@@ -184,9 +190,11 @@ METHOD Stabilize() CLASS TBrowse
    next
 
    Eval( ::SkipBlock, -( ::nBottom - ::nTop + If( lHeaders, 1, 0 ) ) )
-   @ ::nTop + ::RowPos - If( lHeaders, 0, 1 ), ::aColumns[ ::ColPos ]:ColPos ;
-      SAY PadR( Eval( ::aColumns[ ::ColPos ]:block ), ::aColumns[ ::ColPos ]:Width ) ;
-      COLOR __ColorIndex( ::ColorSpec, CLR_ENHANCED )
+   if ::AutoLite
+      @ ::nTop + ::RowPos - If( lHeaders, 0, 1 ), ::aColumns[ ::ColPos ]:ColPos ;
+        SAY PadR( Eval( ::aColumns[ ::ColPos ]:block ), ::aColumns[ ::ColPos ]:Width ) ;
+        COLOR __ColorIndex( ::ColorSpec, CLR_ENHANCED )
+   endif
 
 return .t.
 
diff --git a/harbour/tests/working/testbrw.prg b/harbour/tests/working/testbrw.prg
index 39003914b7..8eb3315b16 100644
--- a/harbour/tests/working/testbrw.prg
+++ b/harbour/tests/working/testbrw.prg
@@ -1,3 +1,7 @@
+/*
+ * $Id$
+ */
+
 // Harbour Class TBrowse and TBColumn sample
 
 function Main()