topic-27057

Posts: 32

Joined: Thu Sep 20, 2012 07:29 PM

Background Color
Posted: Sat Aug 24, 2013 02:38 PM

Good morning guys, Saturday morning here and I curled up with a background color. How do I change this color to the same color of blue ribbon?

NOTE: I use RIBBONBAR

arthursilvestre

Posts: 32

Joined: Thu Sep 20, 2012 07:29 PM

Re: Background Color
Posted: Mon Aug 26, 2013 11:37 AM

Up

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Background Color
Posted: Wed Sep 11, 2013 08:07 PM

Arthur,

Look for this code in tribbon.prg:

Code (fw): Select all Collapse

   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 )

regards, saludos

Antonio Linares
www.fivetechsoft.com

arthursilvestre

Posts: 32

Joined: Thu Sep 20, 2012 07:29 PM

Re: Background Color
Posted: Thu Sep 12, 2013 07:49 PM

thank you antonio, got it.

FiveTech Support Forums

Continue the discussion