From 76aaa169dbd45e0b1d6cd7860e68fcb216413582 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Sun, 16 Sep 2007 16:44:52 +0000 Subject: [PATCH] 2007-09-16 18:44 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * source/rtl/tbrowse.prg ! Another fix for TBrowse() full color compatibility. --- 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 e81172804f..b26cd572c7 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,10 @@ 2002-12-01 13:30 UTC+0100 Foo Bar */ +2007-09-16 18:44 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) + * source/rtl/tbrowse.prg + ! Another fix for TBrowse() full color compatibility. + 2007-09-16 12:53 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * contrib/libct/makefile.vc * Some alignment. diff --git a/harbour/source/rtl/tbrowse.prg b/harbour/source/rtl/tbrowse.prg index eb9c2e658a..e3f6d15e08 100644 --- a/harbour/source/rtl/tbrowse.prg +++ b/harbour/source/rtl/tbrowse.prg @@ -2140,7 +2140,7 @@ STATIC FUNCTION tbr_CookColor( cColorSpec ) for nPos := 1 TO nCount cColor := hb_TokenGet( @cColorSpec, nPos, "," ) if nPos <= 2 - aColorSpec[ nPos ] := iif( hb_ColorToN( cColor ) == 0 .AND. !( Upper( StrTran( cColor, " ", "" ) ) == "N/N" ), hb_ColorIndex( SetColor( "" ), nPos - 1 ), cColor ) + aColorSpec[ nPos ] := iif( hb_ColorToN( cColor ) == 0 .AND. !( Upper( StrTran( cColor, " ", "" ) ) == "N/N" ), hb_ColorIndex( "W/N,N/W", nPos - 1 ), cColor ) else aColorSpec[ nPos ] := iif( hb_ColorToN( cColor ) == 0, "N/N", cColor ) endif