Enrico,
> How to get rid of the pale cyan color in the label bar under the ribbon group ? oRGrp:aGradCaption = { { 1, CLR_WHITE, CLR_WHITE } }
> How to get rid of the orange/yellow color when the mouse is over the ribbon button ? oBtn1:bClrGradNormal = { | lPressed | If( lPressed,;
{ { 1, RGB( 197, 197, 197 ), RGB( 197, 197, 197 ) } },;
{ { 1, CLR_WHITE, CLR_WHITE } } ) }
ribbon2016.prg
- Code: Select all Expand view
#include "Fivewin.ch"
#include "Ribbon.ch"
FUNCTION MAIN()
LOCAL oWnd, oRBar, oRGrp, oBtn1
DEFINE WINDOW oWnd
DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT "One", "Two", "Three" HEIGHT 133 TOPMARGIN 25 2015
oRBar:aClrTabTxt = { { | oSelf, nPrompt | If( nPrompt == oRBar:nOption, CLR_GREEN, CLR_WHITE ) },;
{ | oSelf, nPrompt | If( nPrompt == oRBar:nOption, CLR_GREEN, CLR_WHITE ) },;
{ | oSelf, nPrompt | If( nPrompt == oRBar:nOption, CLR_GREEN, CLR_WHITE ) } }
oRBar:nClrPaneRB = CLR_GREEN
oRBar:aGradFld = { || { { 1, CLR_WHITE, CLR_WHITE } } }
oRBar:aGradOver = { || { { 1, CLR_GREEN, CLR_GREEN } } }
ADD GROUP oRGrp RIBBONBAR oRBar;
TO OPTION 1
oRGrp:aGradCaption = { { 1, CLR_WHITE, CLR_WHITE } }
@ 2, 2 ADD BUTTON oBtn1 GROUP oRGrp ;
SIZE oRGrp:nWidth / 2, oRGrp:nHeight - 18
oBtn1:bClrGradNormal = { | lPressed | If( lPressed,;
{ { 1, RGB( 197, 197, 197 ), RGB( 197, 197, 197 ) } },;
{ { 1, CLR_WHITE, CLR_WHITE } } ) }
ACTIVATE WINDOW oWnd
RETURN NIL