IntegralUI TreeListView User Guide - Lidor Systems
IntegralUI TreeListView User Guide - Lidor Systems
IntegralUI TreeListView User Guide - Lidor Systems
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
How to create alternate look of nodes<br />
You can create standalone styles which in appropriate conditions can be applied to specific nodes.<br />
For example, every node with an even index can have one appearance and every node with odd<br />
index can have another appearance. But instead of changing the colors for every node, you need<br />
only to create two color styles, one style for the even rows and other for the odd rows.<br />
Here is a sample code that creates node list with alternate look:<br />
[VB]<br />
Imports <strong>Lidor</strong><strong>Systems</strong>.<strong>IntegralUI</strong>.Lists<br />
Imports <strong>Lidor</strong><strong>Systems</strong>.<strong>IntegralUI</strong>.Lists.Style<br />
. . .<br />
Private Sub ApplyAlternateLook()<br />
' Create the even color style<br />
Dim evenNodeStyle As New ListItemColorStyle()<br />
evenNodeStyle.BackColor = Color.WhiteSmoke<br />
evenNodeStyle.FillStyle = FillStyle.Horizontal<br />
' Create the odd color style<br />
Dim oddNodeStyle As New ListItemColorStyle()<br />
oddNodeStyle.BackColor = Color.Gainsboro<br />
oddNodeStyle.FillStyle = FillStyle.Horizontal<br />
' Cycle through all nodes and apply style changes<br />
For Each node As <strong>Lidor</strong><strong>Systems</strong>.<strong>IntegralUI</strong>.Lists.<strong>TreeListView</strong>Node In<br />
Me.treeListView1.FlatNodes<br />
CreateSubItems(node, node.FlatIndex.ToString())<br />
' When you use individual styles for an node<br />
' the StyleFromParent needs to be set to False<br />
node.StyleFromParent = False<br />
If node.FlatIndex Mod 2 = 0 Then<br />
node.NormalStyle = evenNodeStyle<br />
Else<br />
node.NormalStyle = oddNodeStyle<br />
End If<br />
Next<br />
' Update the control<br />
Me.treeListView1.UpdateLayout()<br />
End Sub<br />
Private Sub CreateSubItems(ByVal parentNode As <strong>TreeListView</strong>Node, ByVal sufix As<br />
String)<br />
' Create subitems for specified node<br />
Dim subItem As <strong>TreeListView</strong>SubItem = Nothing<br />
For j As Integer = 0 To Me.treeListView1.Columns.Count - 1<br />
subItem = New <strong>TreeListView</strong>SubItem(("Item " & sufix) + j.ToString())<br />
parentNode.SubItems.Add(subItem)<br />
Next<br />
End Sub<br />
[C#]<br />
using <strong>Lidor</strong><strong>Systems</strong>.<strong>IntegralUI</strong>.Lists;<br />
20