Item.SplitCell Property (ExTreeCube)

The SplitCell method splits a cell in two cells ( the newly created cell is called inner cell ). Use the InnerCell property to get the inner cell. Use the CellParent property to get the parent of the inner cell. The CellParent property gets 0 if the cell is not an inner cell. The parent cell is always displayed to the left side of the cell. The inner cell ( InnerCell ) is displayed to the right side of the cell. Use the CellWidth property to specify the width of the inner cell. The UnsplitCell method unsplits the cell.

How can I split a cell?

VBA (MS Access, Excell...)

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.HTMLPicture("P1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("P2") = "c:\exontrol\images\auction.gif"
	.HTMLPicture("P3") = "c:\exontrol\images\colorize.gif"
	.HTMLPicture("P4") = "c:\exontrol\images\auction.gif"
	With .FrontFace
		With .CreateTree
			.Columns.Add("Default").Alignment = 0
			With .Items
				With .Add("Choose your quick actions")
					.SingleLine(0) = False
					With .Items.Add("")
						.Height = 48
						s = 0
						.Value(s) = "<c><img>P1</img>"
						.CellWidth(s) = 48
						.HasButton(s) = True
						s = .SplitCell(s)
						.Value(s) = "<c><img>P2</img>"
						.CellWidth(s) = 48
						.HasButton(s) = True
						s = .SplitCell(s)
						.Value(s) = "<c><img>P3</img>"
						.CellWidth(s) = 48
						.HasButton(s) = True
						s = .SplitCell(s)
						.Value(s) = "<c><img>P4</img>"
						.CellWidth(s) = 48
						.HasButton(s) = True
						s = .SplitCell(s)
					End With
					.Expanded = True
				End With
			End With
		End With
	End With
	.EndUpdate 
End With

VB6

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.HTMLPicture("P1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("P2") = "c:\exontrol\images\auction.gif"
	.HTMLPicture("P3") = "c:\exontrol\images\colorize.gif"
	.HTMLPicture("P4") = "c:\exontrol\images\auction.gif"
	With .FrontFace
		With .CreateTree
			.Columns.Add("Default").Alignment = LeftAlignment
			With .Items
				With .Add("Choose your quick actions")
					.SingleLine(0) = False
					With .Items.Add("")
						.Height = 48
						s = 0
						.Value(s) = "<c><img>P1</img>"
						.CellWidth(s) = 48
						.HasButton(s) = True
						s = .SplitCell(s)
						.Value(s) = "<c><img>P2</img>"
						.CellWidth(s) = 48
						.HasButton(s) = True
						s = .SplitCell(s)
						.Value(s) = "<c><img>P3</img>"
						.CellWidth(s) = 48
						.HasButton(s) = True
						s = .SplitCell(s)
						.Value(s) = "<c><img>P4</img>"
						.CellWidth(s) = 48
						.HasButton(s) = True
						s = .SplitCell(s)
					End With
					.Expanded = True
				End With
			End With
		End With
	End With
	.EndUpdate 
End With

VB.NET

Dim s
With Extreecube1
	.BeginUpdate()
	.TexturePicturePath = ""
	.set_HTMLPicture("P1","c:\exontrol\images\zipdisk.gif")
	.set_HTMLPicture("P2","c:\exontrol\images\auction.gif")
	.set_HTMLPicture("P3","c:\exontrol\images\colorize.gif")
	.set_HTMLPicture("P4","c:\exontrol\images\auction.gif")
	With .FrontFace
		With .CreateTree()
			.Columns.Add("Default").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			With .Items
				With .Add("Choose your quick actions")
					.set_SingleLine(0,False)
					With .Items.Add("")
						.Height = 48
						s = 0
						.set_Value(s,"<c><img>P1</img>")
						.set_CellWidth(s,48)
						.set_HasButton(s,True)
						s = .get_SplitCell(s)
						.set_Value(s,"<c><img>P2</img>")
						.set_CellWidth(s,48)
						.set_HasButton(s,True)
						s = .get_SplitCell(s)
						.set_Value(s,"<c><img>P3</img>")
						.set_CellWidth(s,48)
						.set_HasButton(s,True)
						s = .get_SplitCell(s)
						.set_Value(s,"<c><img>P4</img>")
						.set_CellWidth(s,48)
						.set_HasButton(s,True)
						s = .get_SplitCell(s)
					End With
					.Expanded = True
				End With
			End With
		End With
	End With
	.EndUpdate()
End With

VB.NET for /COM

Dim s
With AxTreeCube1
	.BeginUpdate()
	.TexturePicturePath = ""
	.set_HTMLPicture("P1","c:\exontrol\images\zipdisk.gif")
	.set_HTMLPicture("P2","c:\exontrol\images\auction.gif")
	.set_HTMLPicture("P3","c:\exontrol\images\colorize.gif")
	.set_HTMLPicture("P4","c:\exontrol\images\auction.gif")
	With .FrontFace
		With .CreateTree()
			.Columns.Add("Default").Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
			With .Items
				With .Add("Choose your quick actions")
					.SingleLine(0) = False
					With .Items.Add("")
						.Height = 48
						s = 0
						.Value(s) = "<c><img>P1</img>"
						.CellWidth(s) = 48
						.HasButton(s) = True
						s = .SplitCell(s)
						.Value(s) = "<c><img>P2</img>"
						.CellWidth(s) = 48
						.HasButton(s) = True
						s = .SplitCell(s)
						.Value(s) = "<c><img>P3</img>"
						.CellWidth(s) = 48
						.HasButton(s) = True
						s = .SplitCell(s)
						.Value(s) = "<c><img>P4</img>"
						.CellWidth(s) = 48
						.HasButton(s) = True
						s = .SplitCell(s)
					End With
					.Expanded = True
				End With
			End With
		End With
	End With
	.EndUpdate()
End With

C++

/*
	Copy and paste the following directives to your header file as
	it defines the namespace 'EXTREECUBELib' for the library: 'ExTreeCube 1.0 Control Library'

	#import <ExTreeCube.dll>
	using namespace EXTREECUBELib;
*/
EXTREECUBELib::ITreeCubePtr spTreeCube1 = GetDlgItem(IDC_TREECUBE1)->GetControlUnknown();
spTreeCube1->BeginUpdate();
spTreeCube1->PutTexturePicturePath(L"");
spTreeCube1->PutHTMLPicture(L"P1","c:\\exontrol\\images\\zipdisk.gif");
spTreeCube1->PutHTMLPicture(L"P2","c:\\exontrol\\images\\auction.gif");
spTreeCube1->PutHTMLPicture(L"P3","c:\\exontrol\\images\\colorize.gif");
spTreeCube1->PutHTMLPicture(L"P4","c:\\exontrol\\images\\auction.gif");
EXTREECUBELib::IFacePtr var_Face = spTreeCube1->GetFrontFace();
	EXTREECUBELib::IFaceTreePtr var_FaceTree = var_Face->CreateTree();
		var_FaceTree->GetColumns()->Add(L"Default")->PutAlignment(EXTREECUBELib::LeftAlignment);
		EXTREECUBELib::IItemsPtr var_Items = var_FaceTree->GetItems();
			EXTREECUBELib::IItemPtr var_Item = var_Items->Add("Choose your quick actions");
				var_Item->PutSingleLine(long(0),VARIANT_FALSE);
				EXTREECUBELib::IItemPtr var_Item1 = var_Item->GetItems()->Add("");
					var_Item1->PutHeight(48);
					_bstr_t s = 0;
					var_Item1->PutValue(s,"<c><img>P1</img>");
					var_Item1->PutCellWidth(s,48);
					var_Item1->PutHasButton(s,VARIANT_TRUE);
					s = var_Item1->GetSplitCell(s);
					var_Item1->PutValue(s,"<c><img>P2</img>");
					var_Item1->PutCellWidth(s,48);
					var_Item1->PutHasButton(s,VARIANT_TRUE);
					s = var_Item1->GetSplitCell(s);
					var_Item1->PutValue(s,"<c><img>P3</img>");
					var_Item1->PutCellWidth(s,48);
					var_Item1->PutHasButton(s,VARIANT_TRUE);
					s = var_Item1->GetSplitCell(s);
					var_Item1->PutValue(s,"<c><img>P4</img>");
					var_Item1->PutCellWidth(s,48);
					var_Item1->PutHasButton(s,VARIANT_TRUE);
					s = var_Item1->GetSplitCell(s);
				var_Item->PutExpanded(VARIANT_TRUE);
spTreeCube1->EndUpdate();

C++ Builder

TreeCube1->BeginUpdate();
TreeCube1->TexturePicturePath = L"";
TreeCube1->HTMLPicture[L"P1"] = TVariant("c:\\exontrol\\images\\zipdisk.gif");
TreeCube1->HTMLPicture[L"P2"] = TVariant("c:\\exontrol\\images\\auction.gif");
TreeCube1->HTMLPicture[L"P3"] = TVariant("c:\\exontrol\\images\\colorize.gif");
TreeCube1->HTMLPicture[L"P4"] = TVariant("c:\\exontrol\\images\\auction.gif");
Extreecubelib_tlb::IFacePtr var_Face = TreeCube1->FrontFace;
	Extreecubelib_tlb::IFaceTreePtr var_FaceTree = var_Face->CreateTree();
		var_FaceTree->Columns->Add(L"Default")->Alignment = Extreecubelib_tlb::AlignmentEnum::LeftAlignment;
		Extreecubelib_tlb::IItemsPtr var_Items = var_FaceTree->Items;
			Extreecubelib_tlb::IItemPtr var_Item = var_Items->Add(TVariant("Choose your quick actions"));
				var_Item->set_SingleLine(TVariant(0),false);
				Extreecubelib_tlb::IItemPtr var_Item1 = var_Item->Items->Add(TVariant(""));
					var_Item1->Height = 48;
					String s = 0;
					var_Item1->set_Value(TVariant(s),TVariant("<c><img>P1</img>"));
					var_Item1->set_CellWidth(TVariant(s),48);
					var_Item1->set_HasButton(TVariant(s),true);
					s = TVariant(var_Item1->get_SplitCell(TVariant(s)));
					var_Item1->set_Value(TVariant(s),TVariant("<c><img>P2</img>"));
					var_Item1->set_CellWidth(TVariant(s),48);
					var_Item1->set_HasButton(TVariant(s),true);
					s = TVariant(var_Item1->get_SplitCell(TVariant(s)));
					var_Item1->set_Value(TVariant(s),TVariant("<c><img>P3</img>"));
					var_Item1->set_CellWidth(TVariant(s),48);
					var_Item1->set_HasButton(TVariant(s),true);
					s = TVariant(var_Item1->get_SplitCell(TVariant(s)));
					var_Item1->set_Value(TVariant(s),TVariant("<c><img>P4</img>"));
					var_Item1->set_CellWidth(TVariant(s),48);
					var_Item1->set_HasButton(TVariant(s),true);
					s = TVariant(var_Item1->get_SplitCell(TVariant(s)));
				var_Item->Expanded = true;
TreeCube1->EndUpdate();

extreecube1.BeginUpdate();
extreecube1.TexturePicturePath = "";
extreecube1.set_HTMLPicture("P1","c:\\exontrol\\images\\zipdisk.gif");
extreecube1.set_HTMLPicture("P2","c:\\exontrol\\images\\auction.gif");
extreecube1.set_HTMLPicture("P3","c:\\exontrol\\images\\colorize.gif");
extreecube1.set_HTMLPicture("P4","c:\\exontrol\\images\\auction.gif");
exontrol.EXTREECUBELib.Face var_Face = extreecube1.FrontFace;
	exontrol.EXTREECUBELib.FaceTree var_FaceTree = var_Face.CreateTree();
		var_FaceTree.Columns.Add("Default").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment;
		exontrol.EXTREECUBELib.Items var_Items = var_FaceTree.Items;
			exontrol.EXTREECUBELib.Item var_Item = var_Items.Add("Choose your quick actions");
				var_Item.set_SingleLine(0,false);
				exontrol.EXTREECUBELib.Item var_Item1 = var_Item.Items.Add("");
					var_Item1.Height = 48;
					string s = 0;
					var_Item1.set_Value(s,"<c><img>P1</img>");
					var_Item1.set_CellWidth(s,48);
					var_Item1.set_HasButton(s,true);
					s = var_Item1.get_SplitCell(s);
					var_Item1.set_Value(s,"<c><img>P2</img>");
					var_Item1.set_CellWidth(s,48);
					var_Item1.set_HasButton(s,true);
					s = var_Item1.get_SplitCell(s);
					var_Item1.set_Value(s,"<c><img>P3</img>");
					var_Item1.set_CellWidth(s,48);
					var_Item1.set_HasButton(s,true);
					s = var_Item1.get_SplitCell(s);
					var_Item1.set_Value(s,"<c><img>P4</img>");
					var_Item1.set_CellWidth(s,48);
					var_Item1.set_HasButton(s,true);
					s = var_Item1.get_SplitCell(s);
				var_Item.Expanded = true;
extreecube1.EndUpdate();

JScript/JavaScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	TreeCube1.BeginUpdate();
	TreeCube1.TexturePicturePath = "";
	TreeCube1.HTMLPicture("P1") = "c:\\exontrol\\images\\zipdisk.gif";
	TreeCube1.HTMLPicture("P2") = "c:\\exontrol\\images\\auction.gif";
	TreeCube1.HTMLPicture("P3") = "c:\\exontrol\\images\\colorize.gif";
	TreeCube1.HTMLPicture("P4") = "c:\\exontrol\\images\\auction.gif";
	var var_Face = TreeCube1.FrontFace;
		var var_FaceTree = var_Face.CreateTree();
			var_FaceTree.Columns.Add("Default").Alignment = 0;
			var var_Items = var_FaceTree.Items;
				var var_Item = var_Items.Add("Choose your quick actions");
					var_Item.SingleLine(0) = false;
					var var_Item1 = var_Item.Items.Add("");
						var_Item1.Height = 48;
						var s = 0;
						var_Item1.Value(s) = "<c><img>P1</img>";
						var_Item1.CellWidth(s) = 48;
						var_Item1.HasButton(s) = true;
						s = var_Item1.SplitCell(s);
						var_Item1.Value(s) = "<c><img>P2</img>";
						var_Item1.CellWidth(s) = 48;
						var_Item1.HasButton(s) = true;
						s = var_Item1.SplitCell(s);
						var_Item1.Value(s) = "<c><img>P3</img>";
						var_Item1.CellWidth(s) = 48;
						var_Item1.HasButton(s) = true;
						s = var_Item1.SplitCell(s);
						var_Item1.Value(s) = "<c><img>P4</img>";
						var_Item1.CellWidth(s) = 48;
						var_Item1.HasButton(s) = true;
						s = var_Item1.SplitCell(s);
					var_Item.Expanded = true;
	TreeCube1.EndUpdate();
}
</SCRIPT>
</BODY>

VBScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.BeginUpdate 
		.TexturePicturePath = ""
		.HTMLPicture("P1") = "c:\exontrol\images\zipdisk.gif"
		.HTMLPicture("P2") = "c:\exontrol\images\auction.gif"
		.HTMLPicture("P3") = "c:\exontrol\images\colorize.gif"
		.HTMLPicture("P4") = "c:\exontrol\images\auction.gif"
		With .FrontFace
			With .CreateTree
				.Columns.Add("Default").Alignment = 0
				With .Items
					With .Add("Choose your quick actions")
						.SingleLine(0) = False
						With .Items.Add("")
							.Height = 48
							s = 0
							.Value(s) = "<c><img>P1</img>"
							.CellWidth(s) = 48
							.HasButton(s) = True
							s = .SplitCell(s)
							.Value(s) = "<c><img>P2</img>"
							.CellWidth(s) = 48
							.HasButton(s) = True
							s = .SplitCell(s)
							.Value(s) = "<c><img>P3</img>"
							.CellWidth(s) = 48
							.HasButton(s) = True
							s = .SplitCell(s)
							.Value(s) = "<c><img>P4</img>"
							.CellWidth(s) = 48
							.HasButton(s) = True
							s = .SplitCell(s)
						End With
						.Expanded = True
					End With
				End With
			End With
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

axTreeCube1.BeginUpdate();
axTreeCube1.TexturePicturePath = "";
axTreeCube1.set_HTMLPicture("P1","c:\\exontrol\\images\\zipdisk.gif");
axTreeCube1.set_HTMLPicture("P2","c:\\exontrol\\images\\auction.gif");
axTreeCube1.set_HTMLPicture("P3","c:\\exontrol\\images\\colorize.gif");
axTreeCube1.set_HTMLPicture("P4","c:\\exontrol\\images\\auction.gif");
EXTREECUBELib.Face var_Face = axTreeCube1.FrontFace;
	EXTREECUBELib.FaceTree var_FaceTree = var_Face.CreateTree();
		var_FaceTree.Columns.Add("Default").Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment;
		EXTREECUBELib.Items var_Items = var_FaceTree.Items;
			EXTREECUBELib.Item var_Item = var_Items.Add("Choose your quick actions");
				var_Item.set_SingleLine(0,false);
				EXTREECUBELib.Item var_Item1 = var_Item.Items.Add("");
					var_Item1.Height = 48;
					string s = 0;
					var_Item1.set_Value(s,"<c><img>P1</img>");
					var_Item1.set_CellWidth(s,48);
					var_Item1.set_HasButton(s,true);
					s = var_Item1.get_SplitCell(s);
					var_Item1.set_Value(s,"<c><img>P2</img>");
					var_Item1.set_CellWidth(s,48);
					var_Item1.set_HasButton(s,true);
					s = var_Item1.get_SplitCell(s);
					var_Item1.set_Value(s,"<c><img>P3</img>");
					var_Item1.set_CellWidth(s,48);
					var_Item1.set_HasButton(s,true);
					s = var_Item1.get_SplitCell(s);
					var_Item1.set_Value(s,"<c><img>P4</img>");
					var_Item1.set_CellWidth(s,48);
					var_Item1.set_HasButton(s,true);
					s = var_Item1.get_SplitCell(s);
				var_Item.Expanded = true;
axTreeCube1.EndUpdate();

X++ (Dynamics Ax 2009)

public void init()
{
	COM com_Column,com_Columns,com_Face,com_FaceTree,com_Item,com_Item1,com_Items,com_Items1;
	anytype var_Column,var_Columns,var_Face,var_FaceTree,var_Item,var_Item1,var_Items,var_Items1;
	str s;
	;

	super();

	extreecube1.BeginUpdate();
	extreecube1.TexturePicturePath("");
	extreecube1.HTMLPicture("P1","c:\\exontrol\\images\\zipdisk.gif");
	extreecube1.HTMLPicture("P2","c:\\exontrol\\images\\auction.gif");
	extreecube1.HTMLPicture("P3","c:\\exontrol\\images\\colorize.gif");
	extreecube1.HTMLPicture("P4","c:\\exontrol\\images\\auction.gif");
	var_Face = extreecube1.FrontFace(); com_Face = var_Face;
		var_FaceTree = com_Face.CreateTree(); com_FaceTree = var_FaceTree;
			var_Columns = COM::createFromObject(com_FaceTree.Columns()); com_Columns = var_Columns;
			var_Column = COM::createFromObject(com_Columns).Add("Default"); com_Column = var_Column;
			com_Column.Alignment(0/*LeftAlignment*/);
			var_Items = com_FaceTree.Items(); com_Items = var_Items;
				var_Item = com_Items.Add("Choose your quick actions"); com_Item = var_Item;
					com_Item.SingleLine(COMVariant::createFromInt(0),false);
					var_Items1 = COM::createFromObject(com_Item.Items()); com_Items1 = var_Items1;
					var_Item1 = COM::createFromObject(com_Items1).Add(""); com_Item1 = var_Item1;
						com_Item1.Height(48);
						s = 0;
						com_Item1.Value(s,"<c><img>P1</img>");
						com_Item1.CellWidth(s,48);
						com_Item1.HasButton(s,true);
						s = com_Item1.SplitCell(s);
						com_Item1.Value(s,"<c><img>P2</img>");
						com_Item1.CellWidth(s,48);
						com_Item1.HasButton(s,true);
						s = com_Item1.SplitCell(s);
						com_Item1.Value(s,"<c><img>P3</img>");
						com_Item1.CellWidth(s,48);
						com_Item1.HasButton(s,true);
						s = com_Item1.SplitCell(s);
						com_Item1.Value(s,"<c><img>P4</img>");
						com_Item1.CellWidth(s,48);
						com_Item1.HasButton(s,true);
						s = com_Item1.SplitCell(s);
					com_Item.Expanded(true);
	extreecube1.EndUpdate();
}

Delphi 8 (.NET only)

with AxTreeCube1 do
begin
	BeginUpdate();
	TexturePicturePath := '';
	set_HTMLPicture('P1','c:\exontrol\images\zipdisk.gif');
	set_HTMLPicture('P2','c:\exontrol\images\auction.gif');
	set_HTMLPicture('P3','c:\exontrol\images\colorize.gif');
	set_HTMLPicture('P4','c:\exontrol\images\auction.gif');
	with FrontFace do
	begin
		with CreateTree() do
		begin
			Columns.Add('Default').Alignment := EXTREECUBELib.AlignmentEnum.LeftAlignment;
			with Items do
			begin
				with Add('Choose your quick actions') do
				begin
					SingleLine[TObject(0)] := False;
					with Items.Add('') do
					begin
						Height := 48;
						s := 0;
						Value[TObject(s)] := '<c><img>P1</img>';
						CellWidth[TObject(s)] := 48;
						HasButton[TObject(s)] := True;
						s := SplitCell[TObject(s)];
						Value[TObject(s)] := '<c><img>P2</img>';
						CellWidth[TObject(s)] := 48;
						HasButton[TObject(s)] := True;
						s := SplitCell[TObject(s)];
						Value[TObject(s)] := '<c><img>P3</img>';
						CellWidth[TObject(s)] := 48;
						HasButton[TObject(s)] := True;
						s := SplitCell[TObject(s)];
						Value[TObject(s)] := '<c><img>P4</img>';
						CellWidth[TObject(s)] := 48;
						HasButton[TObject(s)] := True;
						s := SplitCell[TObject(s)];
					end;
					Expanded := True;
				end;
			end;
		end;
	end;
	EndUpdate();
end

Delphi (standard)

with TreeCube1 do
begin
	BeginUpdate();
	TexturePicturePath := '';
	HTMLPicture['P1'] := 'c:\exontrol\images\zipdisk.gif';
	HTMLPicture['P2'] := 'c:\exontrol\images\auction.gif';
	HTMLPicture['P3'] := 'c:\exontrol\images\colorize.gif';
	HTMLPicture['P4'] := 'c:\exontrol\images\auction.gif';
	with FrontFace do
	begin
		with CreateTree() do
		begin
			Columns.Add('Default').Alignment := EXTREECUBELib_TLB.LeftAlignment;
			with Items do
			begin
				with Add('Choose your quick actions') do
				begin
					SingleLine[OleVariant(0)] := False;
					with Items.Add('') do
					begin
						Height := 48;
						s := 0;
						Value[OleVariant(s)] := '<c><img>P1</img>';
						CellWidth[OleVariant(s)] := 48;
						HasButton[OleVariant(s)] := True;
						s := SplitCell[OleVariant(s)];
						Value[OleVariant(s)] := '<c><img>P2</img>';
						CellWidth[OleVariant(s)] := 48;
						HasButton[OleVariant(s)] := True;
						s := SplitCell[OleVariant(s)];
						Value[OleVariant(s)] := '<c><img>P3</img>';
						CellWidth[OleVariant(s)] := 48;
						HasButton[OleVariant(s)] := True;
						s := SplitCell[OleVariant(s)];
						Value[OleVariant(s)] := '<c><img>P4</img>';
						CellWidth[OleVariant(s)] := 48;
						HasButton[OleVariant(s)] := True;
						s := SplitCell[OleVariant(s)];
					end;
					Expanded := True;
				end;
			end;
		end;
	end;
	EndUpdate();
end

VFP

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	.Object.HTMLPicture("P1") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("P2") = "c:\exontrol\images\auction.gif"
	.Object.HTMLPicture("P3") = "c:\exontrol\images\colorize.gif"
	.Object.HTMLPicture("P4") = "c:\exontrol\images\auction.gif"
	with .FrontFace
		with .CreateTree
			.Columns.Add("Default").Alignment = 0
			with .Items
				with .Add("Choose your quick actions")
					.SingleLine(0) = .F.
					with .Items.Add("")
						.Height = 48
						s = 0
						.Value(s) = "<c><img>P1</img>"
						.CellWidth(s) = 48
						.HasButton(s) = .T.
						s = .SplitCell(s)
						.Value(s) = "<c><img>P2</img>"
						.CellWidth(s) = 48
						.HasButton(s) = .T.
						s = .SplitCell(s)
						.Value(s) = "<c><img>P3</img>"
						.CellWidth(s) = 48
						.HasButton(s) = .T.
						s = .SplitCell(s)
						.Value(s) = "<c><img>P4</img>"
						.CellWidth(s) = 48
						.HasButton(s) = .T.
						s = .SplitCell(s)
					endwith
					.Expanded = .T.
				endwith
			endwith
		endwith
	endwith
	.EndUpdate
endwith

dBASE Plus

local oTreeCube,s,var_Column,var_Face,var_FaceTree,var_Item,var_Item1,var_Items

oTreeCube = form.EXTREECUBEACTIVEXCONTROL1.nativeObject
oTreeCube.BeginUpdate()
oTreeCube.TexturePicturePath = ""
oTreeCube.Template = [HTMLPicture("P1") = "c:\exontrol\images\zipdisk.gif"] // oTreeCube.HTMLPicture("P1") = "c:\exontrol\images\zipdisk.gif"
oTreeCube.Template = [HTMLPicture("P2") = "c:\exontrol\images\auction.gif"] // oTreeCube.HTMLPicture("P2") = "c:\exontrol\images\auction.gif"
oTreeCube.Template = [HTMLPicture("P3") = "c:\exontrol\images\colorize.gif"] // oTreeCube.HTMLPicture("P3") = "c:\exontrol\images\colorize.gif"
oTreeCube.Template = [HTMLPicture("P4") = "c:\exontrol\images\auction.gif"] // oTreeCube.HTMLPicture("P4") = "c:\exontrol\images\auction.gif"
var_Face = oTreeCube.FrontFace
	var_FaceTree = var_Face.CreateTree()
		// var_FaceTree.Columns.Add("Default").Alignment = 0
		var_Column = var_FaceTree.Columns.Add("Default")
		with (oTreeCube)
			TemplateDef = [dim var_Column]
			TemplateDef = var_Column
			Template = [var_Column.Alignment = 0]
		endwith
		var_Items = var_FaceTree.Items
			var_Item = var_Items.Add("Choose your quick actions")
				// var_Item.SingleLine(0) = false
				with (oTreeCube)
					TemplateDef = [dim var_Item]
					TemplateDef = var_Item
					Template = [var_Item.SingleLine(0) = False]
				endwith
				var_Item1 = var_Item.Items.Add("")
					var_Item1.Height = 48
					s = 0
					// var_Item1.Value(s) = "<c><img>P1</img>"
					with (oTreeCube)
						TemplateDef = [dim var_Item1,s]
						TemplateDef = var_Item1
						TemplateDef = s
						Template = [var_Item1.Value(s) = "<c><img>P1</img>"]
					endwith
					// var_Item1.CellWidth(s) = 48
					with (oTreeCube)
						TemplateDef = [dim var_Item1,s]
						TemplateDef = var_Item1
						TemplateDef = s
						Template = [var_Item1.CellWidth(s) = 48]
					endwith
					// var_Item1.HasButton(s) = true
					with (oTreeCube)
						TemplateDef = [dim var_Item1,s]
						TemplateDef = var_Item1
						TemplateDef = s
						Template = [var_Item1.HasButton(s) = True]
					endwith
					s = var_Item1.SplitCell(s)
					// var_Item1.Value(s) = "<c><img>P2</img>"
					with (oTreeCube)
						TemplateDef = [dim var_Item1,s]
						TemplateDef = var_Item1
						TemplateDef = s
						Template = [var_Item1.Value(s) = "<c><img>P2</img>"]
					endwith
					// var_Item1.CellWidth(s) = 48
					with (oTreeCube)
						TemplateDef = [dim var_Item1,s]
						TemplateDef = var_Item1
						TemplateDef = s
						Template = [var_Item1.CellWidth(s) = 48]
					endwith
					// var_Item1.HasButton(s) = true
					with (oTreeCube)
						TemplateDef = [dim var_Item1,s]
						TemplateDef = var_Item1
						TemplateDef = s
						Template = [var_Item1.HasButton(s) = True]
					endwith
					s = var_Item1.SplitCell(s)
					// var_Item1.Value(s) = "<c><img>P3</img>"
					with (oTreeCube)
						TemplateDef = [dim var_Item1,s]
						TemplateDef = var_Item1
						TemplateDef = s
						Template = [var_Item1.Value(s) = "<c><img>P3</img>"]
					endwith
					// var_Item1.CellWidth(s) = 48
					with (oTreeCube)
						TemplateDef = [dim var_Item1,s]
						TemplateDef = var_Item1
						TemplateDef = s
						Template = [var_Item1.CellWidth(s) = 48]
					endwith
					// var_Item1.HasButton(s) = true
					with (oTreeCube)
						TemplateDef = [dim var_Item1,s]
						TemplateDef = var_Item1
						TemplateDef = s
						Template = [var_Item1.HasButton(s) = True]
					endwith
					s = var_Item1.SplitCell(s)
					// var_Item1.Value(s) = "<c><img>P4</img>"
					with (oTreeCube)
						TemplateDef = [dim var_Item1,s]
						TemplateDef = var_Item1
						TemplateDef = s
						Template = [var_Item1.Value(s) = "<c><img>P4</img>"]
					endwith
					// var_Item1.CellWidth(s) = 48
					with (oTreeCube)
						TemplateDef = [dim var_Item1,s]
						TemplateDef = var_Item1
						TemplateDef = s
						Template = [var_Item1.CellWidth(s) = 48]
					endwith
					// var_Item1.HasButton(s) = true
					with (oTreeCube)
						TemplateDef = [dim var_Item1,s]
						TemplateDef = var_Item1
						TemplateDef = s
						Template = [var_Item1.HasButton(s) = True]
					endwith
					s = var_Item1.SplitCell(s)
				var_Item.Expanded = true
oTreeCube.EndUpdate()

XBasic (Alpha Five)

Dim oTreeCube as P
Dim s as 
Dim var_Column as local
Dim var_Face as P
Dim var_FaceTree as P
Dim var_Item as P
Dim var_Item1 as P
Dim var_Items as P

oTreeCube = topparent:CONTROL_ACTIVEX1.activex
oTreeCube.BeginUpdate()
oTreeCube.TexturePicturePath = ""
oTreeCube.Template = "HTMLPicture(`P1`) = `c:\exontrol\images\zipdisk.gif`" // oTreeCube.HTMLPicture("P1") = "c:\exontrol\images\zipdisk.gif"
oTreeCube.Template = "HTMLPicture(`P2`) = `c:\exontrol\images\auction.gif`" // oTreeCube.HTMLPicture("P2") = "c:\exontrol\images\auction.gif"
oTreeCube.Template = "HTMLPicture(`P3`) = `c:\exontrol\images\colorize.gif`" // oTreeCube.HTMLPicture("P3") = "c:\exontrol\images\colorize.gif"
oTreeCube.Template = "HTMLPicture(`P4`) = `c:\exontrol\images\auction.gif`" // oTreeCube.HTMLPicture("P4") = "c:\exontrol\images\auction.gif"
var_Face = oTreeCube.FrontFace
	var_FaceTree = var_Face.CreateTree()
		' var_FaceTree.Columns.Add("Default").Alignment = 0
		var_Column = var_FaceTree.Columns.Add("Default")
		oTreeCube.TemplateDef = "dim var_Column"
		oTreeCube.TemplateDef = var_Column
		oTreeCube.Template = "var_Column.Alignment = 0"

		var_Items = var_FaceTree.Items
			var_Item = var_Items.Add("Choose your quick actions")
				' var_Item.SingleLine(0) = .f.
				oTreeCube.TemplateDef = "dim var_Item"
				oTreeCube.TemplateDef = var_Item
				oTreeCube.Template = "var_Item.SingleLine(0) = False"

				var_Item1 = var_Item.Items.Add("")
					var_Item1.Height = 48
					s = 0
					' var_Item1.Value(s) = "<c><img>P1</img>"
					oTreeCube.TemplateDef = "dim var_Item1,s"
					oTreeCube.TemplateDef = var_Item1
					oTreeCube.TemplateDef = s
					oTreeCube.Template = "var_Item1.Value(s) = `<c><img>P1</img>`"

					' var_Item1.CellWidth(s) = 48
					oTreeCube.TemplateDef = "dim var_Item1,s"
					oTreeCube.TemplateDef = var_Item1
					oTreeCube.TemplateDef = s
					oTreeCube.Template = "var_Item1.CellWidth(s) = 48"

					' var_Item1.HasButton(s) = .t.
					oTreeCube.TemplateDef = "dim var_Item1,s"
					oTreeCube.TemplateDef = var_Item1
					oTreeCube.TemplateDef = s
					oTreeCube.Template = "var_Item1.HasButton(s) = True"

					s = var_Item1.SplitCell(s)
					' var_Item1.Value(s) = "<c><img>P2</img>"
					oTreeCube.TemplateDef = "dim var_Item1,s"
					oTreeCube.TemplateDef = var_Item1
					oTreeCube.TemplateDef = s
					oTreeCube.Template = "var_Item1.Value(s) = `<c><img>P2</img>`"

					' var_Item1.CellWidth(s) = 48
					oTreeCube.TemplateDef = "dim var_Item1,s"
					oTreeCube.TemplateDef = var_Item1
					oTreeCube.TemplateDef = s
					oTreeCube.Template = "var_Item1.CellWidth(s) = 48"

					' var_Item1.HasButton(s) = .t.
					oTreeCube.TemplateDef = "dim var_Item1,s"
					oTreeCube.TemplateDef = var_Item1
					oTreeCube.TemplateDef = s
					oTreeCube.Template = "var_Item1.HasButton(s) = True"

					s = var_Item1.SplitCell(s)
					' var_Item1.Value(s) = "<c><img>P3</img>"
					oTreeCube.TemplateDef = "dim var_Item1,s"
					oTreeCube.TemplateDef = var_Item1
					oTreeCube.TemplateDef = s
					oTreeCube.Template = "var_Item1.Value(s) = `<c><img>P3</img>`"

					' var_Item1.CellWidth(s) = 48
					oTreeCube.TemplateDef = "dim var_Item1,s"
					oTreeCube.TemplateDef = var_Item1
					oTreeCube.TemplateDef = s
					oTreeCube.Template = "var_Item1.CellWidth(s) = 48"

					' var_Item1.HasButton(s) = .t.
					oTreeCube.TemplateDef = "dim var_Item1,s"
					oTreeCube.TemplateDef = var_Item1
					oTreeCube.TemplateDef = s
					oTreeCube.Template = "var_Item1.HasButton(s) = True"

					s = var_Item1.SplitCell(s)
					' var_Item1.Value(s) = "<c><img>P4</img>"
					oTreeCube.TemplateDef = "dim var_Item1,s"
					oTreeCube.TemplateDef = var_Item1
					oTreeCube.TemplateDef = s
					oTreeCube.Template = "var_Item1.Value(s) = `<c><img>P4</img>`"

					' var_Item1.CellWidth(s) = 48
					oTreeCube.TemplateDef = "dim var_Item1,s"
					oTreeCube.TemplateDef = var_Item1
					oTreeCube.TemplateDef = s
					oTreeCube.Template = "var_Item1.CellWidth(s) = 48"

					' var_Item1.HasButton(s) = .t.
					oTreeCube.TemplateDef = "dim var_Item1,s"
					oTreeCube.TemplateDef = var_Item1
					oTreeCube.TemplateDef = s
					oTreeCube.Template = "var_Item1.HasButton(s) = True"

					s = var_Item1.SplitCell(s)
				var_Item.Expanded = .t.
oTreeCube.EndUpdate()

Visual Objects

local var_Face as IFace
local var_FaceTree as IFaceTree
local var_Item,var_Item1 as IItem
local var_Items as IItems
local s as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:TexturePicturePath := ""
oDCOCX_Exontrol1:[HTMLPicture,"P1"] := "c:\exontrol\images\zipdisk.gif"
oDCOCX_Exontrol1:[HTMLPicture,"P2"] := "c:\exontrol\images\auction.gif"
oDCOCX_Exontrol1:[HTMLPicture,"P3"] := "c:\exontrol\images\colorize.gif"
oDCOCX_Exontrol1:[HTMLPicture,"P4"] := "c:\exontrol\images\auction.gif"
var_Face := oDCOCX_Exontrol1:FrontFace
	var_FaceTree := var_Face:CreateTree()
		var_FaceTree:Columns:Add("Default"):Alignment := LeftAlignment
		var_Items := var_FaceTree:Items
			var_Item := var_Items:Add("Choose your quick actions")
				var_Item:[SingleLine,0] := false
				var_Item1 := var_Item:Items:Add("")
					var_Item1:Height := 48
					s := 0
					var_Item1:[Value,s] := "<c><img>P1</img>"
					var_Item1:[CellWidth,s] := 48
					var_Item1:[HasButton,s] := true
					s := var_Item1:[SplitCell,s]
					var_Item1:[Value,s] := "<c><img>P2</img>"
					var_Item1:[CellWidth,s] := 48
					var_Item1:[HasButton,s] := true
					s := var_Item1:[SplitCell,s]
					var_Item1:[Value,s] := "<c><img>P3</img>"
					var_Item1:[CellWidth,s] := 48
					var_Item1:[HasButton,s] := true
					s := var_Item1:[SplitCell,s]
					var_Item1:[Value,s] := "<c><img>P4</img>"
					var_Item1:[CellWidth,s] := 48
					var_Item1:[HasButton,s] := true
					s := var_Item1:[SplitCell,s]
				var_Item:Expanded := true
oDCOCX_Exontrol1:EndUpdate()

PowerBuilder

OleObject oTreeCube,var_Face,var_FaceTree,var_Item,var_Item1,var_Items
any s

oTreeCube = ole_1.Object
oTreeCube.BeginUpdate()
oTreeCube.TexturePicturePath = ""
oTreeCube.HTMLPicture("P1","c:\exontrol\images\zipdisk.gif")
oTreeCube.HTMLPicture("P2","c:\exontrol\images\auction.gif")
oTreeCube.HTMLPicture("P3","c:\exontrol\images\colorize.gif")
oTreeCube.HTMLPicture("P4","c:\exontrol\images\auction.gif")
var_Face = oTreeCube.FrontFace
	var_FaceTree = var_Face.CreateTree()
		var_FaceTree.Columns.Add("Default").Alignment = 0
		var_Items = var_FaceTree.Items
			var_Item = var_Items.Add("Choose your quick actions")
				var_Item.SingleLine(0,false)
				var_Item1 = var_Item.Items.Add("")
					var_Item1.Height = 48
					s = 0
					var_Item1.Value(s,"<c><img>P1</img>")
					var_Item1.CellWidth(s,48)
					var_Item1.HasButton(s,true)
					s = var_Item1.SplitCell(s)
					var_Item1.Value(s,"<c><img>P2</img>")
					var_Item1.CellWidth(s,48)
					var_Item1.HasButton(s,true)
					s = var_Item1.SplitCell(s)
					var_Item1.Value(s,"<c><img>P3</img>")
					var_Item1.CellWidth(s,48)
					var_Item1.HasButton(s,true)
					s = var_Item1.SplitCell(s)
					var_Item1.Value(s,"<c><img>P4</img>")
					var_Item1.CellWidth(s,48)
					var_Item1.HasButton(s,true)
					s = var_Item1.SplitCell(s)
				var_Item.Expanded = true
oTreeCube.EndUpdate()

Visual DataFlex

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Set ComHTMLPicture "P1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "P2" to "c:\exontrol\images\auction.gif"
	Set ComHTMLPicture "P3" to "c:\exontrol\images\colorize.gif"
	Set ComHTMLPicture "P4" to "c:\exontrol\images\auction.gif"
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "Default" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant voItem
				Get ComAdd of hoItems "Choose your quick actions" to voItem
				Handle hoItem
				Get Create (RefClass(cComItem)) to hoItem
				Set pvComObject of hoItem to voItem
					Set ComSingleLine of hoItem 0 to False
					Variant voItems1
					Get ComItems of hoItem to voItems1
					Handle hoItems1
					Get Create (RefClass(cComItems)) to hoItems1
					Set pvComObject of hoItems1 to voItems1
						Variant voItem1
						Get ComAdd of hoItems1 "" to voItem1
						Handle hoItem1
						Get Create (RefClass(cComItem)) to hoItem1
						Set pvComObject of hoItem1 to voItem1
							Set ComHeight of hoItem1 to 48
							Variant s
							Move 0 to s
							Set ComValue of hoItem1 s to "<c><img>P1</img>"
							Set ComCellWidth of hoItem1 s to 48
							Set ComHasButton of hoItem1 s to True
							Get ComSplitCell of hoItem1 s to s
							Set ComValue of hoItem1 s to "<c><img>P2</img>"
							Set ComCellWidth of hoItem1 s to 48
							Set ComHasButton of hoItem1 s to True
							Get ComSplitCell of hoItem1 s to s
							Set ComValue of hoItem1 s to "<c><img>P3</img>"
							Set ComCellWidth of hoItem1 s to 48
							Set ComHasButton of hoItem1 s to True
							Get ComSplitCell of hoItem1 s to s
							Set ComValue of hoItem1 s to "<c><img>P4</img>"
							Set ComCellWidth of hoItem1 s to 48
							Set ComHasButton of hoItem1 s to True
							Get ComSplitCell of hoItem1 s to s
						Send Destroy to hoItem1
					Send Destroy to hoItems1
					Set ComExpanded of hoItem to True
				Send Destroy to hoItem
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

XBase++

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oFace
	LOCAL oFaceTree
	LOCAL oItem,oItem1
	LOCAL oItems
	LOCAL oTreeCube
	LOCAL s

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oTreeCube := XbpActiveXControl():new( oForm:drawingArea )
	oTreeCube:CLSID  := "Exontrol.TreeCube.1" /*{13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9}*/
	oTreeCube:create(,, {10,60},{610,370} )

		oTreeCube:BeginUpdate()
		oTreeCube:TexturePicturePath := ""
		oTreeCube:SetProperty("HTMLPicture","P1","c:\exontrol\images\zipdisk.gif")
		oTreeCube:SetProperty("HTMLPicture","P2","c:\exontrol\images\auction.gif")
		oTreeCube:SetProperty("HTMLPicture","P3","c:\exontrol\images\colorize.gif")
		oTreeCube:SetProperty("HTMLPicture","P4","c:\exontrol\images\auction.gif")
		oFace := oTreeCube:FrontFace()
			oFaceTree := oFace:CreateTree()
				oFaceTree:Columns():Add("Default"):Alignment := 0/*LeftAlignment*/
				oItems := oFaceTree:Items()
					oItem := oItems:Add("Choose your quick actions")
						oItem:SetProperty("SingleLine",0,.F.)
						oItem1 := oItem:Items():Add("")
							oItem1:Height := 48
							s := 0
							oItem1:SetProperty("Value",s,"<c><img>P1</img>")
							oItem1:SetProperty("CellWidth",s,48)
							oItem1:SetProperty("HasButton",s,.T.)
							s := oItem1:SplitCell(s)
							oItem1:SetProperty("Value",s,"<c><img>P2</img>")
							oItem1:SetProperty("CellWidth",s,48)
							oItem1:SetProperty("HasButton",s,.T.)
							s := oItem1:SplitCell(s)
							oItem1:SetProperty("Value",s,"<c><img>P3</img>")
							oItem1:SetProperty("CellWidth",s,48)
							oItem1:SetProperty("HasButton",s,.T.)
							s := oItem1:SplitCell(s)
							oItem1:SetProperty("Value",s,"<c><img>P4</img>")
							oItem1:SetProperty("CellWidth",s,48)
							oItem1:SetProperty("HasButton",s,.T.)
							s := oItem1:SplitCell(s)
						oItem:Expanded := .T.
		oTreeCube:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN

		Type	Description
		ColIndex as Variant	A Long expression that specifies the index of the column, or A String expression that specifies the name of the column to split it.
		Variant	A long expression that indicates the handle of the cell being created.