455. How can I change the color, font, bold etc for the items/cells in the same column or for the entire column
with thisform.ComboBox1
	.BeginUpdate
	.MarkSearchColumn = .F.
	with .ConditionalFormats.Add("1")
		.Bold = .T.
		.ForeColor = RGB(255,0,0)
		.ApplyTo = 1
	endwith
	.Columns.Add("C1")
	with .Columns.Add("C2")
		.HeaderBold = .T.
		.HTMLCaption = "<fgcolor=FF0000>C2"
	endwith
	with .Items
		.DefaultItem = .AddItem(10)
		.CellCaption(0,1) = 11
		.DefaultItem = .AddItem(12)
		.CellCaption(0,1) = 13
	endwith
	.EndUpdate
endwith
454. How can I add a horizontal scroll bar
with thisform.ComboBox1
	.BeginUpdate
	.ScrollBySingleLine = .T.
	.ColumnAutoResize = .F.
	.BackColorAlternate = RGB(240,240,240)
	with .Columns.Add("Default")
		.Width = 512
		.Def(16) = .F.
	endwith
	with .Items
		var_s = "Exontrol is devoted to create innovative user interface components for Windows applications, on "
		var_s = var_s + "COM or .NET platforms, since 1999. "+chr(34)+"eXontrol"+chr(34)+" comes from e(s)pecial (c)ontrol, where sc makes th"
		var_s = var_s + "e X. We are a vendor not a reseller, and this is the single site where you can try or buy our pr"
		var_s = var_s + "oducts. If you are tired of looking for "+chr(34)+"powerful"+chr(34)+" components now it's time to show you real com"
		var_s = var_s + "ponents. No registration required, no nag screens, no limitations, unlimited evaluation time."
		.AddItem(var_s)
		var_s1 = "A combo box is a commonly-used GUI tool. It is a combination of a drop-down list or list box and"
		var_s1 = var_s1 + " a single-line textbox, allowing the user either to type a value directly into the control or ch"
		var_s1 = var_s1 + "oose from the list of existing options."
		.AddItem(var_s1)
	endwith
	.EndUpdate
endwith
453. Does the control have the option to have a horizontal scroll to show entries which are longer than the display
with thisform.ComboBox1
	.BeginUpdate
	.ColumnAutoResize = .F.
	.Columns.Add("Default").Width = 512
	with .Items
		var_s = "Exontrol is devoted to create innovative user interface components for Windows applications, on "
		var_s = var_s + "COM or .NET platforms, since 1999. "+chr(34)+"eXontrol"+chr(34)+" comes from e(s)pecial (c)ontrol, where sc makes th"
		var_s = var_s + "e X. We are a vendor not a reseller, and this is the single site where you can try or buy our pr"
		var_s = var_s + "oducts. If you are tired of looking for "+chr(34)+"powerful"+chr(34)+" components now it's time to show you real com"
		var_s = var_s + "ponents. No registration required, no nag screens, no limitations, unlimited evaluation time."
		.AddItem(var_s)
		var_s1 = "A combo box is a commonly-used GUI tool. It is a combination of a drop-down list or list box and"
		var_s1 = var_s1 + " a single-line textbox, allowing the user either to type a value directly into the control or ch"
		var_s1 = var_s1 + "oose from the list of existing options."
		.AddItem(var_s1)
	endwith
	.EndUpdate
endwith
452. Is it possible to auto-numbering the children items but still keeps the position after filtering
with thisform.ComboBox1
	.BeginUpdate
	.LinesAtRoot = -1
	with .Columns.Add("Items")
		.DisplayFilterButton = .T.
		.FilterType = 240
		.Filter = "Child 2"
	endwith
	with .Columns.Add("Pos.1")
		.FormatColumn = "1 ropos ''"
		.Position = 0
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.2")
		.FormatColumn = "1 ropos ':'"
		.Position = 1
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.3")
		.FormatColumn = "1 ropos ':|A-Z'"
		.Position = 2
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.4")
		.FormatColumn = "1 ropos '|A-Z|'"
		.Position = 3
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.5")
		.FormatColumn = "'<font Tahoma;7>' + 1 ropos '-<b>||A-Z'"
		.Def(17) = 1
		.Position = 4
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.6")
		.FormatColumn = "'<b>'+ 1 ropos '</b>:<fgcolor=FF0000>|A-Z|'"
		.Def(17) = 1
		.Position = 5
		.Width = 48
		.AllowSizing = .F.
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
	endwith
	.ApplyFilter
	.EndUpdate
endwith
451. How do I prevent scrolling the control's data after user does the sort
with thisform.ComboBox1
	.EnsureOnSort = .F.
	.Columns.Add("Column")
	with .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
	.PutItems(.GetItems(0))
	.PutItems(.GetItems(0))
	.PutItems(.GetItems(0))
	.Columns.Item(0).SortOrder = 1
endwith
450. Is it possible to auto-numbering the children items too
with thisform.ComboBox1
	.BeginUpdate
	.LinesAtRoot = -1
	.Columns.Add("Items")
	with .Columns.Add("Pos.1")
		.FormatColumn = "1 rpos ''"
		.Position = 0
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.2")
		.FormatColumn = "1 rpos ':'"
		.Position = 1
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.3")
		.FormatColumn = "1 rpos ':|A-Z'"
		.Position = 2
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.4")
		.FormatColumn = "1 rpos '|A-Z|'"
		.Position = 3
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.5")
		.FormatColumn = "'<font Tahoma;7>' + 1 rpos '-<b>||A-Z'"
		.Def(17) = 1
		.Position = 4
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.6")
		.FormatColumn = "'<b>'+ 1 rpos '</b>:<fgcolor=FF0000>|A-Z|'"
		.Def(17) = 1
		.Position = 5
		.Width = 48
		.AllowSizing = .F.
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
	endwith
	.EndUpdate
endwith
449. How can I show the child items with no identation
with thisform.ComboBox1
	.LinesAtRoot = 5
	.Indent = 12
	.HasLines = 2
	.Columns.Add("Default")
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"Child 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"Child 3")
	endwith
endwith
448. Is there other ways of showing the hierarchy lines (exGroupLinesAtRoot)
with thisform.ComboBox1
	.LinesAtRoot = 1
	.Indent = 12
	.Columns.Add("Default")
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"Child 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith
447. Is there other ways of showing the hierarchy lines (exGroupLinesOutside)
with thisform.ComboBox1
	.LinesAtRoot = 5
	.Indent = 12
	.Columns.Add("Default")
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"Child 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"Child 3")
	endwith
endwith
446. Is there other ways of showing the hierarchy lines (exGroupLinesInsideLeaf)
with thisform.ComboBox1
	.LinesAtRoot = 4
	.Indent = 12
	.Columns.Add("Default")
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"Child 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith
445. Is there other ways of showing the hierarchy lines (exGroupLinesInside)
with thisform.ComboBox1
	.LinesAtRoot = 3
	.Indent = 12
	.Columns.Add("Default")
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"Child 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith
444. Is there other ways of showing the hierarchy lines (exGroupLines)
with thisform.ComboBox1
	.LinesAtRoot = 2
	.Indent = 12
	.Columns.Add("Default")
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(.InsertItem(h,0,"Child 2"),0,"SubChild 2")
		.InsertItem(h,0,"Child 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith
443. Is it possible display numbers in the same format no matter of regional settings in the control panel
with thisform.ComboBox1
	.BeginUpdate
	.Columns.Add("Def").Def(17) = 1
	with .Items
		h = .AddItem(100000.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '') +  ' <fgcolor=808080>(default positive)'"
		h = .AddItem(100000.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '2|.|3|,|1|1')"
		h = .AddItem(-100000.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '') +  ' <fgcolor=808080>(default negative)'"
		h = .AddItem(-100000.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '2|.|3|,|1|1')"
	endwith
	.EndUpdate
endwith
442. Is it possible to add a 0 for numbers less than 1 instead .7 to show 0.8
with thisform.ComboBox1
	.BeginUpdate
	.Columns.Add("Def").Def(17) = 1
	with .Items
		h = .AddItem(0.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
		h = .AddItem(0.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '|||||0') +  ' <fgcolor=808080>(Display no leading zeros)'"
	endwith
	.EndUpdate
endwith
441. How can I specify the format for negative numbers
with thisform.ComboBox1
	.BeginUpdate
	.Columns.Add("Def").Def(17) = 1
	with .Items
		h = .AddItem(-100000.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
		h = .AddItem(-100000.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '||||1') +  ' <fgcolor=808080>(Negative sign, number; for example, -1.1)'"
	endwith
	.EndUpdate
endwith
440. Is it possible to change the grouping character when display numbers
with thisform.ComboBox1
	.BeginUpdate
	.Columns.Add("Def").Def(17) = 1
	with .Items
		h = .AddItem(100000.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
		h = .AddItem(100000.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '|||-') +  ' <fgcolor=808080>(grouping character is -)'"
	endwith
	.EndUpdate
endwith
439. How can I display numbers with 2 digits in each group
with thisform.ComboBox1
	.BeginUpdate
	.Columns.Add("Def").Def(17) = 1
	with .Items
		h = .AddItem(100000.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
		h = .AddItem(100000.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '||2') +  ' <fgcolor=808080>(grouping by 2 digits)'"
	endwith
	.EndUpdate
endwith
438. How can I display my numbers using a different decimal separator
with thisform.ComboBox1
	.BeginUpdate
	.Columns.Add("Def").Def(17) = 1
	with .Items
		h = .AddItem(100.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
		h = .AddItem(100.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '|;') +  ' <fgcolor=808080>(decimal separator is <b>;</b>)'"
	endwith
	.EndUpdate
endwith
437. Is it possible to display the numbers using 3 (three) digits
with thisform.ComboBox1
	.BeginUpdate
	.Columns.Add("Def").Def(17) = 1
	with .Items
		h = .AddItem(100.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
		h = .AddItem(100.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '3') +  ' <fgcolor=808080>(3 digits)'"
		h = .AddItem(100.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format 2) +  '  <fgcolor=808080>(2 digits)'"
		h = .AddItem(100.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format 1) +  ' <fgcolor=808080>(1 digit)'"
	endwith
	.EndUpdate
endwith
436. Is it possible to format numbers
with thisform.ComboBox1
	.BeginUpdate
	.MarkSearchColumn = .F.
	with .Columns
		.Add("Name")
		with .Add("A")
			.SortType = 1
			.AllowSizing = .F.
			.Width = 36
			.FormatColumn = "len(value) ? value + ' +'"
		endwith
		with .Add("B")
			.SortType = 1
			.AllowSizing = .F.
			.Width = 36
			.FormatColumn = "len(value) ? value + ' +'"
		endwith
		with .Add("C")
			.SortType = 1
			.AllowSizing = .F.
			.Width = 36
			.FormatColumn = "len(value) ? value + ' ='"
		endwith
		with .Add("A+B+C")
			.SortType = 1
			.Width = 64
			.ComputedField = "dbl(%1)+dbl(%2)+dbl(%3)"
			var_s = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' )"
			var_s = var_s + " : (dbl(value)>0 ? '<fgcolor=0000FF>+'+(value format '2|.|3|,' ): '0.00') )"
			.FormatColumn = var_s
			.Def(17) = 1
		endwith
	endwith
	with .Items
		h = .AddItem("Root")
		.DefaultItem = h
		.CellCaptionFormat(0,4) = 2
		h1 = .InsertItem(h,0,"Child 1")
		.DefaultItem = h1
		.CellCaption(0,1) = 7
		.DefaultItem = h1
		.CellCaption(0,2) = 3
		.DefaultItem = h1
		.CellCaption(0,3) = 1
		h1 = .InsertItem(h,0,"Child 2")
		.DefaultItem = h1
		.CellCaption(0,1) = -2
		.DefaultItem = h1
		.CellCaption(0,2) = -2
		.DefaultItem = h1
		.CellCaption(0,3) = -4
		h1 = .InsertItem(h,0,"Child 3")
		.DefaultItem = h1
		.CellCaption(0,1) = 2
		.DefaultItem = h1
		.CellCaption(0,2) = 2
		.DefaultItem = h1
		.CellCaption(0,3) = -4
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
endwith
435. Is it possible to limit the height of the item while resizing
*** InsertItem event - Occurs after a new item has been inserted to Items collection. ***
LPARAMETERS Item
	with thisform.ComboBox1
		.DefaultItem = Item
		.Items.ItemMinHeight(0) = 18
		.DefaultItem = Item
		.Items.ItemMaxHeight(0) = 72
	endwith

with thisform.ComboBox1
	.BeginUpdate
	.ItemsAllowSizing = -1
	.ScrollBySingleLine = .F.
	.BackColorAlternate = RGB(240,240,240)
	.Columns.Add("Names")
	with .Items
		.AddItem("Mantel")
		.AddItem("Mechanik")
		.AddItem("Motor")
		.AddItem("Murks")
		.AddItem("Märchen")
		.AddItem("Möhren")
		.AddItem("Mühle")
	endwith
	.Columns.Item(0).SortOrder = 1
	.EndUpdate
endwith
434. How can I simulate displaying groups
with thisform.ComboBox1
	.HasLines = 0
	.ScrollBySingleLine = .T.
	with .Columns
		.Add("Name")
		.Add("A")
		.Add("B")
		.Add("C")
	endwith
	with .Items
		h = .AddItem("Group 1")
		.DefaultItem = h
		.CellHAlignment(0,0) = 1
		.DefaultItem = h
		.ItemDivider(0) = 0
		.DefaultItem = h
		.ItemDividerLineAlignment(0) = 3
		.DefaultItem = h
		.ItemHeight(0) = 24
		.DefaultItem = h
		.SortableItem(0) = .F.
		h1 = .InsertItem(h,0,"Child 1")
		.DefaultItem = h1
		.CellCaption(0,1) = 1
		.DefaultItem = h1
		.CellCaption(0,2) = 2
		.DefaultItem = h1
		.CellCaption(0,3) = 3
		h1 = .InsertItem(h,0,"Child 2")
		.DefaultItem = h1
		.CellCaption(0,1) = 4
		.DefaultItem = h1
		.CellCaption(0,2) = 5
		.DefaultItem = h1
		.CellCaption(0,3) = 6
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Group 2")
		.DefaultItem = h
		.CellHAlignment(0,0) = 1
		.DefaultItem = h
		.ItemDivider(0) = 0
		.DefaultItem = h
		.ItemDividerLineAlignment(0) = 3
		.DefaultItem = h
		.ItemHeight(0) = 24
		.DefaultItem = h
		.SortableItem(0) = .F.
		h1 = .InsertItem(h,0,"Child 1")
		.DefaultItem = h1
		.CellCaption(0,1) = 1
		.DefaultItem = h1
		.CellCaption(0,2) = 2
		.DefaultItem = h1
		.CellCaption(0,3) = 3
		h1 = .InsertItem(h,0,"Child 2")
		.DefaultItem = h1
		.CellCaption(0,1) = 4
		.DefaultItem = h1
		.CellCaption(0,2) = 5
		.DefaultItem = h1
		.CellCaption(0,3) = 6
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith
433. How can I specify an item to be always the first item
with thisform.ComboBox1
	.BeginUpdate
	.TreeColumnIndex = -1
	.Columns.Add("Numbers").SortType = 1
	with .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
		.AddItem(4)
		h = .AddItem("first")
		.DefaultItem = h
		.ItemPosition(0) = 0
		.DefaultItem = h
		.CellHAlignment(0,0) = 2
		.DefaultItem = h
		.SortableItem(0) = .F.
		.SortChildren(0,0,.F.)
	endwith
	.EndUpdate
endwith
432. How can I specify an item to be always the last item
with thisform.ComboBox1
	.BeginUpdate
	.TreeColumnIndex = -1
	.Columns.Add("Numbers").SortType = 1
	with .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
		.AddItem(4)
		h = .AddItem("last")
		.DefaultItem = h
		.CellHAlignment(0,0) = 2
		.DefaultItem = h
		.SortableItem(0) = .F.
		.SortChildren(0,0,.T.)
	endwith
	.EndUpdate
endwith
431. Can I allow sorting only the child items
with thisform.ComboBox1
	.BeginUpdate
	.Columns.Add("Childs")
	with .Items
		h = .AddItem("Root 1")
		.DefaultItem = h
		.SortableItem(0) = .F.
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.DefaultItem = h
		.SortableItem(0) = .F.
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
endwith
430. Can I specify a terminal item so it will mark the end of childs
with thisform.ComboBox1
	.BeginUpdate
	.ScrollBySingleLine = .T.
	.Columns.Add("P1")
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .InsertItem(h,"","")
		.DefaultItem = h
		.ItemDivider(0) = 0
		.DefaultItem = h
		.ItemDividerLineAlignment(0) = 1
		.DefaultItem = h
		.ItemHeight(0) = 2
		.DefaultItem = h
		.SelectableItem(0) = .F.
		.DefaultItem = h
		.SortableItem(0) = .F.
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .InsertItem(h,"","")
		.DefaultItem = h
		.ItemDivider(0) = 0
		.DefaultItem = h
		.ItemDividerLineAlignment(0) = 1
		.DefaultItem = h
		.ItemHeight(0) = 2
		.DefaultItem = h
		.SelectableItem(0) = .F.
		.DefaultItem = h
		.SortableItem(0) = .F.
	endwith
	.EndUpdate
endwith
429. Is it possible to specify an item being unsortable so its position won't be changed after sorting
with thisform.ComboBox1
	.BeginUpdate
	.TreeColumnIndex = -1
	.Columns.Add("Numbers").SortType = 1
	with .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
		.AddItem(4)
		h = .AddItem("top 3")
		.DefaultItem = h
		.ItemPosition(0) = 3
		.DefaultItem = h
		.CellHAlignment(0,0) = 2
		.DefaultItem = h
		.SortableItem(0) = .F.
		.SortChildren(0,0,.F.)
	endwith
	.EndUpdate
endwith
428. Can I specify an item to be a separator
with thisform.ComboBox1
	.BeginUpdate
	.TreeColumnIndex = -1
	.SortOnClick = 0
	.Columns.Add("Numbers")
	with .Items
		.AddItem(1)
		.AddItem(2)
		h = .AddItem("separator")
		.DefaultItem = h
		.SelectableItem(0) = .F.
		.DefaultItem = h
		.ItemDivider(0) = 0
		.DefaultItem = h
		.ItemDividerLineAlignment(0) = 1
		.DefaultItem = h
		.ItemDividerLine(0) = 5
		.DefaultItem = h
		.CellHAlignment(0,0) = 1
		.AddItem(3)
		.AddItem(4)
	endwith
	.EndUpdate
endwith
427. How can I collapse all items
with thisform.ComboBox1
	.BeginUpdate
	.LinesAtRoot = -1
	.Columns.Add("Items")
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.ExpandItem(0) = .F.
	endwith
	.EndUpdate
endwith
426. How can I expand all items
with thisform.ComboBox1
	.BeginUpdate
	.LinesAtRoot = -1
	.Columns.Add("Items")
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
endwith
425. Is it possible to specify the cell's value but still want to display some formatted text instead the value
with thisform.ComboBox1
	.BeginUpdate
	.MarkSearchColumn = .F.
	.Columns.Add("Value")
	.Columns.Add("FormatCell")
	with .Items
		h = .AddItem(1)
		.DefaultItem = h
		.CellCaption(0,1) = 12
		.DefaultItem = h
		.FormatCell(0,1) = "currency(value)"
		h = .AddItem({^2001-1-1})
		.DefaultItem = h
		.CellCaption(0,1) = {^2001-1-1}
		.DefaultItem = h
		.CellCaptionFormat(0,1) = 1
		.DefaultItem = h
		.FormatCell(0,1) = "longdate(value) replace '2001' with '<b>2001</b>'"
	endwith
	.EndUpdate
endwith
424. How can I change the foreground color for a particular column
with thisform.ComboBox1
	with .Columns
		.Add("Column 1")
		.Add("Column 2").Def(8) = 8439039
		.Add("Column 3")
	endwith
endwith
423. How can I change the background color for a particular column
with thisform.ComboBox1
	with .Columns
		.Add("Column 1")
		.Add("Column 2").Def(7) = 8439039
		.Add("Column 3")
	endwith
endwith
422. How can I display the column using currency format and enlarge the font for certain values
with thisform.ComboBox1
	with .Columns.Add("Currency")
		.Def(17) = 1
		.FormatColumn = "len(value) ? ((0:=dbl(value)) < 10 ? '<fgcolor=808080><font ;7>' : '<b>') + currency(=:0)"
	endwith
	with .Items
		.AddItem("1.23")
		.AddItem("2.34")
		.AddItem("9.94")
		.AddItem("11.94")
		.AddItem("1000")
	endwith
endwith
421. How can I highlight only parts of the cells
with thisform.ComboBox1
	with .Columns.Add("")
		.Def(17) = 1
		.FormatColumn = "value replace 'hil' with '<fgcolor=FF0000><b>hil</b></fgcolor>'"
	endwith
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"Child 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith
420. How can I get the number of occurrences of a specified string in the cell
with thisform.ComboBox1
	.Columns.Add("")
	with .Columns.Add("occurrences")
		.ComputedField = "lower(%0) count 'o'"
		.FormatColumn = "'contains ' + value + ' of \'o\' chars'"
	endwith
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1 oooof the root")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"Child 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith
419. How can I display dates in my format
with thisform.ComboBox1
	with .Columns.Add("Date")
		.Def(17) = 1
		var_s = "'<b>' + year(0:=date(value)) + '</b><fgcolor=808080><font ;6> (' + month(=:0) + ' - ' + day(=:0)"
		var_s = var_s + " +')'"
		.FormatColumn = var_s
	endwith
	with .Items
		.AddItem({^2001-1-21})
		.AddItem({^2002-2-22})
		.AddItem({^2003-3-13})
		.AddItem({^2004-4-24})
	endwith
endwith
418. How can I display dates in short format
with thisform.ComboBox1
	.Columns.Add("Date").FormatColumn = "shortdate(value)"
	with .Items
		.AddItem({^2001-1-1})
		.AddItem({^2002-2-2})
		.AddItem({^2003-3-3})
		.AddItem({^2004-4-4})
	endwith
endwith
417. How can I display dates in long format
with thisform.ComboBox1
	.Columns.Add("Date").FormatColumn = "longdate(value)"
	with .Items
		.AddItem({^2001-1-1})
		.AddItem({^2002-2-2})
		.AddItem({^2003-3-3})
		.AddItem({^2004-4-4})
	endwith
endwith
416. How can I display only the right part of the cell
with thisform.ComboBox1
	.Columns.Add("")
	with .Columns.Add("Right")
		.ComputedField = "%0 right 2"
		.FormatColumn = "'"+chr(34)+"' + value + '"+chr(34)+"'"
	endwith
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"SChild 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith
415. How can I display true or false instead 0 and -1
with thisform.ComboBox1
	.Columns.Add("Boolean").FormatColumn = "value != 0 ? 'true' : 'false'"
	with .Items
		.AddItem(.T.)
		.AddItem(.F.)
		.AddItem(.T.)
		.AddItem(0)
		.AddItem(1)
	endwith
endwith
414. How can I display icons or images instead numbers
with thisform.ComboBox1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Columns.Add("Icons")
		.Def(17) = 1
		.FormatColumn = "'The cell displays the icon <img>'+value+'</img> instead ' + value"
	endwith
	with .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
	endwith
endwith
413. How can I display the column using currency
with thisform.ComboBox1
	.Columns.Add("Currency").FormatColumn = "currency(dbl(value))"
	with .Items
		.AddItem("1.23")
		.AddItem("2.34")
		.AddItem("0")
		.AddItem(5)
		.AddItem("10000.99")
	endwith
endwith
412. How can I filter programatically using more columns
with thisform.ComboBox1
	.BeginUpdate
	.MarkSearchColumn = .F.
	with .Columns
		.Add("Car")
		.Add("Equipment")
	endwith
	with .Items
		.DefaultItem = .AddItem("Mazda")
		.CellCaption(0,1) = "Air Bag"
		.DefaultItem = .AddItem("Toyota")
		.CellCaption(0,1) = "Air Bag,Air condition"
		.DefaultItem = .AddItem("Ford")
		.CellCaption(0,1) = "Air condition"
		.DefaultItem = .AddItem("Nissan")
		.CellCaption(0,1) = "Air Bag,ABS,ESP"
		.DefaultItem = .AddItem("Mazda")
		.CellCaption(0,1) = "Air Bag, ABS,ESP"
		.DefaultItem = .AddItem("Mazda")
		.CellCaption(0,1) = "ABS,ESP"
	endwith
	with .Columns.Item("Car")
		.FilterType = 240
		.Filter = "Mazda"
	endwith
	with .Columns.Item("Equipment")
		.FilterType = 3
		.Filter = "*ABS*|*ESP*"
	endwith
	.ApplyFilter
	.EndUpdate
endwith
411. I need a combobox that supports selecting multiple items, preferably with checkboxes. I can't find an example of how to do this. Does your control support it
*** CellStateChanged event - Fired after cell's state has been changed. ***
LPARAMETERS Cell
	with thisform.ComboBox1
		.LabelText = Cell
		DEBUGOUT( .Items.CellCaption(0,Cell) )
		DEBUGOUT( .Items.CellState(0,Cell) )
	endwith

with thisform.ComboBox1
	.BeginUpdate
	.Style = 2
	.IntegralHeight = .T.
	.HeaderVisible = .F.
	.SingleEdit = .T.
	.SearchColumnIndex = -1
	.AdjustSearchColumn = .F.
	.Columns.Add("Language").Def(0) = .T.
	with .Items
		.AddItem("English")
		.AddItem("Hebrew")
		.AddItem("Spanish")
	endwith
	.EndUpdate
endwith
410. How can I display a different caption in the label area, when I click the cell's check box
*** CellStateChanged event - Fired after cell's state has been changed. ***
LPARAMETERS Cell
	with thisform.ComboBox1
		.LabelText = Cell
		DEBUGOUT( .Items.CellCaption(0,Cell) )
		DEBUGOUT( .Items.CellState(0,Cell) )
	endwith

with thisform.ComboBox1
	.BeginUpdate
	.Style = 2
	.IntegralHeight = .T.
	.HeaderVisible = .F.
	.SingleEdit = .T.
	.SearchColumnIndex = -1
	.AdjustSearchColumn = .F.
	.Columns.Add("Language").Def(0) = .T.
	with .Items
		.AddItem("English")
		.AddItem("Hebrew")
		.AddItem("Spanish")
	endwith
	.LabelText = " <b>custom</b> text "
	.EndUpdate
endwith
409. How can I display a different caption in the label area
with thisform.ComboBox1
	.BeginUpdate
	.Style = 2
	.IntegralHeight = .T.
	.HeaderVisible = .F.
	.SingleEdit = .T.
	.SearchColumnIndex = -1
	.AdjustSearchColumn = .F.
	.Columns.Add("Language").Def(0) = .T.
	with .Items
		.AddItem("English")
		.AddItem("Hebrew")
		.AddItem("Spanish")
	endwith
	.LabelText = " <b>custom</b> text "
	.EndUpdate
endwith
408. How can I change the background appearance (ebn) for the filter field in the bottom part of the drop down portion
with thisform.ComboBox1
	.BeginUpdate
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.FilterForVisible = .T.
	.FilterForBackColor = 0x1000000
	.IntegralHeight = .T.
	.Columns.Add("Default")
	with .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
		.AddItem("Item 5")
	endwith
	.EndUpdate
endwith
407. How can I change the background color for the filter field in the bottom part of the drop down portion
with thisform.ComboBox1
	.BeginUpdate
	.FilterForVisible = .T.
	.FilterForBackColor = RGB(240,240,240)
	.IntegralHeight = .T.
	.Columns.Add("Default")
	with .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
		.AddItem("Item 5")
	endwith
	.EndUpdate
endwith
406. How can I display a filter field in the bottom part of the drop down portion
with thisform.ComboBox1
	.BeginUpdate
	.FilterForVisible = .T.
	.IntegralHeight = .T.
	.Columns.Add("Default")
	with .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
		.AddItem("Item 5")
	endwith
	.EndUpdate
endwith
405. Does your control support RightToLeft property for RTL languages or right to left
with thisform.ComboBox1
	.BeginUpdate
	.LinesAtRoot = -1
	with .Columns.Add("P1")
		.Def(0) = .T.
		.PartialCheck = .T.
	endwith
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
	.RightToLeft = .T.
	.EndUpdate
endwith
404. Is there any way to display the vertical scroll bar on the left side, as I want to align my data to the right
with thisform.ComboBox1
	.BeginUpdate
	with .Columns
		.Add("C1")
		.Add("C2")
		.Add("C3")
		.Add("C4")
		.Add("C5")
		.Add("C6")
		.Add("C7")
		.Add("C8")
	endwith
	.RightToLeft = .T.
	.EndUpdate
endwith
403. Can I display the cell's check box after the text
with thisform.ComboBox1
	with .Columns.Add("Column")
		.Def(0) = .T.
		.Def(34) = "caption,check"
	endwith
	with .Items
		.DefaultItem = .AddItem("Caption 1")
		.CellHasCheckBox(0,0) = .T.
		.DefaultItem = .AddItem("Caption 2")
		.CellHasCheckBox(0,0) = .T.
	endwith
endwith
402. Can I change the order of the parts in the cell, as checkbox after the text, and so on
with thisform.ComboBox1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Columns.Add("Column").Def(34) = "caption,check,icon,icons,picture"
	with .Items
		h = .AddItem("Text")
		.DefaultItem = h
		.CellImage(0,0) = 1
		.DefaultItem = h
		.CellHasCheckBox(0,0) = .T.
	endwith
endwith
401. Can I have an image displayed after the text. Can I get that effect without using HTML content
with thisform.ComboBox1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Columns.Add("Column").Def(34) = "caption,icon,check,icons,picture"
	with .Items
		h = .AddItem("Text")
		.DefaultItem = h
		.CellImage(0,0) = 1
	endwith
endwith
400. How can I display the column using currency format and enlarge the font for certain values
with thisform.ComboBox1
	with .Columns.Add("Currency")
		.Def(17) = 1
		.FormatColumn = "len(value) ? ((0:=dbl(value)) < 10 ? '<fgcolor=808080><font ;7>' : '<b>') + currency(=:0)"
	endwith
	with .Items
		.AddItem("1.23")
		.AddItem("2.34")
		.AddItem("9.94")
		.AddItem("11.94")
		.AddItem("1000")
	endwith
endwith
399. How can I get the number of occurrences of a specified string in the cell
with thisform.ComboBox1
	.Columns.Add("")
	with .Columns.Add("occurrences")
		.ComputedField = "lower(%0) count 'o'"
		.FormatColumn = "'contains ' + value + ' of \'o\' chars'"
	endwith
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1 oooof the root")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"Child 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith
398. How can I display dates in my format
with thisform.ComboBox1
	with .Columns.Add("Date")
		.Def(17) = 1
		var_s = "'<b>' + year(0:=date(value)) + '</b><fgcolor=808080><font ;6> (' + month(=:0) + ' - ' + day(=:0)"
		var_s = var_s + " +')'"
		.FormatColumn = var_s
	endwith
	with .Items
		.AddItem({^2001-1-21})
		.AddItem({^2002-2-22})
		.AddItem({^2003-3-13})
		.AddItem({^2004-4-24})
	endwith
endwith
397. How can I display dates in short format
with thisform.ComboBox1
	.Columns.Add("Date").FormatColumn = "shortdate(value)"
	with .Items
		.AddItem({^2001-1-1})
		.AddItem({^2002-2-2})
		.AddItem({^2003-3-3})
		.AddItem({^2004-4-4})
	endwith
endwith
396. How can I display dates in long format
with thisform.ComboBox1
	.Columns.Add("Date").FormatColumn = "longdate(value)"
	with .Items
		.AddItem({^2001-1-1})
		.AddItem({^2002-2-2})
		.AddItem({^2003-3-3})
		.AddItem({^2004-4-4})
	endwith
endwith
395. How can I display only the right part of the cell
with thisform.ComboBox1
	.Columns.Add("")
	with .Columns.Add("Right")
		.ComputedField = "%0 right 2"
		.FormatColumn = "'"+chr(34)+"' + value + '"+chr(34)+"'"
	endwith
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"SChild 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith
394. How can I display only the left part of the cell
with thisform.ComboBox1
	.Columns.Add("")
	.Columns.Add("Left").ComputedField = "%0 left 2"
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"SChild 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith
393. How can I display true or false instead 0 and -1
with thisform.ComboBox1
	.Columns.Add("Boolean").FormatColumn = "value != 0 ? 'true' : 'false'"
	with .Items
		.AddItem(.T.)
		.AddItem(.F.)
		.AddItem(.T.)
		.AddItem(0)
		.AddItem(1)
	endwith
endwith
392. How can I display icons or images instead numbers
with thisform.ComboBox1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Columns.Add("Icons")
		.Def(17) = 1
		.FormatColumn = "'The cell displays the icon <img>'+value+'</img> instead ' + value"
	endwith
	with .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
	endwith
endwith
391. How can I display the column using currency
with thisform.ComboBox1
	.Columns.Add("Currency").FormatColumn = "currency(dbl(value))"
	with .Items
		.AddItem("1.23")
		.AddItem("2.34")
		.AddItem("0")
		.AddItem(5)
		.AddItem("10000.99")
	endwith
endwith
390. How can I display the currency only for not empty cells
with thisform.ComboBox1
	.Columns.Add("Number")
	.Columns.Add("Currency").ComputedField = "len(%0) ? currency(dbl(%0)) : ''"
	with .Items
		.AddItem("1.23")
		.AddItem("2.34")
		.AddItem("0")
		.DefaultItem = .AddItem()
		.ItemBackColor(0) = RGB(255,128,128)
		.AddItem("10000.99")
	endwith
endwith
389. Is there a function to display the number of days between two date including the number of hours
with thisform.ComboBox1
	.Columns.Add("Start").Width = 32
	.Columns.Add("End")
	var_s = "2:=((1:=int(0:= date(%1)-date(%0))) = 0 ? '' : str(=:1) + ' day(s)') + ( 3:=round(24*(=:0-floor("
	var_s = var_s + "=:0))) ? (len(=:2) ? ' and ' : '') + =:3 + ' hour(s)' : '' )"
	.Columns.Add("Duration").ComputedField = var_s
	with .Items
		h = .AddItem({^2001-1-11})
		.DefaultItem = h
		.CellCaption(0,1) = {^2001-1-14}
		h = .AddItem({^2002-2-22 12:00:00})
		.DefaultItem = h
		.CellCaption(0,1) = {^2002-3-14 13:00:00}
		h = .AddItem({^2003-3-13})
		.DefaultItem = h
		.CellCaption(0,1) = {^2003-4-11 11:00:00}
	endwith
endwith
388. Is there a function to display the number of days between two date including the number of hours
with thisform.ComboBox1
	.Columns.Add("Start")
	.Columns.Add("End")
	var_s = ""+chr(34)+"D "+chr(34)+" + int(date(%1)-date(%0)) + "+chr(34)+" H "+chr(34)+" + round(24*(date(%1)-date(%0) - floor(date(%1)-date(%0))))"
	.Columns.Add("Duration").ComputedField = var_s
	with .Items
		h = .AddItem({^2001-1-11})
		.DefaultItem = h
		.CellCaption(0,1) = {^2001-1-14 23:00:00}
		h = .AddItem({^2002-2-22 12:00:00})
		.DefaultItem = h
		.CellCaption(0,1) = {^2002-3-14 13:00:00}
		h = .AddItem({^2003-3-13})
		.DefaultItem = h
		.CellCaption(0,1) = {^2003-4-11 11:00:00}
	endwith
endwith
387. How can I display the number of days between two dates
with thisform.ComboBox1
	.Columns.Add("Start")
	.Columns.Add("End")
	.Columns.Add("Duration").ComputedField = "(date(%1)-date(%0)) + ' days'"
	with .Items
		h = .AddItem({^2001-1-11})
		.DefaultItem = h
		.CellCaption(0,1) = {^2001-1-14}
		h = .AddItem({^2002-2-22})
		.DefaultItem = h
		.CellCaption(0,1) = {^2002-3-14}
		h = .AddItem({^2003-3-13})
		.DefaultItem = h
		.CellCaption(0,1) = {^2003-4-11}
	endwith
endwith
386. How can I get second part of the date
with thisform.ComboBox1
	.Columns.Add("Date")
	.Columns.Add("Second").ComputedField = "sec(date(%0))"
	with .Items
		.AddItem({^2001-1-11 10:10:00})
		.AddItem({^2002-2-22 11:01:22})
		.AddItem({^2003-3-13 12:23:01})
		.AddItem({^2004-4-14 13:11:59})
	endwith
endwith
385. How can I get minute part of the date
with thisform.ComboBox1
	.Columns.Add("Date")
	.Columns.Add("Minute").ComputedField = "min(date(%0))"
	with .Items
		.AddItem({^2001-1-11 10:10:00})
		.AddItem({^2002-2-22 11:01:00})
		.AddItem({^2003-3-13 12:23:00})
		.AddItem({^2004-4-14 13:11:00})
	endwith
endwith
384. How can I check the hour part only so I know it was afternoon
with thisform.ComboBox1
	.ConditionalFormats.Add("hour(%0)>=12").Bold = .T.
	.Columns.Add("Date")
	.Columns.Add("Hour").ComputedField = "hour(%0)"
	with .Items
		.AddItem({^2001-1-11 10:00:00})
		.AddItem({^2002-2-22 11:00:00})
		.AddItem({^2003-3-13 12:00:00})
		.AddItem({^2004-4-14 13:00:00})
	endwith
endwith
383. What about a function to get the day in the week, or days since Sunday
with thisform.ComboBox1
	.Columns.Add("Date")
	.Columns.Add("WeekDay").ComputedField = "weekday(%0)"
	with .Items
		.AddItem({^2001-1-11 10:00:00})
		.AddItem({^2002-2-22 11:00:00})
		.AddItem({^2003-3-13 12:00:00})
		.AddItem({^2004-4-14 13:00:00})
	endwith
endwith
382. Is there any function to get the day of the year or number of days since January 1st
with thisform.ComboBox1
	.Columns.Add("Date")
	.Columns.Add("Day since January 1st").ComputedField = "yearday(%0)"
	with .Items
		.AddItem({^2001-1-11 10:00:00})
		.AddItem({^2002-2-22 11:00:00})
		.AddItem({^2003-3-13 12:00:00})
		.AddItem({^2004-4-14 13:00:00})
	endwith
endwith
381. How can I display only the day of the date
with thisform.ComboBox1
	.Columns.Add("Date")
	.Columns.Add("Day").ComputedField = "day(%0)"
	with .Items
		.AddItem({^2001-1-11 10:00:00})
		.AddItem({^2002-2-22 11:00:00})
		.AddItem({^2003-3-13 12:00:00})
		.AddItem({^2004-4-14 13:00:00})
	endwith
endwith
380. How can I display only the month of the date
with thisform.ComboBox1
	.Columns.Add("Date")
	.Columns.Add("Month").ComputedField = "month(%0)"
	with .Items
		.AddItem({^2001-1-1 10:00:00})
		.AddItem({^2002-2-2 11:00:00})
		.AddItem({^2003-3-3 12:00:00})
		.AddItem({^2004-4-4 13:00:00})
	endwith
endwith
379. How can I get only the year part from a date expression
with thisform.ComboBox1
	.Columns.Add("Date")
	.Columns.Add("Year").ComputedField = "year(%0)"
	with .Items
		.AddItem({^2001-1-1 10:00:00})
		.AddItem({^2002-2-2 11:00:00})
		.AddItem({^2003-3-3 12:00:00})
		.AddItem({^2004-4-4 13:00:00})
	endwith
endwith
378. Can I convert the expression to date
with thisform.ComboBox1
	.Columns.Add("Number")
	.Columns.Add("Date").ComputedField = "date(dbl(%0))"
	with .Items
		.AddItem("-1.98")
		.AddItem("30000.99")
		.AddItem("3561.23")
		.AddItem("1232.34")
	endwith
endwith
377. Can I convert the expression to a number, double or float
with thisform.ComboBox1
	.Columns.Add("Number")
	.Columns.Add("Number + 2").ComputedField = "dbl(%0)+2"
	with .Items
		.AddItem("-1.98")
		.AddItem("0.99")
		.AddItem("1.23")
		.AddItem("2.34")
	endwith
endwith
376. How can I display dates in long format
with thisform.ComboBox1
	.Columns.Add("Date")
	.Columns.Add("LongFormat").ComputedField = "longdate(%0)"
	with .Items
		.AddItem({^2001-1-1 10:00:00})
		.AddItem({^2002-2-2 11:00:00})
		.AddItem({^2003-3-3 12:00:00})
		.AddItem({^2004-4-4 13:00:00})
	endwith
endwith
375. How can I display dates in short format
with thisform.ComboBox1
	.Columns.Add("Date")
	.Columns.Add("ShortFormat").ComputedField = "shortdate(%0)"
	with .Items
		.AddItem({^2001-1-1 10:00:00})
		.AddItem({^2002-2-2 11:00:00})
		.AddItem({^2003-3-3 12:00:00})
		.AddItem({^2004-4-4 13:00:00})
	endwith
endwith
374. How can I display the time only of a date expression
with thisform.ComboBox1
	.Columns.Add("Date")
	.Columns.Add("Time").ComputedField = "'time is:' + time(date(%0))"
	with .Items
		.AddItem({^2001-1-1 10:00:00})
		.AddItem({^2002-2-2 11:00:00})
		.AddItem({^2003-3-3 12:00:00})
		.AddItem({^2004-4-4 13:00:00})
	endwith
endwith
373. Is there any function to display currencies, or money formatted as in the control panel
with thisform.ComboBox1
	.Columns.Add("Number")
	.Columns.Add("Currency").ComputedField = "currency(dbl(%0))"
	with .Items
		.AddItem("1.23")
		.AddItem("2.34")
		.AddItem("10000.99")
	endwith
endwith
372. How can I convert the expression to a string so I can look into the date string expression for month's name
with thisform.ComboBox1
	.Columns.Add("Number")
	.Columns.Add("Str").ComputedField = "str(%0) + ' AA'"
	with .Items
		.AddItem("-1.98")
		.AddItem("0.99")
		.AddItem("1.23")
		.AddItem("2.34")
	endwith
endwith
371. Can I display the absolute value or positive part of the number
with thisform.ComboBox1
	.Columns.Add("Number")
	.Columns.Add("Abs").ComputedField = "abs(%0)"
	with .Items
		.AddItem("-1.98")
		.AddItem("0.99")
		.AddItem("1.23")
		.AddItem("2.34")
	endwith
endwith
370. Is there any function to get largest number with no fraction part that is not greater than the value
with thisform.ComboBox1
	.Columns.Add("Number")
	.Columns.Add("Floor").ComputedField = "floor(%0)"
	with .Items
		.AddItem("-1.98")
		.AddItem("0.99")
		.AddItem("1.23")
		.AddItem("2.34")
	endwith
endwith
369. Is there any function to round the values base on the .5 value
with thisform.ComboBox1
	.Columns.Add("Number")
	.Columns.Add("Round").ComputedField = "round(%0)"
	with .Items
		.AddItem("-1.98")
		.AddItem("0.99")
		.AddItem("1.23")
		.AddItem("2.34")
	endwith
endwith
368. How can I get or display the integer part of the cell
with thisform.ComboBox1
	.Columns.Add("Number")
	.Columns.Add("Int").ComputedField = "int(%0)"
	with .Items
		.AddItem("-1.98")
		.AddItem("0.99")
		.AddItem("1.23")
		.AddItem("2.34")
	endwith
endwith
367. How can I display names as proper ( first leter of the word must be in uppercase, and the rest in lowercase )
with thisform.ComboBox1
	.Columns.Add("").ComputedField = "proper(%0)"
	with .Items
		h = .AddItem("root")
		.InsertItem(h,0,"child child")
		.InsertItem(h,0,"child child")
		.InsertItem(h,0,"child child")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith
366. Is there any option to display cells in uppercase
with thisform.ComboBox1
	.Columns.Add("").ComputedField = "upper(%0)"
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"Chld 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith
365. Is there any option to display cells in lowercase
with thisform.ComboBox1
	.Columns.Add("").ComputedField = "lower(%0)"
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"Chld 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith
364. How can I mark the cells that has a specified type, ie strings only
with thisform.ComboBox1
	.ConditionalFormats.Add("type(%0) = 8").ForeColor = RGB(255,0,0)
	.Columns.Add("")
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,2)
		.InsertItem(h,0,"Chld 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith
363. How can I bold the items that contains data or those who displays empty strings
with thisform.ComboBox1
	.ConditionalFormats.Add("not len(%1)=0").Bold = .T.
	.Columns.Add("C1")
	.Columns.Add("C2")
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		hC = .InsertItem(h,0,"Child 2")
		.DefaultItem = hC
		.CellCaption(0,1) = "1"
		.InsertItem(h,0,"Child 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith
362. Can I change the background color for items or cells that contains a specified string
with thisform.ComboBox1
	.ConditionalFormats.Add("%0 contains 'hi'").BackColor = RGB(255,0,0)
	.Columns.Add("")
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"Chld 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith
361. Is there any option to change the fore color for cells or items that ends with a specified string
with thisform.ComboBox1
	.ConditionalFormats.Add("%0 endwith '22'").ForeColor = RGB(255,0,0)
	.Columns.Add("")
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 1.22")
		.InsertItem(h,0,"Child 2.22")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith
360. How can I highlight the cells or items that starts with a specified string
with thisform.ComboBox1
	.ConditionalFormats.Add("%0 startwith 'C'").Underline = .T.
	.Columns.Add("")
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"SChild 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith
359. How can I change the background color or the visual appearance using ebn for a particular column
with thisform.ComboBox1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	with .Columns
		.Add("Column 1")
		.Add("Column 2").Def(7) = 16777216
		.Add("Column 3").Def(7) = 16777471
		.Add("Column 4")
	endwith
endwith
358. How can I change the background color for a particular column
with thisform.ComboBox1
	with .Columns
		.Add("Column 1")
		.Add("Column 2").Def(7) = 8439039
		.Add("Column 3")
	endwith
endwith
357. Does your control support prompt feature
with thisform.ComboBox1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.AutoComplete = .F.
	.Columns.Add("Column 1").Prompt = "<img>1</img><i><fgcolor=808080>type to search</fgcolor></i>"
	.Items.AddItem(0)
	.Items.AddItem(1)
	.Items.AddItem(2)
endwith
356. How can I display the column's header using multiple lines
with thisform.ComboBox1
	.HeaderHeight = 128
	.HeaderSingleLine = .F.
	.Columns.Add("This is just a column that should break the header.").Width = 32
	.Columns.Add("This is just another column that should break the header.")
endwith
355. How can I sort the value gets listed in the drop down filter window
with thisform.ComboBox1
	.LinesAtRoot = -1
	.MarkSearchColumn = .F.
	.Object.Description(0) = ""
	.Object.Description(1) = ""
	.Object.Description(2) = ""
	with .Columns.Add("P1")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.FilterList = 16
	endwith
	with .Columns.Add("P2")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.FilterList = 32
	endwith
	with .Items
		h = .AddItem("Z3")
		.DefaultItem = h
		.CellCaption(0,1) = "C"
		.DefaultItem = .InsertItem(h,0,"Z1")
		.CellCaption(0,1) = "B"
		.DefaultItem = .InsertItem(h,0,"Z2")
		.CellCaption(0,1) = "A"
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith
354. Is there any property to disable the popup/context menu being shown when the user does a right click in the control's label area
with thisform.ComboBox1
	.Columns.Add("Default").AllowEditContextMenu = .F.
	.Items.AddItem(0)
	.Items.AddItem(1)
	.Items.AddItem(2)
endwith
353. How can I align the text/caption on the scroll bar
with thisform.ComboBox1
	.Object.ScrollPartCaption(1,512) = "left"
	.Object.ScrollPartCaptionAlignment(1,512) = 0
	.Object.ScrollPartCaption(1,128) = "right"
	.Object.ScrollPartCaptionAlignment(1,128) = 2
	.ColumnAutoResize = .F.
	.Columns.Add(1)
	.Columns.Add(2)
	.Columns.Add(3)
	.Columns.Add(4)
	.Columns.Add(5)
	.Columns.Add(6)
endwith
352. Does you control support RTL languages or if there is a property RightToLeft
with thisform.ComboBox1
	.RightToLeft = .T.
	.ItemsAllowSizing = -1
	.DrawGridLines = 1
	.LinesAtRoot = -1
	.ScrollBySingleLine = .T.
	.DefaultItemHeight = 64
	with .Columns.Add("Column")
		.Alignment = 2
		.HeaderAlignment = 2
		.EditAlignment = 2
	endwith
	with .Items
		.AddItem("Item 1")
		.DefaultItem = .InsertItem(.AddItem("Parent"),0,"Item 2")
		.ItemHeight(0) = 48
		.AddItem("Item 3")
		.DefaultItem = .ItemByIndex(1)
		.ExpandItem(0) = .T.
	endwith
endwith
351. How do I enable resizing all the items at runtime
with thisform.ComboBox1
	.ItemsAllowSizing = 1
	.DrawGridLines = 1
	.Columns.Add("Column")
	.Items.AddItem("Item 1")
	with .Items
		.DefaultItem = .AddItem("Item 2")
		.ItemHeight(0) = 48
	endwith
	.Items.AddItem("Item 3")
endwith
350. How can I remove the filter
with thisform.ComboBox1
	with .Columns.Add("Column")
		.DisplayFilterButton = .T.
		.FilterType = 1
	endwith
	.ApplyFilter
	.ClearFilter
endwith
349. How do I display the icons being selected in the control's label
with thisform.ComboBox1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Columns.Add("Column")
	with .Items
		.DefaultItem = .AddItem("Image 1")
		.CellImage(0,0) = 1
		.DefaultItem = .AddItem("Image 2")
		.CellImage(0,0) = 2
		.DefaultItem = .AddItem("Image 3")
		.CellImage(0,0) = 3
	endwith
	.Object.AssignEditImageOnSelect(0) = .T.
	.Value = "Image 2"
endwith
348. How do I select a value
with thisform.ComboBox1
	.IntegralHeight = .T.
	.LinesAtRoot = 1
	.TreeColumnIndex = 1
	.Columns.Add("Column 1")
	.Columns.Add("Column 2")
	with .Items
		h = .AddItem("Root 1.1")
		.DefaultItem = h
		.CellCaption(0,1) = "Root 1.2"
		.DefaultItem = .InsertItem(h,0,"Child 1.1")
		.CellCaption(0,1) = "Child 1.2"
		.DefaultItem = .InsertItem(h,0,"Child 2.1")
		.CellCaption(0,1) = "Child 2.2"
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2.1")
		.DefaultItem = h
		.CellCaption(0,1) = "Root 2.2"
		.DefaultItem = .InsertItem(h,0,"Child 1.1")
		.CellCaption(0,1) = "Child 1.2"
	endwith
	.Value = "Root 1.1"
endwith
347. How do I select a value
with thisform.ComboBox1
	.IntegralHeight = .T.
	.LinesAtRoot = 1
	.TreeColumnIndex = 1
	.Columns.Add("Column 1")
	.Columns.Add("Column 2")
	with .Items
		h = .AddItem("Root 1.1")
		.DefaultItem = h
		.CellCaption(0,1) = "Root 1.2"
		.DefaultItem = .InsertItem(h,0,"Child 1.1")
		.CellCaption(0,1) = "Child 1.2"
		.DefaultItem = .InsertItem(h,0,"Child 2.1")
		.CellCaption(0,1) = "Child 2.2"
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2.1")
		.DefaultItem = h
		.CellCaption(0,1) = "Root 2.2"
		.DefaultItem = .InsertItem(h,0,"Child 1.1")
		.CellCaption(0,1) = "Child 1.2"
	endwith
	.Object.Select(1) = "Root 1.2"
endwith
346. How do change the visual appearance for the drop down border, using EBN
with thisform.ComboBox1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.DropDownBorder = 16777216
endwith
345. How do I remove the drop down's border
with thisform.ComboBox1
	.DropDownBorder = 0
endwith
344. How can I change the foreground color for edit controls
with thisform.ComboBox1
	.ForeColorEdit = RGB(255,0,0)
	.IntegralHeight = .T.
	.LinesAtRoot = 1
	.TreeColumnIndex = 1
	.Columns.Add("Column 1")
	.Columns.Add("Column 2")
	with .Items
		h = .AddItem("Root 1.1")
		.DefaultItem = h
		.CellCaption(0,1) = "Root 1.2"
		.DefaultItem = .InsertItem(h,0,"Child 1.1")
		.CellCaption(0,1) = "Child 1.2"
		.DefaultItem = .InsertItem(h,0,"Child 2.1")
		.CellCaption(0,1) = "Child 2.2"
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2.1")
		.DefaultItem = h
		.CellCaption(0,1) = "Root 2.2"
		.DefaultItem = .InsertItem(h,0,"Child 1.1")
		.CellCaption(0,1) = "Child 1.2"
	endwith
	.Object.Select(0) = "Root 1.1"
endwith
343. How can I change the background color for edit controls
with thisform.ComboBox1
	.BackColorEdit = RGB(255,0,0)
	.IntegralHeight = .T.
	.LinesAtRoot = 1
	.TreeColumnIndex = 1
	.Columns.Add("Column 1")
	.Columns.Add("Column 2")
	with .Items
		h = .AddItem("Root 1.1")
		.DefaultItem = h
		.CellCaption(0,1) = "Root 1.2"
		.DefaultItem = .InsertItem(h,0,"Child 1.1")
		.CellCaption(0,1) = "Child 1.2"
		.DefaultItem = .InsertItem(h,0,"Child 2.1")
		.CellCaption(0,1) = "Child 2.2"
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2.1")
		.DefaultItem = h
		.CellCaption(0,1) = "Root 2.2"
		.DefaultItem = .InsertItem(h,0,"Child 1.1")
		.CellCaption(0,1) = "Child 1.2"
	endwith
	.Object.Select(0) = "Root 1.1"
endwith
342. How can I hide the drop down buttons when the control loses the focus
with thisform.ComboBox1
	.HideDropDownButton = .T.
	.IntegralHeight = .T.
	.LinesAtRoot = 1
	.TreeColumnIndex = 1
	.Columns.Add("Column 1")
	.Columns.Add("Column 2")
	with .Items
		h = .AddItem("Root 1.1")
		.DefaultItem = h
		.CellCaption(0,1) = "Root 1.2"
		.DefaultItem = .InsertItem(h,0,"Child 1.1")
		.CellCaption(0,1) = "Child 1.2"
		.DefaultItem = .InsertItem(h,0,"Child 2.1")
		.CellCaption(0,1) = "Child 2.2"
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2.1")
		.DefaultItem = h
		.CellCaption(0,1) = "Root 2.2"
		.DefaultItem = .InsertItem(h,0,"Child 1.1")
		.CellCaption(0,1) = "Child 1.2"
	endwith
endwith
341. How can I ensure that the drop down portions doesn't show partial items
with thisform.ComboBox1
	.IntegralHeight = .T.
	.LinesAtRoot = 1
	.TreeColumnIndex = 1
	.Columns.Add("Column 1")
	.Columns.Add("Column 2")
	with .Items
		h = .AddItem("Root 1.1")
		.DefaultItem = h
		.CellCaption(0,1) = "Root 1.2"
		.DefaultItem = .InsertItem(h,0,"Child 1.1")
		.CellCaption(0,1) = "Child 1.2"
		.DefaultItem = .InsertItem(h,0,"Child 2.1")
		.CellCaption(0,1) = "Child 2.2"
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2.1")
		.DefaultItem = h
		.CellCaption(0,1) = "Root 2.2"
		.DefaultItem = .InsertItem(h,0,"Child 1.1")
		.CellCaption(0,1) = "Child 1.2"
	endwith
endwith
340. How can I close the drop down window when user double clicks it
with thisform.ComboBox1
	.CloseOnDblClk = .T.
	.LinesAtRoot = 1
	.TreeColumnIndex = 1
	.Columns.Add("Column 1")
	.Columns.Add("Column 2")
	with .Items
		h = .AddItem("Root 1.1")
		.DefaultItem = h
		.CellCaption(0,1) = "Root 1.2"
		.DefaultItem = .InsertItem(h,0,"Child 1.1")
		.CellCaption(0,1) = "Child 1.2"
		.DefaultItem = .InsertItem(h,0,"Child 2.1")
		.CellCaption(0,1) = "Child 2.2"
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2.1")
		.DefaultItem = h
		.CellCaption(0,1) = "Root 2.2"
		.DefaultItem = .InsertItem(h,0,"Child 1.1")
		.CellCaption(0,1) = "Child 1.2"
	endwith
endwith
339. How do I get the handle of the drop down window
with thisform.ComboBox1
	.Columns.Add(0)
endwith
338. How do I specify the height of the control's label
with thisform.ComboBox1
	.LabelHeight = 34
	.Columns.Add("Column")
	with .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
endwith
337. The control selects the portion of text that doesn't match with the selected item. How can I avoid that
with thisform.ComboBox1
	.AutoSelect = .F.
	.Columns.Add("Column")
	with .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
endwith
336. How can I show the drop down window as soon as user starts typing in the control
with thisform.ComboBox1
	.AutoDropDown = .T.
	.Columns.Add("Column")
	with .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
endwith
335. How do I change the text in the edit or label area
with thisform.ComboBox1
	.Columns.Add("Column")
	with .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
	.Object.EditText(0) = "Test"
endwith
334. How do I lock or make read-only the control
with thisform.ComboBox1
	.Locked = .T.
	.Columns.Add("Column")
	with .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
endwith
333. How do I let user to resize only the height of the drop down window, at runtime
with thisform.ComboBox1
	.AllowSizeGrip = .T.
	.AllowHResize = .F.
	.MinWidthList = 100
	.MinHeightList = 100
	.Columns.Add("Column")
	with .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
endwith
332. How do I let user to resize only the width of the drop down window, at runtime
with thisform.ComboBox1
	.AllowSizeGrip = .T.
	.AllowVResize = .F.
	.Columns.Add("Column")
	with .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
endwith
331. How do I let user to resize the drop down window, at runtime
with thisform.ComboBox1
	.AllowSizeGrip = .T.
	.Columns.Add("Column")
	with .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
endwith
330. How do I specify the height of the drop down window
with thisform.ComboBox1
	.Object.HeightList() = 400
	.MinWidthList = 100
	.AllowSizeGrip = .T.
	.Columns.Add("Column")
	with .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
endwith
329. How do I specify the minimum height of the drop down window
with thisform.ComboBox1
	.MinHeightList = 100
	.AllowSizeGrip = .T.
	.Columns.Add("Column")
	with .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
endwith
328. How do I specify the width of the drop down window
with thisform.ComboBox1
	.Object.WidthList() = 100
	.AllowSizeGrip = .T.
	.Columns.Add("Column")
	with .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
endwith
327. How do I specify the minimum width of the drop down window
with thisform.ComboBox1
	.MinWidthList = 100
	.AllowSizeGrip = .T.
	.Columns.Add("Column")
	with .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
endwith
326. I have multiple columns, how can I display a single edit in the control's label
with thisform.ComboBox1
	.SingleEdit = .T.
	.Columns.Add("Column 1")
	.Columns.Add("Column 2")
	with .Items
		.DefaultItem = .AddItem("Item 1")
		.CellCaption(0,1) = "SubItem 1"
		.DefaultItem = .AddItem("Item 2")
		.CellCaption(0,1) = "SubItem 2"
		.DefaultItem = .AddItem("Item 3")
		.CellCaption(0,1) = "SubItem 3"
	endwith
endwith
325. How do I turn off the auto complete feature
with thisform.ComboBox1
	.AutoComplete = .F.
	.Columns.Add("Column")
	with .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
endwith
324. The control supports three styles: Simple, DropDown and DropDownList. How can I change the style
with thisform.ComboBox1
	.Style = 2
endwith
323. Is there any option to align the header to the left and the data to the right
with thisform.ComboBox1
	.Columns.Add("Left").Alignment = 0
	with .Columns.Add("Right")
		.Alignment = 2
		.HeaderAlignment = 2
		.EditAlignment = 2
	endwith
	with .Items
		.DefaultItem = .AddItem("left")
		.CellCaption(0,1) = "right"
	endwith
endwith
322. How do I change the control's border, using your EBN files
with thisform.ComboBox1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Appearance = 16777216
endwith
321. Can I change the default border of the tooltip, using your EBN files
with thisform.ComboBox1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Object.Background(64) = 0x1000000
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
endwith
320. Can I change the background color for the tooltip
with thisform.ComboBox1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Object.Background(65) = RGB(255,0,0)
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
endwith
319. Does the tooltip support HTML format
with thisform.ComboBox1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	var_s = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>column</fgco"
	var_s = var_s + "lor>"
	.Columns.Add("tootip").ToolTip = var_s
endwith
318. Can I change the forecolor for the tooltip
with thisform.ComboBox1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Object.Background(66) = RGB(255,0,0)
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
endwith
317. Can I change the foreground color for the tooltip
with thisform.ComboBox1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Columns.Add("tootip").ToolTip = "<fgcolor=FF0000>this is a tooltip assigned to a column</fgcolor>"
endwith
316. How can I merge cells
with thisform.ComboBox1
	.DrawGridLines = -1
	.MarkSearchColumn = .F.
	.Columns.Add("C1")
	.Columns.Add("C2")
	.Columns.Add("C3")
	with .Items
		h = .AddItem("this cell merges the first two columns")
		.DefaultItem = h
		.CellMerge(0,0) = 1
		h = .AddItem()
		.DefaultItem = h
		.CellCaption(0,1) = "this cell merges the last two columns"
		.DefaultItem = h
		.CellMerge(0,1) = 2
		h = .AddItem("this cell merges the all three columns")
		.DefaultItem = h
		.CellMerge(0,0) = 1
		.DefaultItem = h
		.CellMerge(0,0) = 2
		h = .AddItem("this draws a divider item")
		.DefaultItem = h
		.ItemDivider(0) = 0
	endwith
endwith
315. How can I merge cells
with thisform.ComboBox1
	.MarkSearchColumn = .F.
	.TreeColumnIndex = -1
	.Columns.Add("C1")
	.Columns.Add("C2")
	with .Items
		h = .AddItem("Cell 1")
		.DefaultItem = h
		var_s = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple"
		var_s = var_s + " lines."
		.CellCaption(0,1) = var_s
		.DefaultItem = h
		.CellSingleLine(0,1) = .F.
		h = .AddItem("This is bit of text merges all cells in the item")
		.DefaultItem = h
		.ItemDivider(0) = 0
		.DefaultItem = h
		.CellHAlignment(0,0) = 1
	endwith
endwith
314. How can I change the color for separator / dividers items
with thisform.ComboBox1
	.MarkSearchColumn = .F.
	.TreeColumnIndex = -1
	.ScrollBySingleLine = .F.
	.Columns.Add("C1")
	.Columns.Add("C2")
	with .Items
		h = .AddItem("Cell 1")
		.DefaultItem = h
		var_s = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple"
		var_s = var_s + " lines."
		.CellCaption(0,1) = var_s
		.DefaultItem = h
		.CellSingleLine(0,1) = .F.
		h = .AddItem()
		.DefaultItem = h
		.ItemDivider(0) = 0
		.DefaultItem = h
		.ItemDividerLine(0) = 4
		.DefaultItem = h
		.ItemDividerLineAlignment(0) = 1
		.DefaultItem = h
		.ItemHeight(0) = 6
		.DefaultItem = h
		.SelectableItem(0) = .F.
		h = .AddItem("Cell 2")
		.DefaultItem = h
		var_s1 = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple"
		var_s1 = var_s1 + " lines."
		.CellCaption(0,1) = var_s1
		.DefaultItem = h
		.CellSingleLine(0,1) = .F.
	endwith
endwith
313. How can I add separator - dividers items
with thisform.ComboBox1
	.MarkSearchColumn = .F.
	.TreeColumnIndex = -1
	.ScrollBySingleLine = .F.
	.Columns.Add("C1")
	.Columns.Add("C2")
	with .Items
		h = .AddItem("Cell 1")
		.DefaultItem = h
		var_s = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple"
		var_s = var_s + " lines."
		.CellCaption(0,1) = var_s
		.DefaultItem = h
		.CellSingleLine(0,1) = .F.
		h = .AddItem()
		.DefaultItem = h
		.ItemDivider(0) = 0
		.DefaultItem = h
		.ItemDividerLine(0) = 4
		.DefaultItem = h
		.ItemDividerLineAlignment(0) = 1
		.DefaultItem = h
		.ItemHeight(0) = 6
		.DefaultItem = h
		.SelectableItem(0) = .F.
		h = .AddItem("Cell 2")
		.DefaultItem = h
		var_s1 = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple"
		var_s1 = var_s1 + " lines."
		.CellCaption(0,1) = var_s1
		.DefaultItem = h
		.CellSingleLine(0,1) = .F.
	endwith
endwith
312. Can I change the style of the line being displayed by a divider item
with thisform.ComboBox1
	.MarkSearchColumn = .F.
	.TreeColumnIndex = -1
	.ScrollBySingleLine = .F.
	.Columns.Add("C1")
	.Columns.Add("C2")
	with .Items
		h = .AddItem("Cell 1")
		.DefaultItem = h
		var_s = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple"
		var_s = var_s + " lines."
		.CellCaption(0,1) = var_s
		.DefaultItem = h
		.CellSingleLine(0,1) = .F.
		h = .AddItem("This is bit of text that's displayed on the entire item, divider.")
		.DefaultItem = h
		.ItemDivider(0) = 0
		.DefaultItem = h
		.ItemDividerLine(0) = 4
		.DefaultItem = h
		.CellHAlignment(0,0) = 1
		.DefaultItem = h
		.ItemHeight(0) = 24
	endwith
endwith
311. Can I remove the line being displayed by a divider item
with thisform.ComboBox1
	.MarkSearchColumn = .F.
	.TreeColumnIndex = -1
	.Columns.Add("C1")
	.Columns.Add("C2")
	with .Items
		h = .AddItem("Cell 1")
		.DefaultItem = h
		var_s = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple"
		var_s = var_s + " lines."
		.CellCaption(0,1) = var_s
		.DefaultItem = h
		.CellSingleLine(0,1) = .F.
		h = .AddItem("This is bit of text that's displayed on the entire item, divider.")
		.DefaultItem = h
		.ItemDivider(0) = 0
		.DefaultItem = h
		.ItemDividerLine(0) = 0
		.DefaultItem = h
		.CellHAlignment(0,0) = 1
	endwith
endwith
310. How can I display a divider item, merging all cells
with thisform.ComboBox1
	.MarkSearchColumn = .F.
	.TreeColumnIndex = -1
	.Columns.Add("C1")
	.Columns.Add("C2")
	with .Items
		h = .AddItem("Cell 1")
		.DefaultItem = h
		var_s = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple"
		var_s = var_s + " lines."
		.CellCaption(0,1) = var_s
		.DefaultItem = h
		.CellSingleLine(0,1) = .F.
		h = .AddItem("This is bit of text that's displayed on the entire item, divider.")
		.DefaultItem = h
		.ItemDivider(0) = 0
		.DefaultItem = h
		.CellHAlignment(0,0) = 1
	endwith
endwith
309. How can I fix or lock items
with thisform.ComboBox1
	.Columns.Add("Default")
	with .Items
		.LockedItemCount(0) = 1
		.DefaultItem = .LockedItem(0,0)
		.CellCaption(0,0) = "This is a locked item, fixed to the top side of the control."
		.DefaultItem = .LockedItem(0,0)
		.ItemBackColor(0) = RGB(196,196,186)
		.LockedItemCount(2) = 2
		.DefaultItem = .LockedItem(2,0)
		.CellCaption(0,0) = "This is a locked item, fixed to the top side of the control."
		.DefaultItem = .LockedItem(2,0)
		.ItemBackColor(0) = RGB(196,196,186)
		.DefaultItem = .LockedItem(2,1)
		.CellCaption(0,0) = "This is a locked item, fixed to the top side of the control."
		.DefaultItem = .LockedItem(2,1)
		.ItemBackColor(0) = RGB(186,186,186)
	endwith
endwith
308. How can I fix or lock an item on the bottom side of the control
with thisform.ComboBox1
	.Columns.Add("Default")
	with .Items
		.LockedItemCount(2) = 1
		.DefaultItem = .LockedItem(2,0)
		.CellCaption(0,0) = "This is a locked item, fixed to the bottom side of the control."
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith
307. How can I fix or lock an item on the top of the control
with thisform.ComboBox1
	.Columns.Add("Default")
	with .Items
		.LockedItemCount(0) = 1
		.DefaultItem = .LockedItem(0,0)
		.CellCaption(0,0) = "This is a locked item, fixed to the top side of the control."
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith
306. Is there any function to limit the height of the items when I display it using multiple lines
with thisform.ComboBox1
	.ScrollBySingleLine = .T.
	.Columns.Add("C1")
	.Columns.Add("C2")
	with .Items
		h = .AddItem("Cell 1")
		.DefaultItem = h
		var_s = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple"
		var_s = var_s + " lines."
		.CellCaption(0,1) = var_s
		.DefaultItem = h
		.CellSingleLine(0,1) = .F.
		.DefaultItem = h
		.ItemMaxHeight(0) = 48
	endwith
endwith
305. Why I cannot center my cells in the column
with thisform.ComboBox1
	.TreeColumnIndex = -1
	.DrawGridLines = -2
	.Columns.Add("Default").Alignment = 1
	.Items.AddItem("item 1")
	.Items.AddItem("item 2")
	.Items.AddItem("item 3")
endwith
304. How can I align the cell to the left, center or to the right
with thisform.ComboBox1
	.TreeColumnIndex = -1
	.DrawGridLines = -2
	.Columns.Add("Default")
	with .Items
		.DefaultItem = .AddItem("left")
		.CellHAlignment(0,0) = 0
		.DefaultItem = .AddItem("center")
		.CellHAlignment(0,0) = 1
		.DefaultItem = .AddItem("right")
		.CellHAlignment(0,0) = 2
	endwith
endwith
303. How do I apply HTML format to a cell
with thisform.ComboBox1
	.TreeColumnIndex = -1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Object.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("p2") = "c:\exontrol\images\auction.gif"
	.Columns.Add("Default")
	with .Items
		h = .AddItem("The following item shows some of the HTML format supported:")
		.DefaultItem = h
		.CellHAlignment(0,0) = 1
		var_s1 = "<br>text icons <img>1</img>, <img>2</img>, ... pictures <img>p1</img>, <img>p2</img> <br><br>tex"
		var_s1 = var_s1 + "t <b>bold</b>, <i>italic</i>, <u>underline</u>, <s>strikeout</s>, ...<br><dotline>and so on...<b"
		var_s1 = var_s1 + "r> <a>anchor</a> or <a2>hyperlink</a><br><fgcolor=FF0000>fgcolor</fgcolor> or <bgcolor=00FF00>bg"
		var_s1 = var_s1 + "color</bgcolor> "
		h = .AddItem(var_s1)
		.DefaultItem = h
		.CellCaptionFormat(0,0) = 1
		.DefaultItem = h
		.CellSingleLine(0,0) = .F.
	endwith
endwith
302. How can I change the font for a cell
with thisform.ComboBox1
	.Columns.Add("Default")
	.Items.AddItem("std font")
	with .Items
		.DefaultItem = .AddItem("this <font tahoma;12>is a bit of text with</font> a different font")
		.