Ribbonbar and Group-Image / Brush-backgrounds

[ukoenig]

Hello,

after some tests and calculations :
Images / brushes adjusted to groupsize including any controls in combination to normal style ( Group 1 ).



Best Regards
Uwe

[Silvio]

Uwe,
I sent to Antonio Linares My RibbonBar Designer, perhaps he'll add it on next fwh Release....
the Designer create a source code of ribbonbar only inserting the value oRbar:ldesigner:=.t. on your ribbonbar
It run ok with old source code because I made a scanner method to load ribbon commands

[ukoenig]

Silvio,

my final result with all possible backgrounds.
Many calculations are needed. I think it is not possible,
to cover this with a painter, it is to special.



Best Regards
Uwe

[Silvio]

because I add some methods also on ribbon,trbgroup and trbtn ....
try to change the size of group and refresh it or del an separator ...

[ukoenig]

You can include Explorerbars inside a Ribbonbar.

1. use a oversized Ribbonbar-height to design the Explorerbar.
2. resize the Ribbonbar. The Explorerbar shows a vertical Scrollbar.

Design-mode :



Final height :



DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT "Configuración", "Ficheros", "Informes", "Ayudas" HEIGHT 150 TOPMARGIN 25
...
...

// --------- 7 Explorerbar --------------

ADD GROUP oGr6 RIBBON oRBar TO OPTION 1 PROMPT "VTitle" WIDTH 150

oExBar1 = TExplorerBar():New( -5, 0, 145, 115, oGr6 ) // Width, Height
oExBar1:oFont := oFont2

oPanel1 = oExBar1:AddPanel( "One", ".\bitmaps\32x32\notes.bmp", 80 ) // Height
oPanel1:lSpecial = .T.
oPanel1:oFont := oFont2

oPanel1:AddLink( "First", bClick, ".\bitmaps\32x32\fax.bmp", 10, 40, oFont2 ) // Added from Silvio
oPanel1:AddLink( "Second", bClick, ".\bitmaps\32x32\edit.bmp", 15, 40, oFont2 )

oPanel2 = oExBar1:AddPanel( "Two", ".\bitmaps\32x32\notes.bmp", 80 ) // Height
oPanel2:lSpecial = .T.
oPanel2:oFont := oFont2

oPanel2:AddLink( "Third", bClick, ".\bitmaps\32x32\keys.bmp", 10, 40, oFont2 )
oPanel2:AddLink( "Fourth", bClick, ".\bitmaps\32x32\magic.bmp", 15, 40, oFont2 )

oPanel2:Move( 140 )

oPanel3 = oExBar1:AddPanel( "Three", ".\bitmaps\32x32\notes.bmp", 80 ) // Height
oPanel3:lSpecial = .T.
oPanel3:oFont := oFont2

oPanel3:AddLink( "Third", bClick, ".\bitmaps\32x32\attach.bmp", 10, 40, oFont2 )
oPanel3:AddLink( "Fourth", bClick, ".\bitmaps\32x32\check.bmp", 15, 40, oFont2 )

oPanel3:Move( 265 )

oPanel4 = oExBar1:AddPanel( "Four", ".\bitmaps\32x32\notes.bmp", 80 ) // Height
oPanel4:lSpecial = .T.
oPanel4:oFont := oFont2

oPanel4:AddLink( "First", bClick, ".\bitmaps\32x32\graphics.bmp", 10, 40, oFont2 )
oPanel4:AddLink( "Second", bClick, ".\bitmaps\32x32\screen.bmp", 15, 40, oFont2 )

oPanel4:Move( 390 )

Best Regards
Uwe