event FaceTreeValueChanged (Tree as FaceTree)
Notifies that the user selects a new item/column/value into a face of the tree type.

TypeDescription
Tree as FaceTree A FaceTree object where the value has been changed.
The FaceTreeValueChanged / FaceTreeSelectionChanged event notifies your application once the user selects a new item/column. The Value property indicates the value of the selected item/column. The Caption property indicates the caption or the text being shown at the selected item/column. The ShowSelection property specifies whether the selection is shown or hidden. The FullRowSelect property specifies whether the selection is shown on single or all columns. The SelectItem property specifies the index of the item being selected. The SelectColumn property specifies the index of the column being selected. The SelBackColor property specifies  the visual appearance of selected cell/item. The SelForeColor property specifies  the foreground color of selected cell/item.

 

A face that contains a Tree control may fire any of the following events ( CreateTree, Type on exFaceTree ): 

Syntax for FaceTreeValueChanged event, /NET version, on:

private void FaceTreeValueChanged(object sender,exontrol.EXTREECUBELib.FaceTree   Tree)
{
}

Private Sub FaceTreeValueChanged(ByVal sender As System.Object,ByVal Tree As exontrol.EXTREECUBELib.FaceTree) Handles FaceTreeValueChanged
End Sub

Syntax for FaceTreeValueChanged event, /COM version, on:

private void FaceTreeValueChanged(object sender, AxEXTREECUBELib._ITreeCubeEvents_FaceTreeValueChangedEvent e)
{
}

void OnFaceTreeValueChanged(LPDISPATCH   Tree)
{
}

void __fastcall FaceTreeValueChanged(TObject *Sender,Extreecubelib_tlb::IFaceTree   *Tree)
{
}

procedure FaceTreeValueChanged(ASender: TObject; Tree : IFaceTree);
begin
end;

procedure FaceTreeValueChanged(sender: System.Object; e: AxEXTREECUBELib._ITreeCubeEvents_FaceTreeValueChangedEvent);
begin
end;

begin event FaceTreeValueChanged(oleobject  Tree)

end event FaceTreeValueChanged

Private Sub FaceTreeValueChanged(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_FaceTreeValueChangedEvent) Handles FaceTreeValueChanged
End Sub

Private Sub FaceTreeValueChanged(ByVal Tree As EXTREECUBELibCtl.IFaceTree)
End Sub

Private Sub FaceTreeValueChanged(ByVal Tree As Object)
End Sub

LPARAMETERS Tree

PROCEDURE OnFaceTreeValueChanged(oTreeCube,Tree)

RETURN

Syntax for FaceTreeValueChanged event, /COM version (others), on:

<SCRIPT EVENT="FaceTreeValueChanged(Tree)" LANGUAGE="JScript">
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function FaceTreeValueChanged(Tree)
End Function
</SCRIPT>

Procedure OnComFaceTreeValueChanged Variant   llTree
	Forward Send OnComFaceTreeValueChanged llTree
End_Procedure

METHOD OCX_FaceTreeValueChanged(Tree) CLASS MainDialog
RETURN NIL

void onEvent_FaceTreeValueChanged(COM   _Tree)
{
}

function FaceTreeValueChanged as v (Tree  as  OLE::Exontrol.TreeCube.1::IFaceTree)
end function

function nativeObject_FaceTreeValueChanged(Tree)
return

How do I get the selected caption?

VBA (MS Access, Excell...)

' FaceTreeSelectionChanged event - Notifies that the user selects a new item/column into a face of tree type.
Private Sub TreeCube1_FaceTreeSelectionChanged(ByVal Tree As Object)
	With TreeCube1
		Debug.Print( "Value" )
		Debug.Print( .FrontFace.FaceTree.Value )
		Debug.Print( "Caption" )
		Debug.Print( .FrontFace.FaceTree.Caption )
	End With
End Sub

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace
		With .CreateTree
			.ItemPadding = 20
			.Columns.Count = 5
			.HeaderVisible = False
			.Items.Count = TreeCube1.FrontFace.FaceTree.VisibleItemsCount
			.Columns.Item(0).FormatColumn = "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(1).FormatColumn = "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(2).FormatColumn = "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(3).FormatColumn = "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(4).FormatColumn = "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
		End With
	End With
End With

VB6

' FaceTreeSelectionChanged event - Notifies that the user selects a new item/column into a face of tree type.
Private Sub TreeCube1_FaceTreeSelectionChanged(ByVal Tree As EXTREECUBELibCtl.IFaceTree)
	With TreeCube1
		Debug.Print( "Value" )
		Debug.Print( .FrontFace.FaceTree.Value )
		Debug.Print( "Caption" )
		Debug.Print( .FrontFace.FaceTree.Caption )
	End With
End Sub

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace
		With .CreateTree
			.ItemPadding = 20
			.Columns.Count = 5
			.HeaderVisible = False
			.Items.Count = TreeCube1.FrontFace.FaceTree.VisibleItemsCount
			.Columns.Item(0).FormatColumn = "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(1).FormatColumn = "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(2).FormatColumn = "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(3).FormatColumn = "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(4).FormatColumn = "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
		End With
	End With
End With

VB.NET

' FaceTreeSelectionChanged event - Notifies that the user selects a new item/column into a face of tree type.
Private Sub Extreecube1_FaceTreeSelectionChanged(ByVal sender As System.Object,ByVal Tree As exontrol.EXTREECUBELib.FaceTree) Handles Extreecube1.FaceTreeSelectionChanged
	With Extreecube1
		Debug.Print( "Value" )
		Debug.Print( .FrontFace.FaceTree.Value )
		Debug.Print( "Caption" )
		Debug.Print( .FrontFace.FaceTree.Caption )
	End With
End Sub

With Extreecube1
	.TexturePicturePath = ""
	With .FrontFace
		With .CreateTree()
			.ItemPadding = 20
			.Columns.Count = 5
			.HeaderVisible = False
			.Items.Count = Extreecube1.FrontFace.FaceTree.VisibleItemsCount
			.Columns.Item(0).FormatColumn = "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(1).FormatColumn = "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(2).FormatColumn = "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(3).FormatColumn = "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(4).FormatColumn = "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
		End With
	End With
End With

VB.NET for /COM

' FaceTreeSelectionChanged event - Notifies that the user selects a new item/column into a face of tree type.
Private Sub AxTreeCube1_FaceTreeSelectionChanged(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_FaceTreeSelectionChangedEvent) Handles AxTreeCube1.FaceTreeSelectionChanged
	With AxTreeCube1
		Debug.Print( "Value" )
		Debug.Print( .FrontFace.FaceTree.Value )
		Debug.Print( "Caption" )
		Debug.Print( .FrontFace.FaceTree.Caption )
	End With
End Sub

With AxTreeCube1
	.TexturePicturePath = ""
	With .FrontFace
		With .CreateTree()
			.ItemPadding = 20
			.Columns.Count = 5
			.HeaderVisible = False
			.Items.Count = AxTreeCube1.FrontFace.FaceTree.VisibleItemsCount
			.Columns.Item(0).FormatColumn = "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(1).FormatColumn = "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(2).FormatColumn = "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(3).FormatColumn = "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(4).FormatColumn = "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
		End With
	End With
End With

C++

// FaceTreeSelectionChanged event - Notifies that the user selects a new item/column into a face of tree type.
void OnFaceTreeSelectionChangedTreeCube1(LPDISPATCH   Tree)
{
	/*
		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();
	OutputDebugStringW( L"Value" );
	OutputDebugStringW( _bstr_t(spTreeCube1->GetFrontFace()->GetFaceTree()->GetValue()) );
	OutputDebugStringW( L"Caption" );
	OutputDebugStringW( spTreeCube1->GetFrontFace()->GetFaceTree()->GetCaption() );
}

EXTREECUBELib::ITreeCubePtr spTreeCube1 = GetDlgItem(IDC_TREECUBE1)->GetControlUnknown();
spTreeCube1->PutTexturePicturePath(L"");
EXTREECUBELib::IFacePtr var_Face = spTreeCube1->GetFrontFace();
	EXTREECUBELib::IFaceTreePtr var_FaceTree = var_Face->CreateTree();
		var_FaceTree->PutItemPadding(20);
		var_FaceTree->GetColumns()->PutCount(5);
		var_FaceTree->PutHeaderVisible(VARIANT_FALSE);
		var_FaceTree->GetItems()->PutCount(spTreeCube1->GetFrontFace()->GetFaceTree()->GetVisibleItemsCount());
		var_FaceTree->GetColumns()->GetItem(long(0))->PutFormatColumn(L"(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0");
		var_FaceTree->GetColumns()->GetItem(long(1))->PutFormatColumn(L"(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0");
		var_FaceTree->GetColumns()->GetItem(long(2))->PutFormatColumn(L"(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0");
		var_FaceTree->GetColumns()->GetItem(long(3))->PutFormatColumn(L"(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0");
		var_FaceTree->GetColumns()->GetItem(long(4))->PutFormatColumn(L"(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0");

C++ Builder

// FaceTreeSelectionChanged event - Notifies that the user selects a new item/column into a face of tree type.
void __fastcall TForm1::TreeCube1FaceTreeSelectionChanged(TObject *Sender,Extreecubelib_tlb::IFaceTree   *Tree)
{
	OutputDebugString( L"Value" );
	OutputDebugString( PChar(TreeCube1->FrontFace->FaceTree->get_Value()) );
	OutputDebugString( L"Caption" );
	OutputDebugString( TreeCube1->FrontFace->FaceTree->Caption );
}

TreeCube1->TexturePicturePath = L"";
Extreecubelib_tlb::IFacePtr var_Face = TreeCube1->FrontFace;
	Extreecubelib_tlb::IFaceTreePtr var_FaceTree = var_Face->CreateTree();
		var_FaceTree->ItemPadding = 20;
		var_FaceTree->Columns->Count = 5;
		var_FaceTree->HeaderVisible = false;
		var_FaceTree->Items->Count = TreeCube1->FrontFace->FaceTree->VisibleItemsCount;
		var_FaceTree->Columns->get_Item(TVariant(0))->FormatColumn = L"(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0";
		var_FaceTree->Columns->get_Item(TVariant(1))->FormatColumn = L"(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0";
		var_FaceTree->Columns->get_Item(TVariant(2))->FormatColumn = L"(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0";
		var_FaceTree->Columns->get_Item(TVariant(3))->FormatColumn = L"(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0";
		var_FaceTree->Columns->get_Item(TVariant(4))->FormatColumn = L"(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0";

C#

// FaceTreeSelectionChanged event - Notifies that the user selects a new item/column into a face of tree type.
private void extreecube1_FaceTreeSelectionChanged(object sender,exontrol.EXTREECUBELib.FaceTree   Tree)
{
	System.Diagnostics.Debug.Print( "Value" );
	System.Diagnostics.Debug.Print( extreecube1.FrontFace.FaceTree.Value.ToString() );
	System.Diagnostics.Debug.Print( "Caption" );
	System.Diagnostics.Debug.Print( extreecube1.FrontFace.FaceTree.Caption );
}
//this.extreecube1.FaceTreeSelectionChanged += new exontrol.EXTREECUBELib.exg2antt.FaceTreeSelectionChangedEventHandler(this.extreecube1_FaceTreeSelectionChanged);

extreecube1.TexturePicturePath = "";
exontrol.EXTREECUBELib.Face var_Face = extreecube1.FrontFace;
	exontrol.EXTREECUBELib.FaceTree var_FaceTree = var_Face.CreateTree();
		var_FaceTree.ItemPadding = 20;
		var_FaceTree.Columns.Count = 5;
		var_FaceTree.HeaderVisible = false;
		var_FaceTree.Items.Count = extreecube1.FrontFace.FaceTree.VisibleItemsCount;
		var_FaceTree.Columns[0].FormatColumn = "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0";
		var_FaceTree.Columns[1].FormatColumn = "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0";
		var_FaceTree.Columns[2].FormatColumn = "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0";
		var_FaceTree.Columns[3].FormatColumn = "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0";
		var_FaceTree.Columns[4].FormatColumn = "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0";

JScript/JavaScript

<BODY onload="Init()">
<SCRIPT FOR="TreeCube1" EVENT="FaceTreeSelectionChanged(Tree)" LANGUAGE="JScript">
	alert( "Value" );
	alert( TreeCube1.FrontFace.FaceTree.Value );
	alert( "Caption" );
	alert( TreeCube1.FrontFace.FaceTree.Caption );
</SCRIPT>

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

<SCRIPT LANGUAGE="JScript">
function Init()
{
	TreeCube1.TexturePicturePath = "";
	var var_Face = TreeCube1.FrontFace;
		var var_FaceTree = var_Face.CreateTree();
			var_FaceTree.ItemPadding = 20;
			var_FaceTree.Columns.Count = 5;
			var_FaceTree.HeaderVisible = false;
			var_FaceTree.Items.Count = TreeCube1.FrontFace.FaceTree.VisibleItemsCount;
			var_FaceTree.Columns.Item(0).FormatColumn = "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0";
			var_FaceTree.Columns.Item(1).FormatColumn = "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0";
			var_FaceTree.Columns.Item(2).FormatColumn = "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0";
			var_FaceTree.Columns.Item(3).FormatColumn = "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0";
			var_FaceTree.Columns.Item(4).FormatColumn = "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0";
}
</SCRIPT>
</BODY>

VBScript

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_FaceTreeSelectionChanged(Tree)
	With TreeCube1
		alert( "Value" )
		alert( .FrontFace.FaceTree.Value )
		alert( "Caption" )
		alert( .FrontFace.FaceTree.Caption )
	End With
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.TexturePicturePath = ""
		With .FrontFace
			With .CreateTree
				.ItemPadding = 20
				.Columns.Count = 5
				.HeaderVisible = False
				.Items.Count = TreeCube1.FrontFace.FaceTree.VisibleItemsCount
				.Columns.Item(0).FormatColumn = "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				.Columns.Item(1).FormatColumn = "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				.Columns.Item(2).FormatColumn = "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				.Columns.Item(3).FormatColumn = "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				.Columns.Item(4).FormatColumn = "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

// FaceTreeSelectionChanged event - Notifies that the user selects a new item/column into a face of tree type.
private void axTreeCube1_FaceTreeSelectionChanged(object sender, AxEXTREECUBELib._ITreeCubeEvents_FaceTreeSelectionChangedEvent e)
{
	System.Diagnostics.Debug.Print( "Value" );
	System.Diagnostics.Debug.Print( axTreeCube1.FrontFace.FaceTree.Value.ToString() );
	System.Diagnostics.Debug.Print( "Caption" );
	System.Diagnostics.Debug.Print( axTreeCube1.FrontFace.FaceTree.Caption );
}
//this.axTreeCube1.FaceTreeSelectionChanged += new AxEXTREECUBELib._ITreeCubeEvents_FaceTreeSelectionChangedEventHandler(this.axTreeCube1_FaceTreeSelectionChanged);

axTreeCube1.TexturePicturePath = "";
EXTREECUBELib.Face var_Face = axTreeCube1.FrontFace;
	EXTREECUBELib.FaceTree var_FaceTree = var_Face.CreateTree();
		var_FaceTree.ItemPadding = 20;
		var_FaceTree.Columns.Count = 5;
		var_FaceTree.HeaderVisible = false;
		var_FaceTree.Items.Count = axTreeCube1.FrontFace.FaceTree.VisibleItemsCount;
		var_FaceTree.Columns[0].FormatColumn = "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0";
		var_FaceTree.Columns[1].FormatColumn = "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0";
		var_FaceTree.Columns[2].FormatColumn = "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0";
		var_FaceTree.Columns[3].FormatColumn = "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0";
		var_FaceTree.Columns[4].FormatColumn = "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0";

X++ (Dynamics Ax 2009)

// FaceTreeSelectionChanged event - Notifies that the user selects a new item/column into a face of tree type.
void onEvent_FaceTreeSelectionChanged(COM   _Tree)
{
	;
	print( "Value" );
	print( extreecube1.FrontFace().FaceTree().Value() );
	print( "Caption" );
	print( extreecube1.FrontFace().FaceTree().Caption() );
}

public void init()
{
	COM com_Column,com_Columns,com_Face,com_FaceTree,com_Items;
	anytype var_Column,var_Columns,var_Face,var_FaceTree,var_Items;
	;

	super();

	extreecube1.TexturePicturePath("");
	var_Face = extreecube1.FrontFace(); com_Face = var_Face;
		var_FaceTree = com_Face.CreateTree(); com_FaceTree = var_FaceTree;
			com_FaceTree.ItemPadding(20);
			var_Columns = COM::createFromObject(com_FaceTree.Columns()); com_Columns = var_Columns;
			com_Columns.Count(5);
			com_FaceTree.HeaderVisible(false);
			var_Items = COM::createFromObject(com_FaceTree.Items()); com_Items = var_Items;
			com_Items.Count(extreecube1.FrontFace().FaceTree().VisibleItemsCount());
			var_Column = COM::createFromObject(com_FaceTree.Columns()).Item(COMVariant::createFromInt(0)); com_Column = var_Column;
			com_Column.FormatColumn("(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0");
			var_Column = COM::createFromObject(com_FaceTree.Columns()).Item(COMVariant::createFromInt(1)); com_Column = var_Column;
			com_Column.FormatColumn("(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0");
			var_Column = COM::createFromObject(com_FaceTree.Columns()).Item(COMVariant::createFromInt(2)); com_Column = var_Column;
			com_Column.FormatColumn("(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0");
			var_Column = COM::createFromObject(com_FaceTree.Columns()).Item(COMVariant::createFromInt(3)); com_Column = var_Column;
			com_Column.FormatColumn("(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0");
			var_Column = COM::createFromObject(com_FaceTree.Columns()).Item(COMVariant::createFromInt(4)); com_Column = var_Column;
			com_Column.FormatColumn("(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0");
}

Delphi 8 (.NET only)

// FaceTreeSelectionChanged event - Notifies that the user selects a new item/column into a face of tree type.
procedure TWinForm1.AxTreeCube1_FaceTreeSelectionChanged(sender: System.Object; e: AxEXTREECUBELib._ITreeCubeEvents_FaceTreeSelectionChangedEvent);
begin
	with AxTreeCube1 do
	begin
		OutputDebugString( 'Value' );
		OutputDebugString( FrontFace.FaceTree.Value );
		OutputDebugString( 'Caption' );
		OutputDebugString( FrontFace.FaceTree.Caption );
	end
end;

with AxTreeCube1 do
begin
	TexturePicturePath := '';
	with FrontFace do
	begin
		with CreateTree() do
		begin
			ItemPadding := 20;
			Columns.Count := 5;
			HeaderVisible := False;
			Items.Count := AxTreeCube1.FrontFace.FaceTree.VisibleItemsCount;
			Columns.Item[TObject(0)].FormatColumn := '(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0';
			Columns.Item[TObject(1)].FormatColumn := '(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0';
			Columns.Item[TObject(2)].FormatColumn := '(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0';
			Columns.Item[TObject(3)].FormatColumn := '(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0';
			Columns.Item[TObject(4)].FormatColumn := '(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0';
		end;
	end;
end

Delphi (standard)

// FaceTreeSelectionChanged event - Notifies that the user selects a new item/column into a face of tree type.
procedure TForm1.TreeCube1FaceTreeSelectionChanged(ASender: TObject; Tree : IFaceTree);
begin
	with TreeCube1 do
	begin
		OutputDebugString( 'Value' );
		OutputDebugString( FrontFace.FaceTree.Value );
		OutputDebugString( 'Caption' );
		OutputDebugString( FrontFace.FaceTree.Caption );
	end
end;

with TreeCube1 do
begin
	TexturePicturePath := '';
	with FrontFace do
	begin
		with CreateTree() do
		begin
			ItemPadding := 20;
			Columns.Count := 5;
			HeaderVisible := False;
			Items.Count := TreeCube1.FrontFace.FaceTree.VisibleItemsCount;
			Columns.Item[OleVariant(0)].FormatColumn := '(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0';
			Columns.Item[OleVariant(1)].FormatColumn := '(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0';
			Columns.Item[OleVariant(2)].FormatColumn := '(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0';
			Columns.Item[OleVariant(3)].FormatColumn := '(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0';
			Columns.Item[OleVariant(4)].FormatColumn := '(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0';
		end;
	end;
end

VFP

*** FaceTreeSelectionChanged event - Notifies that the user selects a new item/column into a face of tree type. ***
LPARAMETERS Tree
	with thisform.TreeCube1
		DEBUGOUT( "Value" )
		DEBUGOUT( .FrontFace.FaceTree.Value )
		DEBUGOUT( "Caption" )
		DEBUGOUT( .FrontFace.FaceTree.Caption )
	endwith

with thisform.TreeCube1
	.TexturePicturePath = ""
	with .FrontFace
		with .CreateTree
			.ItemPadding = 20
			.Columns.Count = 5
			.HeaderVisible = .F.
			.Items.Count = thisform.TreeCube1.FrontFace.FaceTree.VisibleItemsCount
			.Columns.Item(0).FormatColumn = "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(1).FormatColumn = "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(2).FormatColumn = "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(3).FormatColumn = "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(4).FormatColumn = "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
		endwith
	endwith
endwith

dBASE Plus

/*
with (this.EXTREECUBEACTIVEXCONTROL1.nativeObject)
	FaceTreeSelectionChanged = class::nativeObject_FaceTreeSelectionChanged
endwith
*/
// Notifies that the user selects a new item/column into a face of tree type.
function nativeObject_FaceTreeSelectionChanged(Tree)
	oTreeCube = form.EXTREECUBEACTIVEXCONTROL1.nativeObject
	? "Value" 
	? Str(oTreeCube.FrontFace.FaceTree.Value) 
	? "Caption" 
	? oTreeCube.FrontFace.FaceTree.Caption 
return

local oTreeCube,var_Face,var_FaceTree

oTreeCube = form.EXTREECUBEACTIVEXCONTROL1.nativeObject
oTreeCube.TexturePicturePath = ""
var_Face = oTreeCube.FrontFace
	var_FaceTree = var_Face.CreateTree()
		var_FaceTree.ItemPadding = 20
		var_FaceTree.Columns.Count = 5
		var_FaceTree.HeaderVisible = false
		var_FaceTree.Items.Count = oTreeCube.FrontFace.FaceTree.VisibleItemsCount
		var_FaceTree.Columns.Item(0).FormatColumn = "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
		var_FaceTree.Columns.Item(1).FormatColumn = "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
		var_FaceTree.Columns.Item(2).FormatColumn = "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
		var_FaceTree.Columns.Item(3).FormatColumn = "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
		var_FaceTree.Columns.Item(4).FormatColumn = "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"

XBasic (Alpha Five)

' Notifies that the user selects a new item/column into a face of tree type.
function FaceTreeSelectionChanged as v (Tree  as  OLE::Exontrol.TreeCube.1::IFaceTree)
	oTreeCube = topparent:CONTROL_ACTIVEX1.activex
	? "Value" 
	? oTreeCube.FrontFace.FaceTree.Value 
	? "Caption" 
	? oTreeCube.FrontFace.FaceTree.Caption 
end function

Dim oTreeCube as P
Dim var_Face as P
Dim var_FaceTree as P

oTreeCube = topparent:CONTROL_ACTIVEX1.activex
oTreeCube.TexturePicturePath = ""
var_Face = oTreeCube.FrontFace
	var_FaceTree = var_Face.CreateTree()
		var_FaceTree.ItemPadding = 20
		var_FaceTree.Columns.Count = 5
		var_FaceTree.HeaderVisible = .f.
		var_FaceTree.Items.Count = oTreeCube.FrontFace.FaceTree.VisibleItemsCount
		var_FaceTree.Columns.Item(0).FormatColumn = "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
		var_FaceTree.Columns.Item(1).FormatColumn = "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
		var_FaceTree.Columns.Item(2).FormatColumn = "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
		var_FaceTree.Columns.Item(3).FormatColumn = "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
		var_FaceTree.Columns.Item(4).FormatColumn = "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"

Visual Objects

METHOD OCX_Exontrol1FaceTreeSelectionChanged(Tree) CLASS MainDialog
	// FaceTreeSelectionChanged event - Notifies that the user selects a new item/column into a face of tree type.
	OutputDebugString(String2Psz( "Value" ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:FrontFace:FaceTree:Value) ))
	OutputDebugString(String2Psz( "Caption" ))
	OutputDebugString(String2Psz( oDCOCX_Exontrol1:FrontFace:FaceTree:Caption ))
RETURN NIL

local var_Face as IFace
local var_FaceTree as IFaceTree

oDCOCX_Exontrol1:TexturePicturePath := ""
var_Face := oDCOCX_Exontrol1:FrontFace
	var_FaceTree := var_Face:CreateTree()
		var_FaceTree:ItemPadding := 20
		var_FaceTree:Columns:Count := 5
		var_FaceTree:HeaderVisible := false
		var_FaceTree:Items:Count := oDCOCX_Exontrol1:FrontFace:FaceTree:VisibleItemsCount
		var_FaceTree:Columns:[Item,0]:FormatColumn := "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
		var_FaceTree:Columns:[Item,1]:FormatColumn := "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
		var_FaceTree:Columns:[Item,2]:FormatColumn := "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
		var_FaceTree:Columns:[Item,3]:FormatColumn := "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
		var_FaceTree:Columns:[Item,4]:FormatColumn := "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"

PowerBuilder

/*begin event FaceTreeSelectionChanged(oleobject  Tree) - Notifies that the user selects a new item/column into a face of tree type.*/
/*
	oTreeCube = ole_1.Object
	MessageBox("Information",string( "Value" ))
	MessageBox("Information",string( String(oTreeCube.FrontFace.FaceTree.Value) ))
	MessageBox("Information",string( "Caption" ))
	MessageBox("Information",string( oTreeCube.FrontFace.FaceTree.Caption ))
*/
/*end event FaceTreeSelectionChanged*/

OleObject oTreeCube,var_Face,var_FaceTree

oTreeCube = ole_1.Object
oTreeCube.TexturePicturePath = ""
var_Face = oTreeCube.FrontFace
	var_FaceTree = var_Face.CreateTree()
		var_FaceTree.ItemPadding = 20
		var_FaceTree.Columns.Count = 5
		var_FaceTree.HeaderVisible = false
		var_FaceTree.Items.Count = oTreeCube.FrontFace.FaceTree.VisibleItemsCount
		var_FaceTree.Columns.Item(0).FormatColumn = "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
		var_FaceTree.Columns.Item(1).FormatColumn = "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
		var_FaceTree.Columns.Item(2).FormatColumn = "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
		var_FaceTree.Columns.Item(3).FormatColumn = "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
		var_FaceTree.Columns.Item(4).FormatColumn = "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"

Visual DataFlex

// Notifies that the user selects a new item/column into a face of tree type.
Procedure OnComFaceTreeSelectionChanged Variant   llTree
	Forward Send OnComFaceTreeSelectionChanged llTree
	Variant v
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComFaceTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Get ComValue of hoFaceTree to v
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Showln "Value" v
	Variant v1
	Variant voFace1
	Get ComFrontFace to voFace1
	Handle hoFace1
	Get Create (RefClass(cComFace)) to hoFace1
	Set pvComObject of hoFace1 to voFace1
		Variant voFaceTree1
		Get ComFaceTree of hoFace1 to voFaceTree1
		Handle hoFaceTree1
		Get Create (RefClass(cComFaceTree)) to hoFaceTree1
		Set pvComObject of hoFaceTree1 to voFaceTree1
			Get ComCaption of hoFaceTree1 to v1
		Send Destroy to hoFaceTree1
	Send Destroy to hoFace1
	Showln "Caption" v1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComTexturePicturePath to ""
	Variant voFace2
	Get ComFrontFace to voFace2
	Handle hoFace2
	Get Create (RefClass(cComFace)) to hoFace2
	Set pvComObject of hoFace2 to voFace2
		Variant voFaceTree2
		Get ComCreateTree of hoFace2 to voFaceTree2
		Handle hoFaceTree2
		Get Create (RefClass(cComFaceTree)) to hoFaceTree2
		Set pvComObject of hoFaceTree2 to voFaceTree2
			Set ComItemPadding of hoFaceTree2 to 20
			Variant voColumns
			Get ComColumns of hoFaceTree2 to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Set ComCount of hoColumns to 5
			Send Destroy to hoColumns
			Set ComHeaderVisible of hoFaceTree2 to False
			Variant voItems
			Get ComItems of hoFaceTree2 to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant v2
					Variant voFace3
					Get ComFrontFace to voFace3
					Handle hoFace3
					Get Create (RefClass(cComFace)) to hoFace3
					Set pvComObject of hoFace3 to voFace3
						Variant voFaceTree3
						Get ComFaceTree of hoFace3 to voFaceTree3
						Handle hoFaceTree3
						Get Create (RefClass(cComFaceTree)) to hoFaceTree3
						Set pvComObject of hoFaceTree3 to voFaceTree3
							Get ComVisibleItemsCount of hoFaceTree3 to v2
						Send Destroy to hoFaceTree3
					Send Destroy to hoFace3
				Set ComCount of hoItems to v2
			Send Destroy to hoItems
			Variant voColumns1
			Get ComColumns of hoFaceTree2 to voColumns1
			Handle hoColumns1
			Get Create (RefClass(cComColumns)) to hoColumns1
			Set pvComObject of hoColumns1 to voColumns1
				Variant voColumn
				Get ComItem of hoColumns1 0 to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComFormatColumn of hoColumn to "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				Send Destroy to hoColumn
			Send Destroy to hoColumns1
			Variant voColumns2
			Get ComColumns of hoFaceTree2 to voColumns2
			Handle hoColumns2
			Get Create (RefClass(cComColumns)) to hoColumns2
			Set pvComObject of hoColumns2 to voColumns2
				Variant voColumn1
				Get ComItem of hoColumns2 1 to voColumn1
				Handle hoColumn1
				Get Create (RefClass(cComColumn)) to hoColumn1
				Set pvComObject of hoColumn1 to voColumn1
					Set ComFormatColumn of hoColumn1 to "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				Send Destroy to hoColumn1
			Send Destroy to hoColumns2
			Variant voColumns3
			Get ComColumns of hoFaceTree2 to voColumns3
			Handle hoColumns3
			Get Create (RefClass(cComColumns)) to hoColumns3
			Set pvComObject of hoColumns3 to voColumns3
				Variant voColumn2
				Get ComItem of hoColumns3 2 to voColumn2
				Handle hoColumn2
				Get Create (RefClass(cComColumn)) to hoColumn2
				Set pvComObject of hoColumn2 to voColumn2
					Set ComFormatColumn of hoColumn2 to "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				Send Destroy to hoColumn2
			Send Destroy to hoColumns3
			Variant voColumns4
			Get ComColumns of hoFaceTree2 to voColumns4
			Handle hoColumns4
			Get Create (RefClass(cComColumns)) to hoColumns4
			Set pvComObject of hoColumns4 to voColumns4
				Variant voColumn3
				Get ComItem of hoColumns4 3 to voColumn3
				Handle hoColumn3
				Get Create (RefClass(cComColumn)) to hoColumn3
				Set pvComObject of hoColumn3 to voColumn3
					Set ComFormatColumn of hoColumn3 to "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				Send Destroy to hoColumn3
			Send Destroy to hoColumns4
			Variant voColumns5
			Get ComColumns of hoFaceTree2 to voColumns5
			Handle hoColumns5
			Get Create (RefClass(cComColumns)) to hoColumns5
			Set pvComObject of hoColumns5 to voColumns5
				Variant voColumn4
				Get ComItem of hoColumns5 4 to voColumn4
				Handle hoColumn4
				Get Create (RefClass(cComColumn)) to hoColumn4
				Set pvComObject of hoColumn4 to voColumn4
					Set ComFormatColumn of hoColumn4 to "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				Send Destroy to hoColumn4
			Send Destroy to hoColumns5
		Send Destroy to hoFaceTree2
	Send Destroy to hoFace2
End_Procedure

XBase++

PROCEDURE OnFaceTreeSelectionChanged(oTreeCube,Tree)
	DevOut( "Value" )
	DevOut( Transform(oTreeCube:FrontFace:FaceTree():Value(),"") )
	DevOut( "Caption" )
	DevOut( oTreeCube:FrontFace:FaceTree():Caption() )
RETURN

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

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

	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:FaceTreeSelectionChanged := {|Tree| OnFaceTreeSelectionChanged(oTreeCube,Tree)} /*Notifies that the user selects a new item/column into a face of tree type.*/

		oTreeCube:TexturePicturePath := ""
		oFace := oTreeCube:FrontFace()
			oFaceTree := oFace:CreateTree()
				oFaceTree:ItemPadding := 20
				oFaceTree:Columns():Count := 5
				oFaceTree:HeaderVisible := .F.
				oFaceTree:Items():Count := oTreeCube:FrontFace():FaceTree():VisibleItemsCount()
				oFaceTree:Columns:Item(0):FormatColumn := "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				oFaceTree:Columns:Item(1):FormatColumn := "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				oFaceTree:Columns:Item(2):FormatColumn := "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				oFaceTree:Columns:Item(3):FormatColumn := "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				oFaceTree:Columns:Item(4):FormatColumn := "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"

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