Derived Component Browser Nodes Default To Top of Tree

[acanx21]

I wish when you derived in a file, rather than just having it appear as the next node, it would show up at the top of the tree. 

We derive reference files into our components often and, while not critical, we will typically move those items to the top of the browser tree to make it easier to see what's already been derived in without having to search through all the features. 

If it could instead default to show up at the top or even better they were inside a folder at the top, that would make it a lot cleaner. 

[acanx21]

ended up writing some code that will cycle through and bring all derived components to the top. needs some work to make it foolproof but putting it on here for now in case this version helps anyone

Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument

Dim oPane As BrowserPane
Set oPane = oDoc.BrowserPanes.Item(3)

Dim oNodes As Object
Set oNodes = oPane.TopNode.BrowserNodes

' Get the browser node that uses this definintion.
Dim oSketchNode As BrowserNode
Set oSketchNode = oPane.TopNode.BrowserNodes.Item(7)

Count = 0

For Each oNode In oNodes
    If oNode.NativeObject Is Nothing Then
        Count = Count + 1
    ElseIf oNode.NativeObject.Type = kDerivedPartComponentObject Then
        If Count = 4 Then
            
        Else
            If oNode.FullPath = oSketchNode.FullPath Then
            
            Else
                Call oPane.Reorder(oSketchNode, True, oNode)
            End If
        End If
    Else
        Count = Count + 1
    End If
Next