xBrowse PaintCell Suggested Change

[don lowenstein]

Antonio,

I have browses that determine color requirements "on the fly" at runtime.

in order to make my programs work with xBrowse I made a slight change to the PaintCell method of TXBrwColumn to pass SELF with the evaluation of the color code block. Partial code from the method is below with 4 lines changed to pass SELF.
This might possibly be a good addition to FiveWin master libraries.

if lHighLite
if ::oBrw:hWnd == GetFocus()
if lSelected
if nOrder == ::oBrw:nColSel
aColors := Eval( ::bClrSelFocus, SELF ) // Eval( ::oBrw:bClrSelFocus ) // 3/24/13 - PASS SELF - DL
else
aColors := Eval( If( ::oBrw:bClrRowFocus != nil, ::oBrw:bClrRowFocus, ::bClrSelFocus ), SELF ) // 3/24/13- PASS SELF - DL
endif
else
aColors := Eval( If( ::oBrw:bClrRowFocus != nil, ::oBrw:bClrRowFocus, ::bClrSelFocus ), SELF ) // 3/24/13- PASS SELF - DL
endif
else
aColors := Eval( ::bClrSel, SELF ) // 3/24/13- PASS SELF - DL
endif
else
aColors := Eval( ::bClrStd, SELF ) // 3/24/13- PASS SELF
lTransparent := IfNil( ::lColTransparent, ::oBrw:lTransparent )
endif