Background Color

Post Reply
User avatar
arthursilvestre
Posts: 32
Joined: Thu Sep 20, 2012 7:29 pm

Background Color

Post by arthursilvestre »

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

Image
User avatar
arthursilvestre
Posts: 32
Joined: Thu Sep 20, 2012 7:29 pm

Re: Background Color

Post by arthursilvestre »

Up
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: Background Color

Post by Antonio Linares »

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 )
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
arthursilvestre
Posts: 32
Joined: Thu Sep 20, 2012 7:29 pm

Re: Background Color

Post by arthursilvestre »

thank you antonio, got it. :)
Post Reply