I'm trying to make a dropdownmenu which can be used also as a toolbar and eventually as popupmenu. Just one function which create menu items for all options. I guess it is possible what I want but I can't get it right. Would someone be so kind and look at the code and tell me what to change.

 

  https://forum.codejock.com/uploads/20080821_054620_TestIssues.zip - uploads/20080821_054620_TestIssues.zip

 

 

 

Thanks in advance  

 

https://forum.codejock.com/uploads/20080821_072153_e.zip - uploads/20080821_072153_e.zip

 

Thanks, does this mean it isn't possible with my original idea?

 

When I have more options to add to the dropdown menu, it wouldn't be a bad idea to have a label to let the user know what to expect. But now, with only one option it looks kind of weird...

 

I prefer just to build one menu item which can be used for several options: Menu, Toolbar and PopupMenu so creating a seperate toolbar just with same buttons isn't an option as well.

 

If you think of something else, I mean another idea, you're welcome to share them with me

 

Thanks again Oleg

 

 

Here another solution:

 

Private Sub CommandBars_InitCommandsPopup(ByVal CommandBar As XtremeCommandBars.ICommandBar)
   
    Dim col As XtremeReportControl.ReportColumn
    Dim Control As CommandBarControl, ControlItem As CommandBarControl
    Dim ctrlButton As CommandBarButton
   
    If (Not CommandBar.Parent Is Nothing) Then
   
        If CommandBar.Parent.Id = 1002 Then
            CommandBar.Controls.DeleteAll
            If currentReportVisible.Columns.Count > 0 Then
                For Each col In currentReportVisible.Columns
                    Set ctrlButton = CommandBar.Controls.Add(xtpControlCheckBox, col.ItemIndex + 1 + 1002, col.Caption)
                        ctrlButton.CloseSubMenuOnClick = False
                        ctrlButton.Checked = col.Visible
                Next col
            End If
        End If
    End If
End Sub

replace it in original sample.

 

That's what I was looking for  

 

Thanks a lot.