108:
How can I add a hierarchy (multiple-columns), using the Item.ToString method

with thisform.TreeCube1
	.TexturePicturePath = ""
	with .FrontFace.CreateTree
		.LinesAtRoot = -1
		.Columns.Add(1).Alignment = 0
		.Columns.Add(2).Alignment = 0
		.Columns.Add(3).Alignment = 0
		var_s = "Root 1;Root 2;Root 3(Child1.1;Child2.1;Child3.1(SubChild 1.1;SubChild 2.1;SubChild 3.1,SubChild 2.1;SubChild 2.2;SubChild 2.3),C"
		var_s = var_s + "hild 1.2;Child 2.2;Child 3.2)"
		.Items.ToString = var_s
		.Items.ExpandAll
		DEBUGOUT( .Items.Item(0).ToString )
	endwith
endwith
107:
How can I add a hierarchy (single column), using the Item.ToString method

with thisform.TreeCube1
	.TexturePicturePath = ""
	with .FrontFace.CreateTree
		.LinesAtRoot = -1
		.Columns.Add("").Alignment = 0
		.Items.Count = 1
		.Items.Item(0).ToString = "Root(Child1(SubChild 1,SubChild 2),Child2)"
		.Items.ExpandAll
		DEBUGOUT( .Items.Item(0).ToString )
	endwith
endwith
106:
How can add items to a list

with thisform.TreeCube1
	.TexturePicturePath = ""
	with .FrontFace.CreateTree
		.Columns.Add("Pos").FormatColumn = "1 pos ``"
		.Items.Count = thisform.TreeCube1.FrontFace.FaceTree.VisibleItemsCount
	endwith
endwith
105:
How can I split a cell

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
104:
I've noticed that the Face has no background color. Still, can I change the face's background color

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	with .FrontFace
		with .CreateCalendar
			.AutoSize = 1
			.MaxMonthX = .MinMonthX
			.MaxMonthY = .MinMonthY
			.ShowTodayButton = .F.
		endwith
		.ExtraTitle("extra",1) = 15790320
		.ExtraTitle("extra",8) = "height"
		.ExtraTitle("extra",9) = 1
	endwith
	.EndUpdate
endwith
103:
How can I change the +/- expanding/collapsing buttons

with thisform.TreeCube1
	.TexturePicturePath = ""
	.BeginUpdate
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAADhABDgCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzXI"
		var_s = var_s + "UBxAAqXZZFUaKAgOMJDTLBAzUSAAYhtHqeJBjID4JA6UJXRpIAIQSSBUjGOg6TiMUYZAguAxCEzZUT0fAYUQSCC3ZzDCKoRpiCT7Xg8V5OVbjUz9P7AMBwLA7erxap6P"
		var_s = var_s + "JeD54QymGp/R5eMhyLI8UxXFqRY6veKtJhGDIrT5CEIQVA9EyXJqnahqOiaCguPorQy/dYYdg2BYBPS6MAvG4bVrOd59XrgN42fY2ByzAqlMQwS7rOqiY6YWTnehWToH"
		var_s = var_s + "E+JZUmoLB5CufQuAkBYkGO+ZrDWAo7keZZyHmH5+i8X4bluaJyHgGB9mQHx3JjBpViqJRHmueZ7H8Xo3i2fYAl+d5tncMRfDcdZeDMDIjCCJwokoEoQiEJ4KCIfIdgUS"
		var_s = var_s + "ZIAWaoGCEUh2BIJ4gnKBgMDICAnHoCggg0Aw4k0KAJkIagaguYwIj4LAmiKEw2CUIIiHMUJSDQSYyGCFYMGQCJCD0JRjiMRg3gmTYjGSVgmgkchSD4JJklIRIXCSSQYj"
		var_s = var_s + "4U4UgkQhGE+EwJEkJJWhGpgGGIOBNmMdhPg8SRiHCGAlibNhohqJpJi4T4ZA2WYIgEYInGOGJlDkCQyECDoTEkKQ+E+C5oCIVhQCUCQpnSDoeg4SZZH8YdhjibQ7AiUg"
		var_s = var_s + "kgcJFyiyEYmGmOhqhyJ5pmILoYCKaRSB6Eg7CcZgZggaRqHqNoTiuDpKkKMormsQ4xiUYgYiKEo6CCWgWiqPovloZoGjoKQYiOLR1ECUAQIC"
		.Add(1,var_s)
		var_s1 = "gBFLBCJwBAEHhEJAADhABDwCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzXI"
		var_s1 = var_s1 + "UBxAAqXZZFUaKAgOMJDTLBAzUSAAYhtHqeJBjID4JA6UJXRpIAIQSSBUjGOg6TiMUYZAguAxCEzZUT0fAYUQSCC3ZzDCKoRpiCT7Xg8V5OVbjUz9P7AMBwLA7erxap6P"
		var_s1 = var_s1 + "JeD54QymGp/R5eMhyLI8UxXFqRY6veKtJhGDIrT5CEIQVA9EyXJqnahqOiaCguPorQy/dYYdg2BYBPS6MAvG4bVrOd59XrgN42fY2ByzAqlMQwS7rOqiY6YWTnehWToH"
		var_s1 = var_s1 + "E+JZUmoLB5CufQuAkBYkGO+ZrDWAo7keZZyHmPQ+g8X4fluYBhneEB9l0Iwpg6RRWiqFQfg+V5nnefh/GAB5yAIfRMFeRZdHeDJDCiSApkoMoEiQKBJmKCIfCcYQiHIF"
		var_s1 = var_s1 + "YFkmeBaBOA5JmgsICEyAgJl6AZICMQJODMSgCHCGg/mKSI2C6C5jAiNgpCaIhjDYIggiIQxQlINBJjIYIVgwZAJAYPQlGOIxGDeCQNiMZJWCaCRyFIPgkmSUhEhcJJlC"
		var_s1 = var_s1 + "kUhThUZQiFCEYTmSQhSEkNYkHYBIBhiTgTHiXYTmOUhYhwJgJGmJhuhsJoZi4bYbCSeYUl2GJIBYCh4DmDhThCEwkAiaQ0hKE5oEIVITiEaB6BqAofkiaZwmSHgXnYGh"
		var_s1 = var_s1 + "4DuDpTjCDQiEgchAg0IpJBobodicKZqgaIAimmIguhcIZpEOMh4GGGIGhaKYrmkWpAmyLIrEqRo2DsGhWCGCgpCuQgNiEaosAsBYmGga5ChGCg6lcVANAEgI"
		.Add(2,var_s1)
	endwith
	.Object.Background(84) = 0x1000000
	.Object.Background(85) = 0x2000000
	with .FrontFace.CreateTree
		.ExpandOnDblClick = .T.
		.ItemPadding = 16
		.HeaderVisible = .F.
		.HasLines = 2
		.LinesAtRoot = 3
		.DrawGridLines = -2
		.Columns.Add("Def").Alignment = 0
		.Items.ToString = "Root 1(Child 1,Child 2),Root 2(Child 3,Child 4)"
		.ItemByIndex(3).Expanded = .T.
	endwith
	.EndUpdate
endwith
102:
How can I use the ToString property

with thisform.TreeCube1
	.TexturePicturePath = ""
	with .FrontFace.CreateTree
		.DrawGridLines = -2
		.Columns.ToString = "Column 1,Column 2,Column 3,Column 4"
		.Items.ToString = "1;2;3;4,5;6;7;8,9;10;11;12,13;14;15;16,17;18;29;20,21;22;23;24,25;26;27;28,29;30;31;32"
	endwith
endwith
101:
How can I use the Background property

with thisform.TreeCube1
	.BeginUpdate
	.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn")
	.Object.Background(8) = 0x1000000
	.Object.Background(7) = RGB(250,250,250)
	.Object.Background(6) = RGB(250,250,250)
	.Object.Background(9) = 0x2000000
	.Object.Background(31) = RGB(255,255,255)
	.TexturePicturePath = ""
	with .FrontFace.CreateCalendar
		.Date = {^2016-1-1}
		.AutoSize = 1
		.MaxMonthX = .MinMonthX
		.MaxMonthY = .MinMonthY
	endwith
	.EndUpdate
endwith
100:
How can I display two lists of radio-buttons

*** FaceTreeStateChanged event - Notifies that a cell changes its state into a face of tree type. ***
LPARAMETERS Tree,Item,Column
	with thisform.TreeCube1
		with .FrontFace.FaceTree.ItemByIndex(Item)
			DEBUGOUT( "State" )
			DEBUGOUT( .State(0) )
		endwith
	endwith

with thisform.TreeCube1
	.TexturePicturePath = ""
	with .FrontFace.CreateTree
		.HeaderVisible = .F.
		.ItemPadding = 16
		.DrawGridLines = 0
		.Columns.Add("Radio").Alignment = 0
		with .Items
			with .Add("Group A")
				with .Items
					with .Add("Radio <b>1")
						.HasRadioButton(0) = .T.
						.RadioGroup(0) = 1234
					endwith
					with .Add("Radio <b>2")
						.HasRadioButton(0) = .T.
						.RadioGroup(0) = 1234
						.State(0) = 1
					endwith
					with .Add("Radio <b>3")
						.HasRadioButton(0) = .T.
						.RadioGroup(0) = 1234
					endwith
				endwith
				.Expanded = .T.
			endwith
			with .Add("Group B")
				with .Items
					with .Add("Radio <b>1")
						.HasRadioButton(0) = .T.
						.RadioGroup(0) = 1235
					endwith
					with .Add("Radio <b>2")
						.HasRadioButton(0) = .T.
						.RadioGroup(0) = 1235
					endwith
					with .Add("Radio <b>3")
						.HasRadioButton(0) = .T.
						.RadioGroup(0) = 1235
						.State(0) = 1
					endwith
				endwith
				.Expanded = .T.
			endwith
		endwith
	endwith
endwith
99:
How can I display a list of check-boxes

*** FaceTreeStateChanged event - Notifies that a cell changes its state into a face of tree type. ***
LPARAMETERS Tree,Item,Column
	with thisform.TreeCube1
		with .FrontFace.FaceTree.ItemByIndex(Item)
			DEBUGOUT( "State" )
			DEBUGOUT( .State(0) )
		endwith
	endwith

with thisform.TreeCube1
	.TexturePicturePath = ""
	with .FrontFace.CreateTree
		.HeaderVisible = .F.
		.ItemPadding = 16
		.DrawGridLines = 0
		.Columns.Add("Check").Alignment = 0
		with .Items
			.Add("Check <b>1").HasCheckBox(0) = .T.
			.Add("Check <b>2").HasCheckBox(0) = .T.
			with .Add("Check <b>3")
				.HasCheckBox(0) = .T.
				.State(0) = 1
			endwith
			.Add("Check <b>4").HasCheckBox(0) = .T.
		endwith
	endwith
endwith
98:
How do I get the selected caption

*** 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
97:
How do I get the selected value

*** 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
96:
How can I add buttons on the face

*** FaceTreeButtonClick event - Notifies that a cell of button's type has been clicked. ***
LPARAMETERS Tree,Item,Column
	with thisform.TreeCube1
		DEBUGOUT( Item )
		DEBUGOUT( Column )
	endwith

with thisform.TreeCube1
	.TexturePicturePath = ""
	with .FrontFace.CreateTree
		.DrawGridLines = 0
		.ItemPadding = 16
		with .Columns.Add("Buttons")
			.FormatColumn = "1 index `A-Z`"
			.Def(2) = .T.
		endwith
		.Items.Count = 4
	endwith
endwith
95:
How do I programmatically selects a date (method 2)
with thisform.TreeCube1
	with .FrontFace.CreateCalendar
		.Value = "Jan 21"
	endwith
endwith
94:
How do I programmatically selects a date (method 1)
with thisform.TreeCube1
	with .FrontFace.CreateCalendar
		.Date = {^2001-1-1}
		.SelDate = .Date
	endwith
endwith
93:
How can I display a hyperlink element
*** AnchorClick event - Occurs when an anchor element is clicked. ***
LPARAMETERS Face,AnchorID,Options
	with thisform.TreeCube1
		DEBUGOUT( Face )
		DEBUGOUT( AnchorID )
		DEBUGOUT( Options )
	endwith

with thisform.TreeCube1
	with .FrontFace.CreateTree
		.ShowSelection = .F.
		.HeaderVisible = .F.
		.DrawGridLines = 0
		.Items.ToString = "<a A1\;options1>Item 1</a>,<a A2\;options2>Item 2</a>"
	endwith
endwith
92:
Can I display image and multiple-lines items

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	.Object.HTMLPicture("DriveC") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("DriveD") = "c:\exontrol\images\auction.gif"
	.Object.HTMLPicture("DriveE") = "c:\exontrol\images\colorize.gif"
	with .TopFace
		.RelativeMargins = "0,32,0,0"
		with .CreateTree
			.HasLines = 0
			.DrawGridLines = 0
			.ItemPadding = 24
			.HeaderVisible = .F.
			.ShowSelection = .T.
			.SelBackColor = RGB(240,240,240)
			.Columns.Add("Default").Alignment = 0
			with .Items
				with .Add("Storage")
					.Divider = 0
					.Bold = .T.
					.Selectable = .F.
				endwith
				with .Add("Choose a drive to see what's taking up space.")
					.Selectable = .F.
					.SingleLine(0) = .F.
					with .Items.Add("<img>DriveC:64</img>")
						.Height = 68
						.BackgroundExt(0) = "none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))"
						.BackgroundExtValue(0,2,5) = .T.
						.BackgroundExtValue(0,2,4) = "<fgcolor=000000>LROG (C:)<br>58.7 GB used out of 150 GB"
						.BackgroundExtValue(0,4,2) = "39%"
					endwith
					with .Items.Add("<img>DriveD:64</img>")
						.Height = 68
						.BackgroundExt(0) = "none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))"
						.BackgroundExtValue(0,2,5) = .T.
						.BackgroundExtValue(0,2,4) = "<fgcolor=000000>System (D:)<br>112 MB used out of 144 GB"
						.BackgroundExtValue(0,4,2) = "1%"
					endwith
					with .Items.Add("<img>DriveD:64</img>")
						.Height = 68
						.BackgroundExt(0) = "none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))"
						.BackgroundExtValue(0,2,5) = .T.
						.BackgroundExtValue(0,2,4) = "<fgcolor=000000>Work (E:)<br>53.0 GB used out of 635 GB"
						.BackgroundExtValue(0,4,2) = "8%"
					endwith
					with .Items.Add("<img>DriveE:64</img>")
						.Height = 68
						.BackgroundExt(0) = "none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))"
						.BackgroundExtValue(0,2,5) = .T.
						.BackgroundExtValue(0,2,4) = "<fgcolor=000000>DVD RW Drive (G:)<br>0.0 GB used out of 0.0 GB"
						.BackgroundExtValue(0,4,2) = "0%"
					endwith
					.Expanded = .T.
				endwith
				with .Add("Save Locations")
					.Divider = 0
					.Bold = .T.
					.Selectable = .F.
				endwith
				with .Add("Change where your apps, documents, music, pictures and videos are saved by default.")
					.Selectable = .F.
					.SingleLine(0) = .F.
					with .Items.Add("New apps will save to:")
						.Selectable = .F.
						with .Items.Add("Drive C")
							.Selectable = .F.
							.Height = 24
							.HasRadioButton(0) = .T.
							.RadioGroup(0) = 1234
							.State(0) = 1
							s = .SplitCell(0)
							.Value(s) = "Drive D"
							.HasRadioButton(s) = .T.
							.RadioGroup(s) = 1234
							s = .SplitCell(s)
							.Value(s) = "Drive E"
							.HasRadioButton(s) = .T.
							.RadioGroup(s) = 1234
						endwith
						.Expanded = .T.
					endwith
					with .Items.Add("New documents will save to:")
						.Selectable = .F.
						with .Items.Add("Drive C")
							.Selectable = .F.
							.Height = 24
							.HasRadioButton(0) = .T.
							.RadioGroup(0) = 1235
							s = .SplitCell(0)
							.Value(s) = "Drive D"
							.HasRadioButton(s) = .T.
							.RadioGroup(s) = 1235
							.State(s) = 1
							s = .SplitCell(s)
							.Value(s) = "Drive E"
							.HasRadioButton(s) = .T.
							.RadioGroup(s) = 1235
						endwith
						.Expanded = .T.
					endwith
					with .Items.Add("New music will save to:")
						.Selectable = .F.
						with .Items.Add("Drive C")
							.Selectable = .F.
							.Height = 24
							.HasRadioButton(0) = .T.
							.RadioGroup(0) = 1236
							s = .SplitCell(0)
							.Value(s) = "Drive D"
							.HasRadioButton(s) = .T.
							.RadioGroup(s) = 1236
							.State(s) = 1
							s = .SplitCell(s)
							.Value(s) = "Drive E"
							.HasRadioButton(s) = .T.
							.RadioGroup(s) = 1236
						endwith
						.Expanded = .T.
					endwith
					with .Items.Add("New pictures will save to:")
						.Selectable = .F.
						with .Items.Add("Drive C")
							.Selectable = .F.
							.Height = 24
							.HasRadioButton(0) = .T.
							.RadioGroup(0) = 1237
							s = .SplitCell(0)
							.Value(s) = "Drive D"
							.HasRadioButton(s) = .T.
							.RadioGroup(s) = 1237
							.State(s) = 1
							s = .SplitCell(s)
							.Value(s) = "Drive E"
							.HasRadioButton(s) = .T.
							.RadioGroup(s) = 1237
						endwith
						.Expanded = .T.
					endwith
					with .Items.Add("New videos will save to:")
						.Selectable = .F.
						with .Items.Add("Drive C")
							.Selectable = .F.
							.Height = 24
							.HasRadioButton(0) = .T.
							.RadioGroup(0) = 1238
							s = .SplitCell(0)
							.Value(s) = "Drive D"
							.HasRadioButton(s) = .T.
							.RadioGroup(s) = 1238
							.State(s) = 1
							s = .SplitCell(s)
							.Value(s) = "Drive E"
							.HasRadioButton(s) = .T.
							.RadioGroup(s) = 1238
						endwith
						.Expanded = .T.
					endwith
					.Expanded = .T.
				endwith
			endwith
			.EnsureVisibleItem(0)
		endwith
	endwith
	.EnsureVisibleFaceMargin = 0
	.EnsureVisibleFace(4)
	.AlwaysEnsureVisibleFace = 1
	.EndUpdate
endwith
91:
How can I use the BackgroundExt/BackgroundExtValue properties

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	with .BottomFace
		.RelativeMargins = "0,32,0,0"
		.Title(0) = "<c><font ;18>Battery Saver"
		.Title(11) = "bottom[2],bottom[4,back=RGB(0,0,0)]"
		with .CreateTree
			.HasLines = 0
			.DrawGridLines = 0
			.ItemPadding = 24
			.HeaderVisible = .F.
			.ShowSelection = .F.
			.Columns.Add("Default").Alignment = 0
			with .Items
				with .Add("Overview")
					.Divider = 0
					.Bold = .T.
				endwith
				with .Add("Batter level (charging):")
					.SingleLine(0) = .F.
					with .Items.Add("")
						.BackgroundExt(0) = "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
						.BackgroundExtValue(0,4,2) = "65%"
						.BackgroundExtValue(0,2,4) = .BackgroundExtValue(0,4,2)
					endwith
					.Expanded = .T.
				endwith
				with .Add("Estimated time to full charge:")
					with .Items.Add(0.15125)
						var_s = "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ?"
						var_s = var_s + " =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
						.FormatCell(0) = var_s
						.Height = 24
					endwith
					.Expanded = .T.
				endwith
				with .Add("Battery Saver")
					.Divider = 0
					.Bold = .T.
				endwith
				with .Add("Extends battery life by limiting background activity and push notifications. ")
					.SingleLine(0) = .F.
				endwith
				with .Add("Batter saver is currently:")
					.Enabled = .F.
					.SingleLine(0) = .F.
					with .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = .T.
						.State(0) = 2
						.FormatCell(0) = "state = 1 ? `On` : `Off`"
						.Enabled = .F.
					endwith
					.Expanded = .T.
				endwith
				.Add("Battery Saver is off while charging.  Choose, when battery saver turns on automatically and how it affects your system.").SingleLine(0) = .F.
				with .Add("<c>Battery Saver Settings")
					.SingleLine(0) = .F.
					.HasButton(0) = .T.
				endwith
			endwith
		endwith
	endwith
	.EnsureVisibleFaceMargin = 0
	.EnsureVisibleFace(1)
	.AlwaysEnsureVisibleFace = 1
	.EndUpdate
endwith
90:
How can I change the visual appearance for check and radio buttons

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	.CheckBoxWidth = 44
	.CheckBoxHeight = 20
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAADhABJACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSDI"
		var_s = var_s + "UBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3OyaN5EbbgZz9P7AMBwLA8EwXBqHYIUG"
		var_s = var_s + "JGbhlbTnR7HMhvDIsPDnFqIZhmOZZXjlfh7T7KNByO6LcI3AiDagtWpNTpjf5dV7YNh2LY9UzXNq3bI1W5aUqyAZ9QQpeB0LILYDbRp/FzyO5NNrHG6dZ7oOh1doOUIt"
		var_s = var_s + "laP5lgcPA7hEJ47H8SD0l4LwfhOSJ9nOIh9DefBREMKYMDaX59nsVhvlKdBpCGfgIl+L43lGG5lH+YAGlWZw/EYOAVH8ZQXncdBJDwIJGkiGYDlmUh2BKABhEgVJpgWX"
		var_s = var_s + "4BA4BxcAeWB1H8KJiAaSJJgiWZWAmVA0CEWIln8JYikWfZpCIXARE0fw3GMRpJnaCRYBGWg6gqI5HgoJxfkYCQFlkX5PhkFYyBAJIImGABpGOWQ1k8OxlAWfZ6BGJA1n"
		var_s = var_s + "oRQ+GQeQmEoX4kkkOheG2JQDjYUh+iMGJODUbBjHkbAzg6BxpH4bhsmOdZ6EEGAbmIAR/gSCZWkmfYShwYJYlOH5mnoBYvCSaBFnyDYhlcKAll2AwPAaSggCiWZaD6Ao"
		var_s = var_s + "giEc4mBmBpYnePZxGMHw3lUeoGGUN5aH8NJpDoBgDgERg6GGFICh2d4GiWK5cngDgvHqWInG0cIfFyBwpjqLArkcTZVHWV5nGaNhxA6VoVicahajaNo9gUHI2nIdRwBw"
		var_s = var_s + "JoOkSMJlFmKpWjWWY2HwPYwm2SxJHIe5sGsYpiGcXpHj6XYxA6NBFAkQBAIC"
		.Add(1,var_s)
		var_s1 = "gBFLBCJwBAEHhEJAADhABB4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSDI"
		var_s1 = var_s1 + "UBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3Oy3KKiQy5cABPq/b6wDA8CwXAaHYRiG"
		var_s1 = var_s1 + "DYThmF4dRQAG6RcTLWrPFqVZheGYua4CLBxRrINA0LD9DyHJKnaZkDgpUQGN5dTS4GwPQCN3xRWzUyBaQzJfAZV7Lbw3PadX4XRLHcLwfAXFqWaaNZLneh5DouDz3P5Y"
		var_s1 = var_s1 + "MuaRBicQ4nl6bpuBwKYRnuUY2jsfg9B0b43hOH5KjucQPnwOpMi+A4pnab5qB0a4znuf57n4f5gAeeJqC4R42mEcg5AoIRBnUfggkgLJiCaRA4AYEoEl+Y4AhcDpaFOG"
		var_s1 = var_s1 + "IrBgDYyBwHICmIB5djge4hEilY8g0MotiUZICkMYB6AEIgYDYIh0g+Q5cm+CYjgOfJ6DuDZ2hSWggkESI6DCDJjCkFZDg0Yx4mYJYOmOVoiD8BQhlgfhEgwZRGBoJISy"
		var_s1 = var_s1 + "0IgqGoIpDhCJAVCUWQaFMY5fAkYgBD+D5TmyYAlENPBnCsRhFkoYYcmYMAAmkLRHDmGZ9h2Rw4BkeBnFmeZWHSGIYHeQZuHoHonjGboamaVwYmIJwEEYbZNiCaRKAmdx"
		var_s1 = var_s1 + "1hyNZChWIQpjcKZYHAKQ6FqHIoh0Vp6hkcBqgoAodikKgmi2LYnmsCohkAXoXkqMojgMIpKh2Gw6lEFAlAEgIA=="
		.Add(2,var_s1)
	endwith
	.Object.Background(70) = 0x1000000
	.Object.Background(71) = 0x2000000
	.Object.Background(72) = 0x1f0f0f0
	.RadioButtonWidth = 23
	.RadioButtonHeight = 23
	with .VisualAppearance
		var_s2 = "gBFLBCJwBAEHhEJAADhABNoCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFI"
		var_s2 = var_s2 + "ADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1BKmHZDQRAApqXIjVDAYIQSSBUlkHScRijDICXSIIQmbajIZoJCiVZ3VaGETnRQlJQuEgOHZwDAsBwPBqBPziL"
		var_s2 = var_s2 + "p4WzmGqhR5ichYHI8RYVTKXYy3DxZW7OO4PQjQM7hHL8fwlfTuagyGpZOxjP5cdrYHw2J7NUzJeDxbhrTb6Zh7ILVX7TNIwXAdD4PIKmNryORsC4XG5pZ7oOh6Lo3G4r"
		var_s2 = var_s2 + "hWZI2nOL4eBON4LkeRJvHWDxvB6G5Lmac56D0OY3hMU5bm6bRoiAeA9DMX5riydJ+D8P4vEeO4xkEcQfCYBZrHKXgzlme4BmCB4eAUZRbAaAZeGsDg4EYCYEmERoaBEO"
		var_s2 = var_s2 + "JaiMIY2EIXo2FYFYHmIBp1j8OoQhcYZNDiIgIiYE4Jl2BAlj0agOmiKgyH6Xo2jECYGE8WJmDODpehgFgZEIXI3DyfoQmQSQWEaEZkgkJhKhKZA2hmSxCEyGREnSFJkk"
		var_s2 = var_s2 + "kVhWwCCAthFKRjiIXhpiXOhihGYwJESSRCFuIxqGoPomkmDhuhWT45kSXYcl8UxdAkbgPBaMhTD0JApj4foRBoaJ5iqAxdmadhzDcWxpgIf4bhsY4Gg6GYYDcegNGUYg"
		var_s2 = var_s2 + "6VMIsBBmNg8CmRwuCOJBgBaAgXh6JQzl6JocE+OQQn+KpqkqNouivgQiiaLJPHaMZYHwQAHHIdRrA6ep2jMbYqx2RxzmqBpajOLxOnacYPHcHZnHGOlynmbo0jSbRLFa"
		var_s2 = var_s2 + "JoJlyNpplyKArhcGZcgMWpGjCXo4liM4ukiHpngkeJojiTZphmLIDG2Nwak2N4vEaAJsj2bpLgWFxlGGExOn4dgvHOMpxGgbwkAyaxEFCFAEICA="
		.Add(3,var_s2)
		var_s3 = "gBFLBCJwBAEHhEJAADhABCEMACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFI"
		var_s3 = var_s3 + "ADRfFoWmxTdAcYSCGSZZrGOiQADINI0R7UAABPBIMSjAamHZDQRAApqXIjVaAhySQKksg6TiMUYZAbaRBCEzbUZDNBIopUQLVU5ABbUEqBIipIrEQLHNwPBaEYZiOIYW"
		var_s3 = var_s3 + "5re4cfzIMhyLI8Ob3CqHZhleTwTjWGYvSp1dBbTQ2QyVRanMDqOjsKxmW5Gbh5NhfHY8dxnDKcZ5jGSudrjEZ9VpmG74JzeEbjRj8chxT4PDxnBK/YDSWgdLo8VzXBpc"
		var_s3 = var_s3 + "G2MY4maXxzFKQRxHgOQeC8H4TkuZhzHoNR9kaXpNnONZsGGMo9B4A5bmuFZ7n4Pw/i+XpFmSVB/mAB41hsQJfBYOJXgGXAHm4CoCmCtYAHqXRWBGWB/F2Z5UnaAxZFOa"
		var_s3 = var_s3 + "J2DuTpzHCOQ5gwcg8veDBjlCaA0mGBg6BYapcEONZiHYHADg4MoKE+U4QkEIINAISAig4Y44moPIPA4EpoHSBoOngNgyDiW5jCGShCF+VouA2EQNhKHBMg+Y5pFYPYVm"
		var_s3 = var_s3 + "OQxYiAD4kEgNZRHSTokCWax4A4KA2DaDglGkUhYhoZRph4DYZB6NAllEbwOmgKhEhqJ4JjIa4ek8c48mGAoflcAQJhITxaBYCoHEuGZmHuIooioIgKgWJIUCWXh4hkNh"
		var_s3 = var_s3 + "ImkM4JloMh6iaJRzhySAkCkVhFhUd4QhMJomD0KtvBCCJMGocouh6KIKiifoKlodAmAAOgrgYVoVD7Y5AlMJhDAqPoLh6D4DkCYosicSoYkkQhcmMapOD6LQKkqHgkCw"
		var_s3 = var_s3 + "KhwmILpHFqSJ7jaTZbHYBw1lCFwwnEcAqgOUoUGSa5DxkLQGHsVhWhQRJKkmFYkBuaI1lgdBtlMdZKi6LoKnSZQwggOp+kGJpjiufIDiyGQXCiYZCmyJxeAQYQi0YYI+"
		var_s3 = var_s3 + "lieoqmmKwpHIdoskIGQGFWSg8DIBx6GCQ4AAYXhHjlo5fCqNpPjYRJ/kucwMkcMpM9GMwqk2Tx3AGa4AnIVpkm2N5cAgcJvk2XIsjGeYlF53hKk2dAnEGJR7nCdxlgYc"
		var_s3 = var_s3 + "4ajmEplk4NYNGcWpKiYRx5k4dYhC0RxggsTpXAGQA3jaBoEmuUIuFuCo4DoNoDHqShwCKXYPCSXYzmOMx6lwOwZoawrgkE0HwBY1xegdE2MMWQhBOhoEUBIQAgCAgA=="
		.Add(4,var_s3)
	endwith
	.Object.Background(73) = 0x3000000
	.Object.Background(74) = 0x4000000
	with .RightFace
		.RelativeMargins = "0,32,0,0"
		.Title(0) = "<c><font ;18>Table mode"
		.Title(11) = "bottom[2],bottom[4,back=RGB(0,0,0)]"
		with .CreateTree
			.HasLines = 0
			.DrawGridLines = 0
			.ItemPadding = 24
			.HeaderVisible = .F.
			.ShowSelection = .F.
			.Columns.Add("Default").Alignment = 0
			with .Items
				with .Add("Make windows more touch-friendly when using your device as a table")
					.SingleLine(0) = .F.
					with .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = .T.
						.State(0) = 0
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					endwith
					.Expanded = .T.
				endwith
				with .Add("When I sign in")
					.SingleLine(0) = .F.
					with .Items.Add("Automatically swicth to table mode")
						.Height = 24
						.HasRadioButton(0) = .T.
						.RadioGroup(0) = 1234
					endwith
					with .Items.Add("Go to the desktop")
						.Height = 24
						.HasRadioButton(0) = .T.
						.RadioGroup(0) = 1234
					endwith
					with .Items.Add("Remember what I used last")
						.Height = 24
						.HasRadioButton(0) = .T.
						.RadioGroup(0) = 1234
						.State(0) = 1
					endwith
					.Expanded = .T.
				endwith
				with .Add("When this device automatically switches table mode on or off")
					.SingleLine(0) = .F.
					with .Items.Add("Don't ask me and dont' switch")
						.Height = 24
						.HasRadioButton(0) = .T.
						.RadioGroup(0) = 1235
					endwith
					with .Items.Add("Always ask me before switching")
						.Height = 24
						.HasRadioButton(0) = .T.
						.RadioGroup(0) = 1235
						.State(0) = 1
					endwith
					with .Items.Add("Don't ask me and always' switch")
						.Height = 24
						.HasRadioButton(0) = .T.
						.RadioGroup(0) = 1235
					endwith
					.Expanded = .T.
				endwith
				with .Add("Hide app icons on the taskbar in table mode")
					.SingleLine(0) = .F.
					with .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = .T.
						.State(0) = 0
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					endwith
					.Expanded = .T.
				endwith
			endwith
		endwith
	endwith
	.EnsureVisibleFaceMargin = 0
	.EnsureVisibleFace(2)
	.AlwaysEnsureVisibleFace = 1
	.EndUpdate
endwith
89:
How can I display more group of radio-buttons

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	with .LeftFace
		.RelativeMargins = "0,32,0,0"
		.Title(0) = "<c><font ;18>Multitasking"
		.Title(11) = "bottom[2],bottom[4,back=RGB(0,0,0)]"
		with .CreateTree
			.HasLines = 0
			.DrawGridLines = 0
			.ItemPadding = 24
			.HeaderVisible = .F.
			.ShowSelection = .F.
			.Columns.Add("Default").Alignment = 0
			with .Items
				with .Add("Snap")
					.Divider = 0
					.Bold = .T.
				endwith
				with .Add("Arrange windows automatically by dragging them to the sides of corners of the scree")
					.SingleLine(0) = .F.
					with .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = .T.
						.State(0) = 1
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					endwith
					.Expanded = .T.
				endwith
				with .Add("When I snap more than one window, automatically adjust the size of the windows")
					.SingleLine(0) = .F.
					with .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = .T.
						.State(0) = 1
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					endwith
					.Expanded = .T.
				endwith
				with .Add("When I snap a window, show what I can snap next to it")
					.SingleLine(0) = .F.
					with .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = .T.
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					endwith
					.Expanded = .T.
				endwith
				with .Add("Virtual desktops")
					.Divider = 0
					.Bold = .T.
				endwith
				with .Add("On the taskbar, show windows that are open on:")
					.SingleLine(0) = .F.
					with .Items.Add("Only the desktop I'm using")
						.Height = 24
						.HasRadioButton(0) = .T.
						.RadioGroup(0) = 1234
						.State(0) = 1
					endwith
					with .Items.Add("All desktops")
						.Height = 24
						.HasRadioButton(0) = .T.
						.RadioGroup(0) = 1234
					endwith
					.Expanded = .T.
				endwith
				with .Add("Pressing ALT+TAB, show windows that are open on:")
					.SingleLine(0) = .F.
					with .Items.Add("Only the desktop I'm using")
						.Height = 24
						.HasRadioButton(0) = .T.
						.RadioGroup(0) = 1235
						.State(0) = 1
					endwith
					with .Items.Add("All desktops")
						.Height = 24
						.HasRadioButton(0) = .T.
						.RadioGroup(0) = 1235
					endwith
					.Expanded = .T.
				endwith
			endwith
		endwith
	endwith
	.EnsureVisibleFaceMargin = 0
	.EnsureVisibleFace(3)
	.AlwaysEnsureVisibleFace = 1
	.EndUpdate
endwith
88:
How can I use images with the control

*** FaceTreeButtonClick event - Notifies that a cell of button's type has been clicked. ***
LPARAMETERS Tree,Item,Column
	with thisform.TreeCube1
		DEBUGOUT( "FaceTreeButtonClick" )
	endwith

*** FaceTreeStateChanged event - Notifies that a cell changes its state into a face of tree type. ***
LPARAMETERS Tree,Item,Column
	with thisform.TreeCube1
		DEBUGOUT( "FaceTreeStateChanged" )
	endwith

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
		.RelativeMargins = "0,32,0,0"
		.Title(0) = "<c><font ;18>Notifications"
		.Title(11) = "bottom[2],bottom[4,back=RGB(0,0,0)]"
		with .CreateTree
			.HasLines = 0
			.DrawGridLines = 0
			.ItemPadding = 24
			.HeaderVisible = .F.
			.ShowSelection = .F.
			.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
				with .Add("Show me tips about Windows")
					.SingleLine(0) = .F.
					with .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = .T.
						.State(0) = 1
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					endwith
					.Expanded = .T.
				endwith
				with .Add("Show app notifications	")
					.SingleLine(0) = .F.
					with .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = .T.
						.State(0) = 1
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					endwith
					.Expanded = .T.
				endwith
				with .Add("Show notifications on lock screen")
					.SingleLine(0) = .F.
					with .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = .T.
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					endwith
					.Expanded = .T.
				endwith
				with .Add("Show alarms, reminders and incomming VOIP calls on the lock screen")
					.SingleLine(0) = .F.
					with .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = .T.
						.State(0) = 1
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					endwith
					.Expanded = .T.
				endwith
				with .Add("Hide notications while presentation")
					.SingleLine(0) = .F.
					with .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = .T.
						.State(0) = 0
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					endwith
					.Expanded = .T.
				endwith
			endwith
		endwith
	endwith
	.EnsureVisibleFaceMargin = 0
	.EnsureVisibleFace(0)
	.AlwaysEnsureVisibleFace = 1
	.EndUpdate
endwith
87:
How do I display a progress bar

with thisform.TreeCube1
	.TexturePicturePath = ""
	with .FrontFace.CreateTree
		.ItemPadding = 16
		with .Columns.Add("Pos")
			.FormatColumn = "1 pos ``"
			.Width = 8
		endwith
		.Columns.Add("Progress").Alignment = 0
		with .Items
			with .Add("")
				.BackgroundExt(1) = "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
				.BackgroundExtValue(1,4,2) = "25%"
				.BackgroundExtValue(1,2,4) = .BackgroundExtValue(1,4,2)
			endwith
			with .Add("")
				.BackgroundExt(1) = "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
				.BackgroundExtValue(1,4,2) = "15%"
				.BackgroundExtValue(1,2,4) = .BackgroundExtValue(1,4,2)
				.BackgroundExtValue(1,4,1) = 65280
			endwith
			with .Add("")
				.BackgroundExt(1) = "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
				.BackgroundExtValue(1,4,2) = "75%"
				.BackgroundExtValue(1,2,4) = .BackgroundExtValue(1,4,2)
			endwith
			with .Add("")
				.BackgroundExt(1) = "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
				.BackgroundExtValue(1,4,2) = "85%"
				.BackgroundExtValue(1,2,4) = .BackgroundExtValue(1,4,2)
			endwith
			with .Add("")
				.BackgroundExt(1) = "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
				.BackgroundExtValue(1,4,2) = "5%"
				.BackgroundExtValue(1,2,4) = .BackgroundExtValue(1,4,2)
				.BackgroundExtValue(1,4,1) = 255
			endwith
		endwith
	endwith
endwith
86:
I have a column of check box type, the question if I can automatically display on/off when user changes the check's state

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	.CheckBoxWidth = 32
	.CheckBoxHeight = 29
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAADhABQACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5Bi"
		var_s = var_s + "KAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfb"
		var_s = var_s + "aKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZO"
		var_s = var_s + "koNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonefApC2BQglWHIKAAPx/D4FoyHgTZsAIXwYAWYR8kMR5YAAP4PmOdZ7H8X54AoDhziASAaAiAoeAecZ+CQI"
		var_s = var_s + "AID4GhwGEF5eBOAphHgZgbgiWQYHYB4CGICA2CSCpPnMYIjgEYZoiIFYDCGCIyCsNgKCCRgSgyHZ4FoKoNiGOJgDKDphEidg0giJEnDiDojBkFZXg+IxZCYGoLgMOQSC"
		var_s = var_s + "mFBlCgOJZCmA4jDiCYJmSZw6FCEglheRhbA4ZZpgIV4ZCYV4+GeGhhniTghhsYAps+HBkGmTh0hmChpiId4PCSeQeHuHwnmmKhyg+aA3gYdohh2cxUhwCJNBIRZuiIXo"
		var_s = var_s + "DGiJwOkyWR9nkPwoiKFA2G2YBznaHIlB0cxGBiAYfAONJUCgIBmlAFg6k0AhaioJ5OkMTIdi0axzEyHmEBIYJpDMCJanyDowiwQwyq0LBbB6Sowg6KwYmoMxI26GwIBw"
		var_s = var_s + "U4Mj0GpgCOCI6BmG4mmYX4mG2a4GmCOAmhuFhfjmAALiKao5m6S4ml8bpNmKQBQgkFpzjSbg1koc44lYKQviKFp9j+TRrnsAZADALAXASQZwDwJp8xQc4uiSQ5xAwRwS"
		var_s = var_s + "kSYhDi0ERCFAECAg"
		.Add(1,var_s)
		var_s1 = "gBFLBCJwBAEHhEJAADhABZ8MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5Bi"
		var_s1 = var_s1 + "KAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfb"
		var_s1 = var_s1 + "aKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZO"
		var_s1 = var_s1 + "koNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePwfA6fx7n2MIkBqM4REAB5vnOQpWCeAhnjACR9B4IoEC0OQMAGSZ0H2AxHmQAA/g+Y51n6AAgCgEZLDaC"
		var_s1 = var_s1 + "hgmCUQkACAw8g4AJgjKEgNH6IQIEmYB/mAEhCAOBYZDMZIlA2TQSEQCheAGiwKDmTBiAWYYDCCaIWBOChijiMJ/DYXx4loNINBsQBdkWDpiCidgRg+YRYFoRANCMEAuE"
		var_s1 = var_s1 + "cXhlHiVISAMTgSlwXh1mOSISE+CZhEiKgLCiQw5FYWYaleFpQBiA4PhOSJhHMJgYD4Yx3mKn5fDYCgwkiUQkiUaRigIYhoEkZZUASTRiHAIodCSWYKCaHgmFkBh0CiAw"
		var_s1 = var_s1 + "Zn6AYhGaUhcBiEhmkoEJQCOQBTiiTQjlwGZwDOE4oncXh5hmHIzGCIgMCkah0lMJYBFeMAHiyQRqmKMomiCY5wnoPUzFyuIMmIJh2ioXJqi6Ehkg0coEC6H7zHSUgkkC"
		var_s1 = var_s1 + "axA42ToDmydw7GCahygODQNCIVASgoGQ7GyWAyEeaA9n2GQkAsBgGjQKBqGmwxNiKHA7HATxjiSTgzGwaY6h2J5AGOiwfFkM4UkEHQPiWQhQisD5zFyHwKimcAWgZhpr"
		var_s1 = var_s1 + "BQAA6AyAgVleHILlucAAj+KA5joDhjg0VhOBEPpwjkBgQD+H5wh2bACBmYBBlwAQPGOKJRH0DwTHiNpHjICgSjiLYkCUGrzk4ApUFoNRJjCBxBGQTwjgCOpPBsWRnDGK"
		var_s1 = var_s1 + "4DAiMxDlKXp3ECRpFiuKgOh8AZODKcBqH0NR9GGdA+A6YxplMdRlHmPY4DsTRig2YXfECDg2lmJAjnCeQ8meOANwYwSBXEsDUeQZxdDxDgGwbY3QjjmHiKUcIwQnBfGA"
		var_s1 = var_s1 + "DYZowR7B6E6E4MI2g1AUAsOkFwCwOhmECC0ZYkxzhhFME4egXQThHGkPUDoPwqtkE6E8LQaQJiHDiK4KYaBCiwFwOkaYVROhqXoIcdw9BzAcCKNAZg3Qbg2BsD0cY+Bv"
		var_s1 = var_s1 + "BPEWOUfIHgziVHMOMYwWQEAACGAEZYgg7gaGKCUXQ6hoD7F2JwW5txIhPHYBQTwwQljzD6AYW4zx6h9B+F8bo9h/AfDONUZwkhziJF8FwHALBaCTAwIEG4CASDfC4FwA"
		var_s1 = var_s1 + "IRRHuhBAOUUwAxoAQH6C0eACgDAeAMGoGgGREDPAiKAAIVwBgYA2AUZ4QgEAOEGMANwCwIjWCIEgJIASAg=="
		.Add(2,var_s1)
		var_s2 = "gBFLBCJwBAEHhEJAADhABT0MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5Bi"
		var_s2 = var_s2 + "KAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfb"
		var_s2 = var_s2 + "aKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZO"
		var_s2 = var_s2 + "koNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePR+D6d57GESA1GcIoAA+X5fgW2oJh6QAlnMdZHlgFIogGXw3lQNB+AAA54n4PxflefgBgCXIyBIFgZmGA"
		var_s2 = var_s2 + "YOBqAhKEgLZ5gOIQHgGfoAAkCAKBQZJIDiJBogqRwYjYGAZksGJFmGAogkiAgRgkIhohyfwgiOSIsGiCxkAGRBwhCRgZBYM4HGMWA+DeBJhEIBhOg+JAZEYQAaGUQhyF"
		var_s2 = var_s2 + "YdZjEgfhKgiIQohWc4TggGRCFKGJkCkDBehmTpJiWTIWGCWRtl+CJkkcfIAhyZgphIdoLEaWZkHeHpmjkIhaggZp5HYORzCcMgCHWFIkDGQBviKZx4jQZIjkuKhFkENg"
		var_s2 = var_s2 + "KDCThJiAHR5kIXhykeeh2geFBGmqBBmiiaI6hQb4diiGYcF4PgqkYTJXCgApDDiCYbGmBw6hqIJZCGeo6hUBoZlgaovmOY5CkIPQsEqKoJh2J4RjQeYylkM5cm0NgMhG"
		var_s2 = var_s2 + "egNH8JZImGE4BEeWpygiEJhiGDIGjeXATgaYgXG4SweGQGRugKOpqGSThTAQdA+hcCQuhsP5HjuVoPBkJQqhaZAXEsO52hkNYNGEcwCjmJAaCaew5HCBhOA8PpvJQDg/"
		var_s2 = var_s2 + "iyMZmiMGYGv4dw4jGB5MlKRpwCEcwEhAKhcE4OhRisdwEhmSZHGyJwjGQTRMjcHZHmKXBUGuJxHniHwlkqXpzG8Oo+moWRKmgGRKC0BZzk2c/FmiUZkFGBohBuJQhH8T"
		var_s2 = var_s2 + "gxjUB4ElUJwCDMRIRHuNBYhyd5WmuTJKECQYuEuCJhHWTYShQNhtm0M5zFmSpvFGbgvkgKI9DgXw8jcRwwm0GoCgEAxhoAWB0MwgQWi7EmOcMIpgnDwC4CcA4wh4gcB+"
		var_s2 = var_s2 + "BUYYcROBPA0GkCYhw4iuCmDgEg1wWAwDmBQJwlw9ifD4OsTAcQLhDBmHQbg1gzBvCWNMegnQnhNGqHUDoXwujWHqAYLICAAAbCKDAOQ4BMD9GaFUUo2QYjzFcLcTovBI"
		var_s2 = var_s2 + "hODuBoYoJxEBSHwP4JIrRyB5D8FcTI5x8jeEeJsco7xSC5HEG8S4DgEjnHaNQWIfRJheDaH8BgTgoB8EqFYMoFxPg/CeMUeovAMDBGKJkBgXxGgLHsH4R4QQpj7EyP8Z"
		var_s2 = var_s2 + "I1hEChBQAggI"
		.Add(3,var_s2)
	endwith
	.Object.Background(70) = 0x1000000
	.Object.Background(71) = 0x2000000
	.Object.Background(72) = 0x3000000
	with .FrontFace.CreateTree
		.HasLines = 2
		.ShowSelection = .F.
		.DrawGridLines = -2
		.ItemPadding = 16
		with .Columns.Add("<c><b>Partial Check")
			.Alignment = 0
			.Def(0) = .T.
			.FormatColumn = "`Check <b>` + 1 rpos `` + '</b> ' + (state=0 ? `<off 4>(off)` : (state=1 ? `<off 4>(on)` : ``))"
			.PartialCheck = .T.
		endwith
		.Items.Count = thisform.TreeCube1.FrontFace.FaceTree.VisibleItemsCount
		with .ItemByIndex(1)
			.Items.Count = 3
			.Expanded = .T.
			.State(0) = 1
		endwith
		with .ItemByIndex(2)
			.Items.Count = 3
			.Expanded = .T.
			.Items.Item(1).State(0) = 1
		endwith
	endwith
	.EndUpdate
endwith
85:
How do I print the control

with thisform.TreeCube1
	with .FrontFace.CreateCalendar
		.AutoSize = 1
		.MaxMonthX = 1
		.MaxMonthY = 1
	endwith
	with CreateObject("Exontrol.Print")
		.PrintExt = thisform.TreeCube1.Object
		.Preview
	endwith
endwith
84:
How can I get the caption from the point

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.TreeCube1
		DEBUGOUT( .FrontFace.FaceTree.CaptionFromPoint(-1,-1) )
	endwith

with thisform.TreeCube1
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Chapel"
	with .FrontFace.CreateTree
		.ItemPadding = 16
		.HeaderVisible = .F.
		.ForeColor = RGB(255,255,255)
		var_s = "<sha \;\;0><font \;18>Place <b>A,<sha \;\;0><font \;18>Place <b>B,<sha \;\;0><font \;18>Place <b>C,<sha \;\;0><font \;18>Place <"
		var_s = var_s + "b>D,<sha \;\;0><font \;18>Place <b>E"
		.Items.ToString = var_s
	endwith
endwith
83:
How can I get the value from the point

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.TreeCube1
		DEBUGOUT( .FrontFace.FaceTree.ValueFromPoint(-1,-1) )
	endwith

with thisform.TreeCube1
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Chapel"
	with .FrontFace.CreateTree
		.ItemPadding = 16
		.HeaderVisible = .F.
		.ForeColor = RGB(255,255,255)
		var_s = "<sha \;\;0><font \;18>Place <b>A,<sha \;\;0><font \;18>Place <b>B,<sha \;\;0><font \;18>Place <b>C,<sha \;\;0><font \;18>Place <"
		var_s = var_s + "b>D,<sha \;\;0><font \;18>Place <b>E"
		.Items.ToString = var_s
	endwith
endwith
82:
How can I get the column from the point
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.TreeCube1
		DEBUGOUT( .FrontFace.FaceTree.ColumnFromPoint(-1,-1) )
	endwith

with thisform.TreeCube1
	with .FrontFace.CreateTree
		.FullRowSelect = .T.
		.DrawGridLines = -2
		.Columns.Add("A").FormatColumn = "0 pos `A-Z`"
		.Columns.Add("B").FormatColumn = "0 pos `B-Z`"
		.Columns.Add("C").FormatColumn = "0 pos `C-Z`"
		.Columns.Add("D").FormatColumn = "0 pos `D-Z`"
		.Items.Count = 4
	endwith
endwith
81:
How can I get the item from the point
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.TreeCube1
		DEBUGOUT( .FrontFace.FaceTree.ItemFromPoint(-1,-1) )
	endwith

with thisform.TreeCube1
	with .FrontFace.CreateTree
		.FullRowSelect = .T.
		.DrawGridLines = -2
		.Columns.Add("A").FormatColumn = "0 pos `A-Z`"
		.Columns.Add("B").FormatColumn = "0 pos `B-Z`"
		.Columns.Add("C").FormatColumn = "0 pos `C-Z`"
		.Columns.Add("D").FormatColumn = "0 pos `D-Z`"
		.Items.Count = 4
	endwith
endwith
80:
How can I get the value from the point (calendar's date)
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.TreeCube1
		DEBUGOUT( "Date:" )
		DEBUGOUT( .FrontFace.FaceCalendar.ValueFromPoint(-1,-1) )
	endwith

with thisform.TreeCube1
	with .FrontFace.CreateCalendar
		.AutoSize = 1
		.MaxMonthX = 1
		.MaxMonthY = 1
	endwith
endwith
79:
How can I get the date from the point (calendar's date)
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.TreeCube1
		DEBUGOUT( "Date:" )
		DEBUGOUT( .FrontFace.FaceCalendar.DateFromPoint(-1,-1) )
	endwith

with thisform.TreeCube1
	with .FrontFace.CreateCalendar
		.AutoSize = 1
		.MaxMonthX = 1
		.MaxMonthY = 1
	endwith
endwith
78:
How can I get the face from the point

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.TreeCube1
		DEBUGOUT( "Face:" )
		DEBUGOUT( .FaceFromPoint(-1,-1) )
	endwith

with thisform.TreeCube1
	.IdentifyFace = 1
endwith
77:
Does your control support partial-check feature

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	.CheckBoxWidth = 32
	.CheckBoxHeight = 29
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAADhABQACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5Bi"
		var_s = var_s + "KAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfb"
		var_s = var_s + "aKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZO"
		var_s = var_s + "koNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonefApC2BQglWHIKAAPx/D4FoyHgTZsAIXwYAWYR8kMR5YAAP4PmOdZ7H8X54AoDhziASAaAiAoeAecZ+CQI"
		var_s = var_s + "AID4GhwGEF5eBOAphHgZgbgiWQYHYB4CGICA2CSCpPnMYIjgEYZoiIFYDCGCIyCsNgKCCRgSgyHZ4FoKoNiGOJgDKDphEidg0giJEnDiDojBkFZXg+IxZCYGoLgMOQSC"
		var_s = var_s + "mFBlCgOJZCmA4jDiCYJmSZw6FCEglheRhbA4ZZpgIV4ZCYV4+GeGhhniTghhsYAps+HBkGmTh0hmChpiId4PCSeQeHuHwnmmKhyg+aA3gYdohh2cxUhwCJNBIRZuiIXo"
		var_s = var_s + "DGiJwOkyWR9nkPwoiKFA2G2YBznaHIlB0cxGBiAYfAONJUCgIBmlAFg6k0AhaioJ5OkMTIdi0axzEyHmEBIYJpDMCJanyDowiwQwyq0LBbB6Sowg6KwYmoMxI26GwIBw"
		var_s = var_s + "U4Mj0GpgCOCI6BmG4mmYX4mG2a4GmCOAmhuFhfjmAALiKao5m6S4ml8bpNmKQBQgkFpzjSbg1koc44lYKQviKFp9j+TRrnsAZADALAXASQZwDwJp8xQc4uiSQ5xAwRwS"
		var_s = var_s + "kSYhDi0ERCFAECAg"
		.Add(1,var_s)
		var_s1 = "gBFLBCJwBAEHhEJAADhABZ8MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5Bi"
		var_s1 = var_s1 + "KAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfb"
		var_s1 = var_s1 + "aKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZO"
		var_s1 = var_s1 + "koNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePwfA6fx7n2MIkBqM4REAB5vnOQpWCeAhnjACR9B4IoEC0OQMAGSZ0H2AxHmQAA/g+Y51n6AAgCgEZLDaC"
		var_s1 = var_s1 + "hgmCUQkACAw8g4AJgjKEgNH6IQIEmYB/mAEhCAOBYZDMZIlA2TQSEQCheAGiwKDmTBiAWYYDCCaIWBOChijiMJ/DYXx4loNINBsQBdkWDpiCidgRg+YRYFoRANCMEAuE"
		var_s1 = var_s1 + "cXhlHiVISAMTgSlwXh1mOSISE+CZhEiKgLCiQw5FYWYaleFpQBiA4PhOSJhHMJgYD4Yx3mKn5fDYCgwkiUQkiUaRigIYhoEkZZUASTRiHAIodCSWYKCaHgmFkBh0CiAw"
		var_s1 = var_s1 + "Zn6AYhGaUhcBiEhmkoEJQCOQBTiiTQjlwGZwDOE4oncXh5hmHIzGCIgMCkah0lMJYBFeMAHiyQRqmKMomiCY5wnoPUzFyuIMmIJh2ioXJqi6Ehkg0coEC6H7zHSUgkkC"
		var_s1 = var_s1 + "axA42ToDmydw7GCahygODQNCIVASgoGQ7GyWAyEeaA9n2GQkAsBgGjQKBqGmwxNiKHA7HATxjiSTgzGwaY6h2J5AGOiwfFkM4UkEHQPiWQhQisD5zFyHwKimcAWgZhpr"
		var_s1 = var_s1 + "BQAA6AyAgVleHILlucAAj+KA5joDhjg0VhOBEPpwjkBgQD+H5wh2bACBmYBBlwAQPGOKJRH0DwTHiNpHjICgSjiLYkCUGrzk4ApUFoNRJjCBxBGQTwjgCOpPBsWRnDGK"
		var_s1 = var_s1 + "4DAiMxDlKXp3ECRpFiuKgOh8AZODKcBqH0NR9GGdA+A6YxplMdRlHmPY4DsTRig2YXfECDg2lmJAjnCeQ8meOANwYwSBXEsDUeQZxdDxDgGwbY3QjjmHiKUcIwQnBfGA"
		var_s1 = var_s1 + "DYZowR7B6E6E4MI2g1AUAsOkFwCwOhmECC0ZYkxzhhFME4egXQThHGkPUDoPwqtkE6E8LQaQJiHDiK4KYaBCiwFwOkaYVROhqXoIcdw9BzAcCKNAZg3Qbg2BsD0cY+Bv"
		var_s1 = var_s1 + "BPEWOUfIHgziVHMOMYwWQEAACGAEZYgg7gaGKCUXQ6hoD7F2JwW5txIhPHYBQTwwQljzD6AYW4zx6h9B+F8bo9h/AfDONUZwkhziJF8FwHALBaCTAwIEG4CASDfC4FwA"
		var_s1 = var_s1 + "IRRHuhBAOUUwAxoAQH6C0eACgDAeAMGoGgGREDPAiKAAIVwBgYA2AUZ4QgEAOEGMANwCwIjWCIEgJIASAg=="
		.Add(2,var_s1)
		var_s2 = "gBFLBCJwBAEHhEJAADhABT0MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5Bi"
		var_s2 = var_s2 + "KAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfb"
		var_s2 = var_s2 + "aKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZO"
		var_s2 = var_s2 + "koNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePR+D6d57GESA1GcIoAA+X5fgW2oJh6QAlnMdZHlgFIogGXw3lQNB+AAA54n4PxflefgBgCXIyBIFgZmGA"
		var_s2 = var_s2 + "YOBqAhKEgLZ5gOIQHgGfoAAkCAKBQZJIDiJBogqRwYjYGAZksGJFmGAogkiAgRgkIhohyfwgiOSIsGiCxkAGRBwhCRgZBYM4HGMWA+DeBJhEIBhOg+JAZEYQAaGUQhyF"
		var_s2 = var_s2 + "YdZjEgfhKgiIQohWc4TggGRCFKGJkCkDBehmTpJiWTIWGCWRtl+CJkkcfIAhyZgphIdoLEaWZkHeHpmjkIhaggZp5HYORzCcMgCHWFIkDGQBviKZx4jQZIjkuKhFkENg"
		var_s2 = var_s2 + "KDCThJiAHR5kIXhykeeh2geFBGmqBBmiiaI6hQb4diiGYcF4PgqkYTJXCgApDDiCYbGmBw6hqIJZCGeo6hUBoZlgaovmOY5CkIPQsEqKoJh2J4RjQeYylkM5cm0NgMhG"
		var_s2 = var_s2 + "egNH8JZImGE4BEeWpygiEJhiGDIGjeXATgaYgXG4SweGQGRugKOpqGSThTAQdA+hcCQuhsP5HjuVoPBkJQqhaZAXEsO52hkNYNGEcwCjmJAaCaew5HCBhOA8PpvJQDg/"
		var_s2 = var_s2 + "iyMZmiMGYGv4dw4jGB5MlKRpwCEcwEhAKhcE4OhRisdwEhmSZHGyJwjGQTRMjcHZHmKXBUGuJxHniHwlkqXpzG8Oo+moWRKmgGRKC0BZzk2c/FmiUZkFGBohBuJQhH8T"
		var_s2 = var_s2 + "gxjUB4ElUJwCDMRIRHuNBYhyd5WmuTJKECQYuEuCJhHWTYShQNhtm0M5zFmSpvFGbgvkgKI9DgXw8jcRwwm0GoCgEAxhoAWB0MwgQWi7EmOcMIpgnDwC4CcA4wh4gcB+"
		var_s2 = var_s2 + "BUYYcROBPA0GkCYhw4iuCmDgEg1wWAwDmBQJwlw9ifD4OsTAcQLhDBmHQbg1gzBvCWNMegnQnhNGqHUDoXwujWHqAYLICAAAbCKDAOQ4BMD9GaFUUo2QYjzFcLcTovBI"
		var_s2 = var_s2 + "hODuBoYoJxEBSHwP4JIrRyB5D8FcTI5x8jeEeJsco7xSC5HEG8S4DgEjnHaNQWIfRJheDaH8BgTgoB8EqFYMoFxPg/CeMUeovAMDBGKJkBgXxGgLHsH4R4QQpj7EyP8Z"
		var_s2 = var_s2 + "I1hEChBQAggI"
		.Add(3,var_s2)
	endwith
	.Object.Background(70) = 0x1000000
	.Object.Background(71) = 0x2000000
	.Object.Background(72) = 0x3000000
	with .FrontFace.CreateTree
		.HasLines = 2
		.ShowSelection = .F.
		.DrawGridLines = -2
		.ItemPadding = 16
		with .Columns.Add("<c><b>Partial Check")
			.Alignment = 0
			.Def(0) = .T.
			.FormatColumn = "`Check <b>` + 1 rpos ``"
			.PartialCheck = .T.
		endwith
		.Items.Count = thisform.TreeCube1.FrontFace.FaceTree.VisibleItemsCount
		with .ItemByIndex(1)
			.Items.Count = 3
			.Expanded = .T.
			.State(0) = 1
		endwith
		with .ItemByIndex(2)
			.Items.Count = 3
			.Expanded = .T.
			.Items.Item(1).State(0) = 1
		endwith
	endwith
	.EndUpdate
endwith
76:
I am using the Items.ToString, just wondering if I can use it for multiple columns

with thisform.TreeCube1
	.TexturePicturePath = ""
	with .FrontFace.CreateTree
		.DrawGridLines = 0
		.HeaderVisible = .F.
		.Columns.Count = 4
		.Items.ToString = "1;2;3;4,5;6;7;8,9;10;11;12,13;14;15;16,17;18;29;20,21;22;23;24,25;26;27;28,29;30;31;32"
	endwith
endwith
75:
How can I show the item on multiple-lines

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	with .FrontFace.CreateTree
		.DrawGridLines = -2
		.ItemPadding = 12
		with .Columns.Add("<c><b>Items")
			.Alignment = 0
			.Def(16) = .F.
		endwith
		with .Items
			.Add("Short")
			var_s = "The eXTreeCube library provides fish-eye representation / cube map texturing of different components such as calendar, multiple "
			var_s = var_s + "- columns tree view and so on. Cube map texturing is a form of environment texture mapping that uses a viewing direction (3D vec"
			var_s = var_s + "tor) to map into a view plane the six 2D textures arranged like the faces of a cube. "
			.Add(var_s)
			.Add("Short")
		endwith
	endwith
	.EndUpdate
endwith
74:
How can I change the visual appearance for the control's radio buttons

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	.RadioButtonWidth = 23
	.RadioButtonHeight = 23
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAADhABNoCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFI"
		var_s = var_s + "ADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1BKmHZDQRAApqXIjVDAYIQSSBUlkHScRijDICXSIIQmbajIZoJCiVZ3VaGETnRQlJQuEgOHZwDAsBwPBqBPziL"
		var_s = var_s + "p4WzmGqhR5ichYHI8RYVTKXYy3DxZW7OO4PQjQM7hHL8fwlfTuagyGpZOxjP5cdrYHw2J7NUzJeDxbhrTb6Zh7ILVX7TNIwXAdD4PIKmNryORsC4XG5pZ7oOh6Lo3G4r"
		var_s = var_s + "hWZI2nOL4eBON4LkeRJvHWDxvB6G5Lmac56D0OY3hMU5bm6bRoiAeA9DMX5riydJ+D8P4vEeO4xkEcQfCYBZrHKXgzlme4BmCB4eAUZRbAaAZeGsDg4EYCYEmERoaBEO"
		var_s = var_s + "JaiMIY2EIXo2FYFYHmIBp1j8OoQhcYZNDiIgIiYE4Jl2BAlj0agOmiKgyH6Xo2jECYGE8WJmDODpehgFgZEIXI3DyfoQmQSQWEaEZkgkJhKhKZA2hmSxCEyGREnSFJkk"
		var_s = var_s + "kVhWwCCAthFKRjiIXhpiXOhihGYwJESSRCFuIxqGoPomkmDhuhWT45kSXYcl8UxdAkbgPBaMhTD0JApj4foRBoaJ5iqAxdmadhzDcWxpgIf4bhsY4Gg6GYYDcegNGUYg"
		var_s = var_s + "6VMIsBBmNg8CmRwuCOJBgBaAgXh6JQzl6JocE+OQQn+KpqkqNouivgQiiaLJPHaMZYHwQAHHIdRrA6ep2jMbYqx2RxzmqBpajOLxOnacYPHcHZnHGOlynmbo0jSbRLFa"
		var_s = var_s + "JoJlyNpplyKArhcGZcgMWpGjCXo4liM4ukiHpngkeJojiTZphmLIDG2Nwak2N4vEaAJsj2bpLgWFxlGGExOn4dgvHOMpxGgbwkAyaxEFCFAEICA="
		.Add(1,var_s)
		var_s1 = "gBFLBCJwBAEHhEJAADhABCEMACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFI"
		var_s1 = var_s1 + "ADRfFoWmxTdAcYSCGSZZrGOiQADINI0R7UAABPBIMSjAamHZDQRAApqXIjVaAhySQKksg6TiMUYZAbaRBCEzbUZDNBIopUQLVU5ABbUEqBIipIrEQLHNwPBaEYZiOIYW"
		var_s1 = var_s1 + "5re4cfzIMhyLI8Ob3CqHZhleTwTjWGYvSp1dBbTQ2QyVRanMDqOjsKxmW5Gbh5NhfHY8dxnDKcZ5jGSudrjEZ9VpmG74JzeEbjRj8chxT4PDxnBK/YDSWgdLo8VzXBpc"
		var_s1 = var_s1 + "G2MY4maXxzFKQRxHgOQeC8H4TkuZhzHoNR9kaXpNnONZsGGMo9B4A5bmuFZ7n4Pw/i+XpFmSVB/mAB41hsQJfBYOJXgGXAHm4CoCmCtYAHqXRWBGWB/F2Z5UnaAxZFOa"
		var_s1 = var_s1 + "J2DuTpzHCOQ5gwcg8veDBjlCaA0mGBg6BYapcEONZiHYHADg4MoKE+U4QkEIINAISAig4Y44moPIPA4EpoHSBoOngNgyDiW5jCGShCF+VouA2EQNhKHBMg+Y5pFYPYVm"
		var_s1 = var_s1 + "OQxYiAD4kEgNZRHSTokCWax4A4KA2DaDglGkUhYhoZRph4DYZB6NAllEbwOmgKhEhqJ4JjIa4ek8c48mGAoflcAQJhITxaBYCoHEuGZmHuIooioIgKgWJIUCWXh4hkNh"
		var_s1 = var_s1 + "ImkM4JloMh6iaJRzhySAkCkVhFhUd4QhMJomD0KtvBCCJMGocouh6KIKiifoKlodAmAAOgrgYVoVD7Y5AlMJhDAqPoLh6D4DkCYosicSoYkkQhcmMapOD6LQKkqHgkCw"
		var_s1 = var_s1 + "KhwmILpHFqSJ7jaTZbHYBw1lCFwwnEcAqgOUoUGSa5DxkLQGHsVhWhQRJKkmFYkBuaI1lgdBtlMdZKi6LoKnSZQwggOp+kGJpjiufIDiyGQXCiYZCmyJxeAQYQi0YYI+"
		var_s1 = var_s1 + "lieoqmmKwpHIdoskIGQGFWSg8DIBx6GCQ4AAYXhHjlo5fCqNpPjYRJ/kucwMkcMpM9GMwqk2Tx3AGa4AnIVpkm2N5cAgcJvk2XIsjGeYlF53hKk2dAnEGJR7nCdxlgYc"
		var_s1 = var_s1 + "4ajmEplk4NYNGcWpKiYRx5k4dYhC0RxggsTpXAGQA3jaBoEmuUIuFuCo4DoNoDHqShwCKXYPCSXYzmOMx6lwOwZoawrgkE0HwBY1xegdE2MMWQhBOhoEUBIQAgCAgA=="
		.Add(2,var_s1)
	endwith
	.Object.Background(73) = 0x1000000
	.Object.Background(74) = 0x2000000
	with .FrontFace.CreateTree
		.ShowSelection = .F.
		.DrawGridLines = -2
		.ItemPadding = 12
		with .Columns.Add("<c><b>Radio")
			.Alignment = 0
			.Def(1) = .T.
		endwith
		.Items.ToString = "Radio 1,Radio 2,Radio 3,Radio 4"
		.ItemByIndex(1).State(0) = 1
	endwith
	.EndUpdate
endwith
73:
How can I change the visual appearance for the control's check boxes (6)

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	.CheckBoxWidth = 16
	.CheckBoxHeight = 16
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAADhABKMGACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFI"
		var_s = var_s + "ACxfFoWRrnaA5QoGM4EDTRYADCKsaQ/J0LcI1FLUEyUf6sAArB74XiCIAIQiUBomGahajkMoYZAAaDCCI2a4aDZCIoVHalKgxC5oKSqCJqbptMZ/HrgJQYGRuC4NQ7Cc"
		var_s = var_s + "DKDATbr9MZ9ZBCNZoPimEYtS7MMLyRB8QpyAytaBhRaaGwmSr3U7Oc50d69FYTIxcYZoCq1XBOGYMZLcNR3La9YYnBqMbRAeJYNped6NSDVcKxLgaa4fTrOZZzHL9Hpv"
		var_s = var_s + "iMWYBnWOr+kwJ4zlqY53CAZQ/B4GZzmab5qHyT4cDeDInkwPp8DCTI/h+Iw7nMZZhj4B5eGKL57gYGAgAadZoG8soBgYfxKjcSRYCCYJGGYDoDmCQgNh0ZIZAaSB2gWY"
		var_s = var_s + "J2F4FwdhsJpuBQfRiAWdQJDqUQUCUASAgA=="
		.Add(1,var_s)
		var_s1 = "gBFLBCJwBAEHhEJAADhABV0GACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFI"
		var_s1 = var_s1 + "ACxfFoWRrnaA5QoGM4EDTRYADCKsaQ/J0LcI1FLUEyUf6sAArB74XiCIAIQiUBomGahajkMoYZAAaDCCI2a4aDZCIoVHalKgxC5oKSqCJqbptMZ/HrgJQYGRuC4NQ7Cc"
		var_s1 = var_s1 + "DKDATbr9MZ9ZBCNZoPimEYtS7MMLQXK8QpyAytaBhRaaGwmSr3U7Oc50d69FYQXqvYZoCq1XBOGYMZLcNR3La9YYnBqMbRAeJYNpedy2YbkFC5LStHwbCrBVpxWotDxQ"
		var_s1 = var_s1 + "jWVgrHYGI9iybhbiGUo+jafA6DKZxjkoVgxHoHR+iqXx2jMA52l8XJ/CMJ5TkaCp7nmOwHk+XovmECR8BWMYyAIHAgEOBgGFaSo4CWeQVgoSA0lOA5fEGEZQBSYRGBie"
		var_s1 = var_s1 + "YFlWMhiBoPZhkabI3geYIzDYIoHA8dxAH2CZYGMLgqHeW4zAYLgWCMB4gGIeoOjcQgJCqWBhgIOhvGKRhAn2D5blcWBaB+JBGi2EhWAgOQlhmEpYgiHB9DwJQCloUgWm"
		var_s1 = var_s1 + "UQoOFaEZXlaSB2haZJGF4WwdhsJRslmGJGDmFhYg8ZoHBiZYalCE4tBEQhQBAgI="
		.Add(2,var_s1)
	endwith
	.Object.Background(70) = 0x1000000
	.Object.Background(71) = 0x2000000
	with .FrontFace.CreateTree
		.ShowSelection = .F.
		.DrawGridLines = -2
		.ItemPadding = 16
		with .Columns.Add("<c><b>Check")
			.Alignment = 0
			.Def(0) = .T.
		endwith
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.ItemByIndex(1).State(0) = 1
	endwith
	.EndUpdate
endwith
72:
How can I change the visual appearance for the control's check boxes (5)

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	.CheckBoxWidth = 24
	.CheckBoxHeight = 24
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAADhABO8GACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFI"
		var_s = var_s + "ADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1DZ+KxAB76cheIIgAhCJQGSYZaDqOQyRhkBTqEIITZsRoNUIiRStayuDCLTwoSooXayfjHYAwOBYHgmC4NQ7EM"
		var_s = var_s + "RxLAmOw1ZKPQjgDDvDilM4tS7MMxzLK8cx3FjqaAyWhQTgePZNU7UNLwPRMCb3LqvbBsOxbHqma5tWjVYDwPZ9cz3Pq9biAG57fwnC59YLheK5Li9Q4jLbMdByXLMDxH"
		var_s = var_s + "iuRJpnWOw7k6RxrjuM5pj+PA+C8H4TkuZpznoPQ+H8B4rlubp3nsfYfA+H5Tl2cp6n4Pw+C+P5rnucx/B+aAFmqAAgCgFZlHSVZICYCoCmCSA2A6A5hAgPZTGWIQYFYF"
		var_s = var_s + "oFmCVsjj2YZIHYHoHmICIGCKCJiEiCZBGMTJjiIKoJGKSI2C6CBOjiRYSEITp4lWIgyhiOJmDqDpYHiIYgDqEITi0ERCFAECAg=="
		.Add(1,var_s)
		var_s1 = "gBFLBCJwBAEHhEJAADhABA4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFI"
		var_s1 = var_s1 + "ADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1DZ+KxAB76cheIIgAhCJQGSYZaDqOQyRhkBTqEIITZsRoNUIiRStayuDCLTwoSooXayfjHYAwOBYHgmC4NQ7EM"
		var_s1 = var_s1 + "RxLAmOw1ZKPQjgDDvDilM4tS7MMxzLK8cx3FjqaAyWhQTgePZNU7UNLwPRMCb3LqvbBsOxbHqma5tWjVYDwPZ9cz3Pq9biAG57fq7ZLEYziOR4Hg+JzFbDVKq0aYjA5R"
		var_s1 = var_s1 + "lCU5mm8OR6l6Q53pqaAkgQXgBBMeRmGabhtjsTAeGuaZsm+aQMDwfwvAuJYch2dBsj0XJWkqHIZnMCIOEMBICHiXwHFWVx+A+V5pj4eRGGefJvDcC4WjyXArEWF4OAyA"
		var_s1 = var_s1 + "gghYCYsDAT5oHYHoHmGU5sncPANGKAA+HiXJyi4IA/g8U4klQfAeDeVIdgqYxIlWaoNGMQ5gnAOIOHMIIQg4IZonSEIBB0OIInCEAjGgaY6GCJIJDYQIRiEOBVmEN5LE"
		var_s1 = var_s1 + "GHhOggIx5F4WoKmKWI9lOCgdAkahZhaZhIH4QoRAMCQaE2GJmFmFhQgUJQZgoShwiSSY2HaBxllmFZqFcJ5JnYfofmgCgGgKIJoCeKYWiEKIKCaCogBqd4oneI5pAoRo"
		var_s1 = var_s1 + "SiSaRKFaFolmkVwFg0M4OgodoYieagKgaFA6moRhJAkO5qgaCJKGKapKjaLhhmmNoAmoQhOjQRQJEAQCAg=="
		.Add(2,var_s1)
	endwith
	.Object.Background(70) = 0x1000000
	.Object.Background(71) = 0x2000000
	with .FrontFace.CreateTree
		.ShowSelection = .F.
		.DrawGridLines = -2
		.ItemPadding = 16
		with .Columns.Add("<c><b>Check")
			.Alignment = 0
			.Def(0) = .T.
		endwith
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.ItemByIndex(1).State(0) = 1
	endwith
	.EndUpdate
endwith
71:
How can I change the visual appearance for the control's check boxes (4)

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	.CheckBoxWidth = 32
	.CheckBoxHeight = 32
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAADhABfICg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
		var_s = var_s + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRijDIAbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
		var_s = var_s + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxR"
		var_s = var_s + "DWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYF"
		var_s = var_s + "oFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4Uk"
		var_s = var_s + "mCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAo"
		var_s = var_s + "chqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0"
		var_s = var_s + "ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8"
		var_s = var_s + "CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2U"
		var_s = var_s + "gJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="
		.Add(1,var_s)
		var_s1 = "gBFLBCJwBAEHhEJAADhABcoFg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
		var_s1 = var_s1 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRijDIAbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
		var_s1 = var_s1 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n"
		var_s1 = var_s1 + "GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnSc"
		var_s1 = var_s1 + "g1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpA"
		var_s1 = var_s1 + "oPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDR"
		var_s1 = var_s1 + "DFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lG"
		var_s1 = var_s1 + "NAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBg"
		var_s1 = var_s1 + "k0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuX"
		var_s1 = var_s1 + "pMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2Cy"
		var_s1 = var_s1 + "A4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8Rp"
		var_s1 = var_s1 + "BzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8T"
		var_s1 = var_s1 + "I7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeH"
		var_s1 = var_s1 + "GFgLIwQrC2D0JoSQ+QvhrHoHERggR4A2GKMQH4FwBD0CgAgAAkAFhAEwEYAoYAiBeEUBEAYEBRI8EUCIcAVAEDQG0PcZYIBVgSHEAEGojB4j1AeFkHQ+wsBDBQGQTwyB"
		var_s1 = var_s1 + "dDREMAwNAjQhh+BoMYZA1wNhjEIG8QwwROAmEGCgBQCBgBQHKBoUYDQqiNEGNgGgowQjZA0MMHAZwWBgGsD4I4QBqAfDGJAMgrhAiRBGKQQgPRJAyB8EkJIWQUglGOBg"
		var_s1 = var_s1 + "ZYFgGBYAIDsACmRgjgH0B4EYnQljIBiJwOwRh8DZA2CIGAOwDhRGEDQQwLAulGACJwZYOQ2gtDKMQWglwpDeC6AoUIJgPBiGAAACgggoBDAUPEHgJwShIGwDsEYtBnAJ"
		var_s1 = var_s1 + "HiBoEQxRgCqAoCkeAbBUAhE2C8EwxBcibBkO0TgjxQjIBkIMIATwDCuGAB0QQEAJAtEKDgUQHgBi0DsJ0SI9AygkAwM0KQ4wIBcAUOEfQPRDgSB8BoZIrg1jNFSP0G4K"
		var_s1 = var_s1 + "ACCzA4GMHgWqnjwHYAMDATgDhDHYMATokhpA9AaEAYoFwhDkHmAcHIogUBHAANsDIpR+B0EoEEbIRxUgAH+KMegihIDSB0E2X44BNgRFmAEZINhYhYBQIQYoDgUCFHsI"
		var_s1 = var_s1 + "gG1hQZhmDgIwCIoRwA7CQGMdYTxniVCAD4OQGhOiHDAJ4BowQSAFAIIAGAcxHBBGGEwRYVB3gfBmDAOoURIi0BsAYQA0KlA0DMA0IImQrhqH6F4VgFRHCxCtLYKwxgyh"
		var_s1 = var_s1 + "YYGFgNYjQQidCCICllpJUjVAUOwLwxQ2gwEwDUcwmBrh6H4F4BY6A02kAaNjMYYADBrH6IkF4FVPiDGgEgAYWwkUIGAGIYoWQpDuDkMUVARwCjgDMMMAIoRBAuAKIkNg"
		var_s1 = var_s1 + "HQyBEEIJACBAQA=="
		.Add(2,var_s1)
		var_s2 = "gBFLBCJwBAEHhEJAADhABQ4Fg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
		var_s2 = var_s2 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRijDIAbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
		var_s2 = var_s2 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n"
		var_s2 = var_s2 + "GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSe"
		var_s2 = var_s2 + "Q7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjn"
		var_s2 = var_s2 + "OIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ"
		var_s2 = var_s2 + "9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGS"
		var_s2 = var_s2 + "UwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4y"
		var_s2 = var_s2 + "mkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkX"
		var_s2 = var_s2 + "I/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6"
		var_s2 = var_s2 + "BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRA"
		var_s2 = var_s2 + "jDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEB"
		var_s2 = var_s2 + "wpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQH"
		var_s2 = var_s2 + "oFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRh"
		var_s2 = var_s2 + "cDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQ"
		var_s2 = var_s2 + "uFFBaDOASPcAALgChUDyB4cYtgiiOEyCcEopRCCvEsFIKomQEjnB4L8YgQBfgWEEMgPADhojaDsEcaIlBFiDBqEcRgQQ4ArEOPAfYQhUjmCsMsHIYwShmDmAoDYsRqjx"
		var_s2 = var_s2 + "AUAkHwPwDjYH2DsEopA9AaECIoFwhRkjmAcHIUAUBHABFsDMJY+B0goEGLIOozhoj/B2CcPg7hPATGdduAALgiiEBsBkd4Fg2iUCEPsG4RxKDDEoMIGARhDiAHaBcZ4r"
		var_s2 = var_s2 + "beBUBQPkYo+gFAdE+AwKAEQhjGEUE8aQ1QYBQFCJwTgww1BDEaAEVQMwjBgGoBkSghhIjSBUEkJI6QagpFIHQPgZgojaBsDgIw8BvBgHYAG3QeAUhFFSMQfonwxg2D6E"
		var_s2 = var_s2 + "8ZQcwnjLG6DYCgjoAitB0IEKIyxigUA8DQZoq5tgiBICoIoUQXDjDgG4BouhFZdBQJEDYQw0BsEsMEawRAkBJACQEA=="
		.Add(3,var_s2)
	endwith
	.Object.Background(70) = 0x1000000
	.Object.Background(71) = 0x2000000
	.Object.Background(72) = 0x3000000
	with .FrontFace.CreateTree
		.ShowSelection = .F.
		.DrawGridLines = -2
		.ItemPadding = 16
		with .Columns.Add("<c><b>Check")
			.Alignment = 0
			.Def(0) = .T.
		endwith
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.ItemByIndex(1).State(0) = 1
	endwith
	.EndUpdate
endwith
70:
How can I change the visual appearance for the control's check boxes (3)

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	.CheckBoxWidth = 32
	.CheckBoxHeight = 29
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAADhABQACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5Bi"
		var_s = var_s + "KAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfb"
		var_s = var_s + "aKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZO"
		var_s = var_s + "koNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonefApC2BQglWHIKAAPx/D4FoyHgTZsAIXwYAWYR8kMR5YAAP4PmOdZ7H8X54AoDhziASAaAiAoeAecZ+CQI"
		var_s = var_s + "AID4GhwGEF5eBOAphHgZgbgiWQYHYB4CGICA2CSCpPnMYIjgEYZoiIFYDCGCIyCsNgKCCRgSgyHZ4FoKoNiGOJgDKDphEidg0giJEnDiDojBkFZXg+IxZCYGoLgMOQSC"
		var_s = var_s + "mFBlCgOJZCmA4jDiCYJmSZw6FCEglheRhbA4ZZpgIV4ZCYV4+GeGhhniTghhsYAps+HBkGmTh0hmChpiId4PCSeQeHuHwnmmKhyg+aA3gYdohh2cxUhwCJNBIRZuiIXo"
		var_s = var_s + "DGiJwOkyWR9nkPwoiKFA2G2YBznaHIlB0cxGBiAYfAONJUCgIBmlAFg6k0AhaioJ5OkMTIdi0axzEyHmEBIYJpDMCJanyDowiwQwyq0LBbB6Sowg6KwYmoMxI26GwIBw"
		var_s = var_s + "U4Mj0GpgCOCI6BmG4mmYX4mG2a4GmCOAmhuFhfjmAALiKao5m6S4ml8bpNmKQBQgkFpzjSbg1koc44lYKQviKFp9j+TRrnsAZADALAXASQZwDwJp8xQc4uiSQ5xAwRwS"
		var_s = var_s + "kSYhDi0ERCFAECAg"
		.Add(1,var_s)
		var_s1 = "gBFLBCJwBAEHhEJAADhABZ8MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5Bi"
		var_s1 = var_s1 + "KAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfb"
		var_s1 = var_s1 + "aKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZO"
		var_s1 = var_s1 + "koNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePwfA6fx7n2MIkBqM4REAB5vnOQpWCeAhnjACR9B4IoEC0OQMAGSZ0H2AxHmQAA/g+Y51n6AAgCgEZLDaC"
		var_s1 = var_s1 + "hgmCUQkACAw8g4AJgjKEgNH6IQIEmYB/mAEhCAOBYZDMZIlA2TQSEQCheAGiwKDmTBiAWYYDCCaIWBOChijiMJ/DYXx4loNINBsQBdkWDpiCidgRg+YRYFoRANCMEAuE"
		var_s1 = var_s1 + "cXhlHiVISAMTgSlwXh1mOSISE+CZhEiKgLCiQw5FYWYaleFpQBiA4PhOSJhHMJgYD4Yx3mKn5fDYCgwkiUQkiUaRigIYhoEkZZUASTRiHAIodCSWYKCaHgmFkBh0CiAw"
		var_s1 = var_s1 + "Zn6AYhGaUhcBiEhmkoEJQCOQBTiiTQjlwGZwDOE4oncXh5hmHIzGCIgMCkah0lMJYBFeMAHiyQRqmKMomiCY5wnoPUzFyuIMmIJh2ioXJqi6Ehkg0coEC6H7zHSUgkkC"
		var_s1 = var_s1 + "axA42ToDmydw7GCahygODQNCIVASgoGQ7GyWAyEeaA9n2GQkAsBgGjQKBqGmwxNiKHA7HATxjiSTgzGwaY6h2J5AGOiwfFkM4UkEHQPiWQhQisD5zFyHwKimcAWgZhpr"
		var_s1 = var_s1 + "BQAA6AyAgVleHILlucAAj+KA5joDhjg0VhOBEPpwjkBgQD+H5wh2bACBmYBBlwAQPGOKJRH0DwTHiNpHjICgSjiLYkCUGrzk4ApUFoNRJjCBxBGQTwjgCOpPBsWRnDGK"
		var_s1 = var_s1 + "4DAiMxDlKXp3ECRpFiuKgOh8AZODKcBqH0NR9GGdA+A6YxplMdRlHmPY4DsTRig2YXfECDg2lmJAjnCeQ8meOANwYwSBXEsDUeQZxdDxDgGwbY3QjjmHiKUcIwQnBfGA"
		var_s1 = var_s1 + "DYZowR7B6E6E4MI2g1AUAsOkFwCwOhmECC0ZYkxzhhFME4egXQThHGkPUDoPwqtkE6E8LQaQJiHDiK4KYaBCiwFwOkaYVROhqXoIcdw9BzAcCKNAZg3Qbg2BsD0cY+Bv"
		var_s1 = var_s1 + "BPEWOUfIHgziVHMOMYwWQEAACGAEZYgg7gaGKCUXQ6hoD7F2JwW5txIhPHYBQTwwQljzD6AYW4zx6h9B+F8bo9h/AfDONUZwkhziJF8FwHALBaCTAwIEG4CASDfC4FwA"
		var_s1 = var_s1 + "IRRHuhBAOUUwAxoAQH6C0eACgDAeAMGoGgGREDPAiKAAIVwBgYA2AUZ4QgEAOEGMANwCwIjWCIEgJIASAg=="
		.Add(2,var_s1)
		var_s2 = "gBFLBCJwBAEHhEJAADhABT0MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5Bi"
		var_s2 = var_s2 + "KAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfb"
		var_s2 = var_s2 + "aKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZO"
		var_s2 = var_s2 + "koNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePR+D6d57GESA1GcIoAA+X5fgW2oJh6QAlnMdZHlgFIogGXw3lQNB+AAA54n4PxflefgBgCXIyBIFgZmGA"
		var_s2 = var_s2 + "YOBqAhKEgLZ5gOIQHgGfoAAkCAKBQZJIDiJBogqRwYjYGAZksGJFmGAogkiAgRgkIhohyfwgiOSIsGiCxkAGRBwhCRgZBYM4HGMWA+DeBJhEIBhOg+JAZEYQAaGUQhyF"
		var_s2 = var_s2 + "YdZjEgfhKgiIQohWc4TggGRCFKGJkCkDBehmTpJiWTIWGCWRtl+CJkkcfIAhyZgphIdoLEaWZkHeHpmjkIhaggZp5HYORzCcMgCHWFIkDGQBviKZx4jQZIjkuKhFkENg"
		var_s2 = var_s2 + "KDCThJiAHR5kIXhykeeh2geFBGmqBBmiiaI6hQb4diiGYcF4PgqkYTJXCgApDDiCYbGmBw6hqIJZCGeo6hUBoZlgaovmOY5CkIPQsEqKoJh2J4RjQeYylkM5cm0NgMhG"
		var_s2 = var_s2 + "egNH8JZImGE4BEeWpygiEJhiGDIGjeXATgaYgXG4SweGQGRugKOpqGSThTAQdA+hcCQuhsP5HjuVoPBkJQqhaZAXEsO52hkNYNGEcwCjmJAaCaew5HCBhOA8PpvJQDg/"
		var_s2 = var_s2 + "iyMZmiMGYGv4dw4jGB5MlKRpwCEcwEhAKhcE4OhRisdwEhmSZHGyJwjGQTRMjcHZHmKXBUGuJxHniHwlkqXpzG8Oo+moWRKmgGRKC0BZzk2c/FmiUZkFGBohBuJQhH8T"
		var_s2 = var_s2 + "gxjUB4ElUJwCDMRIRHuNBYhyd5WmuTJKECQYuEuCJhHWTYShQNhtm0M5zFmSpvFGbgvkgKI9DgXw8jcRwwm0GoCgEAxhoAWB0MwgQWi7EmOcMIpgnDwC4CcA4wh4gcB+"
		var_s2 = var_s2 + "BUYYcROBPA0GkCYhw4iuCmDgEg1wWAwDmBQJwlw9ifD4OsTAcQLhDBmHQbg1gzBvCWNMegnQnhNGqHUDoXwujWHqAYLICAAAbCKDAOQ4BMD9GaFUUo2QYjzFcLcTovBI"
		var_s2 = var_s2 + "hODuBoYoJxEBSHwP4JIrRyB5D8FcTI5x8jeEeJsco7xSC5HEG8S4DgEjnHaNQWIfRJheDaH8BgTgoB8EqFYMoFxPg/CeMUeovAMDBGKJkBgXxGgLHsH4R4QQpj7EyP8Z"
		var_s2 = var_s2 + "I1hEChBQAggI"
		.Add(3,var_s2)
	endwith
	.Object.Background(70) = 0x1000000
	.Object.Background(71) = 0x2000000
	.Object.Background(72) = 0x3000000
	with .FrontFace.CreateTree
		.ShowSelection = .F.
		.DrawGridLines = -2
		.ItemPadding = 16
		with .Columns.Add("<c><b>Check")
			.Alignment = 0
			.Def(0) = .T.
		endwith
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.ItemByIndex(1).State(0) = 1
	endwith
	.EndUpdate
endwith
69:
How can I change the visual appearance for the control's check boxes (2)

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	.CheckBoxWidth = 44
	.CheckBoxHeight = 20
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAADhABJACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSDI"
		var_s = var_s + "UBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3OyaN5EbbgZz9P7AMBwLA8EwXBqHYIUG"
		var_s = var_s + "JGbhlbTnR7HMhvDIsPDnFqIZhmOZZXjlfh7T7KNByO6LcI3AiDagtWpNTpjf5dV7YNh2LY9UzXNq3bI1W5aUqyAZ9QQpeB0LILYDbRp/FzyO5NNrHG6dZ7oOh1doOUIt"
		var_s = var_s + "laP5lgcPA7hEJ47H8SD0l4LwfhOSJ9nOIh9DefBREMKYMDaX59nsVhvlKdBpCGfgIl+L43lGG5lH+YAGlWZw/EYOAVH8ZQXncdBJDwIJGkiGYDlmUh2BKABhEgVJpgWX"
		var_s = var_s + "4BA4BxcAeWB1H8KJiAaSJJgiWZWAmVA0CEWIln8JYikWfZpCIXARE0fw3GMRpJnaCRYBGWg6gqI5HgoJxfkYCQFlkX5PhkFYyBAJIImGABpGOWQ1k8OxlAWfZ6BGJA1n"
		var_s = var_s + "oRQ+GQeQmEoX4kkkOheG2JQDjYUh+iMGJODUbBjHkbAzg6BxpH4bhsmOdZ6EEGAbmIAR/gSCZWkmfYShwYJYlOH5mnoBYvCSaBFnyDYhlcKAll2AwPAaSggCiWZaD6Ao"
		var_s = var_s + "giEc4mBmBpYnePZxGMHw3lUeoGGUN5aH8NJpDoBgDgERg6GGFICh2d4GiWK5cngDgvHqWInG0cIfFyBwpjqLArkcTZVHWV5nGaNhxA6VoVicahajaNo9gUHI2nIdRwBw"
		var_s = var_s + "JoOkSMJlFmKpWjWWY2HwPYwm2SxJHIe5sGsYpiGcXpHj6XYxA6NBFAkQBAIC"
		.Add(1,var_s)
		var_s1 = "gBFLBCJwBAEHhEJAADhABB4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSDI"
		var_s1 = var_s1 + "UBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3Oy3KKiQy5cABPq/b6wDA8CwXAaHYRiG"
		var_s1 = var_s1 + "DYThmF4dRQAG6RcTLWrPFqVZheGYua4CLBxRrINA0LD9DyHJKnaZkDgpUQGN5dTS4GwPQCN3xRWzUyBaQzJfAZV7Lbw3PadX4XRLHcLwfAXFqWaaNZLneh5DouDz3P5Y"
		var_s1 = var_s1 + "MuaRBicQ4nl6bpuBwKYRnuUY2jsfg9B0b43hOH5KjucQPnwOpMi+A4pnab5qB0a4znuf57n4f5gAeeJqC4R42mEcg5AoIRBnUfggkgLJiCaRA4AYEoEl+Y4AhcDpaFOG"
		var_s1 = var_s1 + "IrBgDYyBwHICmIB5djge4hEilY8g0MotiUZICkMYB6AEIgYDYIh0g+Q5cm+CYjgOfJ6DuDZ2hSWggkESI6DCDJjCkFZDg0Yx4mYJYOmOVoiD8BQhlgfhEgwZRGBoJISy"
		var_s1 = var_s1 + "0IgqGoIpDhCJAVCUWQaFMY5fAkYgBD+D5TmyYAlENPBnCsRhFkoYYcmYMAAmkLRHDmGZ9h2Rw4BkeBnFmeZWHSGIYHeQZuHoHonjGboamaVwYmIJwEEYbZNiCaRKAmdx"
		var_s1 = var_s1 + "1hyNZChWIQpjcKZYHAKQ6FqHIoh0Vp6hkcBqgoAodikKgmi2LYnmsCohkAXoXkqMojgMIpKh2Gw6lEFAlAEgIA=="
		.Add(2,var_s1)
	endwith
	.Object.Background(70) = 0x1000000
	.Object.Background(71) = 0x2000000
	with .FrontFace.CreateTree
		.ShowSelection = .F.
		.DrawGridLines = -2
		.ItemPadding = 16
		with .Columns.Add("<c><b>Check")
			.Alignment = 0
			.Def(0) = .T.
		endwith
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.ItemByIndex(1).State(0) = 1
	endwith
	.EndUpdate
endwith
68:
How can I change the visual appearance for the control's check boxes (1)

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	.CheckBoxWidth = 37
	.CheckBoxHeight = 15
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAADhABOkGACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjQAsTRQFocAChEYxXjKBA1SJNUgyj6"
		var_s = var_s + "WCQPR7CM5OaDgSABIijJDoGAwIgkUBpGKdBynEYoYxAYySQAIIjaYhoNoJChCM7QHQEBwQDCLUgrGbIbCQHDtW5cFr3DaLEzsXi8FwvK67cr2fp/YBgOBYHbdcJ5Oxkb"
		var_s = var_s + "ouPC7Sa0AKKYywGRNFijV4se7MHzzLKHXxZa6UNJhGhaHomCYkYDILhxfDMGx7GqvbBsOxPXj2DZLW7cNIyDS3NyfLqzcBwOZZdrPC6NPzTdSuHQOC43Tqgcb0PDaVgh"
		var_s = var_s + "mOVpnHYOAcE6FxzEuCAAGGOw+C2HhzjuZpRGGAAXj8H4zGWZ53mEPAXgyZ43kWZZ4H4L4ehwRp/muTh2l+F5ll8cpZEeeZYHQIEZEoW5MBgNZ9gGGpzioEoCF+GA0kGA"
		var_s = var_s + "pYlYnY6iAaBtjaBQfAabYpgMIJWgIGx9BmNhiBsNBikiAZwgWIg2DoMRkAyKJWB+C4fAYGg1DKIw2DAAA6lEFAlAEgI="
		.Add(1,var_s)
		var_s1 = "gBFLBCJwBAEHhEJAADhABC4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjQAsTRQFocAChEYxXjKBA1SJNUgyj6"
		var_s1 = var_s1 + "WCQPR7CM5OaDgSABIijJDoGAwIgkUBpGKdBynEYoYxAYySQAIIjaYhoNoJChCM7QHQEBwQDCLUgrGbIbCQHDtW5cFr3DaLKI0J5kUBENhjaBafJ+XzfeBYDgmAYNQbDc"
		var_s1 = var_s1 + "JxDC8KwWeQjXYTdyXHilZLaADJcqZVChSwzCafZ5oOK6Bodfq0VY2HabNgnYbNbT7bBrLq6UwWTjZTYZMxuHKMVyLJK/b5wOi3axKBBJWjYOR5Li+MbvNLFCRmO6Obpj"
		var_s1 = var_s1 + "gWHxsCiS5vleW5dkCOBBHWPA4F4Rw3kuZpYG0NwbjuD4LAyWhUho9BnmueZ4nof5+BwS40E+Nx9jYeaKAWNhulkF41m8fBfDOVJoDWDJCCALw7g0cphngP5OEMBISH8W"
		var_s1 = var_s1 + "g3hI05ckaUYRAAGL8H4PpPgOVJnDUTIiBAKRfkwcZ0BuBAhCeYgVgWXA3AEfRsiGSJlkobIYnAAgYAWDJyEQPgyAgAIFh6CxBjOMJUCyrQckcJxjniahSHMF54gGRoPl"
		var_s1 = var_s1 + "4EZsBgOpNAKMhNDGSZnjYOIUmGRo0mwdAAAgFg1hYGIpGiagzgqE5onMOoelgahkgAIZll2U4bCMaZ2AYagnHgbgDFuXQ2GwM4fCiCYtmMapoBgdJaDAaBni2PYiifSR"
		var_s1 = var_s1 + "8HQDpqD6AYmEwFxBlIboWnoGoJiUahGHmNonCYZwmGaJwNiKKBriQWRaEmFooA6UxQhsFAdAqDo6iViJYFCLQdCOLQREIUAQICA="
		.Add(2,var_s1)
	endwith
	.Object.Background(70) = 0x1000000
	.Object.Background(71) = 0x2000000
	with .FrontFace.CreateTree
		.ShowSelection = .F.
		.DrawGridLines = -2
		.ItemPadding = 12
		with .Columns.Add("<c><b>Check")
			.Alignment = 0
			.Def(0) = .T.
		endwith
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.ItemByIndex(1).State(0) = 1
	endwith
	.EndUpdate
endwith
67:
How can I display an item to fit the control's width

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	with .FrontFace.CreateTree
		.HasLines = 2
		.ItemPadding = 10
		.DrawGridLines = -2
		.Columns.Add("<c>Default").Alignment = 0
		with .Columns.Add("Pos")
			.Position = 0
			.Alignment = 0
			.FormatColumn = "1 rpos ``"
			.Width = 24
		endwith
		with .Columns.Add("Pos")
			.Alignment = 0
			.FormatColumn = "1 rpos ``"
			.Width = 24
		endwith
		with .Items
			with .Add("<r>Root 1")
				.Bold = .T.
				.Divider = 0
				.BackColor = RGB(240,240,240)
				.Selectable = .F.
				with .Items
					.Add("Child 1")
					.Add("Child 2")
					.Add("Child 3")
				endwith
			endwith
			with .Add("<r>Root 2")
				.Bold = .T.
				.Divider = 0
				.BackColor = RGB(240,240,240)
				.Selectable = .F.
				with .Items
					.Add("Child 1")
					.Add("Child 2")
					.Add("Child 3")
				endwith
			endwith
			.ExpandAll
		endwith
	endwith
	.EndUpdate
endwith
66:
Is it possible to prevent showing the selecting item ( hide )
with thisform.TreeCube1
	.BeginUpdate
	.CheckBoxWidth = 32
	.TexturePicturePath = ""
	with .FrontFace.CreateTree
		.ShowSelection = .F.
		.DrawGridLines = -2
		.ItemPadding = 10
		with .Columns.Add("<c><b>Check")
			.Alignment = 0
			.Def(0) = .T.
		endwith
		.Items.ToString = "Item A,Item B,Item C,Item D"
		.ItemByIndex(1).State(0) = 1
	endwith
	.EndUpdate
endwith
65:
Is it possible to provide a few radio-buttons only, not for entire column

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	with .FrontFace.CreateTree
		.ShowSelection = .F.
		.DrawGridLines = -2
		.ItemPadding = 10
		with .Columns.Add("<c><b>Def")
			.Alignment = 0
			.Def(48) = 4
		endwith
		with .Items
			.Add("Item 1")
			with .Add("Radio 1")
				.HasRadioButton(0) = .T.
				.RadioGroup(0) = 1234
			endwith
			with .Add("Radio 2")
				.HasRadioButton(0) = .T.
				.RadioGroup(0) = 1234
				.State(0) = .T.
			endwith
			with .Add("Radio 3")
				.HasRadioButton(0) = .T.
				.RadioGroup(0) = 1234
			endwith
			.Add("Item 1")
		endwith
	endwith
	.EndUpdate
endwith
64:
Is it possible to provide a few check box only, not for entire column

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	with .FrontFace.CreateTree
		.ShowSelection = .F.
		.DrawGridLines = -2
		.ItemPadding = 10
		with .Columns.Add("<c><b>Def")
			.Alignment = 0
			.Def(48) = 4
		endwith
		with .Items
			.Add("Item 1")
			.Add("Check 1").HasCheckBox(0) = .T.
			with .Add("Check 2")
				.HasCheckBox(0) = .T.
				.State(0) = 1
			endwith
			.Add("Item 1")
		endwith
	endwith
	.EndUpdate
endwith
63:
How can I show radio-buttons for the entire column

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	with .FrontFace.CreateTree
		.ShowSelection = .F.
		.DrawGridLines = -2
		.ItemPadding = 10
		with .Columns.Add("<c><b>Radio")
			.Alignment = 0
			.Def(1) = .T.
		endwith
		.Items.ToString = "Item A,Item B,Item C,Item D"
		.ItemByIndex(1).State(0) = 1
	endwith
	.EndUpdate
endwith
62:
How can I show check-boxes for the entire column

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	with .FrontFace.CreateTree
		.ShowSelection = .F.
		.DrawGridLines = -2
		.ItemPadding = 10
		with .Columns.Add("<c><b>Check")
			.Alignment = 0
			.Def(0) = .T.
		endwith
		.Items.ToString = "Item A,Item B,Item C,Item D"
		.ItemByIndex(1).State(0) = 1
	endwith
	.EndUpdate
endwith
61:
How do I select programmatically a value in the calendar

with thisform.TreeCube1
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Chapel"
	.Object.Background(21) = RGB(1,0,0)
	with .FrontFace.CreateCalendar
		.ForeColor = RGB(255,255,255)
		.NonworkingDays = 0
		.Value = {^2016-12-31}
	endwith
endwith
60:
How do I select programmatically a caption in the list

with thisform.TreeCube1
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\JapanGarden"
	with .FrontFace.CreateTree
		.ItemPadding = 40
		.HeaderVisible = .F.
		.ForeColor = RGB(255,255,255)
		.Items.ToString = ",<sha \;\;0><font \;18>Garden <b>A,<sha \;\;0><font \;18>Garden <b>B,<sha \;\;0><font \;18>Garden <b>C,"
		.Caption = "Garden B"
	endwith
endwith
59:
How do I select programmatically a value in the list

with thisform.TreeCube1
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\JapanGarden"
	with .FrontFace.CreateTree
		.ItemPadding = 40
		.HeaderVisible = .F.
		.ForeColor = RGB(255,255,255)
		.Items.ToString = ",<sha \;\;0><font \;18>Garden <b>A,<sha \;\;0><font \;18>Garden <b>B,<sha \;\;0><font \;18>Garden <b>C,"
		.Value = "<sha ;;0><font ;18>Garden <b>B"
	endwith
endwith
58:
How can I show solid lines instead

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	.HasButtons = 1
	with .FrontFace.CreateTree
		.ItemPadding = 10
		.HeaderVisible = .F.
		.HasLines = 1
		.LinesAtRoot = 2
		.GridLineStyle = 48
		.DrawGridLines = -1
		.Columns.Add("").Alignment = 0
		with .Columns.Add("")
			.Alignment = 2
			.FormatColumn = "lower(%0) right 1"
		endwith
		with .Items
			with .Add("Root <b>1")
				with .Items
					.Add("Child 1")
					.Add("Child 2")
					.Add("Child 3")
				endwith
				.Expanded = .T.
			endwith
			with .Add("Root <b>2").Items
				.Add("Child 1")
				.Add("Child 2")
				.Add("Child 3")
			endwith
		endwith
	endwith
	.EndUpdate
endwith
57:
How can I select the entire item rather than the column only

with thisform.TreeCube1
	.BeginUpdate
	with .FrontFace.CreateTree
		.FullRowSelect = .T.
		.Columns.Count = 3
		with .Columns.Item(0)
			.Caption = "<b><c>Pos"
			.Alignment = 0
			.FormatColumn = "0 pos ``"
			.Width = 64
		endwith
		.Items.Count = thisform.TreeCube1.FrontFace.FaceTree.VisibleItemsCount
		.SelectItem = 1
	endwith
	.EnsureVisibleFace(0)
	.EndUpdate
endwith
56:
How can I change the visual appearance of the control's header bar

with thisform.TreeCube1
	.BeginUpdate
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	with .FrontFace.CreateTree
		.BackColorHeader = 0x1000000
		.Columns.Count = 5
	endwith
	.EnsureVisibleFace(0)
	.EndUpdate
endwith
55:
How can I add multiple-columns, so the horizontal scroll bar is displayed

with thisform.TreeCube1
	.BeginUpdate
	with .FrontFace.CreateTree
		.ColumnAutoResize = .F.
		.Columns.Count = 20
	endwith
	.EnsureVisibleFace(0)
	.EndUpdate
endwith
54:
How can I add multiple-columns

with thisform.TreeCube1
	.BeginUpdate
	with .FrontFace.CreateTree
		.ItemPadding = 10
		.LinesAtRoot = 2
		.DrawGridLines = -2
		.Columns.Add("Default").Alignment = 0
		with .Columns.Add("Pos")
			.Position = 0
			.Alignment = 0
			.FormatColumn = "1 rpos ``"
			.Width = 24
		endwith
		with .Items
			with .Add("Root 1").Items
				.Add("Child 1")
				.Add("Child 2")
				.Add("Child 3")
			endwith
			with .Add("Root 2").Items
				.Add("Child 1")
				.Add("Child 2")
				.Add("Child 3")
			endwith
			.ExpandAll
		endwith
	endwith
	.EndUpdate
endwith
53:
How do I add a hierarchy

*** FaceTreeExpandItem event - Notifies that an item has been expanded/collapsed into a face of tree type. ***
LPARAMETERS Tree,Item
	with thisform.TreeCube1
		DEBUGOUT( Item )
	endwith

with thisform.TreeCube1
	.BeginUpdate
	with .FrontFace.CreateTree
		.ExpandOnDblClick = .T.
		.ItemPadding = 10
		.HeaderVisible = .F.
		.LinesAtRoot = 2
		.DrawGridLines = -2
		.Columns.Add("").Alignment = 0
		with .Items
			with .Add("Root 1").Items
				.Add("Child 1")
				.Add("Child 2")
				.Add("Child 3")
			endwith
			with .Add("Root 2").Items
				.Add("Child 1")
				.Add("Child 2")
				.Add("Child 3")
			endwith
			.ExpandAll
		endwith
	endwith
	.EndUpdate
endwith
52:
How can I display a calendar control

*** FaceCalendarValueChanged event - Notifies that the user selects a new date/value into a face of the calendar type. ***
LPARAMETERS Calendar
	with thisform.TreeCube1
		DEBUGOUT( Calendar )
	endwith

with thisform.TreeCube1
	with .FrontFace.CreateCalendar
		.Value = {^2001-1-2}
		.MonthNames = .LocMonthNames()
		.WeekDays = .LocWeekDays(2)
		.FirstWeekDay = .LocFirstWeekDay && .LocFirstWeekDay
		.AutoSize = 1
	endwith
endwith
51:
How can I change the picture/texture on the faces

with thisform.TreeCube1
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Earth"
endwith
50:
How can I get ride of the default texture

with thisform.TreeCube1
	.IdentifyFace = 7 && IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	.TexturePicturePath = ""
endwith
49:
How do I get ride of grid lines, and the top border it shows on the tree face

with thisform.TreeCube1
	with .FrontFace.CreateTree
		.ItemPadding = 20
		.HeaderVisible = .F.
		.DrawGridLines = 0
		with .Items
			.Add("Item A")
			.Add("Item B")
			.Add("Item C")
		endwith
	endwith
endwith
48:
How can I add a list of items (method 2)

with thisform.TreeCube1
	with .FrontFace.CreateTree.Items
		.Add("Item A")
		.Add("Item B")
		.Add("Item C")
	endwith
endwith
47:
How can I add a list of items (method 1)

with thisform.TreeCube1
	with .FrontFace.CreateTree
		.Items.ToString = "Item A,Item B,Item C"
	endwith
endwith
46:
Fisheye Calendar View - Year

*** FaceTreeValueChanged event - Notifies that the user selects a new item/column/value into a face of the tree type. ***
LPARAMETERS Tree
	*** f.FaceCalendar.Year = Tree.Caption
	with thisform.TreeCube1
		f = .Face(.VisibleFace) && .VisibleFace
		f = .FrontFace
		with f.Neighbor(1).FaceCalendar
			.Date = f.FaceCalendar.Date
			.Move(1)
		endwith
		with f.Neighbor(2).FaceCalendar
			.Date = f.FaceCalendar.Date
			.Move(2)
		endwith
		with f.Neighbor(2).Neighbor(2).FaceCalendar
			.Date = f.FaceCalendar.Date
			.Move(2)
			.Move(2)
		endwith
	endwith

*** Move event - Occurs once a new face became visible, by moving/rotating from a face to another, into the giving direction. ***
LPARAMETERS RotateDir,FromFace,ToFace
	with thisform.TreeCube1
		f = .Face(ToFace) && ToFace
		f.FaceCalendar.SelDate = thisform.TreeCube1.Face(FromFace).FaceCalendar.SelDate && FromFace
		.Face(FromFace).FaceCalendar.UnselectDate && FromFace
		with f.Neighbor(1).FaceCalendar
			.Date = f.FaceCalendar.Date
			.Move(1)
		endwith
		with f.Neighbor(2).FaceCalendar
			.Date = f.FaceCalendar.Date
			.Move(2)
		endwith
	endwith

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	.EnsureVisibleFaceMargin = 32
	.EnsureVisibleFaceOnDblClick = .F.
	.EnsureVisibleFaces = "0,2,1,3,4"
	with .FrontFace.CreateCalendar
		.Date = {^2016-1-1}
		.AutoSize = 1
		.MaxMonthX = 1
		.MaxMonthY = 1
		.ShowTodayButton = .F.
		.FirstWeekDay = 1
		.SelBackColor = 0x2000000
		.SelForeColor = RGB(0,0,0)
		.ShowNonMonthDays = .T.
	endwith
	d = thisform.TreeCube1.FrontFace.FaceCalendar.Date
	with .LeftFace.CreateCalendar
		.Date = d
		.Move(1)
		.AutoSize = 1
		.MaxMonthX = 1
		.MaxMonthY = 1
		.ShowTodayButton = .F.
		.FirstWeekDay = 1
		.SelBackColor = 0x2000000
		.SelForeColor = RGB(0,0,0)
		.ShowNonMonthDays = .T.
	endwith
	with .RightFace.CreateCalendar
		.Date = d
		.Move(2)
		.AutoSize = 1
		.MaxMonthX = 1
		.MaxMonthY = 1
		.ShowTodayButton = .F.
		.FirstWeekDay = 1
		.SelBackColor = 0x2000000
		.SelForeColor = RGB(0,0,0)
		.ShowNonMonthDays = .T.
	endwith
	with .BottomFace.CreateCalendar
		.Date = d
		.Move(2)
		.Move(2)
		.AutoSize = 1
		.MaxMonthX = 1
		.MaxMonthY = 1
		.ShowTodayButton = .F.
		.FirstWeekDay = 1
		.SelBackColor = 0x2000000
		.SelForeColor = RGB(0,0,0)
		.ShowNonMonthDays = .T.
	endwith
	with .TopFace
		with .CreateTree
			.ItemPadding = 20
			.SelBackColor = 0x2000000
			.SelForeColor = RGB(0,0,0)
			.Columns.Count = 5
			.HeaderVisible = .F.
			.Items.Count = thisform.TreeCube1.TopFace.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"
			.Caption = thisform.TreeCube1.FrontFace.FaceCalendar.Year
		endwith
	endwith
	var_s = "gBFLBCJwBAEHhEJAADhABXgCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDIAkRRdDSOYDmGQYDiCIoRShOMIjHL"
	var_s = var_s + "UXxtDaIZZmWCQCglf5HABRb7xPLoARTAaeJKoWboJAiGwLQjQUyABSdEyRJSLYhGIZRFqKZIRDSMFiwTZNVypAaIYqqaA6qzfJymabAAZJEradozTLIE7xVLEVYNKCmZ"
	var_s = var_s + "CwMAAcgmEQgSTAda2BYELTzECoYDGCrcKpWCaNQLWEB5BQeJSNL6kIqsazgAqPLJtWhaVwxXIEI5AAC5QA0S7pOxeO6JbRGdZbNrlbz1PTMaazTgYDzmWqiYxxMraXxS"
	var_s = var_s + "lmMprGsIpVl2LRnD0A5bnSN49mAARAlIYw6B0ThGFGDIBG0QghBMfZRiGNAkFECZoG6YQBgiOgCmuRRSg6GAElWAJMkgFgGgGYIIAyVQ7GCRhUAAOQhAMBgSDWIRDG4F"
	var_s = var_s + "g3CGCBmBmBYNjgUJWDIIgIECZBCEsKIUkqCZhiiJgqgaYRjB4LguiMBAkiqDLenYrBjgiZg6gGIwyioMoNCAWJqEKEJjkiTg/CqIxZA4SoNmQWJ5AODxMlkRJehSZRJF"
	var_s = var_s + "YVoVmUEw2D2EZlhkXhehfURuE+DJllkfhmhUJgZBoYwqiWEx+G6G5nAmRhyhoZJgAIUIUGcKZmHqHQlkmYh6h+Zp5nIawzigQ4CgaIZogoJoKiEDJpgodoMmiSgqhKJN"
	var_s = var_s + "xDoPQzmmA4GhqJppkodoeiYDJ6FpaQpmqFomigKgiiqJIpiqShuiiGoonqKoZisapaj4dYl3WCo6i6a5KnaPotiQeoCj6MJsEsAhrDQLIDg6SoymySw2k6MgNAqJpQjO"
	var_s = var_s + "LRLFaUI0iyGxWlq/p6kIPY0m2Oxul2LZjDMRpmgiLoLiaaoIi4YxGinoY7kaauhnuGJlj2b4Lmaeo+m8Sx6mWOZhAubwCj2bpLhqKYJkyKTnECThYgoVJCCiYpPBIL5x"
	var_s = var_s + "EMLwWjsTQsGcGpGi6XBYkuRQLvcIhCE8DIWDCSZLiKdwqC+MpMjcLZKguXIcjiTJyFOQYnD+TYMmSLZOkmHJ3D6T50AybItiGYJji2MwABAECAg="
	.VisualAppearance.Add(1,var_s)
	var_s1 = "gBFLBCJwBAEHhEJAADhABOkGACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEYFDSAUIjKKkIhkGIYZBGQBJDjWGgyQjOEByDI"
	var_s1 = var_s1 + "MRwjE4YBpkGYYJDSIYHTZIUzTJAdGSVJKNKAoKCaEg2R4qsZCCKwUgmTo9VBJU9CFi6ZIRDSMFiyXZUIxHEKnIqrOjbBjaUpYABLErTBKUSzrEadAAwGbKJj+VJBULMV"
	var_s1 = var_s1 + "D2BDWGABOYAKarWa7fhaUqJUTVdI1VBOIYmADPcaqCxrLgMMpnWxpN42bjdPY7V6Bc7yXJsHimK5GUTQA4aFIENydJzINjsKBKBriLIybpeFr7BiME4/YLhAA0vZNUYs"
	var_s1 = var_s1 + "g0XguBqaAeEOIYUjqYQgGCCBJECUhjDoHROEYWooAGTRMCEEx9lGIY0CQUZOnuZQDBEdYFkeI5+H+igGAKAJgEgFgGgGUAzn4CoCmCSA2A6A5hAgCgQgSYRIE4EoFGGC"
	var_s1 = var_s1 + "BiBeBhhkgPgbgcYgICoH4IGGWIOCSBhiGiHgVgoYooFoAYLGIWI+DCCgjCiTgrgII4ImYOoOmOSJ1n4OpWmQDQBICA=="
	.VisualAppearance.Add(2,var_s1)
	.Object.Background(8) = 0x1000000
	.Object.Background(7) = RGB(250,250,250)
	.Object.Background(6) = RGB(250,250,250)
	.Object.Background(9) = 0x2000000
	.Object.Background(31) = RGB(255,255,255)
	.EnsureVisibleFace(0)
	.EndUpdate
endwith
45:
How can I add a FaceTree object ( method 2 )

with thisform.TreeCube1
	with .FrontFace
		with .CreateTree
			.Items.ToString = "Item <b>1,Item <b>2,Item <b>3"
			.SelectItem = 1
		endwith
	endwith
endwith
44:
How can I add a FaceTree object ( method 1 )

with thisform.TreeCube1
	with .FrontFace
		.Type = 1
		with .FaceTree
			.Items.ToString = "Item <b>1,Item <b>2,Item <b>3"
			.SelectItem = 1
		endwith
	endwith
endwith
43:
How can I add a FaceCalendar object ( method 2 )

with thisform.TreeCube1
	with .FrontFace
		with .CreateCalendar
			.AutoSize = 1
			.Value = {^1971-12-31}
		endwith
	endwith
endwith
42:
How can I add a FaceCalendar object ( method 1 )

with thisform.TreeCube1
	with .FrontFace
		.Type = 2
		with .FaceCalendar
			.AutoSize = 1
			.Value = {^1971-12-31}
		endwith
	endwith
endwith
41:
How can I add a FacePicture object ( method 2 )

with thisform.TreeCube1
	.IdentifyFace = 7 && IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	with .FrontFace
		with .CreatePicture
			.Picture = thisform.TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
			.PictureDisplay = 48
			.Width = "2 * pwidth"
			.Height = "2 * pheight"
			.Top = "122"
			.Left = "46"
		endwith
	endwith
endwith
40:
How can I add a FacePicture object ( method 1 )

with thisform.TreeCube1
	.IdentifyFace = 7 && IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	with .FrontFace
		.Type = 3
		with .FacePicture
			.Picture = thisform.TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
			.PictureDisplay = 48
			.Width = "2 * pwidth"
			.Height = "2 * pheight"
			.Top = "122"
			.Left = "46"
		endwith
	endwith
endwith
39:
How can I prevent bringing a specified face into the front
with thisform.TreeCube1
	.EnsureVisibleFaces = "0"
endwith
38:
Is it possible to show one face opaque, while other semi-transparent

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	.DefaultFaceType = 2
	.TransparentContent = 75
	.FrontFace.TransparentContent = 0
	.EndUpdate
endwith
37:
How can I add a Calendar control

with thisform.TreeCube1
	.BeginUpdate
	.Margins = "0,0,0,0"
	with .FrontFace
		.Type = 2
		with .FaceCalendar
			.ShowNonMonthDays = .T.
			.AutoSize = 1
		endwith
	endwith
	.EndUpdate
endwith
36:
Is it possible to init faces at once
*** InitFaceContent event - Notifies your application that a face changes its type, so you can initialize its content. ***
LPARAMETERS Face
	*** Face.FaceContent.ShowTodayButton = False

with thisform.TreeCube1
	.DefaultFaceType = 2
endwith
35:
How can I disable zoom when rolling the mouse wheel
with thisform.TreeCube1
	.OnMouseWheel = 0
endwith
34:
Fisheye Calendar View - LR

*** Move event - Occurs once a new face became visible, by moving/rotating from a face to another, into the giving direction. ***
LPARAMETERS RotateDir,FromFace,ToFace
	with thisform.TreeCube1
		.FrontFace.FaceCalendar.Move(RotateDir) && RotateDir
		with .LeftFace.FaceCalendar
			.Date = thisform.TreeCube1.FrontFace.FaceCalendar.Date
			.PrevMonth()
		endwith
		with .RightFace.FaceCalendar
			.Date = thisform.TreeCube1.FrontFace.FaceCalendar.Date
			.NextMonth()
		endwith
	endwith

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAADhABdQFg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQ1DBJQwwXBIZhgGIBIRgUBJCjWGodQLOEgwHI"
		var_s = var_s + "ERQjEyUJAmCYhRiCB42TrNIJwSBUPwTGKBXZDQRAApKVIWUAMFBVg7GRYcVxIUgAdDYMyZJyBa4qapaTheEQyDSJNr3DCMUTlBK7IhsKCaLhqZIDUzGVpWbZdMRlFCVJ"
		var_s = var_s + "YgOTqDgQMIkUhSE5TVIEew3H7DaymKrKeobFoaZ6AAL3ZBNTR5J6EbTwWRcZpuRJGWDGdhwTocB5MADbZAwOpNLgOc53TjdF4DBwAATzJCQL50KCbfziG67WxVeqQJgi"
		var_s = var_s + "ggNpOAwbZjDGHoGC2IZAgAORbFiPxDHoAIsmIewdiGHpHEGTIzm2Nocn0TgSluBpgnEbgcF4PAPnkSQAA+c58AAVwcheiRzF4NIJiofYWgUJAIEIRQBiQYwdAcUZIGUV"
		var_s = var_s + "5QDKCAHECRAhDYGhGgMZAkCgaRiEaHAYEWRpIG2ERFkIQBwm2CxiniOgwgyYpjmoNg3g2YxwkwwYzCiSwyCOaQCD8MxjkibJLDMDJDCoPgyEyMwskkNpNjMaJ1hSYxIk"
		var_s = var_s + "YVoVEACRWFqC4OBOCJgCkShSgiCQiEgQZ8gAHpIAIBB8hoZo5iobIbmaaYqGZWByCCAwnkoAhwlQNQNCkbhXguJYYkqAoVguQpwjsIxIlIJNHksE4kmoOhgSsEokmkSh"
		var_s = var_s + "UnCJZLzYOwigiIgYjULYLDmegwiAZ5zjSNwuAsYg8g8IplAMZoRhST1UCMJ5IGIqoiEiIgUgoIpIGqbo9i8JgyBaNQggmUh4hoOBOAOAoRDoLJCFSFQkgsQpQjGH4qEi"
		var_s = var_s + "QJJDITB6CCCQ7G2ShEjsLwLhGIBpBiBIhCwRAQEQIJsEIEJDkuLptjsLphAwRI7kOMQkEoEJFnGABaiyCZ6ESeI/kkAhAg2IRLikYgwDoToTiCEQkgiUxElEM5pBIbIc"
		var_s = var_s + "CYBQhEwTASASGB0E4EZEmEPBIkccZ8HsIJInILB4E2RpvasSwTAQUgIgMH5pVGYg4GuYx8l8NxqDiQoFC4SYSGiFokEyYw4kwFhF8GSQSkQPITCGUp0i0NwllKcoxBcJ"
		var_s = var_s + "wRkqEooiaJBLCKSIvCp54aDYPoAAORJyDwSWUhENANAwQgBB6R4xlqcgPDSbQzE+XB3EweBGBGRABigawZE6GcLoHxCAQFICkAIvhOhgACM4OYnBhjQHsDoT4Zxsj0DY"
		var_s = var_s + "JsEwwBhJgMIOsXIcwOC+CCJMRA2BgCFFYJUegiBzA6AaMcDLuAAAdBiMUBQDWyhuC2JYTQiBMAmEQNwaw5xtjzB6MAPAHhDDEHyD4JwUgRiAHEDUTgNggABHEJwAYkBz"
		var_s = var_s + "A2GkDMAIRAQAIBCM8No3ERC4D4B8Q4FxygiBwI4IYbxIjjGyB4c4mQACUXaD8dYhh/CfGqNwNIXhfizCyPsPw7xfjkD4FQRo+R7h9D8K8bI3A+jeGoAIfAnxNjhD3JYL"
		var_s = var_s + "IvxDj2H8KAIYcQ/ivGCP8X4JxGD9AGIgNgUgRCECgIkaAegHiBFmPkQYTx4jsB+OEf4AAPAzBkBwEI1AdCHAqCIFYBQwCoAQIECgHwag4BuAIMA4AbgUBEIgJ4KQIDlA"
		var_s = var_s + "GIcg4HBRkyAOHAdwHBqCIGKBgUYCAVAFCgJwagYQ+AvD0YAKYCgwhGH4F4eYxg3ijFQEEWQ8RqDfEOGgdhUBYA2AMHYdwEARBMAOGkJgpAWiFGAKoGgRhIDQCkCEcAPQ"
		var_s = var_s + "DhBGYDkQ4KAABrHaHAKYCwAhgBWKAEAnw5jOGaNoYwKB+DmA0JwFYBxhAsCMAgOoIgYjGBwMUCYAgyBKAeDEdAPBqggGsBoYYVAihICiOgHoRxRCRl6PQHgLhAB3A+CM"
		var_s = var_s + "BYmAuhgHZRgaAzhbgHDUJECQYgoBIAYFERgMQMjKEGBUUQtAqgKBiEoFAWREDjA4CsBktw4B/AUMEdARwEgBAMFAHYhhTDnFMAMdADwwjwB2IweIngZhUEUNECwSwKBN"
		var_s = var_s + "FePEeILApCyG4B0QQOAkAIGCHIFwxRdCRA+LMRwOwFDQH8B+B4aQ3huGYCIQYoA7AMHALgGwBwwDwA0EwEAggMhDBgGACAAgAA+BMUgHoqABCRCSKMEgRRECxAcLIIw+"
		var_s = var_s + "7RhoGCNMBwMQUgrAINATYEh5hZCQI8PQAQHDHBIM4DM9wwiMACIkCA6BwDACOGMFQEQHh6BYKQLQ/B/ARFEDgIoJRojAFqBUCQLgpDjF6J0U4MQnT5BGJADQ8w1BxEeO"
		var_s = var_s + "VTgRx6hBE2EMOAbhGihCyC0E42A+AWAEMQK4DhkCzCYEcNQ1RQhqAcKAR44RnA6AODgWoFhRDMCGAgMg1QZgDDQG4BoIRMAzEMBAZwGgBgVDIAwEIqAagGCAPIDwQxMC"
		var_s = var_s + "ECYLUFgVhdChHyF0dQghRgdDIDAAgmhBAGAkAIPATgRBAoqB4mYYAWAQBmLAiQmgrj7AHXgFABhYD2B8MULAVAqAABYxMAACAfDHCwJsC4Xw2DtE0DwCwZhlCeA2CcMA"
		var_s = var_s + "rBkgBICA"
		.Add(1,var_s)
		.Add(2,"CP:1 -6 0 6 0")
	endwith
	.Object.Background(8) = 0x2000000
	.Object.Background(21) = RGB(255,255,255)
	.Object.Background(7) = RGB(240,240,240)
	.Object.Background(6) = RGB(240,240,240)
	.Object.Background(9) = 0x2000000
	.Object.Background(31) = RGB(255,255,255)
	.AllowRotate = 3 && RotateEnum.exRotateRight Or RotateEnum.exRotateLeft
	.EnsureVisibleFaceOnDblClick = .F.
	.DefaultFaceType = 2
	.FrontFace.FaceCalendar.Date = {^2016-1-1}
	.TopFace.Type = 0
	.DownFace.Type = 0
	.AlwaysEnsureVisibleFace = 17 && EnsureVisibleFaceEnum.exAlwaysVisibleFrontFace Or EnsureVisibleFaceEnum.exFitToEnsureFace
	.EndUpdate
endwith
33:
Fisheye Calendar View - S

*** FaceCalendarDateChanged event - Notifies that the user browses for a new date into a face of calendar type. ***
LPARAMETERS Calendar
	with thisform.TreeCube1
		currentDate = .FrontFace.FaceCalendar.Date
		with .LeftFace.FaceCalendar
			.Date = currentDate
			.PrevMonth()
		endwith
		with .RightFace.FaceCalendar
			.Date = currentDate
			.NextMonth()
		endwith
		with .TopFace.FaceCalendar
			.Date = currentDate
			.PrevYear()
		endwith
		with .DownFace.FaceCalendar
			.Date = currentDate
			.NextYear()
		endwith
	endwith

*** InitFaceCalendar event - Notifies your application that a face changes its type to exFaceCalendar. ***
LPARAMETERS Calendar
	with thisform.TreeCube1
		with Calendar
		endwith
	endwith

*** Move event - Occurs once a new face became visible, by moving/rotating from a face to another, into the giving direction. ***
LPARAMETERS RotateDir,FromFace,ToFace
	with thisform.TreeCube1
		.FrontFace.FaceCalendar.Move(RotateDir) && RotateDir
	endwith

with thisform.TreeCube1
	.BeginUpdate
	var_s = "gBFLBCJwBAEHhEJAADhABXgCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDIAkRRdDSOYDmGQYDiCIoRShOMIjHL"
	var_s = var_s + "UXxtDaIZZmWCQCglf5HABRb7xPLoARTAaeJKoWboJAiGwLQjQUyABSdEyRJSLYhGIZRFqKZIRDSMFiwTZNVypAaIYqqaA6qzfJymabAAZJEradozTLIE7xVLEVYNKCmZ"
	var_s = var_s + "CwMAAcgmEQgSTAda2BYELTzECoYDGCrcKpWCaNQLWEB5BQeJSNL6kIqsazgAqPLJtWhaVwxXIEI5AAC5QA0S7pOxeO6JbRGdZbNrlbz1PTMaazTgYDzmWqiYxxMraXxS"
	var_s = var_s + "lmMprGsIpVl2LRnD0A5bnSN49mAARAlIYw6B0ThGFGDIBG0QghBMfZRiGNAkFECZoG6YQBgiOgCmuRRSg6GAElWAJMkgFgGgGYIIAyVQ7GCRhUAAOQhAMBgSDWIRDG4F"
	var_s = var_s + "g3CGCBmBmBYNjgUJWDIIgIECZBCEsKIUkqCZhiiJgqgaYRjB4LguiMBAkiqDLenYrBjgiZg6gGIwyioMoNCAWJqEKEJjkiTg/CqIxZA4SoNmQWJ5AODxMlkRJehSZRJF"
	var_s = var_s + "YVoVmUEw2D2EZlhkXhehfURuE+DJllkfhmhUJgZBoYwqiWEx+G6G5nAmRhyhoZJgAIUIUGcKZmHqHQlkmYh6h+Zp5nIawzigQ4CgaIZogoJoKiEDJpgodoMmiSgqhKJN"
	var_s = var_s + "xDoPQzmmA4GhqJppkodoeiYDJ6FpaQpmqFomigKgiiqJIpiqShuiiGoonqKoZisapaj4dYl3WCo6i6a5KnaPotiQeoCj6MJsEsAhrDQLIDg6SoymySw2k6MgNAqJpQjO"
	var_s = var_s + "LRLFaUI0iyGxWlq/p6kIPY0m2Oxul2LZjDMRpmgiLoLiaaoIi4YxGinoY7kaauhnuGJlj2b4Lmaeo+m8Sx6mWOZhAubwCj2bpLhqKYJkyKTnECThYgoVJCCiYpPBIL5x"
	var_s = var_s + "EMLwWjsTQsGcGpGi6XBYkuRQLvcIhCE8DIWDCSZLiKdwqC+MpMjcLZKguXIcjiTJyFOQYnD+TYMmSLZOkmHJ3D6T50AybItiGYJji2MwABAECAg="
	.VisualAppearance.Add(1,var_s)
	.Object.Background(8) = 0x1000000
	.Object.Background(7) = RGB(250,250,250)
	.Object.Background(6) = RGB(250,250,250)
	.Object.Background(9) = 0x2000000
	.Object.Background(31) = RGB(255,255,255)
	.TexturePicturePath = ""
	.DefaultFaceType = 2
	.AlwaysEnsureVisibleFace = 17 && EnsureVisibleFaceEnum.exAlwaysVisibleFrontFace Or EnsureVisibleFaceEnum.exFitToEnsureFace
	.FrontFace.FaceCalendar.Date = {^2016-1-1}
	.EndUpdate
endwith
32:
While navigating the Down/Top faces, I am not able to rotate it. Is it possible (ensure always front face)
with thisform.TreeCube1
	.EnsureVisibleFace(5,.F.)
	.AlwaysEnsureVisibleFace = 17 && EnsureVisibleFaceEnum.exAlwaysVisibleFrontFace Or EnsureVisibleFaceEnum.exFitToEnsureFace
endwith
31:
How can I show a single month only

with thisform.TreeCube1
	with .FrontFace
		.Type = 2
		with .FaceCalendar
			.Date = {^2001-1-1}
			.SelDate = .Date
			.MinDate = {^2001-1-1}
			.MaxDate = {^2001-1-31}
			.FirstWeekDay = 1
			.ShowWeeks = .F.
			.ShowNonMonthDays = .F.
			.ShowTodayButton = .F.
			.MaxMonthX = .MinMonthX
			.MaxMonthY = .MinMonthY
		endwith
	endwith
endwith
30:
How can I show date calendar

with thisform.TreeCube1
	with .FrontFace
		.Type = 2
		.FaceCalendar.ShowNonMonthDays = .F.
	endwith
endwith
29:
How can I prevent dbl click to ensure the clicked face is visible
with thisform.TreeCube1
	.EnsureVisibleFaceOnDblClick = .F.
endwith
28:
How can I put a picture into the center of the texture but behind the control's face

with thisform.TreeCube1
	.BeginUpdate
	.Object.HTMLPicture("logo") = "c:\exontrol\images\zipdisk.gif"
	with .FrontFace
		.Type = 2
		.FaceCalendar.ShowTodayButton = .F.
		.ExtraTitle("extra",0) = "<img>logo</img>"
		.ExtraTitle("extra",3) = 0
		.ExtraTitle("extra",4) = 0
		.ExtraTitle("extra",4) = 0
		.ExtraTitle("extra",5) = "(width-twidth)/2"
		.ExtraTitle("extra",6) = "(height-theight)/2"
		.ExtraTitle("extra",7) = "twidth"
		.ExtraTitle("extra",8) = "theight"
		.ExtraTitle("extra",9) = 1
	endwith
	.FrontFace.FaceCalendar.ForeColor = RGB(255,0,0)
	.EndUpdate
endwith
27:
How do I put my logo on the right-bottom side of the face (method 2), while I using the face

with thisform.TreeCube1
	.BeginUpdate
	.Object.HTMLPicture("logo") = "c:\exontrol\images\zipdisk.gif"
	with .FrontFace
		.Type = 2
		.FaceCalendar.ShowTodayButton = .F.
		.ExtraTitle("extra",0) = "<r><img>logo</img>"
		.ExtraTitle("extra",3) = 2
		.ExtraTitle("extra",4) = 0
	endwith
	.EndUpdate
endwith
26:
Is it possible to show two or more titles/extra titles

with thisform.TreeCube1
	.BeginUpdate
	with .FrontFace
		.Type = 2
		.FaceCalendar.ShowTodayButton = .F.
		.Title(0) = "<font ;18><c><fgcolor=0000FF>This is the title"
		.ExtraTitle("extra",0) = "<font ;18><c><fgcolor=FF0000>This is the extra title"
		.ExtraTitle("extra",3) = 2
	endwith
	.EndUpdate
endwith
25:
How can I display the title at the left side of the face

with thisform.TreeCube1
	.BeginUpdate
	with .FrontFace
		.Title(0) = "<font ;18><c>This is the title"
		.Type = 2
		.FaceCalendar.ShowTodayButton = .F.
		.Title(3) = 4
	endwith
	.EndUpdate
endwith
24:
How can I display the title at the bottom side of the face

with thisform.TreeCube1
	.BeginUpdate
	with .FrontFace
		.Title(0) = "<font ;18><c>This is the title"
		.Type = 2
		.FaceCalendar.ShowTodayButton = .F.
		.Title(3) = 2
		.Title(4) = 0
	endwith
	.EndUpdate
endwith
23:
Can I display the title to a different position

with thisform.TreeCube1
	.BeginUpdate
	with .FrontFace
		.Title(0) = "<font ;18><c><bgcolor=FFFFFF>This is the title"
		.Type = 2
		.Title(9) = -1
		.Title(6) = "(height-theight)/2"
	endwith
	.EndUpdate
endwith
22:
How can I display a title for a face

with thisform.TreeCube1
	.BeginUpdate
	with .FrontFace
		.Title(0) = "<font ;18><c>This is the title"
		.Type = 2
	endwith
	.EndUpdate
endwith
21:
Can I put the picture at specified position

with thisform.TreeCube1
	.IdentifyFace = 7 && IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	with .FrontFace
		.Type = 3
		with .FacePicture
			.Picture = thisform.TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
			.PictureDisplay = 48
			.Width = "2 * pwidth"
			.Height = "2 * pheight"
			.Top = "122"
			.Left = "46"
		endwith
	endwith
endwith
20:
How do I put my logo on the right-bottom side of the face (method 1)

with thisform.TreeCube1
	.IdentifyFace = 7 && IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	with .FrontFace
		.Type = 3
		with .FacePicture
			.Picture = thisform.TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
			.PictureDisplay = 34
			.Width = "width"
			.Height = "height"
			.Top = "0"
			.Left = "0"
		endwith
	endwith
endwith
19:
Can I use any picture on the background's faces

with thisform.TreeCube1
	.BeginUpdate
	.TexturePicturePath = ""
	.Face(0).Picture = thisform.TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.Face(1).Picture = thisform.TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
	.Face(2).Picture = thisform.TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
	.Face(3).Picture = thisform.TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
	.Face(4).Picture = thisform.TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
	.Face(5).Picture = thisform.TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.AlwaysEnsureVisibleFace = 0
	.EndUpdate
endwith
18:
Is it possible to show the cube's texture more transparent, so the faces are more visible

with thisform.TreeCube1
	.BeginUpdate
	.Transparent = 80
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTexture\Sample\Texture\VW"
	.AlwaysEnsureVisibleFace = 0
	.IdentifyFace = 4
	with .TopFace
		.Type = 2
		with .FaceCalendar
			.Date = {^2016-2-1}
			.MaxMonthX = 1
			.MaxMonthY = 1
		endwith
	endwith
	with .LeftFace
		.Type = 2
		with .FaceCalendar
			.Date = {^2016-3-1}
			.MaxMonthX = 1
			.MaxMonthY = 1
		endwith
	endwith
	with .FrontFace
		.Type = 2
		with .FaceCalendar
			.Date = {^2016-4-1}
			.MaxMonthX = 1
			.MaxMonthY = 1
		endwith
	endwith
	with .RightFace
		.Type = 2
		with .FaceCalendar
			.Date = {^2016-5-1}
			.MaxMonthX = 1
			.MaxMonthY = 1
		endwith
	endwith
	.ShowAs = 0
	.AlwaysEnsureVisibleFace = 0
	.IdentifyFace = 4
	.EndUpdate
endwith
17:
How can I load a different texture on the cube

with thisform.TreeCube1
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTexture\Sample\Texture\VW"
endwith
16:
How can I show no texture/picture on all faces

with thisform.TreeCube1
	.TexturePicturePath = ""
	.IdentifyFace = 7 && IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	.IdentifyFaceCaption = "<sha ;;0><fgcolor=000000>Face <%index%></font> <%name%>"
endwith
15:
Fish-Eye Rectangular

with thisform.TreeCube1
	.BeginUpdate
	.ShowAs = 0
	.Internals = "zoommin=1;zoomdefault=1;zoommax=1;zoomdivsmall=256;zoomdivlarge=48;fisheyepersp=4"
	.IdentifyFace = 4
	.TopFace.Type = 2
	.LeftFace.Type = 2
	.FrontFace.Type = 2
	.RightFace.Type = 2
	.EndUpdate
endwith
14:
Orthographic

with thisform.TreeCube1
	.BeginUpdate
	.ShowAs = 1
	.AlwaysEnsureVisibleFace = 0
	.IdentifyFace = 4
	.TopFace.Type = 2
	.LeftFace.Type = 2
	.FrontFace.Type = 2
	.RightFace.Type = 2
	.RotX = 0.748933
	.RotY = 0.617099
	.Zoom = 1
	.EndUpdate
endwith
13:
Fish-Eye Default

with thisform.TreeCube1
	.BeginUpdate
	.ShowAs = 0
	.AlwaysEnsureVisibleFace = 0
	.IdentifyFace = 4
	.TopFace.Type = 2
	.LeftFace.Type = 2
	.FrontFace.Type = 2
	.RightFace.Type = 2
	.RotX = 0
	.RotY = 0.8
	.Zoom = 1
	.EndUpdate
endwith
12:
I know the user can drag the cube to any position. The question is how can I restore the layout

with thisform.TreeCube1
	.IdentifyFace = 7 && IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	.RotX = 0.25
	.RotY = 0.75
	.Zoom = 1
endwith
11:
How do I put my logo on the right-bottom side of the control

with thisform.TreeCube1
	.Picture = thisform.TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
endwith
10:
How do I bring/ensure a specified face to the front

with thisform.TreeCube1
	.IdentifyFace = 7 && IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	.VisibleFace = 4
endwith
9:
How do I bring/ensure a specified face to the front

with thisform.TreeCube1
	.IdentifyFace = 7 && IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	.EnsureVisibleFace(4)
endwith
8:
It sounds like the BackColor property does nothing

with thisform.TreeCube1
	.BackColor = RGB(255,0,0)
	.Transparent = 50
endwith
7:
Is there any property to identify the faces I can fill in

with thisform.TreeCube1
	.IdentifyFace = 7 && IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
endwith
6:
How can I prevent scrolling the control inside a face once the user rolls the mouse wheel
with thisform.TreeCube1
	.OnMouseWheel = 0
endwith
5:
Can I navigate through the faces 0 to 3 only, even with the keyboard
with thisform.TreeCube1
	.EnsureVisibleFaces = "0,1,2,3"
	.AllowRotate = 3 && RotateEnum.exRotateRight Or RotateEnum.exRotateLeft
	.IdentifyFace = 7 && IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	.EnsureVisibleFaceOnDblClick = .F.
endwith
4:
It sounds like the BackColor property does nothing

with thisform.TreeCube1
	.BackColor = RGB(255,0,0)
	.ShowAs = 1
	.AlwaysEnsureVisibleFace = 0
	.RotX = 0.328184
	.RotY = 0.967723
endwith
3:
Is it possible to let the control shows/rotates just the left/right side
with thisform.TreeCube1
	.AllowRotate = 3 && RotateEnum.exRotateRight Or RotateEnum.exRotateLeft
endwith
2:
How can I disable changing the view if the user presses SPACE or digit keys
with thisform.TreeCube1
	.AllowEnsureVisibleFaceOnKey = 0
endwith
1:
I've noticed that I can not show the part of the control as I drag, once I release the mouse button

with thisform.TreeCube1
	.IdentifyFace = 7 && IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	.AlwaysEnsureVisibleFace = 0
endwith