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

*** empty log message ***

Browse Source
This commit is contained in:
Antonio Linares
1999-08-23 17:38:39 +00:00
parent 49b321059a
commit 27a99120ae
1 changed files with 16 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -368,10 +368,14 @@ return Self
METHOD DeHilite() CLASS TBrowse
local nColor := If( ::aColumns[ ::ColPos ]:ColorBlock != nil,;
Eval( ::aColumns[ ::ColPos ]:ColorBlock )[ 1 ], 1 )
local cColor := __ColorIndex( ::ColorSpec, nColor - 1 )
@ ::nTop + ::RowPos - If( ::lHeaders, 0, 1 ) + If( Empty(::HeadSep), 0, 1 ),;
::aColumns[ ::ColPos ]:ColPos ;
SAY PadR( Eval( ::aColumns[ ::ColPos ]:block ), ::aColumns[ ::ColPos ]:Width ) ;
COLOR ::ColorSpec
COLOR cColor
return nil
@@ -384,11 +388,15 @@ return nil
METHOD Hilite() CLASS TBrowse
local nColor := If( ::aColumns[ ::ColPos ]:ColorBlock != nil,;
Eval( ::aColumns[ ::ColPos ]:ColorBlock )[ 2 ], 2 )
local cColor := __ColorIndex( ::ColorSpec, nColor - 1 )
if ::AutoLite
@ ::nTop + ::RowPos - If( ::lHeaders, 0, 1 ) + If( Empty(::HeadSep), 0, 1 ),;
::aColumns[ ::ColPos ]:ColPos ;
SAY PadR( Eval( ::aColumns[ ::ColPos ]:block ), ::aColumns[ ::ColPos ]:Width ) ;
COLOR __ColorIndex( ::ColorSpec, CLR_ENHANCED )
COLOR cColor
endif
return nil
@@ -400,6 +408,7 @@ METHOD Stabilize() CLASS TBrowse
local nColsWidth := 0 // Total width of visible columns plus ColSep
local nColsVisible := 0 // Number of columns that fit on the browse width
local lFooters := .f. // Are there column footers to paint ?
local cColColor // Column color to use
if ::aRedraw == Nil .or. ! ::aRedraw[ 1 ]
// Are there any column header to paint ?
@@ -568,8 +577,12 @@ METHOD Stabilize() CLASS TBrowse
::aColumns[ n ]:ColPos = Col()
endif
if lDisplay
cColColor = If( ::aColumns[ n ]:ColorBlock != nil,;
__ColorIndex( ::ColorSpec,;
Eval( ::aColumns[ n ]:ColorBlock )[ 1 ] - 1 ),;
::ColorSpec )
DevOut( PadR( Eval( ::aColumns[ n ]:block ),;
::aColumns[ n ]:Width ), ::ColorSpec )
::aColumns[ n ]:Width ), cColColor )
else
DevOut( Space( ::aColumns[ n ]:Width ), ::ColorSpec )
endif