21:
How do I get the caption of the cell/item from the point

/*begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse.*/
/*
	OleObject var_Object
	oExplorerTree = ole_1.Object
	var_Object = oExplorerTree.GroupListFromPoint(-1,-1)
*/
/*end event MouseMove*/

OleObject oExplorerTree,var_Group,var_Group1,var_Items,var_Items1

oExplorerTree = ole_1.Object
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Group 1")
	var_Group.HeaderVisible = true
	var_Group.Columns.Clear()
	var_Group.Columns.Add("Number")
	var_Group.Columns.Add("Round").ComputedField = "round(%0)"
	var_Items = var_Group.Items
		var_Items.AddItem("-1.98")
		var_Items.AddItem("0.99")
		var_Items.AddItem("1.23")
		var_Items.AddItem("2.34")
	var_Group.Expanded = true
var_Group1 = oExplorerTree.Groups.Add("Group 2")
	var_Group1.HeaderVisible = true
	var_Group1.Columns.Clear()
	var_Group1.Columns.Add("Number")
	var_Group1.Columns.Add("Round").ComputedField = "round(%0)"
	var_Items1 = var_Group1.Items
		var_Items1.AddItem("-1.98")
		var_Items1.AddItem("0.99")
		var_Items1.AddItem("1.23")
		var_Items1.AddItem("2.34")
	var_Group1.Expanded = true
oExplorerTree.EndUpdate()

20:
How can I ensure that a specified item is visible

OleObject oExplorerTree,var_Group,var_Groups,var_Items,var_Items1
any h

oExplorerTree = ole_1.Object
oExplorerTree.BeginUpdate()
var_Groups = oExplorerTree.Groups
	var_Group = var_Groups.Add("Group")
		var_Group.Expanded = true
		var_Items = var_Group.Items
			var_Items.AddItem("Item")
			var_Items.AddItem("Item")
			var_Items.AddItem("Item")
			var_Items.AddItem("Item")
		var_Group.PutItems(var_Group.GetItems(0),0)
		var_Group.PutItems(var_Group.GetItems(0),0)
		var_Group.Items.AddItem("Ensure")
var_Items1 = oExplorerTree.Groups.Item(0).Items
	h = var_Items1.ItemByIndex(16)
	var_Items1.ItemBackColor(h,RGB(255,255,0))
	var_Items1.EnsureVisibleItem(h)
oExplorerTree.EndUpdate()

19:
is it possible to display icons in the control's shortcut bar

OleObject oExplorerTree,var_Groups

oExplorerTree = ole_1.Object
oExplorerTree.BeginUpdate()
oExplorerTree.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerTree.ShowShortcutBar = true
var_Groups = oExplorerTree.Groups
	var_Groups.Add("Group A.1").Shortcut = "<img>1</img> First Group"
	var_Groups.Add("Group A.2").Shortcut = "<img>1</img> First Group"
	var_Groups.Add("Group B.1").Shortcut = "<img>2</img> Second Group"
	var_Groups.Add("Group B.2").Shortcut = "<img>2</img> Second Group"
	var_Groups.Add("Group B.3").Shortcut = "<img>2</img> Second Group"
oExplorerTree.EndUpdate()

18:
How can I display the control's shortcut bar

OleObject oExplorerTree,var_Groups

oExplorerTree = ole_1.Object
oExplorerTree.BeginUpdate()
oExplorerTree.ShowShortcutBar = true
var_Groups = oExplorerTree.Groups
	var_Groups.Add("Group A.1").Shortcut = "A"
	var_Groups.Add("Group A.2").Shortcut = "A"
	var_Groups.Add("Group B.1").Shortcut = "B"
	var_Groups.Add("Group B.2").Shortcut = "B"
	var_Groups.Add("Group B.3").Shortcut = "B"
oExplorerTree.EndUpdate()

17:
Can I display the cell's check box after the text

OleObject oExplorerTree,var_Column,var_Group,var_Items

oExplorerTree = ole_1.Object
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.Expanded = true
	var_Column = var_Group.Columns.Item(0)
		var_Column.Def(0,true)
		var_Column.Def(34,"caption,check")
	var_Items = var_Group.Items
		var_Items.CellHasCheckBox(var_Items.AddItem("Caption 1"),0,true)
		var_Items.CellHasCheckBox(var_Items.AddItem("Caption 2"),0,true)
oExplorerTree.EndUpdate()

16:
Can I change the order of the parts in the cell, as checkbox after the text, and so on

OleObject oExplorerTree,var_Group,var_Items
any h

oExplorerTree = ole_1.Object
oExplorerTree.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.Expanded = true
	var_Group.Columns.Item(0).Def(34,"caption,check,icon,icons,picture")
	var_Items = var_Group.Items
		h = var_Items.AddItem("Text")
		var_Items.CellImage(h,0,1)
		var_Items.CellHasCheckBox(h,0,true)
oExplorerTree.EndUpdate()

15:
Can I have an image displayed after the text. Can I get that effect without using HTML content

OleObject oExplorerTree,var_Group,var_Items
any h

oExplorerTree = ole_1.Object
oExplorerTree.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.Expanded = true
	var_Group.Columns.Item(0).Def(34,"caption,icon,check,icons,picture")
	var_Items = var_Group.Items
		h = var_Items.AddItem("Text")
		var_Items.CellImage(h,0,1)
oExplorerTree.EndUpdate()

14:
How do I enable the filter prompt feature

OleObject oExplorerTree,var_Columns,var_Group,var_Items
any h0

oExplorerTree = ole_1.Object
oExplorerTree.BeginUpdate()
oExplorerTree.Groups.Add("Group 1")
var_Group = oExplorerTree.Groups.Add("Group 2")
	var_Group.AutoHeight = true
	var_Group.HeaderVisible = true
	var_Group.Columns.Clear()
	var_Group.ColumnAutoResize = true
	var_Group.ContinueColumnScroll = false
	var_Group.MarkSearchColumn = false
	var_Group.SearchColumnIndex = 1
	var_Group.FilterBarPromptVisible = true
	var_Columns = var_Group.Columns
		var_Columns.Add("Name").Width = 96
		var_Columns.Add("Title").Width = 96
		var_Columns.Add("City")
	var_Items = var_Group.Items
		h0 = var_Items.AddItem("Nancy Davolio")
		var_Items.CellCaption(h0,1,"Sales Representative")
		var_Items.CellCaption(h0,2,"Seattle")
		h0 = var_Items.AddItem("Andrew Fuller")
		var_Items.CellCaption(h0,1,"Vice President, Sales")
		var_Items.CellCaption(h0,2,"Tacoma")
		var_Items.SelectItem(h0,true)
		h0 = var_Items.AddItem("Janet Leverling")
		var_Items.CellCaption(h0,1,"Sales Representative")
		var_Items.CellCaption(h0,2,"Kirkland")
		h0 = var_Items.AddItem("Margaret Peacock")
		var_Items.CellCaption(h0,1,"Sales Representative")
		var_Items.CellCaption(h0,2,"Redmond")
		h0 = var_Items.AddItem("Steven Buchanan")
		var_Items.CellCaption(h0,1,"Sales Manager")
		var_Items.CellCaption(h0,2,"London")
		h0 = var_Items.AddItem("Michael Suyama")
		var_Items.CellCaption(h0,1,"Sales Representative")
		var_Items.CellCaption(h0,2,"London")
		h0 = var_Items.AddItem("Robert King")
		var_Items.CellCaption(h0,1,"Sales Representative")
		var_Items.CellCaption(h0,2,"London")
		h0 = var_Items.AddItem("Laura Callahan")
		var_Items.CellCaption(h0,1,"Inside Sales Coordinator")
		var_Items.CellCaption(h0,2,"Seattle")
		h0 = var_Items.AddItem("Anne Dodsworth")
		var_Items.CellCaption(h0,1,"Sales Representative")
		var_Items.CellCaption(h0,2,"London")
	var_Group.Expanded = true
oExplorerTree.Groups.Add("Group 3")
oExplorerTree.EndUpdate()

13:
Can I specify unsortable items

OleObject oExplorerTree,var_Columns,var_Group,var_Items
any h,h1

oExplorerTree = ole_1.Object
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.AutoHeight = true
	var_Group.HeaderVisible = true
	var_Group.Columns.Clear()
	var_Group.HasLines = 0
	var_Group.ScrollBySingleLine = true
	var_Group.MarkSearchColumn = false
	var_Columns = var_Group.Columns
		var_Columns.Add("Name")
		var_Columns.Add("A")
		var_Columns.Add("B")
		var_Columns.Add("C")
	var_Items = var_Group.Items
		h = var_Items.AddItem("Group 1")
		var_Items.CellHAlignment(h,0,1)
		var_Items.ItemDivider(h,0)
		var_Items.ItemDividerLineAlignment(h,3)
		var_Items.ItemHeight(h,24)
		var_Items.SortableItem(h,false)
		h1 = var_Items.InsertItem(h,,"Child 1")
		var_Items.CellCaption(h1,1,1)
		var_Items.CellCaption(h1,2,2)
		var_Items.CellCaption(h1,3,3)
		h1 = var_Items.InsertItem(h,,"Child 2")
		var_Items.CellCaption(h1,1,4)
		var_Items.CellCaption(h1,2,5)
		var_Items.CellCaption(h1,3,6)
		var_Items.ExpandItem(h,true)
		h = var_Items.AddItem("Group 2")
		var_Items.CellHAlignment(h,0,1)
		var_Items.ItemDivider(h,0)
		var_Items.ItemDividerLineAlignment(h,3)
		var_Items.ItemHeight(h,24)
		var_Items.SortableItem(h,false)
		h1 = var_Items.InsertItem(h,,"Child 1")
		var_Items.CellCaption(h1,1,1)
		var_Items.CellCaption(h1,2,2)
		var_Items.CellCaption(h1,3,3)
		h1 = var_Items.InsertItem(h,,"Child 2")
		var_Items.CellCaption(h1,1,4)
		var_Items.CellCaption(h1,2,5)
		var_Items.CellCaption(h1,3,6)
		var_Items.ExpandItem(h,true)
	var_Group.Expanded = true
oExplorerTree.EndUpdate()

12:
Can I change the style of the line being displayed by a divider item

OleObject oExplorerTree,var_Group,var_Items
any h

oExplorerTree = ole_1.Object
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.HeaderVisible = true
	var_Group.Columns.Clear()
	var_Group.MarkSearchColumn = false
	var_Group.TreeColumnIndex = -1
	var_Group.ScrollBySingleLine = false
	var_Group.Columns.Add("C1")
	var_Group.Columns.Add("C2")
	var_Group.SelBackMode = 1
	var_Items = var_Group.Items
		h = var_Items.AddItem("Cell 1")
		var_Items.CellCaption(h,1,"This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.")
		var_Items.CellSingleLine(h,1,false)
		h = var_Items.AddItem("This is bit of text that's displayed on the entire item, divider.")
		var_Items.ItemDivider(h,0)
		var_Items.ItemDividerLine(h,4)
		var_Items.ItemDividerLineAlignment(h,3)
		var_Items.CellHAlignment(h,0,1)
		var_Items.ItemHeight(h,24)
	var_Group.Expanded = true
oExplorerTree.EndUpdate()

11:
How can I expand all items

OleObject oExplorerTree,var_Group,var_Items
any h

oExplorerTree = ole_1.Object
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.HeaderVisible = true
	var_Group.Columns.Clear()
	var_Group.LinesAtRoot = -1
	var_Group.Columns.Add("Items")
	var_Items = var_Group.Items
		h = var_Items.AddItem("Root 1")
		var_Items.InsertItem(h,,"Child 1")
		var_Items.InsertItem(h,,"Child 2")
		h = var_Items.AddItem("Root 2")
		var_Items.InsertItem(h,,"Child 1")
		var_Items.InsertItem(h,,"Child 2")
		var_Items.ExpandItem(0,true)
	var_Group.Expanded = true
oExplorerTree.EndUpdate()

10:
Is it possible display numbers in the same format no matter of regional settings in the control panel

OleObject oExplorerTree,var_Group,var_Items
any h

oExplorerTree = ole_1.Object
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.HeaderVisible = true
	var_Group.Columns.Clear()
	var_Group.Columns.Add("Def").Def(17,1)
	var_Items = var_Group.Items
		h = var_Items.AddItem(100000.27)
		var_Items.FormatCell(h,0,"(value format '') +  ' <fgcolor=808080>(default positive)'")
		h = var_Items.AddItem(100000.27)
		var_Items.FormatCell(h,0,"(value format '2|.|3|,|1|1')")
		h = var_Items.AddItem(-100000.27)
		var_Items.FormatCell(h,0,"(value format '') +  ' <fgcolor=808080>(default negative)'")
		h = var_Items.AddItem(-100000.27)
		var_Items.FormatCell(h,0,"(value format '2|.|3|,|1|1')")
	var_Group.Expanded = true

9:
Is it possible to format numbers

OleObject oExplorerTree,var_Column,var_Column1,var_Column2,var_Column3,var_Columns,var_Group,var_Items
any h,h1

oExplorerTree = ole_1.Object
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.HeaderVisible = true
	var_Group.MarkSearchColumn = false
	var_Group.Columns.Clear()
	var_Columns = var_Group.Columns
		var_Columns.Add("Name")
		var_Column = var_Columns.Add("A")
			var_Column.SortType = 1
			var_Column.AllowSizing = false
			var_Column.Width = 36
			var_Column.FormatColumn = "len(value) ? value + ' +'"
		var_Column1 = var_Columns.Add("B")
			var_Column1.SortType = 1
			var_Column1.AllowSizing = false
			var_Column1.Width = 36
			var_Column1.FormatColumn = "len(value) ? value + ' +'"
		var_Column2 = var_Columns.Add("C")
			var_Column2.SortType = 1
			var_Column2.AllowSizing = false
			var_Column2.Width = 36
			var_Column2.FormatColumn = "len(value) ? value + ' ='"
		var_Column3 = var_Columns.Add("A+B+C")
			var_Column3.SortType = 1
			var_Column3.Width = 64
			var_Column3.ComputedField = "dbl(%1)+dbl(%2)+dbl(%3)"
			var_Column3.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=0000FF>+'+(value format '2|.|3|,' ): '0.00') )"
			var_Column3.Def(17,1)
	var_Items = var_Group.Items
		h = var_Items.AddItem("Root")
		var_Items.CellCaptionFormat(h,4,2)
		h1 = var_Items.InsertItem(h,,"Child 1")
		var_Items.CellCaption(h1,1,7)
		var_Items.CellCaption(h1,2,3)
		var_Items.CellCaption(h1,3,1)
		h1 = var_Items.InsertItem(h,,"Child 2")
		var_Items.CellCaption(h1,1,-2)
		var_Items.CellCaption(h1,2,-2)
		var_Items.CellCaption(h1,3,-4)
		h1 = var_Items.InsertItem(h,,"Child 3")
		var_Items.CellCaption(h1,1,2)
		var_Items.CellCaption(h1,2,2)
		var_Items.CellCaption(h1,3,-4)
		var_Items.ExpandItem(h,true)
	var_Group.Expanded = true
oExplorerTree.EndUpdate()

8:
Is there any function to round the values base on the .5 value

OleObject oExplorerTree,var_Group,var_Items

oExplorerTree = ole_1.Object
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.HeaderVisible = true
	var_Group.Columns.Clear()
	var_Group.Columns.Add("Number")
	var_Group.Columns.Add("Round").ComputedField = "round(%0)"
	var_Items = var_Group.Items
		var_Items.AddItem("-1.98")
		var_Items.AddItem("0.99")
		var_Items.AddItem("1.23")
		var_Items.AddItem("2.34")
	var_Group.Expanded = true

7:
How can I show a column that adds values in the cells

OleObject oExplorerTree,var_Group,var_Items,var_Items1

oExplorerTree = ole_1.Object
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.Columns.Clear()
	var_Group.HeaderVisible = true
	var_Group.Columns.Add("A")
	var_Group.Columns.Add("B")
	var_Group.Columns.Add("A+B").ComputedField = "dbl(%0) + dbl(%1)"
	var_Items = var_Group.Items
		var_Items.CellCaption(var_Items.AddItem(1),1,2)
	var_Items1 = var_Group.Items
		var_Items1.CellCaption(var_Items1.AddItem(10),1,20)
	var_Group.Expanded = true

6:
How do I change the item's background color for numbers less than a value

OleObject oExplorerTree,var_Group

oExplorerTree = ole_1.Object
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.ConditionalFormats.Add("dbl(%0) < 10").BackColor = RGB(255,0,0)
	var_Group.Items.AddItem(1)
	var_Group.Items.AddItem(2)
	var_Group.Items.AddItem(10)
	var_Group.Items.AddItem(20)
	var_Group.Expanded = true

5:
How do I highlight in bold the numbers greater than a value

OleObject oExplorerTree,var_Group

oExplorerTree = ole_1.Object
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.ConditionalFormats.Add("dbl(%0) >= 10").Bold = true
	var_Group.Items.AddItem(1)
	var_Group.Items.AddItem(2)
	var_Group.Items.AddItem(10)
	var_Group.Items.AddItem(20)
	var_Group.Expanded = true

4:
How do I change the caption being displayed in the control's filter bar

OleObject oExplorerTree,var_Column,var_Group

oExplorerTree = ole_1.Object
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.FilterBarCaption = "your filter caption"
	var_Column = var_Group.Columns.Add("Column")
		var_Column.DisplayFilterButton = true
		var_Column.FilterType = 1
	var_Group.ApplyFilter()
	var_Group.Expanded = true

3:
Is it possible to change the style for the vertical or horizontal grid lines, in the list area

OleObject oExplorerTree,var_Column,var_Group,var_Items
any h

oExplorerTree = ole_1.Object
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.AutoHeight = true
	var_Group.DrawGridLines = -1
	var_Group.GridLineStyle = 33 /*exGridLinesVSolid | exGridLinesHDot4*/
	var_Group.ColumnAutoResize = false
	var_Column = var_Group.Columns.Item(0)
		var_Column.Caption = "C1"
		var_Column.Width = 64
	var_Group.Columns.Add("C2")
	var_Group.Columns.Add("C3")
	var_Group.ColumnAutoResize = true
	var_Items = var_Group.Items
		h = var_Items.AddItem("Item 1")
		var_Items.CellCaption(h,1,"SubItem 1.2")
		var_Items.CellCaption(h,2,"SubItem 1.3")
		h = var_Items.AddItem("Item 2")
		var_Items.CellCaption(h,1,"SubItem 2.2")
		var_Items.CellCaption(h,2,"SubItem 2.3")
		h = var_Items.AddItem("Item 3")
		var_Items.CellCaption(h,1,"SubItem 3.2")
		var_Items.CellCaption(h,2,"SubItem 3.3")
	var_Group.Expanded = true
oExplorerTree.EndUpdate()

2:
Is it possible to change the style for the grid lines, for instance to be solid not dotted

OleObject oExplorerTree,var_Group

oExplorerTree = ole_1.Object
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.DrawGridLines = -1
	var_Group.GridLineStyle = 48
	var_Group.Expanded = true
oExplorerTree.EndUpdate()

1:
How can I change the visual appearance for the groups, using your EBN files

OleObject oExplorerTree,var_Groups

oExplorerTree = ole_1.Object
oExplorerTree.BeginUpdate()
oExplorerTree.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExplorerTree.BackColorGroup = 16777216 /*0x1000000*/
var_Groups = oExplorerTree.Groups
	var_Groups.Add("Group 1")
	var_Groups.Add("Group 2")
	var_Groups.Add("Group 3")
oExplorerTree.EndUpdate()