You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
68 lines
3.4 KiB
68 lines
3.4 KiB
|
|
'Private Sub FilenameList_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FilenameList.LostFocus
|
|
' UpdateFilenames()
|
|
'End Sub
|
|
|
|
'Private Sub RefreshSelectedFilenameTree_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) handles Refr
|
|
' SelectedComponentTree.Nodes.Clear()
|
|
' XComponent2SelectedComponentNode.Clear()
|
|
' UpdateSelectedComponents()
|
|
'End Sub
|
|
|
|
'#If 0 Then
|
|
' If XComponent2SelectedComponentNode(Component) Is Nothing Then
|
|
' ComponentNode = SelectedComponentTree.Nodes.Add(Component.DisplayName)
|
|
' XComponent2SelectedComponentNode(Component) = ComponentNode
|
|
' XSelectedComponentNode2Component(ComponentNode) = Component
|
|
' If XComponent2FilenameList(Component) Is Nothing Then
|
|
' FileNode = ComponentNode.Nodes.Add("(component not yet unkooked)")
|
|
' Dim NodeFont As Font
|
|
' NodeFont = FileNode.NodeFont
|
|
' If NodeFont Is Nothing Then
|
|
' NodeFont = SelectedComponentTree.Font
|
|
' End If
|
|
' FileNode.NodeFont = New Font(NodeFont, NodeFont.Style + FontStyle.Italic)
|
|
' Else
|
|
' For Each Filename In XComponent2FilenameList(Component)
|
|
' FileNode = ComponentNode.Nodes.Add(Filename)
|
|
' If Filenames.ContainsKey(Filename) Then
|
|
' Dim NodeFont As Font
|
|
' NodeFont = FileNode.NodeFont
|
|
' If NodeFont Is Nothing Then
|
|
' NodeFont = SelectedComponentTree.Font
|
|
' End If
|
|
' FileNode.NodeFont = New Font(NodeFont, NodeFont.Style + FontStyle.Bold)
|
|
' End If
|
|
' Next
|
|
' End If
|
|
' End If
|
|
' If Not XObject2NodeList(Component) Is Nothing Then
|
|
' For Each ComponentNode In XObject2NodeList(Component)
|
|
' ComponentNode.Checked = True
|
|
' Next
|
|
' End If
|
|
' Next
|
|
|
|
' ' remove nodes for components no longer selected
|
|
' Dim Marked As ArrayList : Marked = New ArrayList()
|
|
' For Each Component In XComponent2SelectedComponentNode.Keys
|
|
' If Not SelectedComponents.ContainsKey(Component) Then
|
|
' Marked.Add(Component)
|
|
' ComponentNode = XComponent2SelectedComponentNode(Component)
|
|
' SelectedComponentTree.Nodes.Remove(ComponentNode)
|
|
' XSelectedComponentNode2Component.Remove(ComponentNode)
|
|
' End If
|
|
' Next
|
|
' For Each Component In Marked
|
|
' XComponent2SelectedComponentNode.Remove(Component)
|
|
' If Not XObject2NodeList(Component) Is Nothing Then
|
|
' For Each ComponentNode In XObject2NodeList(Component)
|
|
' ComponentNode.Checked = False
|
|
' Next
|
|
' End If
|
|
' Next
|
|
' If Marked.Count > 0 Then
|
|
' UpdateCheckedFiles()
|
|
' End If
|
|
|
|
'#End If
|