From 78c04702cb9ad372bb97a337fedafc611cc69312 Mon Sep 17 00:00:00 2001 From: JenneJ Date: Tue, 30 Aug 2016 15:46:04 +0200 Subject: [PATCH] jj 30.08 --- .../frmConstructor_Main.vb | 25 +++++++++++-------- 1 file changed, 14 insertions(+), 11 deletions(-) diff --git a/app/DD-Record-Organiser/frmConstructor_Main.vb b/app/DD-Record-Organiser/frmConstructor_Main.vb index 5fbd7db..894a287 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.vb +++ b/app/DD-Record-Organiser/frmConstructor_Main.vb @@ -1113,20 +1113,23 @@ Public Class frmConstructor_Main #Region "TreeView" 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 - node.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Bold) - node.Text = node.Text - Else - node.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Regular) - End If + If node.IsSelected Then + node.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Bold) + node.Text = node.Text + Else + node.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Regular) + End If - If node.Nodes.Count > 0 Then - SetSelectedNodeStyle(node.Nodes) - End If + If node.Nodes.Count > 0 Then + SetSelectedNodeStyle(node.Nodes) + End If + + Next + End If - Next TreeViewMain.Refresh() End Sub Private Sub NodeRecursive(ByVal n As TreeNode, searchRecord As Integer)