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

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.ExplorerTree1
		with .GroupListFromPoint(-1,-1)
		endwith
	endwith

with thisform.ExplorerTree1
	.BeginUpdate
	with .Groups.Add("Group 1")
		.HeaderVisible = .T.
		.Columns.Clear
		.Columns.Add("Number")
		.Columns.Add("Round").ComputedField = "round(%0)"
		with .Items
			.AddItem("-1.98")
			.AddItem("0.99")
			.AddItem("1.23")
			.AddItem("2.34")
		endwith
		.Expanded = .T.
	endwith
	with .Groups.Add("Group 2")
		.HeaderVisible = .T.
		.Columns.Clear
		.Columns.Add("Number")
		.Columns.Add("Round").ComputedField = "round(%0)"
		with .Items
			.AddItem("-1.98")
			.AddItem("0.99")
			.AddItem("1.23")
			.AddItem("2.34")
		endwith
		.Expanded = .T.
	endwith
	.EndUpdate
endwith
20:
How can I ensure that a specified item is visible

with thisform.ExplorerTree1
	.BeginUpdate
	with .Groups
		with .Add("Group")
			.Expanded = .T.
			with .Items
				.AddItem("Item")
				.AddItem("Item")
				.AddItem("Item")
				.AddItem("Item")
			endwith
			.PutItems(.GetItems(0),0)
			.PutItems(.GetItems(0),0)
			.Items.AddItem("Ensure")
		endwith
	endwith
	with .Groups.Item(0).Items
		h = .ItemByIndex(16)
		.ItemBackColor(h) = RGB(255,255,0)
		.EnsureVisibleItem(h)
	endwith
	.EndUpdate
endwith
19:
is it possible to display icons in the control's shortcut bar

with thisform.ExplorerTree1
	.BeginUpdate
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	with .Groups
		.Add("Group A.1").Shortcut = "<img>1</img> First Group"
		.Add("Group A.2").Shortcut = "<img>1</img> First Group"
		.Add("Group B.1").Shortcut = "<img>2</img> Second Group"
		.Add("Group B.2").Shortcut = "<img>2</img> Second Group"
		.Add("Group B.3").Shortcut = "<img>2</img> Second Group"
	endwith
	.EndUpdate
endwith
18:
How can I display the control's shortcut bar

with thisform.ExplorerTree1
	.BeginUpdate
	.ShowShortcutBar = .T.
	with .Groups
		.Add("Group A.1").Shortcut = "A"
		.Add("Group A.2").Shortcut = "A"
		.Add("Group B.1").Shortcut = "B"
		.Add("Group B.2").Shortcut = "B"
		.Add("Group B.3").Shortcut = "B"
	endwith
	.EndUpdate
endwith
17:
Can I display the cell's check box after the text

with thisform.ExplorerTree1
	.BeginUpdate
	with .Groups.Add("Default")
		.Expanded = .T.
		with .Columns.Item(0)
			.Def(0) = .T.
			.Def(34) = "caption,check"
		endwith
		with .Items
			.CellHasCheckBox(.AddItem("Caption 1"),0) = .T.
			.CellHasCheckBox(.AddItem("Caption 2"),0) = .T.
		endwith
	endwith
	.EndUpdate
endwith
16:
Can I change the order of the parts in the cell, as checkbox after the text, and so on

with thisform.ExplorerTree1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.BeginUpdate
	with .Groups.Add("Default")
		.Expanded = .T.
		.Columns.Item(0).Def(34) = "caption,check,icon,icons,picture"
		with .Items
			h = .AddItem("Text")
			.CellImage(h,0) = 1
			.CellHasCheckBox(h,0) = .T.
		endwith
	endwith
	.EndUpdate
endwith
15:
Can I have an image displayed after the text. Can I get that effect without using HTML content

with thisform.ExplorerTree1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.BeginUpdate
	with .Groups.Add("Default")
		.Expanded = .T.
		.Columns.Item(0).Def(34) = "caption,icon,check,icons,picture"
		with .Items
			h = .AddItem("Text")
			.CellImage(h,0) = 1
		endwith
	endwith
	.EndUpdate
endwith
14:
How do I enable the filter prompt feature

with thisform.ExplorerTree1
	.BeginUpdate
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AutoHeight = .T.
		.HeaderVisible = .T.
		.Columns.Clear
		.ColumnAutoResize = .T.
		.ContinueColumnScroll = 0
		.MarkSearchColumn = .F.
		.SearchColumnIndex = 1
		.FilterBarPromptVisible = .T.
		with .Columns
			.Add("Name").Width = 96
			.Add("Title").Width = 96
			.Add("City")
		endwith
		with .Items
			h0 = .AddItem("Nancy Davolio")
			.CellCaption(h0,1) = "Sales Representative"
			.CellCaption(h0,2) = "Seattle"
			h0 = .AddItem("Andrew Fuller")
			.CellCaption(h0,1) = "Vice President, Sales"
			.CellCaption(h0,2) = "Tacoma"
			.SelectItem(h0) = .T.
			h0 = .AddItem("Janet Leverling")
			.CellCaption(h0,1) = "Sales Representative"
			.CellCaption(h0,2) = "Kirkland"
			h0 = .AddItem("Margaret Peacock")
			.CellCaption(h0,1) = "Sales Representative"
			.CellCaption(h0,2) = "Redmond"
			h0 = .AddItem("Steven Buchanan")
			.CellCaption(h0,1) = "Sales Manager"
			.CellCaption(h0,2) = "London"
			h0 = .AddItem("Michael Suyama")
			.CellCaption(h0,1) = "Sales Representative"
			.CellCaption(h0,2) = "London"
			h0 = .AddItem("Robert King")
			.CellCaption(h0,1) = "Sales Representative"
			.CellCaption(h0,2) = "London"
			h0 = .AddItem("Laura Callahan")
			.CellCaption(h0,1) = "Inside Sales Coordinator"
			.CellCaption(h0,2) = "Seattle"
			h0 = .AddItem("Anne Dodsworth")
			.CellCaption(h0,1) = "Sales Representative"
			.CellCaption(h0,2) = "London"
		endwith
		.Expanded = .T.
	endwith
	.Groups.Add("Group 3")
	.EndUpdate
endwith
13:
Can I specify unsortable items

with thisform.ExplorerTree1
	.BeginUpdate
	with .Groups.Add("Default")
		.AutoHeight = .T.
		.HeaderVisible = .T.
		.Columns.Clear
		.HasLines = 0
		.ScrollBySingleLine = .T.
		.MarkSearchColumn = .F.
		with .Columns
			.Add("Name")
			.Add("A")
			.Add("B")
			.Add("C")
		endwith
		with .Items
			h = .AddItem("Group 1")
			.CellHAlignment(h,0) = 1
			.ItemDivider(h) = 0
			.ItemDividerLineAlignment(h) = 3
			.ItemHeight(h) = 24
			.SortableItem(h) = .F.
			h1 = .InsertItem(h,Null,"Child 1")
			.CellCaption(h1,1) = 1
			.CellCaption(h1,2) = 2
			.CellCaption(h1,3) = 3
			h1 = .InsertItem(h,Null,"Child 2")
			.CellCaption(h1,1) = 4
			.CellCaption(h1,2) = 5
			.CellCaption(h1,3) = 6
			.ExpandItem(h) = .T.
			h = .AddItem("Group 2")
			.CellHAlignment(h,0) = 1
			.ItemDivider(h) = 0
			.ItemDividerLineAlignment(h) = 3
			.ItemHeight(h) = 24
			.SortableItem(h) = .F.
			h1 = .InsertItem(h,Null,"Child 1")
			.CellCaption(h1,1) = 1
			.CellCaption(h1,2) = 2
			.CellCaption(h1,3) = 3
			h1 = .InsertItem(h,Null,"Child 2")
			.CellCaption(h1,1) = 4
			.CellCaption(h1,2) = 5
			.CellCaption(h1,3) = 6
			.ExpandItem(h) = .T.
		endwith
		.Expanded = .T.
	endwith
	.EndUpdate
endwith
12:
Can I change the style of the line being displayed by a divider item

with thisform.ExplorerTree1
	.BeginUpdate
	with .Groups.Add("Default")
		.HeaderVisible = .T.
		.Columns.Clear
		.MarkSearchColumn = .F.
		.TreeColumnIndex = -1
		.ScrollBySingleLine = .F.
		.Columns.Add("C1")
		.Columns.Add("C2")
		.SelBackMode = 1
		with .Items
			h = .AddItem("Cell 1")
			.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."
			.CellSingleLine(h,1) = .F.
			h = .AddItem("This is bit of text that's displayed on the entire item, divider.")
			.ItemDivider(h) = 0
			.ItemDividerLine(h) = 4
			.ItemDividerLineAlignment(h) = 3
			.CellHAlignment(h,0) = 1
			.ItemHeight(h) = 24
		endwith
		.Expanded = .T.
	endwith
	.EndUpdate
endwith
11:
How can I expand all items

with thisform.ExplorerTree1
	.BeginUpdate
	with .Groups.Add("Default")
		.HeaderVisible = .T.
		.Columns.Clear
		.LinesAtRoot = -1
		.Columns.Add("Items")
		with .Items
			h = .AddItem("Root 1")
			.InsertItem(h,Null,"Child 1")
			.InsertItem(h,Null,"Child 2")
			h = .AddItem("Root 2")
			.InsertItem(h,Null,"Child 1")
			.InsertItem(h,Null,"Child 2")
			.ExpandItem(0) = .T.
		endwith
		.Expanded = .T.
	endwith
	.EndUpdate
endwith
10:
Is it possible display numbers in the same format no matter of regional settings in the control panel

with thisform.ExplorerTree1
	with .Groups.Add("Default")
		.HeaderVisible = .T.
		.Columns.Clear
		.Columns.Add("Def").Def(17) = 1
		with .Items
			h = .AddItem(100000.27)
			.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default positive)'"
			h = .AddItem(100000.27)
			.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"
			h = .AddItem(-100000.27)
			.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default negative)'"
			h = .AddItem(-100000.27)
			.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"
		endwith
		.Expanded = .T.
	endwith
endwith
9:
Is it possible to format numbers

with thisform.ExplorerTree1
	.BeginUpdate
	with .Groups.Add("Default")
		.HeaderVisible = .T.
		.MarkSearchColumn = .F.
		.Columns.Clear
		with .Columns
			.Add("Name")
			with .Add("A")
				.SortType = 1
				.AllowSizing = .F.
				.Width = 36
				.FormatColumn = "len(value) ? value + ' +'"
			endwith
			with .Add("B")
				.SortType = 1
				.AllowSizing = .F.
				.Width = 36
				.FormatColumn = "len(value) ? value + ' +'"
			endwith
			with .Add("C")
				.SortType = 1
				.AllowSizing = .F.
				.Width = 36
				.FormatColumn = "len(value) ? value + ' ='"
			endwith
			with .Add("A+B+C")
				.SortType = 1
				.Width = 64
				.ComputedField = "dbl(%1)+dbl(%2)+dbl(%3)"
				var_s = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=000"
				var_s = var_s + "0FF>+'+(value format '2|.|3|,' ): '0.00') )"
				.FormatColumn = var_s
				.Def(17) = 1
			endwith
		endwith
		with .Items
			h = .AddItem("Root")
			.CellCaptionFormat(h,4) = 2
			h1 = .InsertItem(h,Null,"Child 1")
			.CellCaption(h1,1) = 7
			.CellCaption(h1,2) = 3
			.CellCaption(h1,3) = 1
			h1 = .InsertItem(h,Null,"Child 2")
			.CellCaption(h1,1) = -2
			.CellCaption(h1,2) = -2
			.CellCaption(h1,3) = -4
			h1 = .InsertItem(h,Null,"Child 3")
			.CellCaption(h1,1) = 2
			.CellCaption(h1,2) = 2
			.CellCaption(h1,3) = -4
			.ExpandItem(h) = .T.
		endwith
		.Expanded = .T.
	endwith
	.EndUpdate
endwith
8:
Is there any function to round the values base on the .5 value

with thisform.ExplorerTree1
	with .Groups.Add("Default")
		.HeaderVisible = .T.
		.Columns.Clear
		.Columns.Add("Number")
		.Columns.Add("Round").ComputedField = "round(%0)"
		with .Items
			.AddItem("-1.98")
			.AddItem("0.99")
			.AddItem("1.23")
			.AddItem("2.34")
		endwith
		.Expanded = .T.
	endwith
endwith
7:
How can I show a column that adds values in the cells

with thisform.ExplorerTree1
	with .Groups.Add("Default")
		.Columns.Clear
		.HeaderVisible = .T.
		.Columns.Add("A")
		.Columns.Add("B")
		.Columns.Add("A+B").ComputedField = "dbl(%0) + dbl(%1)"
		with .Items
			.CellCaption(.AddItem(1),1) = 2
		endwith
		with .Items
			.CellCaption(.AddItem(10),1) = 20
		endwith
		.Expanded = .T.
	endwith
endwith
6:
How do I change the item's background color for numbers less than a value

with thisform.ExplorerTree1
	with .Groups.Add("Default")
		.ConditionalFormats.Add("dbl(%0) < 10").BackColor = RGB(255,0,0)
		.Items.AddItem(1)
		.Items.AddItem(2)
		.Items.AddItem(10)
		.Items.AddItem(20)
		.Expanded = .T.
	endwith
endwith
5:
How do I highlight in bold the numbers greater than a value

with thisform.ExplorerTree1
	with .Groups.Add("Default")
		.ConditionalFormats.Add("dbl(%0) >= 10").Bold = .T.
		.Items.AddItem(1)
		.Items.AddItem(2)
		.Items.AddItem(10)
		.Items.AddItem(20)
		.Expanded = .T.
	endwith
endwith
4:
How do I change the caption being displayed in the control's filter bar

with thisform.ExplorerTree1
	with .Groups.Add("Default")
		.FilterBarCaption = "your filter caption"
		with .Columns.Add("Column")
			.DisplayFilterButton = .T.
			.FilterType = 1
		endwith
		.ApplyFilter
		.Expanded = .T.
	endwith
endwith
3:
Is it possible to change the style for the vertical or horizontal grid lines, in the list area

with thisform.ExplorerTree1
	.BeginUpdate
	with .Groups.Add("Default")
		.AutoHeight = .T.
		.DrawGridLines = -1
		.GridLineStyle = 33 && GridLinesStyleEnum.exGridLinesVSolid Or GridLinesStyleEnum.exGridLinesHDot4
		.ColumnAutoResize = .F.
		with .Columns.Item(0)
			.Caption = "C1"
			.Width = 64
		endwith
		.Columns.Add("C2")
		.Columns.Add("C3")
		.ColumnAutoResize = .T.
		with .Items
			h = .AddItem("Item 1")
			.CellCaption(h,1) = "SubItem 1.2"
			.CellCaption(h,2) = "SubItem 1.3"
			h = .AddItem("Item 2")
			.CellCaption(h,1) = "SubItem 2.2"
			.CellCaption(h,2) = "SubItem 2.3"
			h = .AddItem("Item 3")
			.CellCaption(h,1) = "SubItem 3.2"
			.CellCaption(h,2) = "SubItem 3.3"
		endwith
		.Expanded = .T.
	endwith
	.EndUpdate
endwith
2:
Is it possible to change the style for the grid lines, for instance to be solid not dotted

with thisform.ExplorerTree1
	.BeginUpdate
	with .Groups.Add("Default")
		.DrawGridLines = -1
		.GridLineStyle = 48
		.Expanded = .T.
	endwith
	.EndUpdate
endwith
1:
How can I change the visual appearance for the groups, using your EBN files

with thisform.ExplorerTree1
	.BeginUpdate
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.BackColorGroup = 0x1000000
	with .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
	endwith
	.EndUpdate
endwith