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

// MouseMove event - Occurs when the user moves the mouse.
procedure TWinForm1.AxExplorerTree1_MouseMoveEvent(sender: System.Object; e: AxEXPLORERTREELib._IExplorerTreeEvents_MouseMoveEvent);
begin
	with AxExplorerTree1 do
	begin
		with (get_GroupListFromPoint(-1,-1) as Object) do
		begin
		end;
	end
end;

with AxExplorerTree1 do
begin
	BeginUpdate();
	with Groups.Add('Group 1') do
	begin
		HeaderVisible := True;
		Columns.Clear();
		Columns.Add('Number');
		(Columns.Add('Round') as EXPLORERTREELib.Column).ComputedField := 'round(%0)';
		with Items do
		begin
			AddItem('-1.98');
			AddItem('0.99');
			AddItem('1.23');
			AddItem('2.34');
		end;
		Expanded := True;
	end;
	with Groups.Add('Group 2') do
	begin
		HeaderVisible := True;
		Columns.Clear();
		Columns.Add('Number');
		(Columns.Add('Round') as EXPLORERTREELib.Column).ComputedField := 'round(%0)';
		with Items do
		begin
			AddItem('-1.98');
			AddItem('0.99');
			AddItem('1.23');
			AddItem('2.34');
		end;
		Expanded := True;
	end;
	EndUpdate();
end
20:
How can I ensure that a specified item is visible

with AxExplorerTree1 do
begin
	BeginUpdate();
	with Groups do
	begin
		with Add('Group') do
		begin
			Expanded := True;
			with Items do
			begin
				AddItem('Item');
				AddItem('Item');
				AddItem('Item');
				AddItem('Item');
			end;
			PutItems(GetItems(TObject(0)),TObject(0));
			PutItems(GetItems(TObject(0)),TObject(0));
			Items.AddItem('Ensure');
		end;
	end;
	with Groups.Item[TObject(0)].Items do
	begin
		h := ItemByIndex[16];
		ItemBackColor[h] := $ffff;
		EnsureVisibleItem(h);
	end;
	EndUpdate();
end
19:
is it possible to display icons in the control's shortcut bar

with AxExplorerTree1 do
begin
	BeginUpdate();
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	ShowShortcutBar := True;
	with Groups do
	begin
		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';
	end;
	EndUpdate();
end
18:
How can I display the control's shortcut bar

with AxExplorerTree1 do
begin
	BeginUpdate();
	ShowShortcutBar := True;
	with Groups do
	begin
		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';
	end;
	EndUpdate();
end
17:
Can I display the cell's check box after the text

with AxExplorerTree1 do
begin
	BeginUpdate();
	with Groups.Add('Default') do
	begin
		Expanded := True;
		with Columns.Item[TObject(0)] do
		begin
			Def[EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
			Def[EXPLORERTREELib.DefColumnEnum.exCellDrawPartsOrder] := 'caption,check';
		end;
		with Items do
		begin
			CellHasCheckBox[TObject(AddItem('Caption 1')),TObject(0)] := True;
			CellHasCheckBox[TObject(AddItem('Caption 2')),TObject(0)] := True;
		end;
	end;
	EndUpdate();
end
16:
Can I change the order of the parts in the cell, as checkbox after the text, and so on

with AxExplorerTree1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	BeginUpdate();
	with Groups.Add('Default') do
	begin
		Expanded := True;
		Columns.Item[TObject(0)].Def[EXPLORERTREELib.DefColumnEnum.exCellDrawPartsOrder] := 'caption,check,icon,icons,picture';
		with Items do
		begin
			h := AddItem('Text');
			CellImage[TObject(h),TObject(0)] := 1;
			CellHasCheckBox[TObject(h),TObject(0)] := True;
		end;
	end;
	EndUpdate();
end
15:
Can I have an image displayed after the text. Can I get that effect without using HTML content

with AxExplorerTree1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	BeginUpdate();
	with Groups.Add('Default') do
	begin
		Expanded := True;
		Columns.Item[TObject(0)].Def[EXPLORERTREELib.DefColumnEnum.exCellDrawPartsOrder] := 'caption,icon,check,icons,picture';
		with Items do
		begin
			h := AddItem('Text');
			CellImage[TObject(h),TObject(0)] := 1;
		end;
	end;
	EndUpdate();
end
14:
How do I enable the filter prompt feature

with AxExplorerTree1 do
begin
	BeginUpdate();
	Groups.Add('Group 1');
	with Groups.Add('Group 2') do
	begin
		AutoHeight := True;
		HeaderVisible := True;
		Columns.Clear();
		ColumnAutoResize := True;
		ContinueColumnScroll := False;
		MarkSearchColumn := False;
		SearchColumnIndex := 1;
		FilterBarPromptVisible := True;
		with Columns do
		begin
			(Add('Name') as EXPLORERTREELib.Column).Width := 96;
			(Add('Title') as EXPLORERTREELib.Column).Width := 96;
			Add('City');
		end;
		with Items do
		begin
			h0 := AddItem('Nancy Davolio');
			CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
			CellCaption[TObject(h0),TObject(2)] := 'Seattle';
			h0 := AddItem('Andrew Fuller');
			CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
			CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
			SelectItem[h0] := True;
			h0 := AddItem('Janet Leverling');
			CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
			CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
			h0 := AddItem('Margaret Peacock');
			CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
			CellCaption[TObject(h0),TObject(2)] := 'Redmond';
			h0 := AddItem('Steven Buchanan');
			CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
			CellCaption[TObject(h0),TObject(2)] := 'London';
			h0 := AddItem('Michael Suyama');
			CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
			CellCaption[TObject(h0),TObject(2)] := 'London';
			h0 := AddItem('Robert King');
			CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
			CellCaption[TObject(h0),TObject(2)] := 'London';
			h0 := AddItem('Laura Callahan');
			CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
			CellCaption[TObject(h0),TObject(2)] := 'Seattle';
			h0 := AddItem('Anne Dodsworth');
			CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
			CellCaption[TObject(h0),TObject(2)] := 'London';
		end;
		Expanded := True;
	end;
	Groups.Add('Group 3');
	EndUpdate();
end
13:
Can I specify unsortable items

with AxExplorerTree1 do
begin
	BeginUpdate();
	with Groups.Add('Default') do
	begin
		AutoHeight := True;
		HeaderVisible := True;
		Columns.Clear();
		HasLines := EXPLORERTREELib.HierarchyLineEnum.exNoLine;
		ScrollBySingleLine := True;
		MarkSearchColumn := False;
		with Columns do
		begin
			Add('Name');
			Add('A');
			Add('B');
			Add('C');
		end;
		with Items do
		begin
			h := AddItem('Group 1');
			CellHAlignment[TObject(h),TObject(0)] := EXPLORERTREELib.AlignmentEnum.CenterAlignment;
			ItemDivider[h] := 0;
			ItemDividerLineAlignment[h] := EXPLORERTREELib.DividerAlignmentEnum.DividerBoth;
			ItemHeight[h] := 24;
			SortableItem[h] := False;
			h1 := InsertItem(h,Nil,'Child 1');
			CellCaption[TObject(h1),TObject(1)] := TObject(1);
			CellCaption[TObject(h1),TObject(2)] := TObject(2);
			CellCaption[TObject(h1),TObject(3)] := TObject(3);
			h1 := InsertItem(h,Nil,'Child 2');
			CellCaption[TObject(h1),TObject(1)] := TObject(4);
			CellCaption[TObject(h1),TObject(2)] := TObject(5);
			CellCaption[TObject(h1),TObject(3)] := TObject(6);
			ExpandItem[h] := True;
			h := AddItem('Group 2');
			CellHAlignment[TObject(h),TObject(0)] := EXPLORERTREELib.AlignmentEnum.CenterAlignment;
			ItemDivider[h] := 0;
			ItemDividerLineAlignment[h] := EXPLORERTREELib.DividerAlignmentEnum.DividerBoth;
			ItemHeight[h] := 24;
			SortableItem[h] := False;
			h1 := InsertItem(h,Nil,'Child 1');
			CellCaption[TObject(h1),TObject(1)] := TObject(1);
			CellCaption[TObject(h1),TObject(2)] := TObject(2);
			CellCaption[TObject(h1),TObject(3)] := TObject(3);
			h1 := InsertItem(h,Nil,'Child 2');
			CellCaption[TObject(h1),TObject(1)] := TObject(4);
			CellCaption[TObject(h1),TObject(2)] := TObject(5);
			CellCaption[TObject(h1),TObject(3)] := TObject(6);
			ExpandItem[h] := True;
		end;
		Expanded := True;
	end;
	EndUpdate();
end
12:
Can I change the style of the line being displayed by a divider item

with AxExplorerTree1 do
begin
	BeginUpdate();
	with Groups.Add('Default') do
	begin
		HeaderVisible := True;
		Columns.Clear();
		MarkSearchColumn := False;
		TreeColumnIndex := -1;
		ScrollBySingleLine := False;
		Columns.Add('C1');
		Columns.Add('C2');
		SelBackMode := EXPLORERTREELib.BackModeEnum.exTransparent;
		with Items do
		begin
			h := AddItem('Cell 1');
			CellCaption[TObject(h),TObject(1)] := 'This is bit of text that''s shown on multiple lines. This is bit of text that''s shown on multiple lines.';
			CellSingleLine[TObject(h),TObject(1)] := False;
			h := AddItem('This is bit of text that''s displayed on the entire item, divider.');
			ItemDivider[h] := 0;
			ItemDividerLine[h] := EXPLORERTREELib.DividerLineEnum.DoubleDotLine;
			ItemDividerLineAlignment[h] := EXPLORERTREELib.DividerAlignmentEnum.DividerBoth;
			CellHAlignment[TObject(h),TObject(0)] := EXPLORERTREELib.AlignmentEnum.CenterAlignment;
			ItemHeight[h] := 24;
		end;
		Expanded := True;
	end;
	EndUpdate();
end
11:
How can I expand all items

with AxExplorerTree1 do
begin
	BeginUpdate();
	with Groups.Add('Default') do
	begin
		HeaderVisible := True;
		Columns.Clear();
		LinesAtRoot := EXPLORERTREELib.LinesAtRootEnum.exLinesAtRoot;
		Columns.Add('Items');
		with Items do
		begin
			h := AddItem('Root 1');
			InsertItem(h,Nil,'Child 1');
			InsertItem(h,Nil,'Child 2');
			h := AddItem('Root 2');
			InsertItem(h,Nil,'Child 1');
			InsertItem(h,Nil,'Child 2');
			ExpandItem[0] := True;
		end;
		Expanded := True;
	end;
	EndUpdate();
end
10:
Is it possible display numbers in the same format no matter of regional settings in the control panel

with AxExplorerTree1 do
begin
	with Groups.Add('Default') do
	begin
		HeaderVisible := True;
		Columns.Clear();
		(Columns.Add('Def') as EXPLORERTREELib.Column).Def[EXPLORERTREELib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
		with Items do
		begin
			h := AddItem(TObject(100000.27));
			FormatCell[TObject(h),TObject(0)] := '(value format '''') +  '' <fgcolor=808080>(default positive)''';
			h := AddItem(TObject(100000.27));
			FormatCell[TObject(h),TObject(0)] := '(value format ''2|.|3|,|1|1'')';
			h := AddItem(TObject(-100000.27));
			FormatCell[TObject(h),TObject(0)] := '(value format '''') +  '' <fgcolor=808080>(default negative)''';
			h := AddItem(TObject(-100000.27));
			FormatCell[TObject(h),TObject(0)] := '(value format ''2|.|3|,|1|1'')';
		end;
		Expanded := True;
	end;
end
9:
Is it possible to format numbers

with AxExplorerTree1 do
begin
	BeginUpdate();
	with Groups.Add('Default') do
	begin
		HeaderVisible := True;
		MarkSearchColumn := False;
		Columns.Clear();
		with Columns do
		begin
			Add('Name');
			with (Add('A') as EXPLORERTREELib.Column) do
			begin
				SortType := EXPLORERTREELib.SortTypeEnum.SortNumeric;
				AllowSizing := False;
				Width := 36;
				FormatColumn := 'len(value) ? value + '' +''';
			end;
			with (Add('B') as EXPLORERTREELib.Column) do
			begin
				SortType := EXPLORERTREELib.SortTypeEnum.SortNumeric;
				AllowSizing := False;
				Width := 36;
				FormatColumn := 'len(value) ? value + '' +''';
			end;
			with (Add('C') as EXPLORERTREELib.Column) do
			begin
				SortType := EXPLORERTREELib.SortTypeEnum.SortNumeric;
				AllowSizing := False;
				Width := 36;
				FormatColumn := 'len(value) ? value + '' =''';
			end;
			with (Add('A+B+C') as EXPLORERTREELib.Column) do
			begin
				SortType := EXPLORERTREELib.SortTypeEnum.SortNumeric;
				Width := 64;
				ComputedField := 'dbl(%1)+dbl(%2)+dbl(%3)';
				FormatColumn := 'type(value) in (0,1) ? ''null'' : ( dbl(value)<0 ? ''<fgcolor=FF0000>''+ (value format ''2|.|3|,|1'' ) : (dbl(value)>0 ? ''<fgcolor=000' + 
	'0FF>+''+(value format ''2|.|3|,'' ): ''0.00'') )';
				Def[EXPLORERTREELib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
			end;
		end;
		with Items do
		begin
			h := AddItem('Root');
			CellCaptionFormat[TObject(h),TObject(4)] := EXPLORERTREELib.CaptionFormatEnum.exComputedField;
			h1 := InsertItem(h,Nil,'Child 1');
			CellCaption[TObject(h1),TObject(1)] := TObject(7);
			CellCaption[TObject(h1),TObject(2)] := TObject(3);
			CellCaption[TObject(h1),TObject(3)] := TObject(1);
			h1 := InsertItem(h,Nil,'Child 2');
			CellCaption[TObject(h1),TObject(1)] := TObject(-2);
			CellCaption[TObject(h1),TObject(2)] := TObject(-2);
			CellCaption[TObject(h1),TObject(3)] := TObject(-4);
			h1 := InsertItem(h,Nil,'Child 3');
			CellCaption[TObject(h1),TObject(1)] := TObject(2);
			CellCaption[TObject(h1),TObject(2)] := TObject(2);
			CellCaption[TObject(h1),TObject(3)] := TObject(-4);
			ExpandItem[h] := True;
		end;
		Expanded := True;
	end;
	EndUpdate();
end
8:
Is there any function to round the values base on the .5 value

with AxExplorerTree1 do
begin
	with Groups.Add('Default') do
	begin
		HeaderVisible := True;
		Columns.Clear();
		Columns.Add('Number');
		(Columns.Add('Round') as EXPLORERTREELib.Column).ComputedField := 'round(%0)';
		with Items do
		begin
			AddItem('-1.98');
			AddItem('0.99');
			AddItem('1.23');
			AddItem('2.34');
		end;
		Expanded := True;
	end;
end
7:
How can I show a column that adds values in the cells

with AxExplorerTree1 do
begin
	with Groups.Add('Default') do
	begin
		Columns.Clear();
		HeaderVisible := True;
		Columns.Add('A');
		Columns.Add('B');
		(Columns.Add('A+B') as EXPLORERTREELib.Column).ComputedField := 'dbl(%0) + dbl(%1)';
		with Items do
		begin
			CellCaption[TObject(AddItem(TObject(1))),TObject(1)] := TObject(2);
		end;
		with Items do
		begin
			CellCaption[TObject(AddItem(TObject(10))),TObject(1)] := TObject(20);
		end;
		Expanded := True;
	end;
end
6:
How do I change the item's background color for numbers less than a value

with AxExplorerTree1 do
begin
	with Groups.Add('Default') do
	begin
		ConditionalFormats.Add('dbl(%0) < 10',Nil).BackColor := $ff;
		Items.AddItem(TObject(1));
		Items.AddItem(TObject(2));
		Items.AddItem(TObject(10));
		Items.AddItem(TObject(20));
		Expanded := True;
	end;
end
5:
How do I highlight in bold the numbers greater than a value

with AxExplorerTree1 do
begin
	with Groups.Add('Default') do
	begin
		ConditionalFormats.Add('dbl(%0) >= 10',Nil).Bold := True;
		Items.AddItem(TObject(1));
		Items.AddItem(TObject(2));
		Items.AddItem(TObject(10));
		Items.AddItem(TObject(20));
		Expanded := True;
	end;
end
4:
How do I change the caption being displayed in the control's filter bar

with AxExplorerTree1 do
begin
	with Groups.Add('Default') do
	begin
		FilterBarCaption := 'your filter caption';
		with (Columns.Add('Column') as EXPLORERTREELib.Column) do
		begin
			DisplayFilterButton := True;
			FilterType := EXPLORERTREELib.FilterTypeEnum.exBlanks;
		end;
		ApplyFilter();
		Expanded := True;
	end;
end
3:
Is it possible to change the style for the vertical or horizontal grid lines, in the list area

with AxExplorerTree1 do
begin
	BeginUpdate();
	with Groups.Add('Default') do
	begin
		AutoHeight := True;
		DrawGridLines := EXPLORERTREELib.GridLinesEnum.exAllLines;
		GridLineStyle := Integer(EXPLORERTREELib.GridLinesStyleEnum.exGridLinesVSolid) Or Integer(EXPLORERTREELib.GridLinesStyleEnum.exGridLinesHDot4);
		ColumnAutoResize := False;
		with Columns.Item[TObject(0)] do
		begin
			Caption := 'C1';
			Width := 64;
		end;
		Columns.Add('C2');
		Columns.Add('C3');
		ColumnAutoResize := True;
		with Items do
		begin
			h := AddItem('Item 1');
			CellCaption[TObject(h),TObject(1)] := 'SubItem 1.2';
			CellCaption[TObject(h),TObject(2)] := 'SubItem 1.3';
			h := AddItem('Item 2');
			CellCaption[TObject(h),TObject(1)] := 'SubItem 2.2';
			CellCaption[TObject(h),TObject(2)] := 'SubItem 2.3';
			h := AddItem('Item 3');
			CellCaption[TObject(h),TObject(1)] := 'SubItem 3.2';
			CellCaption[TObject(h),TObject(2)] := 'SubItem 3.3';
		end;
		Expanded := True;
	end;
	EndUpdate();
end
2:
Is it possible to change the style for the grid lines, for instance to be solid not dotted

with AxExplorerTree1 do
begin
	BeginUpdate();
	with Groups.Add('Default') do
	begin
		DrawGridLines := EXPLORERTREELib.GridLinesEnum.exAllLines;
		GridLineStyle := EXPLORERTREELib.GridLinesStyleEnum.exGridLinesSolid;
		Expanded := True;
	end;
	EndUpdate();
end
1:
How can I change the visual appearance for the groups, using your EBN files

with AxExplorerTree1 do
begin
	BeginUpdate();
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	(GetOcx() as EXPLORERTREELib.ExplorerTree).BackColorGroup := $1000000;
	with Groups do
	begin
		Add('Group 1');
		Add('Group 2');
		Add('Group 3');
	end;
	EndUpdate();
end