Command Bars - Ribbonbar: ControlsGrouping & IconId

Hi everybody,

in attachment a simple sample code in vb6 with CJ Commandbars Control release 15.3.1.

There is only one Form in the project, with a commanbar and a imagemanager controls in it.

The code simply create a Ribbon with a Tab and two Group. The Groups have some xtpControlButton inside.

All the code is in just the following 2 function:

1) LoadIcons - load some bmp and ico in the imagemanager; for some of the Command Id in the imagemanager two bmp with different size (i.e. 16x16 and 32x32 pixel) are loaded.

2) CreateRibbonBar - create Ribbon, Tab, Groups and Buttons.

In the CreateRibbonBar the Groups are created in the following CreateGroup subroutine:

CreateGroup:

Set RibGroup = RibTab.Groups.AddGroup(GroupName$, Groupid&)

'Issue 1: IconId have not effect

RibGroup.IconId = ID_Button1

'Issue 1: If you activate controls grouping, small icons are used also if there is room for large icons.

RibGroup.ControlsGrouping = ControlsGrouping

Return

There are 2 issue in this code:

1) I set IconId property for the group but when the Group collapse the there isn't a bmp in the PopupButton. What's wrong ?

2) If i activate controls grouping (set the ControlGrouping boolean to true in the code) all the icons are showed little (16x16) also if there is a bigger icons loaded and there is enough space in the ribbon to house 32x32 icons. Is there some way to have dinamically scaling of the icons with the ControlGrouping ?

Thanks in advance and Best Regards

Maurizio Fichera