REQUEST: Reference an inplacebutton?

Hi,

Hi,

Hi,

1. When dynamically adding buttons you don't know it's index (it could, but I don't want to keep record of what buttons are added and on which location).
2. If you change the position of the button (when adding the button) you have change the code in all events as well. I do a lot of changes before I'm satisfied how it looks

The PropertyGridItems and InPlaceButtons are both collections that you can loop through to find the button with the correct ID.  You can use a  function like:

Private Function getInPlaceButton(p_objPG As XtremePropertyGrid.PropertyGrid, p_lngButtonID As Long) As XtremePropertyGrid.PropertyGridInplaceButton
    Dim objItem As XtremePropertyGrid.PropertyGridItem
    Dim objButton As XtremePropertyGrid.PropertyGridInplaceButton
    Dim objFoundButton As XtremePropertyGrid.PropertyGridInplaceButton

    On Error GoTo getInPlaceButton_Error

    'loop through all propertygriditems in propertygrid
    For Each objItem In p_objPG.Categories
        'loop through all inplacebuttons in propertygriditem
        For Each objButton In objItem.InplaceButtons
            'if matching buttonid is found, return inplacebutton and break loops
            If (objButton.Id = p_lngButtonID) Then
                Set objFoundButton = objButton
                Exit For
            End If
        Next
       
        'break category loop if button was found
        If (Not (objFoundButton Is Nothing)) Then
            Exit For
        End If
    Next

    Set objItem = Nothing
    Set objButton = Nothing
    Set getInPlaceButton = objFoundButton

    On Error GoTo 0
    Exit Function

getInPlaceButton_Error:
End Function



This will give you access to the button with the specific ID.  You can then access the Index property to do you delete.  Replace your delete event in your sample project with:

Private Sub Command1_Click()
    wndPropertyGrid.FindItem("Item").InplaceButtons.Remove getInPlaceButton(wndPropertyGrid, 520).index + 1
    wndPropertyGrid.FindItem("Item").Selected = True
End Sub



For some reason, a button reports its own index as 1 off compared to the index of the collection, that is the reason for the "+ 1".  This delete will generate an error if the button id doesn't exist.  You will want to check for that. You can also optimize the getInPlaceButton() code if you already know or have access to the appropriate PropertyGridItem record.

Thanks.

oleg wrote: yes, maybe :( will check it.