Arthur,
Look for this code in tribbon.prg:
Code: Select all
IF l2013
nTopMargin := 25
nClrPaneRB := RGB( 255, 255, 255 )
nClrBoxOut := RGB( 192, 192, 192 )
nClrBoxIn := RGB( 255, 255, 255 )
nClrBoxSelOut := RGB( 255, 255, 255 )
nClrBoxSelIn := RGB( 255, 255, 255 )
aGrad := { { 1, RGB( 255, 255, 255 ), RGB( 255, 255, 255 ) } }
aGradFld := {| nOpt | if( nOpt == ::nStart, { { 1, RGB( 255, 255, 255 ), RGB( 255, 255, 255 ) } },;
{ { 1, RGB( 43, 87, 154 ), RGB( 43, 87, 154 ) } } ) }
aGradHigh := { { 1, RGB( 255, 255, 255 ), RGB( 255, 255, 255 ) } }
aGradOver := { { 1, RGB( 255, 255, 255 ), RGB( 255, 255, 255 ) } }
endif
With the above colors for aGradFld it should be ok. Also you need to change this line in tribbon.prg line 813:
aGradFld = Eval( ::aGradFld, nPrompt )