Mr. Rao,
maybe possible, to add these few lines to xbrowse because of the missing textcolor ?
( like the background-color, text can be changed at runtime )
[img:27y3096s]http://www.pflegeplus.com/IMAGES/Recsel1.jpg[/img:27y3096s]
new DATA
nRecSelColor,; // Background color for the record selector column, by default uses the backgrounf footer
[color=#FF0040:27y3096s]nRecTxtColor[/color:27y3096s] // Text color for the record selector column, by default black
...
...
if ::nRecSelColor == nil
::nRecSelColor := If( ::l2000, nRGB( 231, 242, 255 ), Eval( ::bClrHeader )[ 2 ] )
endif
[color=#FF0000:27y3096s] if ::nRecTxtColor == nil
::nRecTxtColor := nRGB( 0, 0, 0 )
endif[/color:27y3096s]
...
...
[b:27y3096s]added to all selector text / font-defines :[/b:27y3096s]
IfNil( ::oRecSelFont, ::oFont[color=#FF0000:27y3096s], ::nRecTxtColor [/color:27y3096s]) )
best regards
Uwe
↧