HI

I have the same problem as Keltyx. I tried it with the solution from Mike but it didn't work. Is there a other solution for this problem.

GetPopupGalleryTool(KEY_PG_DATAINPUT_TEMPLATESELECTION).SelectedItemKey = m_oRibbonMenuViewModel.Template

If Not GetPopupGalleryTool(KEY_PG_DATAINPUT_TEMPLATESELECTION).UIElement Is Nothing Then
      GetPopupGalleryTool(KEY_PG_DATAINPUT_TEMPLATESELECTION).SelectedItem.BringIntoView(GetPopupGalleryTool(KEY_PG_DATAINPUT_TEMPLATESELECTION).SharedProps.ToolInstances(0), Nothing, GalleryArea.Preview)

End If

Private Function GetPopupGalleryTool(ByVal i_strKey As String) As PopupGalleryTool

    Return CType(tbChannelPreCalc.Tools(i_strKey), PopupGalleryTool)

End Function

UIElement will always be null on the tool returned from GetPopupGalleryTool, so your code will never enter the If block. That is because GetPopupGalleryTool returns a root tool, which is never actually displayed, but which is used as a place to hold shared properties for instance tools with the same type and key. You really want to check the UIElement of an instance tool. I also suggest caching that tool in a local variable so you don't have to call GetPopupGalleryTool mulitple times. Here is how I might rewrite your code to make this work:

Dim rootTool As ToolBase = GetPopupGalleryTool(KEY_PG_DATAINPUT_TEMPLATESELECTION)Dim instanceTool As ToolBase = rootTool.SharedProps.ToolInstances(0)

rootTool.SelectedItemKey = m_oRibbonMenuViewModel.Template

If Not instanceTool.UIElement Is Nothing Then
    rootTool.SelectedItem.BringIntoView(instanceTool, Nothing, GalleryArea.Preview)
End If

Private Function GetPopupGalleryTool(ByVal i_strKey As String) As PopupGalleryTool
    Return CType(tbChannelPreCalc.Tools(i_strKey), PopupGalleryTool)
End Function

Hi

Thank you for the fast answer. I tried it with your code snipped but the popupgallery still shows the item which i have selected with the mouse. The BringIntoView function is called but it has no effect on the gallery.

Hi,

Today I have installed the newest version an this issue still exists. Do you have any plans to fix it ? I think it should be possible to fix at a time span of 5 years.

regards,

Christian

This issue has been submitted to our development team for review and you will receive more information regarding the issue from the support case that has been opened for you.

Ok, after looking into this some more, it looks like an item can be hidden from the preview area if your gallery uses groups and the item doesn't belong to any group. It can also be hidden if the gallery contains filters and a filter is selected which doesn't include the item. Unfortunately, it doesn't look like there's an easy way to determine the visible items in the preview area. This can be considered a bug. I have forwarded this post to the Developer Support Manager and a DS engineer will be contacting you about this issue.

Hello Mike,

I have a a function in my Project wich is called WritePropertiestoScreen. This Function is called if i change somthing in my UI. In this this function i clear all the items from the PopUpGallery after that i fill it new.  After that i check if a Item with the key xy existis in the Gallery.

 If GetPopupGalleryTool(KEY_PG_CALCULATION_FIXPOINT).Items.Count > 0And Not IsNothing(m_oRibbonMenuViewModel.Fixpoint) Then
      GetPopupGalleryTool(KEY_PG_CALCULATION_FIXPOINT).SelectedItem = (From i As GalleryToolItem In GetPopupGalleryTool(KEY_PG_CALCULATION_FIXPOINT).Items _
                                                                       Where i.Key = m_oRibbonMenuViewModel.Fixpoint).FirstOrDefault()
      m_bDoAgain = Not BringIntoViewSelectedPopUpGalleryItem(KEY_PG_CALCULATION_FIXPOINT)
    End If

Private Function BringIntoViewSelectedPopUpGalleryItem(ByVal i_strPopUpGalleryKey As String) As Boolean
    Dim bRet As Boolean = True
    If Not tbFixpoint.MdiParentManager Is Nothing Then
      Dim rootTool As PopupGalleryTool = CType(tbFixpoint.MdiParentManager.MergedTools.Item(i_strPopUpGalleryKey), PopupGalleryTool)
      For Each instanceTool As ToolBase In rootTool.SharedProps.ToolInstances
        If Not instanceTool.UIElement Is Nothing And TypeOf instanceTool Is PopupGalleryTool Then
          Try
            If GetPopupGalleryTool(i_strPopUpGalleryKey).Owner.Visible And CType(instanceTool, PopupGalleryTool).Items.Contains(rootTool.SelectedItem) Then
              rootTool.SelectedItem.BringIntoView(instanceTool, Nothing, GalleryArea.Preview)
            Else
              bRet = False
            End If
          Catch ex As Exception
            bRet = False
          End Try
        Else
          bRet = False
        End If
      Next
    End If
    Return bRet
  End Function

The m_bDoAgain is for the timer. I have a timer and if m_bDoAgain is true i call the function BringIntoView again.

Hello Mike,

I have a a function in my Project wich is called WritePropertiestoScreen. This Function is called if i change somthing in my UI. In this this function i clear all the items from the PopUpGallery after that i fill it new.  After that i check if a Item with the key xy existis in the Gallery.

 If GetPopupGalleryTool(KEY_PG_CALCULATION_FIXPOINT).Items.Count > 0And Not IsNothing(m_oRibbonMenuViewModel.Fixpoint) Then
      GetPopupGalleryTool(KEY_PG_CALCULATION_FIXPOINT).SelectedItem = (From i As GalleryToolItem In GetPopupGalleryTool(KEY_PG_CALCULATION_FIXPOINT).Items _
                                                                       Where i.Key = m_oRibbonMenuViewModel.Fixpoint).FirstOrDefault()
      m_bDoAgain = Not BringIntoViewSelectedPopUpGalleryItem(KEY_PG_CALCULATION_FIXPOINT)
    End If

Private Function BringIntoViewSelectedPopUpGalleryItem(ByVal i_strPopUpGalleryKey As String) As Boolean
    Dim bRet As Boolean = True
    If Not tbFixpoint.MdiParentManager Is Nothing Then
      Dim rootTool As PopupGalleryTool = CType(tbFixpoint.MdiParentManager.MergedTools.Item(i_strPopUpGalleryKey), PopupGalleryTool)
      For Each instanceTool As ToolBase In rootTool.SharedProps.ToolInstances
        If Not instanceTool.UIElement Is Nothing And TypeOf instanceTool Is PopupGalleryTool Then
          Try
            If GetPopupGalleryTool(i_strPopUpGalleryKey).Owner.Visible And CType(instanceTool, PopupGalleryTool).Items.Contains(rootTool.SelectedItem) Then
              rootTool.SelectedItem.BringIntoView(instanceTool, Nothing, GalleryArea.Preview)
            Else
              bRet = False
            End If
          Catch ex As Exception
            bRet = False
          End Try
        Else
          bRet = False
        End If
      Next
    End If
    Return bRet
  End Function

The m_bDoAgain is for the timer. I have a timer and if m_bDoAgain is true i call the function BringIntoView again.