Defined Group-Colors for Ribbonbar FW 9.07

[ukoenig]

Hello,

today I started testing the Ribbonbar-Class to work out, how to make any Background- and Color-Changes.
Scrolling throught the sample, I noticed a wrong Alphabutton-Display.



I started to change the Basic-Settings, to find out, what is possible.
I wanted to change the Basic-Gradient-Color < oRBar:aGrad >
but there was no change. Maybe it is not possible ?
Folder-Tabs and Outline works. Are there any Values from the List, I cannot change ?



oRBar:nClrBoxOut := 128 // Ribbonbar-Outline-Color
oRBar:nClrBoxIn := 0 // Ribbonbar-Inline-Color
oRBar:nClrBoxSelOut := 32768
oRBar:nClrBoxSelIn := 32768
oRBar:aGradFld := { { 1, 16777215, 8293112 } } // Folder-Gradient
oRBar:aGrad := { {0.12, 32768, 32768 }, { 0.70, 10674091, 32768 }, { 0.18, 32768, 16777215 }}
oRBar:aGradHigh := { { 1, 2279491, 10674091 } }
oRBar:aGradOver := { { 1, 13873022, 10674091 } }

Best Regards
Uwe

[Antonio Linares]

Uwe,

See how it looks here on Windows 7:

[Antonio Linares]

Uwe,

Please try this:

Code: Select all  Expand view  RUN

function ChangeColors( oRb, aGrad )

   local hBmp := GradientBmp( oRb, oRb:nRight - oRb:nRightMargin - 3,;
                              oRb:nBottom - oRb:nTopMargin + 1, aGrad )
   local n                            

   DeleteObject( oRb:hBrushEx )
   oRb:hBrushEx = CreatePatternBrush( hBmp )
   DeleteObject( hBmp )
   
   oRb:Refresh()
   
   for n = 1 to Len( oRb:aDialogs )
      oRb:aDialogs[ n ]:hBack = oRb:hBrushEx
      oRb:aDialogs[ n ]:Refresh()
   next  
   
return nil
 

[Antonio Linares]

Uwe,

This one is a better one:

Code: Select all  Expand view  RUN

function ChangeColors( oRb, aGrad )

  local hBmp := GradientBmp( oRb, oRb:nRight - oRb:nRightMargin - 3,;
                             oRb:nBottom - oRb:nTopMargin + 1, aGrad )
  local n, j, z, oControl

  oRb:aGrad := aGrad

  DeleteObject( oRb:hBrushEx )
  oRb:hBrushEx = CreatePatternBrush( hBmp )
  DeleteObject( hBmp )
 
  oRb:Refresh()
 
  for n = 1 to Len( oRb:aDialogs )
     DeleteObject( oRb:aDialogs[ n ]:hBack )
     oRb:aDialogs[ n ]:hBack = oRb:hBrushEx
     if ! Empty( oRb:aDialogs[ n ]:aControls )
        for j = 1 to len( oRb:aDialogs[ n ]:aControls )
           oControl = oRb:aDialogs[ n ]:aControls[ j ]
           if oControl:ClassName() == "TRBGROUP"
              DeleteObject( oControl:hBrushUnsel )
              oControl:hBrushUnsel = oRb:hBrushEx
              DeleteObject( oControl:hBrushSel )
              oControl:hBrushSel = nil
           endif
        next
     endif

     oRb:aDialogs[ n ]:Refresh()
  next  
 
return nil
 

Edited 2 times

[Antonio Linares]

... ACTION ChangeColors( oRBar, { { 0.12, 16777215, 10674091 }, { 0.70, 10674091, 32768 }, { 0.18, 32768, 16777215 } } )

[ukoenig]

Antonio,
Thank You very much.
I didn't see, You changed the Function in the meantime.

It works fine now.

ACTIVATE WINDOW oWnd ;
ON PAINT ChangeColors( oRBar, aGrad )



Best Regards
Uwe

[Antonio Linares]

Uwe,

Very good!

We look forward to use a great tool from you for RibbonBar settings. Surely many of us will use it and appreciate it

[ukoenig]

Antonio,

A little change to Your Function using different Group-Colors and Fonts.
Maybe we still need a defined Font-Color for Background-Contrast.

Code: Select all  Expand view  RUN

// Basic-Settings
// -----------------
oRBar:nClrBoxOut := 128 // Ribbonbar-Outline-Color
oRBar:nClrBoxIn := 0 // Ribbonbar-Inline-Color
oRBar:nClrBoxSelOut := 32768
oRBar:nClrBoxSelIn := 32768
oRBar:aGradFld := { { 1, 16777215, 8293112 } } // Folder-Gradient
oRBar:aGradHigh := { { 1, 2279491, 10674091 } }
oRBar:aGradOver := { { 1, 13873022, 10674091 } }
oRBar:nHeightFld := 30 // Folder-Height

// Store all Settings in a Group-Array
// We use 5 Groups
// ----------------------------------------
PRIVATE aPara[5][4]

aPara[1][1] := { {0.12, 8388608, 16777215 }, { 0.12, 16777215, 8388608 } }
aPara[2][1] := { {0.12, 32768, 16777215 }, { 0.12, 16777215, 32768 } }
aPara[3][1] := { {0.12, 128, 16777215 }, { 0.12, 16777215, 128 } }
aPara[4][1] := { {0.12, 7715788, 16777215 }, { 0.12, 16777215, 7715788 } }
aPara[5][1] := { {0.12, 15987493, 16777215 }, { 0.12, 16777215, 15987493 } }

oFont1 := TFont():New("Arial", ,-15,.F.,.T. , , , ,.T. )
oFont2 := TFont():New("Arial", ,-12,.F.,.T. , , , ,.F. )

aPara[1][2] := oFont1
aPara[2][2] := oFont1
aPara[3][2] := oFont2
aPara[4][2] := oFont2
aPara[5][2] := oFont1

aPara[1][3] := 0
aPara[2][3] := 128
aPara[3][3] := 32768
aPara[4][3] := 0
aPara[5][3] := 32768

SET MESSAGE OF oWnd TO "Testing FWH own Class RibbonBar" ;
CENTERED CLOCK KEYBOARD 2007
   
ACTIVATE WINDOW oWnd ;
ON PAINT ChangeColors( oRBar )
   
oRBar:End()
oFont1:End()
oFont2:End()
   
RETURN NIL

// ----------------------------

FUNCTION ChangeColors( oRb )

local hBmp := GradientBmp( oRb, oRb:nRight - oRb:nRightMargin - 3,;
    oRb:nBottom - oRb:nTopMargin + 1, aPara[1][1])
local n, j, z, oControl, cPos, oFont

oRb:aGrad := aPara[1][1]

DeleteObject( oRb:hBrushEx )
oRb:hBrushEx = CreatePatternBrush( hBmp )
DeleteObject( hBmp )
 
oRb:Refresh()
 
FOR n = 1 to Len( oRb:aDialogs )
   DeleteObject( oRb:aDialogs[ n ]:hBack )
   oRb:aDialogs[ n ]:hBack = oRb:hBrushEx
   IF ! Empty( oRb:aDialogs[ n ]:aControls )
      FOR j = 1 to len( oRb:aDialogs[ n ]:aControls )
         cPOS := Alltrim(Str(j))
         oControl = oRb:aDialogs[ n ]:aControls[ j ]
         IF oControl:ClassName() == "TRBGROUP"
            DeleteObject( oControl:hBrushUnsel )
            hBmp&cPos := GradientBmp( oRb, oRb:nRight - oRb:nRightMargin - 3,;
            oRb:nBottom - oRb:nTopMargin + 1, aPara[j][1] )
            oRb:hBrushEx = CreatePatternBrush( hBmp&cPos )
            DeleteObject( hBmp&cPos )
            oControl:hBrushUnsel = oRb:hBrushEx
            oControl:oFont := aPara[j][2]
            oControl:nClrTxt := aPara[j][3]
            DeleteObject( oControl:hBrushSel )
            oControl:hBrushSel = nil
         ENDIF
      NEXT
  ENDIF
  oRb:aDialogs[ n ]:Refresh()
NEXT

oFont:End()

RETURN NIL
 

Best Regards
Uwe

[James Bott]

Uwe,

Looks great!

I notice that with the last two groups the right and bottom of the background is not transparent. Is this a bug? I wonder why it only affects two groups?

James

[ukoenig]

James,

it is fixed already.
I didn't define all Group-Colors inside the FOR NEXT

Best Regards
Uwe

[ukoenig]

Antonio,

I finished testing the Ribbonbar.
Now I can change any Value I like and it works perfect.

2 Values I couldn't find out, how to change :
1. Tab-Text-Color ( seems to be a System-Color )
2. Bottom-Space to adjust to the Font-Size



Can I change these Values ?

Best Regards
Uwe

[Antonio Linares]

Uwe,

Great work, looks very nice!

We are going to check how to easily change those values, thanks

Are you already working on a new designer ?

[Daniel Garcia-Gil]

Hello Uwe...

> 1. Tab-Text-Color ( seems to be a System-Color )
Actually is not possible change Tab-Text-Color, but is not complicated apply this change...

>2. Bottom-Space to adjust to the Font-Size
yo can try use cText + CRLF + " ", bottom Space adjust automatic when detect more lines, what is the best way? new data with Bottom-Space height ?? or Bottom-Space auto-adjust with Font Height???

Best regards

[ukoenig]

Daniel,

Thank You very much.
The CRLF solved the Problem. For my Test I used a very big Font.



With the Tab-Text-Color I don't know where the Color comes from.
If the Color is always dark, maybe the User has to choose a light Tab_gradient
if the Color cannot be defined ?
But it makes it impossible, to use a dark Background.



Best Regards
Uwe

[ukoenig]

Hello Daniel,

is it possible to disable the Folder-Tabs as a Option ( just a Bar with Groups ) ?

Best Regards
Uwe