fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2007-09-16 18:44 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* source/rtl/tbrowse.prg
     ! Another fix for TBrowse() full color compatibility.
This commit is contained in:
Viktor Szakats
2007-09-16 16:44:52 +00:00
parent 75ebef1fad
commit 76aaa169db
2 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
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.

2
harbour/source/rtl/tbrowse.prg
View File

@@ -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