Gallery and Checked Item

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   How can I use the CheckedItem property? I have a gallery of icons and I am unable to get it to work. How can I display the 2nd item as checkeditem?

I was trying to use this example code snippet.

    Set GroupStyles = TabWrite.Groups.AddGroup("&Styles", ID_GROUP_STYLES)
    Dim GalleryStyles As CommandBarGallery

    Set ItemsStyles = CommandBars.CreateGalleryItems(ID_GALLERY_STYLES)
    ItemsStyles.Icons = ImageManagerGalleryStyles.Icons
    ItemsStyles.ItemWidth = 72
    ItemsStyles.ItemHeight = 56

    For i = 1 To 16
        ItemsStyles.AddItem i, ""
    Next i

    Set GalleryStyles = GroupStyles.Add(xtpControlGallery, ID_GALLERY_STYLES, "Styles")
    GalleryStyles.Width = 235
    GalleryStyles.SetItemsMargin 0, 1, 0, 1
    GalleryStyles.ShowLabels = False
    GalleryStyles.ShowBorders = True
    Set GalleryStyles.Items = ItemsStyles
    GalleryStyles.CheckedItem = 2 ' this does not work  

    Dim GalleryPopupBar As CommandBar
    Set GalleryPopupBar = CommandBars.Add("Styles", xtpBarPopup)

    GalleryStyles.CommandBar = GalleryPopupBar

    Set GalleryStyles = GalleryPopupBar.Controls.Add(xtpControlGallery, ID_GALLERY_STYLES, "Styles")
    GalleryStyles.Width = 235 + 72
    GalleryStyles.Height = 56 * 3 + 2

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
rupert Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 28 August 2007 Location: United States Status: Offline Points: 13	Post Options Post Reply Quote rupert Report Post Thanks(0) Quote Reply Topic: Gallery and Checked Item Posted: 28 August 2007 at 7:23pm
	How can I use the CheckedItem property? I have a gallery of icons and I am unable to get it to work. How can I display the 2nd item as checkeditem? I was trying to use this example code snippet. Set GroupStyles = TabWrite.Groups.AddGroup("&Styles", ID_GROUP_STYLES) Dim GalleryStyles As CommandBarGallery Set ItemsStyles = CommandBars.CreateGalleryItems(ID_GALLERY_STYLES) ItemsStyles.Icons = ImageManagerGalleryStyles.Icons ItemsStyles.ItemWidth = 72 ItemsStyles.ItemHeight = 56 For i = 1 To 16 ItemsStyles.AddItem i, "" Next i Set GalleryStyles = GroupStyles.Add(xtpControlGallery, ID_GALLERY_STYLES, "Styles") GalleryStyles.Width = 235 GalleryStyles.SetItemsMargin 0, 1, 0, 1 GalleryStyles.ShowLabels = False GalleryStyles.ShowBorders = True Set GalleryStyles.Items = ItemsStyles GalleryStyles.CheckedItem = 2 ' this does not work Dim GalleryPopupBar As CommandBar Set GalleryPopupBar = CommandBars.Add("Styles", xtpBarPopup) GalleryStyles.CommandBar = GalleryPopupBar Set GalleryStyles = GalleryPopupBar.Controls.Add(xtpControlGallery, ID_GALLERY_STYLES, "Styles") GalleryStyles.Width = 235 + 72 GalleryStyles.Height = 56 * 3 + 2

Oleg Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 21 May 2003 Location: United States Status: Offline Points: 11234	Post Options Post Reply Quote Oleg Report Post Thanks(0) Quote Reply Posted: 03 September 2007 at 5:56am
	Hi, Have to work. Think you modified our sample which is reset CheckedItem in Update handler.
	Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS