using System;
using System.Collections.Generic;
using System.Drawing;
using Telerik.WinControls;
using Telerik.WinControls.UI;

namespace TestNodeColorChange
{
   public partial class RadForm1 : Telerik.WinControls.UI.RadForm
   {
      #region Private Fields

      private string selectedNodeKey = string.Empty;

      #endregion Private Fields

      #region Public Constructors

      public RadForm1()
      {
         InitializeComponent();
         Load += FormLoading;
      }

      #endregion Public Constructors

      #region Private Methods

      private void FormLoading(object sender, EventArgs e)
      {
         List<TreeViewData> list = new List<TreeViewData>()
         {
            new TreeViewData { key = 1, DisplayValue = "Level 1" },
            new TreeViewData { key = 2, parentKey = 1, DisplayValue = "Branch A" },
            new TreeViewData { key = 3, parentKey = 1, DisplayValue = "Branch B" },
            new TreeViewData { key = 4, parentKey = 1, DisplayValue = "Branch C" }
         };

         radTreeView1.ChildMember = "key";
         radTreeView1.DisplayMember = "DisplayValue";
         radTreeView1.ParentMember = "parentKey";
         radTreeView1.DataSource = list;

         radTreeView1.ExpandAll();

         radTreeView1.SelectedNodeChanged += SelectedNodeChanged;
         radTreeView1.NodeFormatting += NodeFormatting;
      }

      private void NodeFormatting(object sender, TreeNodeFormattingEventArgs e)
      {
         if (e.NodeElement is LightVisualElement lve)
         {
            lve.ResetValue(VisualElement.ForeColorProperty, ValueResetFlags.Local);
            lve.ResetValue(VisualElement.FontProperty, ValueResetFlags.Local);

            if (e.Node.Value.ToString() == selectedNodeKey)
            {
               lve.Font = new Font(lve.Font.FontFamily, lve.Font.Size, FontStyle.Bold);
               lve.ForeColor = Color.Purple;
               radTreeView1.NodeFormatting -= NodeFormatting;
               radTreeView1.Refresh();
               radTreeView1.NodeFormatting += NodeFormatting;
               Console.WriteLine("NodeFormatting: " + selectedNodeKey);
               Console.WriteLine("NodeFormatting: " + e.NodeElement.ForeColor.ToString());
               Console.WriteLine("NodeFormatting: " + ((e.NodeElement.Font.Style & FontStyle.Bold) != 0));
            }
         }
      }

      private void SelectedNodeChanged(object sender, RadTreeViewEventArgs e)
      {
         selectedNodeKey = e.Node.Value.ToString();
         Console.WriteLine("SelectedNodeChanged: " + selectedNodeKey);
         radTreeView1.Nodes.Refresh();
      }

      #endregion Private Methods

      #region Internal Classes

      internal class TreeViewData
      {
         #region Public Properties

         public string DisplayValue { get; set; }
         public int key { get; set; }
         public int? parentKey { get; set; }

         #endregion Public Properties
      }

      #endregion Internal Classes
   }
}

private void RadTreeView_BgrTree_DragStarting(object sender, RadTreeViewDragCancelEventArgs e)
{
    if (e.Node is not null)
    {
        oldNodeIndex = e.Node.Index;
        oldNodeParent = CheckForRootNode(e.Node.Parent);
    }
}

private void RadTreeView_BgrTree_DragEnding(object sender, RadTreeViewDragCancelEventArgs e)
{
    IMatrixTarget draggingTarget = e.Node?.Tag as IMatrixTarget;
    Entility newParentEntility = null;
    int indexToInsert = 0;

    void insertInSameParent(int offset)
    {
        if (e.TargetNode.Parent is not null)
            newParentEntility = CheckForRootNode(e.TargetNode.Parent)?.Tag as Entility;
        indexToInsert = e.TargetNode.Index + offset;
    };

    void insertAsChild(int offset)
    {
        if (e.TargetNode is not null)
            newParentEntility = CheckForRootNode(e.TargetNode)?.Tag as Entility;
        indexToInsert = newParentEntility.Childs.Count;
    };

    switch (e.DropPosition)
    {
        case DropPosition.BeforeNode:
            insertInSameParent(0);
            break;
        case DropPosition.AfterNode:
            {
                if (ReferenceEquals(e.TargetNode.Parent, e.Node.Parent))
                {
                    if (draggingTarget is Entility draggingEntility && draggingEntility.Index > e.TargetNode.Index)
                        insertInSameParent(0);
                    else
                        insertInSameParent(-1);
                }
                else if (draggingTarget is Entility && ReferenceEquals(((Entility)draggingTarget).Parent, e.TargetNode.Tag))
                    insertAsChild(-1);
                else
                    insertAsChild(0);
                break;
            }
        case DropPosition.AsChildNode:
            insertAsChild(0);
            break;
    }

    if (newParentEntility is not null)
    {
        try
        {
            if (draggingTarget is Einfluss)
                Controller.MoveIMatrixTarget(draggingTarget, indexToInsert);
            else if (draggingTarget is Entility entility)
                Controller.SetNewEntilityParent(newParentEntility, new[] { entility }, indexToInsert, false, false);
        }
        catch (Exception)
        {
            e.Cancel = true;
        }
    }
}

this.wellTreeView = new RadTreeView();
BindingList<Well> wells = new BindingList<Well>() { well };

this.wellTreeView.DataSource = wells;
this.wellTreeView.DisplayMember = "name\\name\\name";
this.wellTreeView.ChildMember = "wells\\layers\\items";

RadTreeNode node = wellTreeView.Nodes[0];

public class Well
{
    public string name {get; set;}
    public List<Layer> layers {get; set;}
}

public class Layer
{
    public string name {get; set;};
    public List<Item> items {get; set;}
}

public class Item
{
    public string name {get; set;};
    public decimal length {get; set;}
}

        Private Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
        Dim filePath As String = "20230824.124217\20230824.1242174616\00001.tif"
        Dim filenode As String() = filePath.Split("\")
        Dim addNode As String = ""
        For i = 0 To filenode.Count - 1
            If addNode = "" Then
                addNode = filenode(i)
            Else
                addNode = addNode & "\" & filenode(i)
            End If
            Dim searchKey As String = addNode
            Dim nodeExists As Boolean = CheckNodeExists(RadTreeView1.Nodes, searchKey)
            If Not nodeExists Then
                RadTreeView1.ForeColor = Color.Red

                Dim folderNode As RadTreeNode = New RadTreeNode()

                folderNode.ForeColor = System.Drawing.Color.Green

                RadTreeView1.AddNodeByPath(addNode)
            End If
        Next
        RadTreeView1.Update()
        RadTreeView1.Refresh() 
      End Sub

   
     Private Function CheckNodeExists(nodes As RadTreeNodeCollection, searchKey As String) As Boolean
        For Each node As RadTreeNode In nodes
            If node.FullPath = searchKey Then
                ' Node found
                Return True
            End If

            ' Recursively check child nodes
            If node.Nodes.Count > 0 Then
                If CheckNodeExists(node.Nodes, searchKey) Then
                    Return True
                End If
            End If
        Next

        ' Node not found
        Return False
    End Function