METHOD AddGroup( nWidth, cCaption, nDialogs, bAction, cBitmap, aGrad )
local oGroup, nCol := 1, n
local hBmp
DEFAULT nWidth:= 150, cCaption := "", nDialogs := 150
if nDialogs > Len( ::aDialogs ) .or. nDialogs < 1
MsgStop( "Non defined dialogs", "Fivewin: Ribbonbar Support" )
return nil
endif
if !empty( ::aDialogs[ nDialogs ]:aControls )
for n= 1 to Len( ::aDialogs[ nDialogs ]:aControls )
if ::aDialogs[ nDialogs ]:aControls[ n ]:ClassName() == "TRBGROUP"
nCol += ::aDialogs[ nDialogs ]:aControls[ n ]:nWidth + ::nGroupSeparation
endif
next
endif
if aGrad != NIL
hBmp = GradientBmp( Self, ::nRight - ::nRightMargin - 3, ::nBottom - ::nTopMargin + 1, aGrad )
else
hBmp = ::hBmpBrushEx
endif
oGroup := TRBGroup():New( ::aDialogs[ nDialogs ], 1, nCol,;
::aDialogs[ nDialogs ]:nHeight - 3, nWidth, ;
Len( ::aControls )+1, cCaption, bAction , ::nClrBoxIn, ::nClrBoxOut,,;
CreatePatternBrush( hBmp ), , , , Self, ,cBitmap )
if aGrad != NIL
DeleteObject( hBmp )
endif
return oGroupThank you, I will test.
And what about Menu blue colour not the same as msgbar?.
Thanks
Hello
Blue colour is for 2007. For 2010 colour should be the same as msgbar.
Anyway, I need to change menu that its colour is the same as msgbar. Otherwise I can´t use 2010 style.
Please, how can I do?.
Thank you.
Hello
to next fivewin release i will try build a custom skin menu (but i dont promise), for now is not possible, sorry
Hello,
Thank you very much. It would be a great idea.
If not, you can provide full source code of menu, so I can make those changes. I don´t understand why is not included.
Thank you again.
Ukservice,
We will try to modify FWH Class TMenu so it admits custom defined colors 
Thank you Master.
