Yes, I noticed the difference between the two combo's. With one the ThemedItems is set to true before filling the combo and the other one after the filling of the combo.

 

Is it possible to check this kind of behaviour somewhere? It would be nice that I know this in advance and not asking you everytime  I will be using a lot of settings which will be set to the users needs, so it would be nice if I could check this.

 

Thank you for the answer, now I the how and why

 

Its kind of feature :) If you use ThemedItems you need call it before you add items because ThemedItems =True destroy list, destroy items and create list again.

 

Just paste the code and you will see the behaviour I mentioned.

 

 

Const ID_TOOLBAR_TEST = 400
Const ID_TOOLBAR_COMBOCONTROLITEMS = 401

 

Private Function LoadToolbarItems()
   
    CommandBarSubViews.DeleteAll
    
    Dim toolBarSubViews As CommandBar
    Set toolBarSubViews = CommandBarSubViews.Add("Tools subview", xtpBarTop)
        toolBarSubViews.BarID = 1
        AddButton CommandBarSubViews(1).Controls, xtpControlComboBox, ID_TOOLBAR_COMBOCONTROLITEMS, "", True, "Select item for positioning"
        AddButton CommandBarSubViews(1).Controls, xtpControlComboBox, ID_TOOLBAR_TEST, "Items", True, "Width / height size selected item", xtpButtonIconAndCaption
       
    Dim toolComboTest As CommandBarComboBox
    Set toolComboTest = CommandBarSubViews.FindControl(, ID_TOOLBAR_TEST)
        Dim i As Integer
        For i = 1 To 20
            toolComboTest.AddItem "Select item " & i
        Next i
        toolComboTest.Width = 150
        toolComboTest.ThemedItems = True
        toolComboTest.DropDownWidth = 400

    Dim toolComboControlitems As CommandBarComboBox
    Set toolComboControlitems = CommandBarSubViews.FindControl(, ID_TOOLBAR_COMBOCONTROLITEMS)
        toolComboControlitems.Width = 150
        toolComboControlitems.ThemedItems = True
   
        For i = 1 To 20
            toolComboControlitems.AddItem "Select item " & i
        Next i
   
    CommandBarSubViews.DockToolBar CommandBarSubViews(1), 0, 0, xtpBarTop
    CommandBarSubViews(1).EnableDocking XTPToolBarFlags.xtpFlagHideWrap
    CommandBarSubViews(1).ShowGripper = False
    CommandBarSubViews.Options.ShowExpandButtonAlways = False
   
   
End Function

Private Function AddButton(Controls As CommandBarControls, ControlType As XTPControlType, Id As Long, Caption As String, Optional BeginGroup As Boolean = False, Optional DescriptionText As String = "", Optional ButtonStyle As XTPButtonStyle = xtpButtonAutomatic, Optional Category As String = "Controls") As CommandBarControl
    Dim Control As CommandBarControl
    Set Control = Controls.Add(ControlType, Id, Caption)
   
    Control.BeginGroup = BeginGroup
    Control.DescriptionText = DescriptionText
    Control.Style = ButtonStyle
    Control.Category = Category
    Control.Enabled = True
    Set AddButton = Control
   
End Function

 

 

Change toolComboTest.DropDownWidth = 600 and the other combo takes over this setting.

 

 

Hi,

 

I need some sample to test. Please attach one.

 

 

 

 

Picture 1

 

 

Picture 2

 

 

Notice the width of the dropdown area. I feel an other adventure coming up hahaha. (This is not a laugh of joy...)

 

Yes its true. :-( Can you use Our builtin CommandBarComboBox and Colopicker ?

 

If combobox is in picturebox sometimes the dropdown area of commandbar disappears.

 

Am I missing something here?