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

2000-01-23 10:53 GMT+1 Antonio Linares <alinares@fivetech.com>

Browse Source
This commit is contained in:
Antonio Linares
2000-01-23 09:52:37 +00:00
parent c9d28f529d
commit 032986306c
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -410,7 +410,8 @@ return Self
METHOD DeHilite() CLASS TBrowse
local nColor := If( ::aColumns[ ::ColPos ]:ColorBlock != nil,;
Eval( ::aColumns[ ::ColPos ]:ColorBlock )[ 1 ], 1 )
Eval( ::aColumns[ ::ColPos ]:ColorBlock,;
Eval( ::aColumns[ ::ColPos ]:Block ) )[ 1 ], 1 )
local cColor := hb_ColorIndex( ::ColorSpec, nColor - 1 )
local ftmp := Eval( ::aColumns[ ::ColPos ]:block )
@@ -435,7 +436,8 @@ return nil
METHOD Hilite() CLASS TBrowse
local nColor := If( ::aColumns[ ::ColPos ]:ColorBlock != nil,;
Eval( ::aColumns[ ::ColPos ]:ColorBlock )[ 2 ], 2 )
Eval( ::aColumns[ ::ColPos ]:ColorBlock,;
Eval( ::aColumns[ ::ColPos ]:Block ) )[ 2 ], 2 )
local cColor := hb_ColorIndex( ::ColorSpec, nColor - 1 )
local ftmp := Eval( ::aColumns[ ::ColPos ]:block )
@@ -630,7 +632,8 @@ METHOD Stabilize() CLASS TBrowse
if lDisplay
cColColor = If( ::aColumns[ n ]:ColorBlock != nil,;
hb_ColorIndex( ::ColorSpec,;
Eval( ::aColumns[ n ]:ColorBlock )[ 1 ] - 1 ),;
Eval( ::aColumns[ n ]:ColorBlock,;
Eval( ::aColumns[ n ]:Block ) )[ 1 ] - 1 ),;
::ColorSpec )
ftmp = Eval( ::aColumns[ n ]:block )
if valtype( ftmp ) == "L"
@@ -706,4 +709,3 @@ function TBrowseNew( nTop, nLeft, nBottom, nRight )
endif
return oBrw