AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj 30.08

Browse Source
This commit is contained in:
JenneJ
2016-08-30 15:46:04 +02:00
parent dd70c9e8de
commit 78c04702cb
1 changed files with 14 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -1113,20 +1113,23 @@ Public Class frmConstructor_Main
#Region "TreeView" #Region "TreeView"
Public Sub SetSelectedNodeStyle(tncoll As TreeNodeCollection) Public Sub SetSelectedNodeStyle(tncoll As TreeNodeCollection)
For Each node As TreeNode In tncoll If NODE_NAVIGATION = False Then
For Each node As TreeNode In tncoll
If node.IsSelected Then If node.IsSelected Then
node.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Bold) node.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Bold)
node.Text = node.Text node.Text = node.Text
Else Else
node.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Regular) node.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Regular)
End If End If
If node.Nodes.Count > 0 Then If node.Nodes.Count > 0 Then
SetSelectedNodeStyle(node.Nodes) SetSelectedNodeStyle(node.Nodes)
End If End If
Next
End If
Next
TreeViewMain.Refresh() TreeViewMain.Refresh()
End Sub End Sub
Private Sub NodeRecursive(ByVal n As TreeNode, searchRecord As Integer) Private Sub NodeRecursive(ByVal n As TreeNode, searchRecord As Integer)