Changing Tab-text color on TRibbon?

[byte-one]

Hello, as in the subject...

[Otto]

Hello Günther,
I think you have to change the class.

Gruß
Otto

Code: Select all  Expand view

 bPaintTxt  := <  | oSelf |
                    local hOldFont, nClrTxt, nOldClr, nMode
                    hOldFont  = SelectObject( hDCMem, oSelf:oFont:hFont  )
                    if ValType( oSelf:aClrTabTxt[ nPrompt ] ) == "N"
                       nClrTxt = oSelf:aClrTabTxt[ nPrompt ]
                    elseif ValType( oSelf:aClrTabTxt[ nPrompt ] ) == "B"
                       nClrTxt = Eval( oSelf:aClrTabTxt[ nPrompt ], oSelf )
                    else
                       nClrTxt = CLRTEXT
                    endif
                    if nPrompt == oSelf:nStart
                       nClrTxt = CLR_WHITE
                    endif
                   
                          //@Otto                     
                          if  nType = 3
                              nClrTxt = CLR_GREEN
                          endif
                          //@Otto
                     
                      nOldClr   = SetTextColor( hDCMem, if( oSelf:aEnable[ nPrompt ], nClrTxt, GetSysColor( COLOR_GRAYTEXT ) ) )
                   
                    nMode     = SetBkMode( hDCMem, TRANSPARENT )
                   
                   
                    DrawText( hDCMem, oSelf:aPrompts[ nPrompt ], { nRow+2, nCol, nRow + oSelf:nHeightFld+1, nCol + oSelf:aSizes[ nPrompt ] }, ;
                                       nOr( DT_SINGLELINE, DT_VCENTER, DT_CENTER, DT_NOPREFIX ) )
                    SetBkMode(hDCMem, nMode )

                    SetTextColor( hDCMem, nOldClr )
                    SelectObject( hDCMem, hOldFont  )
                    return nil
                    >
 

[ukoenig]

Hello Günther,




oRibbon:aGradFld := {| nOpt | if( nOpt == oRibbon:nStart, { { 1, 16777215, 8293112 } },;
{ { 1, 8293112, 16777215 } } ) } // Tabcolor
oRibbon:nClrPaneRB := 14856016 // Background blue
oRibbon:aClrTabTxt[1] := 0 // a different Color for each prompt ( black )
oRibbon:aClrTabTxt[2] := 128 // ( red )
oRibbon:aClrTabTxt[3] := 65535 // ( yellow )
oRibbon:aClrTabTxt[4] := 4259584 // ( light green )
oRibbon:aClrTabTxt[5] := 8114941 // ( orange )

Best Regards
Uwe

[byte-one]

Thanks all! Both variants are possible.

[Otto]

Hello Uwe,

how can you change hover text colour on ribbon if

if nPrompt == oSelf:nStart
nClrTxt = CLR_WHITE
endif
id inside the painting method.

Best regards,
Otto

[ukoenig]

Hello Otto,

it was a bit more complicated :

Code: Select all  Expand view

oRibbon:nClrPaneRB := 16641734 // Background-Color
oRibbon:nTop := 25
oRibbon:nHeight := 200
oRibbon:nGroupSeparation := 20
oRibbon:oFont := oFont // Tab-Fonts
oRibbon:nHeightFld := 30 // Folder-Tab--Height
oRibbon:nClrBoxSelIn := 32768
oRibbon:aGradFld  := {| nOpt | if( nOpt == oRibbon:nStart, { { 1, 16777215, 8293112 } },; // Tabcolor
                                                { { 1,  8293112, 16777215 } } ) }
oRibbon:aGradOver := { { 1, 13873022, 16777215 } } // Folder-Mouse-Focus
oRibbon:nClrPaneRB := 14856016    // Background blue
oRibbon:aClrTabTxt[1] := 16750487
oRibbon:aClrTabTxt[2] := 7303167
oRibbon:aClrTabTxt[3] := 65535
oRibbon:aClrTabTxt[4] := 4259584
oRibbon:aClrTabTxt[5] := 8114941

oRibbon:bMMoved := { |nRow, nCol | n := oRibbon:nOverPrompt( nRow, nCol ), ;
oRibbon:aClrTabTxt[1] := 16750487, ;
oRibbon:aClrTabTxt[2] := 7303167, ;
oRibbon:aClrTabTxt[3] := 65535, ;
oRibbon:aClrTabTxt[4] := 4259584, ;
oRibbon:aClrTabTxt[5] := 8114941, ;
IIF( n = 1, oRibbon:aClrTabTxt[1] := 0, NIL ), ;
IIF( n = 2, oRibbon:aClrTabTxt[2] := 0, NIL ), ;
IIF( n = 3, oRibbon:aClrTabTxt[3] := 0, NIL ), ;
IIF( n = 4, oRibbon:aClrTabTxt[4] := 0, NIL ), ;
IIF( n = 5, oRibbon:aClrTabTxt[5] := 0, NIL ), oRibbon:Refresh() }
 

Best Regards
Uwe