529:
FilterBarCaption ALL Keyword ( sample 2, result )

' Occurs after a new item has been inserted to Items collection.
function InsertItem as v (Item  as  OLE::Exontrol.ComboBox.1::HITEM)
	Dim i as 
	Dim var_Items as local
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
	' oComboBox.Items.CellImage(Item,3) = i
	var_Items = oComboBox.Items
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellImage(Item,3) = i"

end function

Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Column4 as P
Dim var_Column5 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = .t.
	var_Column.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = .t.
	var_Column1.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column2 = oComboBox.Columns.Add("Check")
	' var_Column2.Def(0) = .t.
	oComboBox.TemplateDef = "dim var_Column2"
	oComboBox.TemplateDef = var_Column2
	oComboBox.Template = "var_Column2.Def(0) = True"

	var_Column2.DisplayFilterButton = .t.
	var_Column2.DisplayFilterPattern = .f.
	var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
	var_Column3.DisplayFilterButton = .t.
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 'exShowExclude + exShowFocusItem + exShowCheckBox
var_Column4 = oComboBox.Columns.Add("Pos")
	var_Column4.AllowSizing = .f.
	var_Column4.AllowSort = .f.
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oComboBox.Items
	' var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item A`),1) = `Sub-Item A`"

	h = var_Items.AddItem("Item B")
	' var_Items.CellCaption(h,1) = "Sub-Item B"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaption(h,1) = `Sub-Item B`"

	' var_Items.CellState(h,2) = 1
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellState(h,2) = 1"

	' var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item C`),1) = `Sub-Item C`"

oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Template = "Description(11) = FormatABC(```<fgcolor=808080> `` + value + `` </fgcolor>```,Description(11))" // oComboBox.Description(11) = oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11))
oComboBox.FilterBarCaption = "(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oComboBox.FilterBarPromptVisible = 3 'exFilterBarVisible + exFilterBarPromptVisible
var_Column5 = oComboBox.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = 1
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

528:
FilterBarCaption ALL Keyword ( sample 1 )

' Occurs after a new item has been inserted to Items collection.
function InsertItem as v (Item  as  OLE::Exontrol.ComboBox.1::HITEM)
	Dim i as 
	Dim var_Items as local
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
	' oComboBox.Items.CellImage(Item,3) = i
	var_Items = oComboBox.Items
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellImage(Item,3) = i"

end function

Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Column4 as P
Dim var_Column5 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = .t.
	var_Column.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = .t.
	var_Column1.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column2 = oComboBox.Columns.Add("Check")
	' var_Column2.Def(0) = .t.
	oComboBox.TemplateDef = "dim var_Column2"
	oComboBox.TemplateDef = var_Column2
	oComboBox.Template = "var_Column2.Def(0) = True"

	var_Column2.DisplayFilterButton = .t.
	var_Column2.DisplayFilterPattern = .f.
	var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
	var_Column3.DisplayFilterButton = .t.
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 'exShowExclude + exShowFocusItem + exShowCheckBox
var_Column4 = oComboBox.Columns.Add("Pos")
	var_Column4.AllowSizing = .f.
	var_Column4.AllowSort = .f.
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oComboBox.Items
	' var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item A`),1) = `Sub-Item A`"

	h = var_Items.AddItem("Item B")
	' var_Items.CellCaption(h,1) = "Sub-Item B"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaption(h,1) = `Sub-Item B`"

	' var_Items.CellState(h,2) = 1
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellState(h,2) = 1"

	' var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item C`),1) = `Sub-Item C`"

oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Template = "Description(11) = FormatABC(```<fgcolor=808080> `` + value + `` </fgcolor>```,Description(11))" // oComboBox.Description(11) = oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11))
oComboBox.FilterBarCaption = "all"
oComboBox.FilterBarPromptVisible = 3 'exFilterBarVisible + exFilterBarPromptVisible
var_Column5 = oComboBox.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = 1
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

527:
FilterBarCaption ALLUI Keyword ( sample 2, result )

' Occurs after a new item has been inserted to Items collection.
function InsertItem as v (Item  as  OLE::Exontrol.ComboBox.1::HITEM)
	Dim i as 
	Dim var_Items as local
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
	' oComboBox.Items.CellImage(Item,3) = i
	var_Items = oComboBox.Items
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellImage(Item,3) = i"

end function

Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Column4 as P
Dim var_Column5 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = .t.
	var_Column.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = .t.
	var_Column1.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column2 = oComboBox.Columns.Add("Check")
	' var_Column2.Def(0) = .t.
	oComboBox.TemplateDef = "dim var_Column2"
	oComboBox.TemplateDef = var_Column2
	oComboBox.Template = "var_Column2.Def(0) = True"

	var_Column2.DisplayFilterButton = .t.
	var_Column2.DisplayFilterPattern = .f.
	var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
	var_Column3.DisplayFilterButton = .t.
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 'exShowExclude + exShowFocusItem + exShowCheckBox
var_Column4 = oComboBox.Columns.Add("Pos")
	var_Column4.AllowSizing = .f.
	var_Column4.AllowSort = .f.
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oComboBox.Items
	' var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item A`),1) = `Sub-Item A`"

	h = var_Items.AddItem("Item B")
	' var_Items.CellCaption(h,1) = "Sub-Item B"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaption(h,1) = `Sub-Item B`"

	' var_Items.CellState(h,2) = 1
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellState(h,2) = 1"

	' var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item C`),1) = `Sub-Item C`"

oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Template = "Description(11) = FormatABC(```<fgcolor=808080> `` + value + `` </fgcolor>```,Description(11))" // oComboBox.Description(11) = oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11))
oComboBox.FilterBarCaption = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oComboBox.FilterBarPromptVisible = 3 'exFilterBarVisible + exFilterBarPromptVisible
var_Column5 = oComboBox.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = 1
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

526:
FilterBarCaption ALLUI Keyword ( sample 1 )

' Occurs after a new item has been inserted to Items collection.
function InsertItem as v (Item  as  OLE::Exontrol.ComboBox.1::HITEM)
	Dim i as 
	Dim var_Items as local
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
	' oComboBox.Items.CellImage(Item,3) = i
	var_Items = oComboBox.Items
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellImage(Item,3) = i"

end function

Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Column4 as P
Dim var_Column5 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = .t.
	var_Column.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = .t.
	var_Column1.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column2 = oComboBox.Columns.Add("Check")
	' var_Column2.Def(0) = .t.
	oComboBox.TemplateDef = "dim var_Column2"
	oComboBox.TemplateDef = var_Column2
	oComboBox.Template = "var_Column2.Def(0) = True"

	var_Column2.DisplayFilterButton = .t.
	var_Column2.DisplayFilterPattern = .f.
	var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
	var_Column3.DisplayFilterButton = .t.
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 'exShowExclude + exShowFocusItem + exShowCheckBox
var_Column4 = oComboBox.Columns.Add("Pos")
	var_Column4.AllowSizing = .f.
	var_Column4.AllowSort = .f.
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oComboBox.Items
	' var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item A`),1) = `Sub-Item A`"

	h = var_Items.AddItem("Item B")
	' var_Items.CellCaption(h,1) = "Sub-Item B"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaption(h,1) = `Sub-Item B`"

	' var_Items.CellState(h,2) = 1
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellState(h,2) = 1"

	' var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item C`),1) = `Sub-Item C`"

oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Template = "Description(11) = FormatABC(```<fgcolor=808080> `` + value + `` </fgcolor>```,Description(11))" // oComboBox.Description(11) = oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11))
oComboBox.FilterBarCaption = "allui"
oComboBox.FilterBarPromptVisible = 3 'exFilterBarVisible + exFilterBarPromptVisible
var_Column5 = oComboBox.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = 1
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

525:
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

' Occurs after a new item has been inserted to Items collection.
function InsertItem as v (Item  as  OLE::Exontrol.ComboBox.1::HITEM)
	Dim i as 
	Dim var_Items as local
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
	' oComboBox.Items.CellImage(Item,3) = i
	var_Items = oComboBox.Items
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellImage(Item,3) = i"

end function

Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Column4 as P
Dim var_Column5 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = .t.
	var_Column.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = .t.
	var_Column1.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column2 = oComboBox.Columns.Add("Check")
	' var_Column2.Def(0) = .t.
	oComboBox.TemplateDef = "dim var_Column2"
	oComboBox.TemplateDef = var_Column2
	oComboBox.Template = "var_Column2.Def(0) = True"

	var_Column2.DisplayFilterButton = .t.
	var_Column2.DisplayFilterPattern = .f.
	var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
	var_Column3.DisplayFilterButton = .t.
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 'exShowExclude + exShowFocusItem + exShowCheckBox
var_Column4 = oComboBox.Columns.Add("Pos")
	var_Column4.AllowSizing = .f.
	var_Column4.AllowSort = .f.
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oComboBox.Items
	' var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item A`),1) = `Sub-Item A`"

	h = var_Items.AddItem("Item B")
	' var_Items.CellCaption(h,1) = "Sub-Item B"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaption(h,1) = `Sub-Item B`"

	' var_Items.CellState(h,2) = 1
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellState(h,2) = 1"

	' var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item C`),1) = `Sub-Item C`"

oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Template = "Description(11) = FormatABC(```<fgcolor=808080> `` + value + `` </fgcolor>```,Description(11))" // oComboBox.Description(11) = oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11))
oComboBox.FilterBarCaption = "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( available replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oComboBox.FilterBarPromptVisible = 3 'exFilterBarVisible + exFilterBarPromptVisible
var_Column5 = oComboBox.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = 1
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

524:
FilterBarCaption AVAILABLE Keyword ( sample 1 )

' Occurs after a new item has been inserted to Items collection.
function InsertItem as v (Item  as  OLE::Exontrol.ComboBox.1::HITEM)
	Dim i as 
	Dim var_Items as local
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
	' oComboBox.Items.CellImage(Item,3) = i
	var_Items = oComboBox.Items
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellImage(Item,3) = i"

end function

Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Column4 as P
Dim var_Column5 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = .t.
	var_Column.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = .t.
	var_Column1.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column2 = oComboBox.Columns.Add("Check")
	' var_Column2.Def(0) = .t.
	oComboBox.TemplateDef = "dim var_Column2"
	oComboBox.TemplateDef = var_Column2
	oComboBox.Template = "var_Column2.Def(0) = True"

	var_Column2.DisplayFilterButton = .t.
	var_Column2.DisplayFilterPattern = .f.
	var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
	var_Column3.DisplayFilterButton = .t.
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 'exShowExclude + exShowFocusItem + exShowCheckBox
var_Column4 = oComboBox.Columns.Add("Pos")
	var_Column4.AllowSizing = .f.
	var_Column4.AllowSort = .f.
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oComboBox.Items
	' var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item A`),1) = `Sub-Item A`"

	h = var_Items.AddItem("Item B")
	' var_Items.CellCaption(h,1) = "Sub-Item B"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaption(h,1) = `Sub-Item B`"

	' var_Items.CellState(h,2) = 1
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellState(h,2) = 1"

	' var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item C`),1) = `Sub-Item C`"

oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Template = "Description(11) = FormatABC(```<fgcolor=808080> `` + value + `` </fgcolor>```,Description(11))" // oComboBox.Description(11) = oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11))
oComboBox.FilterBarCaption = "value + ` ` + available"
oComboBox.FilterBarPromptVisible = 3 'exFilterBarVisible + exFilterBarPromptVisible
var_Column5 = oComboBox.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = 1
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

523:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 3, results )

Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Column4 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = .t.
	var_Column.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = .t.
	var_Column1.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column2 = oComboBox.Columns.Add("Pos")
	var_Column2.AllowSizing = .f.
	var_Column2.AllowSort = .f.
	var_Column2.Width = 32
	var_Column2.FormatColumn = "1 apos ``"
	var_Column2.Position = 0
var_Items = oComboBox.Items
	' var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item A`),1) = `Sub-Item A`"

	' var_Items.CellCaption(var_Items.AddItem("Item B"),1) = "Sub-Item B"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item B`),1) = `Sub-Item B`"

	' var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item C`),1) = `Sub-Item C`"

oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Template = "Description(11) = FormatABC(```<fgcolor=808080>`` + value + ``</fgcolor>```,Description(11))" // oComboBox.Description(11) = oComboBox.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oComboBox.Description(11))
oComboBox.FilterBarCaption = "(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
oComboBox.FilterBarPromptVisible = 256
var_Column3 = oComboBox.Columns.Item(0)
	var_Column3.FilterType = 240
	var_Column3.Filter = "Item A|Item B"
var_Column4 = oComboBox.Columns.Item(1)
	var_Column4.FilterType = 3
	var_Column4.Filter = "*B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

522:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )

Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Column4 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = .t.
	var_Column.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = .t.
	var_Column1.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column2 = oComboBox.Columns.Add("Pos")
	var_Column2.AllowSizing = .f.
	var_Column2.AllowSort = .f.
	var_Column2.Width = 32
	var_Column2.FormatColumn = "1 apos ``"
	var_Column2.Position = 0
var_Items = oComboBox.Items
	' var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item A`),1) = `Sub-Item A`"

	' var_Items.CellCaption(var_Items.AddItem("Item B"),1) = "Sub-Item B"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item B`),1) = `Sub-Item B`"

	' var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item C`),1) = `Sub-Item C`"

oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Template = "Description(11) = FormatABC(```<fgcolor=808080>`` + value + ``</fgcolor>```,Description(11))" // oComboBox.Description(11) = oComboBox.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oComboBox.Description(11))
oComboBox.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
oComboBox.FilterBarPromptVisible = 256
var_Column3 = oComboBox.Columns.Item(0)
	var_Column3.FilterType = 240
	var_Column3.Filter = "Item A|Item B"
var_Column4 = oComboBox.Columns.Item(1)
	var_Column4.FilterType = 3
	var_Column4.Filter = "*B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

521:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )

Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Column4 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = .t.
	var_Column.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = .t.
	var_Column1.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column2 = oComboBox.Columns.Add("Pos")
	var_Column2.AllowSizing = .f.
	var_Column2.AllowSort = .f.
	var_Column2.Width = 32
	var_Column2.FormatColumn = "1 apos ``"
	var_Column2.Position = 0
var_Items = oComboBox.Items
	' var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item A`),1) = `Sub-Item A`"

	' var_Items.CellCaption(var_Items.AddItem("Item B"),1) = "Sub-Item B"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item B`),1) = `Sub-Item B`"

	' var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item C`),1) = `Sub-Item C`"

oComboBox.Template = "Description(11) = FormatABC(```<fgcolor=808080>`` + value + ``</fgcolor>```,Description(11))" // oComboBox.Description(11) = oComboBox.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oComboBox.Description(11))
oComboBox.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
oComboBox.FilterBarPromptVisible = 256
var_Column3 = oComboBox.Columns.Item(0)
	var_Column3.FilterType = 240
	var_Column3.Filter = "Item A|Item B"
var_Column4 = oComboBox.Columns.Item(1)
	var_Column4.FilterType = 3
	var_Column4.Filter = "*B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

520:
Is it possible to automatically displays the control's filter label to the right

Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Column = oComboBox.Columns.Add("Item")
	var_Column.DisplayFilterButton = .t.
	var_Column.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = .f.
	var_Column1.AllowSort = .f.
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarCaption = "`<r>` + value"
oComboBox.FilterBarPromptVisible = 1280 'exFilterBarShowCloseOnRight + exFilterBarToggle
var_Column2 = oComboBox.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

519:
How can I get the number of results/items being shown in the control's filter bar (sample 4)

Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Column = oComboBox.Columns.Add("Item")
	var_Column.DisplayFilterButton = .t.
	var_Column.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = .f.
	var_Column1.AllowSort = .f.
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.FilterBarPrompt = oComboBox.FormatABC("`<b>` + value",oComboBox.FilterBarPrompt)
oComboBox.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
oComboBox.FilterBarPromptVisible = 3591 'exFilterBarCompact + exFilterBarShowCloseOnRight + exFilterBarShowCloseIfRequired + exFilterBarCaptionVisible + exFilterBarVisible + exFilterBarPromptVisible
oComboBox.EndUpdate()

518:
How can I get the number of results being shown in the control's filter bar (sample 3)

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"

var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = .f.
	var_Column1.AllowSort = .f.
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : ``)"
oComboBox.FilterBarPromptVisible = 2055 'exFilterBarCompact + exFilterBarCaptionVisible + exFilterBarVisible + exFilterBarPromptVisible
var_Column2 = oComboBox.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item A|Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

517:
How can I get the number of results being shown in the control's filter bar (sample 2, compact)

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"

var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = .f.
	var_Column1.AllowSort = .f.
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)"
oComboBox.FilterBarPromptVisible = 2071 'exFilterBarCompact + exFilterBarSingleLine + exFilterBarCaptionVisible + exFilterBarVisible + exFilterBarPromptVisible
var_Column2 = oComboBox.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item A|Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

516:
How can I get the number of results being shown in the control's filter bar (sample 1)

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"

var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = .f.
	var_Column1.AllowSort = .f.
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
oComboBox.FilterBarPromptVisible = 7 'exFilterBarCaptionVisible + exFilterBarVisible + exFilterBarPromptVisible
var_Column2 = oComboBox.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item A|Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

515:
FilterBarCaption Predefined Keywords

' Fired after an item is expanded (collapsed).
function AfterExpandItem as v (Item  as  OLE::Exontrol.ComboBox.1::HITEM)
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	oComboBox.Refresh()
end function

Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"

var_Column1 = oComboBox.Columns.Add("Check")
	' var_Column1.Def(0) = .t.
	oComboBox.TemplateDef = "dim var_Column1"
	oComboBox.TemplateDef = var_Column1
	oComboBox.Template = "var_Column1.Def(0) = True"

	var_Column1.DisplayFilterButton = .t.
	var_Column1.DisplayFilterPattern = .f.
	var_Column1.FilterType = 6
var_Column2 = oComboBox.Columns.Add("Pos")
	var_Column2.AllowSizing = .f.
	var_Column2.AllowSort = .f.
	var_Column2.Width = 32
	var_Column2.FormatColumn = "1 apos ``"
	var_Column2.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	h = var_Items.AddItem("Item B")
	' var_Items.CellState(var_Items.InsertItem(h,,"Sub-Item B1"),1) = 1
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellState(InsertItem(h,,`Sub-Item B1`),1) = 1"

	var_Items.InsertItem(h,,"Sub-Item B2")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

	var_Items.AddItem("Item C")
oComboBox.FilterInclude = 1
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.FilterBarCaption = "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>: ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=808080>` + promptpattern + `</fgcolor>`"
oComboBox.FilterBarPromptPattern = "B"
oComboBox.FilterBarPromptVisible = 7 'exFilterBarCaptionVisible + exFilterBarVisible + exFilterBarPromptVisible
var_Column3 = oComboBox.Columns.Item(0)
	var_Column3.FilterType = 240
	var_Column3.Filter = "Item A|Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

514:
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"

var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = .f.
	var_Column1.AllowSort = .f.
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
oComboBox.FilterBarPromptPattern = "B"
oComboBox.FilterBarPromptVisible = 2067 'exFilterBarCompact + exFilterBarSingleLine + exFilterBarVisible + exFilterBarPromptVisible
var_Column2 = oComboBox.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item A|Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

513:
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"

var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = .f.
	var_Column1.AllowSort = .f.
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 1281 'exFilterBarShowCloseOnRight + exFilterBarToggle + exFilterBarPromptVisible
oComboBox.FilterBarPrompt = oComboBox.FormatABC("`<r>` + value",oComboBox.FilterBarPrompt)
oComboBox.EndUpdate()

512:
Just wondering if it is possible to show the filter bar's close button on the right ( sample 1 )

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.RightToLeft = .t.
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"

var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = .f.
	var_Column1.AllowSort = .f.
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 257 'exFilterBarToggle + exFilterBarPromptVisible
oComboBox.EndUpdate()

511:
How can I change the visual appearance of the filter bar's close button (EBN)

Dim oComboBox as P
Dim var_Appearance as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Appearance = oComboBox.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJjyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmSZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OROicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXAiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaKJDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEAkjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSMRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ")
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"

var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = .f.
	var_Column1.AllowSort = .f.
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 257 'exFilterBarToggle + exFilterBarPromptVisible
oComboBox.Template = "Background(1) = 16777216" // oComboBox.Background(1) = 16777216
oComboBox.EndUpdate()

510:
How can I change the visual appearance of the filter bar's close button (solid)

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"

var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = .f.
	var_Column1.AllowSort = .f.
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 1
oComboBox.Template = "Background(1) = 255" // oComboBox.Background(1) = 255
oComboBox.EndUpdate()

509:
Is it possible to prevent definitely showing the filter bar's close button

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"

var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = .f.
	var_Column1.AllowSort = .f.
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 1
oComboBox.Template = "Background(1) = -1" // oComboBox.Background(1) = -1
oComboBox.EndUpdate()

508:
Is it possible to show the close button only if there is a filter applied

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"

var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = .f.
	var_Column1.AllowSort = .f.
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 513 'exFilterBarShowCloseIfRequired + exFilterBarPromptVisible
oComboBox.EndUpdate()

507:
The control's filter bar is not closed once I click the close button (toggle)

Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"

var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = .f.
	var_Column1.AllowSort = .f.
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
	' var_Items.LockedItemCount(2) = 1
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.LockedItemCount(2) = 1"

	h = var_Items.LockedItem(2,0)
	' var_Items.ItemDivider(h) = 0
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ItemDivider(h) = 0"

	' var_Items.CellCaption(h,0) = "<c><fgcolor=808080>Press the CTRL + F to turn on/off the control's filter bar. ALT + Up/Down moves the focus."
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaption(h,0) = `<c><fgcolor=808080>Press the CTRL + F to turn on/off the control's filter bar. ALT + Up/Down moves the focus.`"

	' var_Items.CellCaptionFormat(h,0) = 1
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaptionFormat(h,0) = 1"

oComboBox.FilterBarCaption = "`<r><fgcolor=808080>` + value"
oComboBox.FilterBarPromptPattern = "B"
oComboBox.FilterBarPromptVisible = 2323 'exFilterBarCompact + exFilterBarToggle + exFilterBarSingleLine + exFilterBarVisible + exFilterBarPromptVisible
var_Column2 = oComboBox.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

506:
How can I display the control's filter on a single line

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"

var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = .f.
	var_Column1.AllowSort = .f.
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarCaption = "len(value) ? `filter for: <fgcolor 808080>` + value  : `<fgcolor 808080>no filter`"
oComboBox.FilterBarPromptVisible = 18 'exFilterBarSingleLine + exFilterBarVisible
var_Column2 = oComboBox.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item A|Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

505:
How can I display the control's filter on a single line (prompt-combined)

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"

var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = .f.
	var_Column1.AllowSort = .f.
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarCaption = "`<r>` + value"
oComboBox.FilterBarPromptVisible = 2067 'exFilterBarCompact + exFilterBarSingleLine + exFilterBarVisible + exFilterBarPromptVisible
var_Column2 = oComboBox.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item A|Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

504:
How can I get the number of results after a filter is applied

' Occurs when the user presses and then releases the left mouse button over the list control.
function Click as v ()
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	oComboBox.ClearFilter()
end function

' Occurs when filter was changed.
function FilterChange as v ()
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	? "Items.MatchItemCount" 
	? oComboBox.Items.MatchItemCount 
	? oComboBox.FormatABC("value < 0 ? `filter applied: ` + abs(value + 1) + ` result(s)` : `no filter`",oComboBox.Items.MatchItemCount) 
end function

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"

var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = .f.
	var_Column1.AllowSort = .f.
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 1
oComboBox.FilterBarPromptPattern = "Item"
oComboBox.EndUpdate()

503:
How can I programmatically clear the control's filter
' Occurs when the user presses and then releases the left mouse button over the list control.
function Click as v ()
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	oComboBox.ClearFilter()
end function

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"

var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = .f.
	var_Column1.AllowSort = .f.
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 1
oComboBox.FilterBarPromptPattern = "B"
oComboBox.EndUpdate()

502:
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"

var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = .f.
	var_Column1.AllowSort = .f.
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarPromptPattern = "B"
oComboBox.FilterBarPromptVisible = 3 'exFilterBarVisible + exFilterBarPromptVisible
var_Column2 = oComboBox.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

501:
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"

var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = .f.
	var_Column1.AllowSort = .f.
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 1
oComboBox.FilterBarPromptPattern = "B"
oComboBox.EndUpdate()

500:
Is it possible to prevent closing the control's filter bar, so it is always shown

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"

var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = .f.
	var_Column1.AllowSort = .f.
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarCaption = "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
oComboBox.FilterBarPromptVisible = 2
var_Column2 = oComboBox.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

499:
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 3)

Dim h as N
Dim oComboBox as P
Dim var_Appearance as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Appearance = oComboBox.VisualAppearance
	var_Appearance.Add(3,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgXIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRgwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMINCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=")
	var_Appearance.Add(1,"CP:3 -2 -2 2 2")
	var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEeBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOFSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=")
	var_Appearance.Add(2,"CP:4 -2 -2 2 2")
oComboBox.LinesAtRoot = 1
oComboBox.HasButtons = 4
oComboBox.Template = "HasButtonsCustom(0) = 16777216" // oComboBox.HasButtonsCustom(.f.) = 16777216
oComboBox.Template = "HasButtonsCustom(1) = 33554432" // oComboBox.HasButtonsCustom(.t.) = 33554432
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child")
oComboBox.EndUpdate()

498:
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 2)

Dim h as N
Dim oComboBox as P
Dim var_Appearance as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Appearance = oComboBox.VisualAppearance
	var_Appearance.Add(1,"XP:TREEVIEW 2 1")
	var_Appearance.Add(2,"XP:TREEVIEW 2 2")
oComboBox.Template = "Background(180) = 16777216" // oComboBox.Background(180) = 16777216
oComboBox.Template = "Background(181) = 33554432" // oComboBox.Background(181) = 33554432
oComboBox.LinesAtRoot = -1
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child")
oComboBox.EndUpdate()

497:
How can I find if the control is running in DPI mode
Dim oComboBox as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
? oComboBox.FormatABC("dpi = 1 ? `normal/stretch mode` : `dpi mode`") 

496:
How can I change the visual appearance of the +/- buttons (method 1)

Dim h as N
Dim oComboBox as P
Dim var_Appearance as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Appearance = oComboBox.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgXIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRgwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMINCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=")
	var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEeBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOFSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=")
oComboBox.LinesAtRoot = -1
oComboBox.Template = "Background(180) = 16777216" // oComboBox.Background(180) = 16777216
oComboBox.Template = "Background(181) = 33554432" // oComboBox.Background(181) = 33554432
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child")
oComboBox.EndUpdate()

495:
Is there a way to change the dropdown button arrow to something else ( ebn, sample 3 )

Dim h as N
Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVIUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBeEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIBICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokGKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhuZwJkYcoagiZ5+HQFRngmZh6h6Z5JnYfodCaCgGBcOpfBQBCAgA==")
oComboBox.Template = "Background(4) = 16777216" // oComboBox.Background(4) = 16777216
oComboBox.Template = "Background(5) = 32567536" // oComboBox.Background(5) = 32567536
oComboBox.LinesAtRoot = -1
oComboBox.Style = 2
oComboBox.IntegralHeight = .t.
oComboBox.Columns.Add("P1")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

	' var_Items.SelectItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.SelectItem(h) = True"

oComboBox.EndUpdate()

494:
Is there a way to change the dropdown button arrow to something else ( ebn, sample 2 )

Dim h as N
Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABKgCg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVIUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBeEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/EeH5wiITwUkWMRsF4PYgEeaZ3gGYBoCWeICk6V5wnMf4FDCAAfAiYQgg4AYAmAWC7gIIYnm2fR/mEUYAF4GIFFEVBYgUYR4BCdoGmKSB6A+CAhDGBBfBiT4IlSdQ9A8WIWCeBJihgZgcg+YJoEIFYMiMSJWAaDZjhiGgogCIooG4QYMAIOQSDUPgilONhIg6JI4GIK4LiQKJGDOFJgGMbJbDcDg5hYR4OCWCJyEyAQiCGChDheZBoDIYg3AMIJEVYQ4AnoZQ4mYeQmDsCJGmGNBwDQTQDEaAQcCYCZKGOHRDHgVgVh4J4phoDISAaEYkGsNhNhMahVhyaJIFSDiuAIBIBCCaJ5mYe4VGGOhyHaBRInIPIRH2D5qkaIopCEOhCieBxjnqKoNgSapaj6OIsE+apOiWJBnkqYo6isKpqiGdIwCwKpWiaJIOlsHo8jIa4JFaTIomwOZuBeMgrmifpKgGbR6lAI4lEaM4ymYKIKCKEpfjqbI6kSHgnEmc5GnIOpfBQBCAg=")
oComboBox.Template = "Background(4) = 16777216" // oComboBox.Background(4) = 16777216
oComboBox.Template = "Background(5) = 25198720" // oComboBox.Background(5) = 25198720
oComboBox.LinesAtRoot = -1
oComboBox.Style = 2
oComboBox.IntegralHeight = .t.
oComboBox.Columns.Add("P1")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

	' var_Items.SelectItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.SelectItem(h) = True"

oComboBox.EndUpdate()

493:
Is there a way to change the dropdown button arrow to something else ( ebn, sample 1 )

Dim h as N
Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABFACg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVIUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBeEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5dlqIh/k8SAFnofxgDgFZ8gGH5ShYCgmiCQgeA6AghAgr5/EyWBUhCBZPngZIvgaSpoHYEYBCEOAMnWCJGgiFgZgmYoIDiBw1iKSB+C4fQHhiRJjgyYoIlYJwXmOA56DqC5iAONIhg+S45AYNoQmGExqEYIJkgicZ2gsDRhG4ToSAgMZqFIOolEiHJzhWSIJGYUAZiWSBsi+EofEkGhiDaCIphSPIZmIcp2GoI4mkmDhGD4JwJgIPQkmcQwqHaCZKgmZI0h6ZwonCFIfmYKIch6IJMhoFh9ggXxIgydQZmjTR5iORhKEaB4PGAOgUkmD5KBiHItiaSwKHaE4CPuBoMVieJMmMH4qgofoIDsRx6jSZorksapGGUIoqiidJHi2RYKmSHIumEchAh2L5rFeWhUDqAxbBQSIxkeCwkjGMpOAsNpBH0Do3kUASAg")
oComboBox.Template = "Background(4) = 16777216" // oComboBox.Background(4) = 16777216
oComboBox.Template = "Background(5) = 25198720" // oComboBox.Background(5) = 25198720
oComboBox.LinesAtRoot = -1
oComboBox.Style = 2
oComboBox.IntegralHeight = .t.
oComboBox.Columns.Add("P1")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

	' var_Items.SelectItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.SelectItem(h) = True"

oComboBox.EndUpdate()

492:
Is there a way to change the dropdown button arrow to something else ( theme, ebn )

Dim h as N
Dim oComboBox as P
Dim var_Appearance as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Appearance = oComboBox.VisualAppearance
	var_Appearance.Add(1,"XP:SCROLLBAR 1 6")
	var_Appearance.Add(2,"XP:SCROLLBAR 1 7")
oComboBox.Template = "Background(4) = 16777216" // oComboBox.Background(4) = 16777216
oComboBox.Template = "Background(5) = 33554432" // oComboBox.Background(5) = 33554432
oComboBox.LinesAtRoot = -1
oComboBox.Style = 2
oComboBox.IntegralHeight = .t.
oComboBox.Columns.Add("P1")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

	' var_Items.SelectItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.SelectItem(h) = True"

oComboBox.EndUpdate()

491:
Is there a way to change the dropdown button arrow to something else ( no visual theme )

Dim h as N
Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.UseVisualTheme = 1099 'exBorderVisualTheme + exCheckBoxVisualTheme + exCalendarVisualTheme + exFilterBarVisualTheme + exHeaderVisualTheme
oComboBox.LinesAtRoot = -1
oComboBox.Style = 2
oComboBox.IntegralHeight = .t.
oComboBox.Columns.Add("P1")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

	' var_Items.SelectItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.SelectItem(h) = True"

oComboBox.EndUpdate()

490:
Is there a way to change the dropdown button arrow to something else ( solid color )

Dim h as N
Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Template = "Background(5) = 12500670" // oComboBox.Background(5) = 12500670
oComboBox.Template = "Background(4) = 8421504" // oComboBox.Background(4) = 8421504
oComboBox.LinesAtRoot = -1
oComboBox.Style = 2
oComboBox.IntegralHeight = .t.
oComboBox.Columns.Add("P1")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

	' var_Items.SelectItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.SelectItem(h) = True"

oComboBox.EndUpdate()

489:
How can I find if there is any filter applied to the control

' Occurs when filter was changed.
function FilterChange as v ()
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	? "If negative, the filter is present, else not" 
	? oComboBox.Items.VisibleItemCount 
end function

Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
oComboBox.TreeColumnIndex = -1
oComboBox.FilterInclude = 4
var_Column = oComboBox.Columns.Add("Column")
	var_Column.DisplayFilterButton = .t.
	var_Column.FilterType = 240
	var_Column.Filter = "C1"
var_Items = oComboBox.Items
	h = var_Items.AddItem("R1")
	var_Items.InsertItem(h,,"C1")
	var_Items.InsertItem(h,,"C2")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("R2")
	var_Items.InsertItem(h,,"C1")
	var_Items.InsertItem(h,,"C2")
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

488:
How can I prevent showing the lines for the hierarchy while using the exMatchingItemsOnly option

Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
oComboBox.TreeColumnIndex = -1
oComboBox.FilterInclude = 4
var_Column = oComboBox.Columns.Add("Column")
	var_Column.DisplayFilterButton = .t.
	var_Column.FilterType = 240
	var_Column.Filter = "C1|C2"
var_Items = oComboBox.Items
	h = var_Items.AddItem("R1")
	var_Items.InsertItem(h,,"C1")
	var_Items.InsertItem(h,,"C2")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("R2")
	var_Items.InsertItem(h,,"C1")
	var_Items.InsertItem(h,,"C2")
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

487:
Is there any method to get only the matched items and not the items with his parent

Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
oComboBox.FilterInclude = 4
var_Column = oComboBox.Columns.Add("Column")
	var_Column.DisplayFilterButton = .t.
	var_Column.FilterType = 240
	var_Column.Filter = "C1|C2"
var_Items = oComboBox.Items
	h = var_Items.AddItem("R1")
	var_Items.InsertItem(h,,"C1")
	var_Items.InsertItem(h,,"C2")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("R2")
	var_Items.InsertItem(h,,"C1")
	var_Items.InsertItem(h,,"C2")
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

486:
How do I get sorted the column as string, numeric, date, date and time. Also how can it be applied to drop down filter panel

Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Column4 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Column = oComboBox.Columns.Add("Date")
	var_Column.SortType = 2
	var_Column.DisplayFilterButton = .t.
	var_Column.DisplayFilterPattern = .f.
	var_Column.DisplayFilterDate = .t.
	var_Column.FilterList = 1296 'exShowFocusItem + exShowCheckBox + exSortItemsDesc
var_Column1 = oComboBox.Columns.Add("DateTime")
	var_Column1.SortType = 3
	var_Column1.DisplayFilterButton = .t.
	var_Column1.DisplayFilterPattern = .f.
	var_Column1.FilterList = 1296 'exShowFocusItem + exShowCheckBox + exSortItemsDesc
var_Column2 = oComboBox.Columns.Add("Time")
	var_Column2.SortType = 4
	var_Column2.DisplayFilterButton = .t.
	var_Column2.DisplayFilterPattern = .f.
	var_Column2.FilterList = 1296 'exShowFocusItem + exShowCheckBox + exSortItemsDesc
	var_Column2.FormatColumn = "time(value)"
var_Column3 = oComboBox.Columns.Add("Numeric")
	var_Column3.SortType = 1
	var_Column3.DisplayFilterButton = .t.
	var_Column3.FilterList = 1296 'exShowFocusItem + exShowCheckBox + exSortItemsDesc
var_Column4 = oComboBox.Columns.Add("String")
	var_Column4.DisplayFilterButton = .t.
	var_Column4.FilterList = 1296 'exShowFocusItem + exShowCheckBox + exSortItemsDesc
var_Items = oComboBox.Items
	h = var_Items.AddItem({01/27/2010})
	' var_Items.CellCaption(h,1) = {01/27/2010 10:00:00}
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaption(h,1) = #1/27/2010 10:00:00 AM#"

	' var_Items.CellCaption(h,2) = var_Items.CellCaption(h,1)
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaption(h,2) = CellCaption(h,1)"

	' var_Items.CellCaption(h,3) = 1
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaption(h,3) = 1"

	' var_Items.CellCaption(h,4) = var_Items.CellCaption(h,3)
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaption(h,4) = CellCaption(h,3)"

	h = var_Items.AddItem({01/27/2011})
	' var_Items.CellCaption(h,1) = {01/27/2011 09:00:00}
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaption(h,1) = #1/27/2011 9:00:00 AM#"

	' var_Items.CellCaption(h,2) = var_Items.CellCaption(h,1)
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaption(h,2) = CellCaption(h,1)"

	' var_Items.CellCaption(h,3) = 11
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaption(h,3) = 11"

	' var_Items.CellCaption(h,4) = var_Items.CellCaption(h,3)
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaption(h,4) = CellCaption(h,3)"

	h = var_Items.AddItem({11/02/2010})
	' var_Items.CellCaption(h,1) = {11/02/2010 09:00:00}
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaption(h,1) = #11/2/2010 9:00:00 AM#"

	' var_Items.CellCaption(h,2) = var_Items.CellCaption(h,1)
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaption(h,2) = CellCaption(h,1)"

	' var_Items.CellCaption(h,3) = 2
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaption(h,3) = 2"

	' var_Items.CellCaption(h,4) = var_Items.CellCaption(h,3)
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaption(h,4) = CellCaption(h,3)"

oComboBox.Columns.Item("DateTime").DisplayFilterDate = .f.
oComboBox.EndUpdate()

485:
How can I display a different column, on the control's label (method 2)

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 2
oComboBox.SingleEdit = .t.
oComboBox.LabelColumnIndex = 1
oComboBox.DrawGridLines = 2
' oComboBox.Columns.Add("Column 1").Def(17) = 1
var_Column = oComboBox.Columns.Add("Column 1")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(17) = 1"

' oComboBox.Columns.Add("Column 2").Def(17) = 1
var_Column1 = oComboBox.Columns.Add("Column 2")
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.Def(17) = 1"

var_Items = oComboBox.Items
	' var_Items.CellCaption(var_Items.AddItem("Item 1 on <b>Column 1"),1) = "Item 1 on <b>Column 2"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item 1 on <b>Column 1`),1) = `Item 1 on <b>Column 2`"

	' var_Items.CellCaption(var_Items.AddItem("Item 2 on <b>Column 1"),1) = "Item 2 on <b>Column 2"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item 2 on <b>Column 1`),1) = `Item 2 on <b>Column 2`"

	' var_Items.CellCaption(var_Items.AddItem("Item 3 on <b>Column 1"),1) = "Item 3 on <b>Column 2"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item 3 on <b>Column 1`),1) = `Item 3 on <b>Column 2`"

	' var_Items.SelectItem(var_Items.FirstVisibleItem) = .t.
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.SelectItem(FirstVisibleItem) = True"

oComboBox.EndUpdate()

484:
How can I display a different column, on the control's label (method 1)

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 2
oComboBox.SingleEdit = .t.
oComboBox.SearchColumnIndex = 1
oComboBox.DrawGridLines = 2
' oComboBox.Columns.Add("Column 1").Def(17) = 1
var_Column = oComboBox.Columns.Add("Column 1")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(17) = 1"

' oComboBox.Columns.Add("Column 2").Def(17) = 1
var_Column1 = oComboBox.Columns.Add("Column 2")
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.Def(17) = 1"

var_Items = oComboBox.Items
	' var_Items.CellCaption(var_Items.AddItem("Item 1 on <b>Column 1"),1) = "Item 1 on <b>Column 2"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item 1 on <b>Column 1`),1) = `Item 1 on <b>Column 2`"

	' var_Items.CellCaption(var_Items.AddItem("Item 2 on <b>Column 1"),1) = "Item 2 on <b>Column 2"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item 2 on <b>Column 1`),1) = `Item 2 on <b>Column 2`"

	' var_Items.CellCaption(var_Items.AddItem("Item 3 on <b>Column 1"),1) = "Item 3 on <b>Column 2"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Item 3 on <b>Column 1`),1) = `Item 3 on <b>Column 2`"

	' var_Items.SelectItem(var_Items.FirstVisibleItem) = .t.
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.SelectItem(FirstVisibleItem) = True"

oComboBox.EndUpdate()

483:
How do I sort the index column as numeric

' Occurs after a new item has been inserted to Items collection.
function InsertItem as v (Item  as  OLE::Exontrol.ComboBox.1::HITEM)
	Dim var_Items as P
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	var_Items = oComboBox.Items
		' var_Items.CellData(Item,1) = var_Items.ItemToIndex(Item)
		oComboBox.TemplateDef = "dim var_Items,Item"
		oComboBox.TemplateDef = var_Items
		oComboBox.TemplateDef = Item
		oComboBox.Template = "var_Items.CellData(Item,1) = ItemToIndex(Item)"

end function

Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.DrawGridLines = -1
oComboBox.ColumnAutoResize = .t.
oComboBox.ShowFocusRect = .f.
oComboBox.SingleEdit = .t.
var_Column = oComboBox.Columns.Add("Next")
	' var_Column.Def(48) = 4
	oComboBox.TemplateDef = "dim var_Column"
	oComboBox.TemplateDef = var_Column
	oComboBox.Template = "var_Column.Def(48) = 4"

	' var_Column.Def(52) = 4
	oComboBox.TemplateDef = "dim var_Column"
	oComboBox.TemplateDef = var_Column
	oComboBox.Template = "var_Column.Def(52) = 4"

var_Column1 = oComboBox.Columns.Add("Index")
	var_Column1.AllowSizing = .f.
	var_Column1.Width = 48
	var_Column1.FormatColumn = "(((0 := (1 index ``)) mod 3) case ( default: ``; 0 : `<r><fgcolor=B0B0B0>`; 1: ``; 2 : `<c><fgcolor=808080>` )) + str(=:0)"
	' var_Column1.Def(17) = 1
	oComboBox.TemplateDef = "dim var_Column1"
	oComboBox.TemplateDef = var_Column1
	oComboBox.Template = "var_Column1.Def(17) = 1"

	var_Column1.SortType = 5
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 4")
	var_Items.AddItem("Item 5")
	var_Items.AddItem("Item 6")
	var_Items.AddItem("Item 7")
	var_Items.AddItem("Item 8")
	var_Items.AddItem("Item 9")
	var_Items.AddItem("Item 10")
oComboBox.EndUpdate()

482:
How can I put icons/images into buttons

Dim oComboBox as P
Dim var_Column as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.SingleEdit = .t.
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.Columns.Add("")
var_Column = oComboBox.Columns.Add("C+B")
	var_Column.AllowSizing = .f.
	var_Column.Width = 48
	var_Column.FormatColumn = "` <img>` + ( 1 + (1 index ``) mod 3 ) + `</img> `"
	' var_Column.Def(17) = 1
	oComboBox.TemplateDef = "dim var_Column"
	oComboBox.TemplateDef = var_Column
	oComboBox.Template = "var_Column.Def(17) = 1"

	' var_Column.Def(0) = .t.
	oComboBox.TemplateDef = "dim var_Column"
	oComboBox.TemplateDef = var_Column
	oComboBox.Template = "var_Column.Def(0) = True"

	' var_Column.Def(2) = .t.
	oComboBox.TemplateDef = "dim var_Column"
	oComboBox.TemplateDef = var_Column
	oComboBox.Template = "var_Column.Def(2) = True"

	' var_Column.Def(3) = .t.
	oComboBox.TemplateDef = "dim var_Column"
	oComboBox.TemplateDef = var_Column
	oComboBox.Template = "var_Column.Def(3) = True"

	var_Column.Position = 0
oComboBox.DrawGridLines = 2
oComboBox.DefaultItemHeight = 20
var_Items = oComboBox.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 4")
	var_Items.AddItem("Item 5")
	var_Items.AddItem("Item 6")
	var_Items.AddItem("Item 7")
	var_Items.AddItem("Item 8")
oComboBox.EndUpdate()

481:
Is it possible to have a CheckBox and Button TOGETHER on all cells in a column

' Fired after the user clicks on the cell of button type. 
function CellButtonClick as v (Item  as  OLE::Exontrol.ComboBox.1::HCELL)
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	? "CellButtonClick" 
	? Item 
	? oComboBox.Key() 
end function

' Fired after cell's state has been changed.
function CellStateChanged as v (Item  as  OLE::Exontrol.ComboBox.1::HCELL)
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	? "CellStateChanged" 
	? Item 
	? oComboBox.Key() 
end function

Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.SingleEdit = .t.
var_Column = oComboBox.Columns.Add("")
	var_Column.AllowSizing = .f.
	var_Column.Width = 32
	var_Column.FormatColumn = "1 index ``"
var_Column1 = oComboBox.Columns.Add("Def")
	var_Column1.AllowSizing = .f.
	var_Column1.Width = 48
	var_Column1.FormatColumn = "`     `"
	' var_Column1.Def(0) = .t.
	oComboBox.TemplateDef = "dim var_Column1"
	oComboBox.TemplateDef = var_Column1
	oComboBox.Template = "var_Column1.Def(0) = True"

	' var_Column1.Def(2) = .t.
	oComboBox.TemplateDef = "dim var_Column1"
	oComboBox.TemplateDef = var_Column1
	oComboBox.Template = "var_Column1.Def(2) = True"

	' var_Column1.Def(3) = .t.
	oComboBox.TemplateDef = "dim var_Column1"
	oComboBox.TemplateDef = var_Column1
	oComboBox.Template = "var_Column1.Def(3) = True"

oComboBox.Columns.Add("")
var_Items = oComboBox.Items
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
oComboBox.EndUpdate()

480:
How can I show only the matching items, while user types in the drop down control

' Fired when the user has taken an action that may have altered text in an edit control.
function EditChange as v (ColIndex  as  N)
	Dim sLabel as 
	Dim var_Items as P
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	sLabel = oComboBox.EditText(ColIndex)
	? "Select the item that maches exactly the typing label: " 
	? sLabel 
	var_Items = oComboBox.Items
		' var_Items.SelectItem(var_Items.FocusItem) = .f.
		oComboBox.TemplateDef = "dim var_Items"
		oComboBox.TemplateDef = var_Items
		oComboBox.Template = "var_Items.SelectItem(FocusItem) = False"
		' var_Items.SelectItem(var_Items.FindItem(sLabel,ColIndex)) = .t.
		oComboBox.TemplateDef = "dim var_Items"
		oComboBox.TemplateDef = var_Items
		oComboBox.Template = "var_Items.SelectItem(FindItem(sLabel,ColIndex)) = True"

end function

Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.SingleEdit = .t.
oComboBox.AutoComplete = .f.
oComboBox.AutoSelect = .f.
oComboBox.AutoSearch = .f.
oComboBox.AutoDropDown = .t.
oComboBox.IntegralHeight = .t.
oComboBox.HeaderVisible = .f.
oComboBox.Columns.Add("Friends")
var_Items = oComboBox.Items
	var_Items.AddItem("Fred")
	var_Items.AddItem("Tina")
	var_Items.AddItem("Tom")
oComboBox.EndUpdate()

479:
How do I unselect/deselect the item (Simple style)
Dim oComboBox as P
Dim var_Items as P
Dim var_Items1 as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 0
oComboBox.Columns.Add("Def")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 3")
oComboBox.SearchColumnIndex = 0
oComboBox.Value = "Item 2"
var_Items1 = oComboBox.Items
	' var_Items1.SelectItem(var_Items1.FocusItem) = .f.
	oComboBox.TemplateDef = "dim var_Items1"
	oComboBox.TemplateDef = var_Items1
	oComboBox.Template = "var_Items1.SelectItem(FocusItem) = False"

oComboBox.EndUpdate()

478:
How do I unselect/deselect the item (DropDownList style)
Dim oComboBox as P
Dim var_Items as P
Dim var_Items1 as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 1
oComboBox.Columns.Add("Def")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 3")
oComboBox.SearchColumnIndex = 0
oComboBox.Value = "Item 2"
var_Items1 = oComboBox.Items
	' var_Items1.SelectItem(var_Items1.FocusItem) = .f.
	oComboBox.TemplateDef = "dim var_Items1"
	oComboBox.TemplateDef = var_Items1
	oComboBox.Template = "var_Items1.SelectItem(FocusItem) = False"

oComboBox.EndUpdate()

477:
How do I unselect/deselect the item (DropDown style)
Dim oComboBox as P
Dim var_Items as P
Dim var_Items1 as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 1
oComboBox.Columns.Add("Def")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 3")
oComboBox.SearchColumnIndex = 0
oComboBox.Value = "Item 2"
var_Items1 = oComboBox.Items
	' var_Items1.SelectItem(var_Items1.FocusItem) = .f.
	oComboBox.TemplateDef = "dim var_Items1"
	oComboBox.TemplateDef = var_Items1
	oComboBox.Template = "var_Items1.SelectItem(FocusItem) = False"

oComboBox.EndUpdate()

476:
Setting the ForeColor to red and then setting Enabled property on False the ForeColor returns back to original color of black/gray. What can be done (Style is Simple)

Dim oComboBox as P
Dim var_Columns as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 0
oComboBox.ColumnAutoResize = .t.
var_Columns = oComboBox.Columns
	var_Columns.Add("C1")
	var_Columns.Add("C2")
var_Items = oComboBox.Items
	' var_Items.CellCaption(var_Items.AddItem("item a"),1) = "item b"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`item a`),1) = `item b`"

	' var_Items.CellCaption(var_Items.AddItem("item c"),1) = "item d"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`item c`),1) = `item d`"

oComboBox.Value = "item a"
oComboBox.ForeColor = 12353664
oComboBox.BackColor = 15790320
oComboBox.HeaderForeColor = 8421504
oComboBox.SelBackColor = 8421504
oComboBox.BackColorEdit = 0
oComboBox.ForeColorEdit = 16777215
oComboBox.Enabled = .f.
oComboBox.EndUpdate()

475:
Setting the ForeColor to red and then setting Enabled property on False the ForeColor returns back to original color of black/gray. What can be done (Style is DropDownList)

Dim oComboBox as P
Dim var_Columns as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 2
oComboBox.ColumnAutoResize = .t.
var_Columns = oComboBox.Columns
	var_Columns.Add("C1")
	var_Columns.Add("C2")
var_Items = oComboBox.Items
	' var_Items.CellCaption(var_Items.AddItem("item a"),1) = "item b"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`item a`),1) = `item b`"

	' var_Items.CellCaption(var_Items.AddItem("item c"),1) = "item d"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`item c`),1) = `item d`"

oComboBox.Value = "item a"
oComboBox.BackColorEdit = 0
oComboBox.ForeColor = 16777215
oComboBox.Enabled = .f.
oComboBox.EndUpdate()

474:
Setting the ForeColor to red and then setting Enabled property on False the ForeColor returns back to original color of black/gray. What can be done (Style is DropDown)

Dim oComboBox as P
Dim var_Columns as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 1
oComboBox.ColumnAutoResize = .t.
var_Columns = oComboBox.Columns
	var_Columns.Add("C1")
	var_Columns.Add("C2")
var_Items = oComboBox.Items
	' var_Items.CellCaption(var_Items.AddItem("item a"),1) = "item b"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`item a`),1) = `item b`"

	' var_Items.CellCaption(var_Items.AddItem("item c"),1) = "item d"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`item c`),1) = `item d`"

oComboBox.Value = "item a"
oComboBox.ForeColorEdit = 16777215
oComboBox.BackColorEdit = 0
oComboBox.Enabled = .f.
oComboBox.EndUpdate()

473:
How would you clear the displayed selection for style DropDownList. So if a user selects or searches a value in a style DropDownList, I want to know if I can reset the control back to an empty selection

' Occurs when the drop-down portion of the control is hidden.
function DropUp as v ()
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	oComboBox.Value = ""
end function

' Fired after a new item has been selected.
function SelectionChanged as v ()
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	? "You selected: " 
	? oComboBox.Value 
end function

Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 2
oComboBox.HeaderVisible = .f.
oComboBox.AutoSearch = .t.
oComboBox.AutoDropDown = .t.
oComboBox.IntegralHeight = .t.
' oComboBox.Columns.Add("Default").AutoSearch = 1
var_Column = oComboBox.Columns.Add("Default")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.AutoSearch = 1"

var_Items = oComboBox.Items
	var_Items.AddItem("This is a bit of text")
	var_Items.AddItem("This is a another text")
	var_Items.DefaultItem = var_Items.InsertItem(,,"")
	' var_Items.ItemPosition(0) = 0
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.ItemPosition(0) = 0"

	' var_Items.SortableItem(0) = .f.
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.SortableItem(0) = False"

oComboBox.EndUpdate()

472:
I cannot seem to get autosearch=1 (contains) in the column object to search properly. It still only finds items that start with the typed character. I want to it look to see if the typed character(s) are contained in the item. I Can't seem to get this to work

Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 2
oComboBox.HeaderVisible = .f.
oComboBox.AutoSearch = .t.
oComboBox.AutoDropDown = .t.
oComboBox.IntegralHeight = .t.
' oComboBox.Columns.Add("Default").AutoSearch = 1
var_Column = oComboBox.Columns.Add("Default")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.AutoSearch = 1"

var_Items = oComboBox.Items
	var_Items.AddItem("This is a bit of text")
	var_Items.AddItem("This is a another text")
oComboBox.EndUpdate()

471:
If the user selects an item from the list, how can I clear that selection and return the control to the unselected state with the PROMPT text

' Occurs when the drop-down portion of the control is hidden.
function DropUp as v ()
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	oComboBox.Template = "EditText(0) = ``" // oComboBox.EditText(0) = ""
end function

' Fired after a new item has been selected.
function SelectionChanged as v ()
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	? "You selected:  " 
	? oComboBox.Value 
end function

Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LabelHeight = 23
oComboBox.IntegralHeight = .t.
oComboBox.AutoComplete = .f.
oComboBox.AutoSearch = .f.
oComboBox.AutoDropDown = .t.
' oComboBox.Columns.Add("Default").Prompt = "<i><fgcolor=808080>type something</fgcolor></i>"
var_Column = oComboBox.Columns.Add("Default")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Prompt = `<i><fgcolor=808080>type something</fgcolor></i>`"

var_Items = oComboBox.Items
	var_Items.AddItem(0)
	var_Items.AddItem(1)
	var_Items.AddItem(2)
oComboBox.EndUpdate()

470:
How do I get notified once the user changes the Filter For field
' Fired when the user has taken an action that may have altered text in an edit control.
function EditChange as v (ColIndex  as  N)
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	? "ColIndex: " 
	? ColIndex 
	? "Label: " 
	? oComboBox.EditText(0) 
	? "FilterFor: " 
	? oComboBox.EditText(-1) 
end function

Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.FilterForVisible = .t.
oComboBox.FilterForBackColor = 15790320
oComboBox.IntegralHeight = .t.
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 4")
	var_Items.AddItem("Item 5")
oComboBox.EndUpdate()

469:
I am using the ScrollWidth/ScrollHeight property on 0 to hide the control's scroll bars, the question is that the drop down button is disappearing. What can be done so I can still show the drop down button

Dim oComboBox as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LabelHeight = 40
oComboBox.ScrollWidth = 0
oComboBox.ScrollHeight = 0
oComboBox.DropDownButtonWidth = 40
oComboBox.EndUpdate()

468:
Does your control supports scrolling by touching the screen

Dim oComboBox as P
Dim rs as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\SAMPLE.MDB",3,3)
oComboBox.DataSource = rs
oComboBox.ScrollBySingleLine = .t.
oComboBox.AutoDrag = 4112 'exAutoDragScrollOnShortTouch + exAutoDragScroll
oComboBox.EndUpdate()

467:
How can I make bigger/enlarge the control's drop down button

Dim oComboBox as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LabelHeight = 40
oComboBox.ScrollWidth = 40
oComboBox.EndUpdate()

466:
How do I select a NULL/empty value

Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 2
oComboBox.Columns.Add("Items")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 4")
	var_Items.DefaultItem = var_Items.InsertItem(,,"")
	' var_Items.ItemPosition(0) = 0
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.ItemPosition(0) = 0"

	' var_Items.SortableItem(0) = .f.
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.SortableItem(0) = False"

oComboBox.Value = ""
oComboBox.EndUpdate()

465:
How can I add a vertical padding

Dim oComboBox as P
Dim var_Column as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.DrawGridLines = -1
var_Column = oComboBox.Columns.Add("Padding")
	' var_Column.Def(0) = .t.
	oComboBox.TemplateDef = "dim var_Column"
	oComboBox.TemplateDef = var_Column
	oComboBox.Template = "var_Column.Def(0) = True"

	' var_Column.Def(16) = .f.
	oComboBox.TemplateDef = "dim var_Column"
	oComboBox.TemplateDef = var_Column
	oComboBox.Template = "var_Column.Def(16) = False"

	' var_Column.Def(48) = 6
	oComboBox.TemplateDef = "dim var_Column"
	oComboBox.TemplateDef = var_Column
	oComboBox.Template = "var_Column.Def(48) = 6"

	' var_Column.Def(49) = 6
	oComboBox.TemplateDef = "dim var_Column"
	oComboBox.TemplateDef = var_Column
	oComboBox.Template = "var_Column.Def(49) = 6"

	' var_Column.Def(50) = 6
	oComboBox.TemplateDef = "dim var_Column"
	oComboBox.TemplateDef = var_Column
	oComboBox.Template = "var_Column.Def(50) = 6"

	' var_Column.Def(51) = 6
	oComboBox.TemplateDef = "dim var_Column"
	oComboBox.TemplateDef = var_Column
	oComboBox.Template = "var_Column.Def(51) = 6"

var_Items = oComboBox.Items
	var_Items.AddItem("padding")
	var_Items.AddItem("padding")
oComboBox.EndUpdate()

464:
How can I add or change the padding (spaces) for captions in the control's header

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Padding-Left").Def(52) = 18
var_Column = oComboBox.Columns.Add("Padding-Left")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(52) = 18"

var_Column1 = oComboBox.Columns.Add("Padding-Right")
	' var_Column1.Def(53) = 18
	oComboBox.TemplateDef = "dim var_Column1"
	oComboBox.TemplateDef = var_Column1
	oComboBox.Template = "var_Column1.Def(53) = 18"

	var_Column1.HeaderAlignment = 2
oComboBox.EndUpdate()

463:
Is it possible to change the height for all items at once

Dim h as N
Dim oComboBox as P
Dim var_Items as P
Dim var_Items1 as local

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
oComboBox.Columns.Add("Items")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(0) = .t.
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.ExpandItem(0) = True"

oComboBox.EndUpdate()
oComboBox.DefaultItemHeight = 12
' oComboBox.Items.ItemHeight(0) = 12
var_Items1 = oComboBox.Items
oComboBox.TemplateDef = "dim var_Items1"
oComboBox.TemplateDef = var_Items1
oComboBox.Template = "var_Items1.ItemHeight(0) = 12"


462:
How can I have a case-insensitive filter (exFilterDoCaseSensitive flag is not set)

Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Columns as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.MarkSearchColumn = .f.
var_Columns = oComboBox.Columns
	var_Column = var_Columns.Add("Car")
		var_Column.DisplayFilterButton = .t.
		var_Column.FilterType = 240
		var_Column.Filter = "MAZDA"
	var_Column1 = var_Columns.Add("Equipment")
		var_Column1.DisplayFilterButton = .t.
		var_Column1.DisplayFilterPattern = .f.
		var_Column1.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
		var_Column1.FilterType = 3
		var_Column1.Filter = "AIR BAG"
var_Items = oComboBox.Items
	' var_Items.CellCaption(var_Items.AddItem("Mazda"),1) = "Air Bag"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Mazda`),1) = `Air Bag`"

	' var_Items.CellCaption(var_Items.AddItem("Toyota"),1) = "Air Bag,Air condition"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Toyota`),1) = `Air Bag,Air condition`"

	' var_Items.CellCaption(var_Items.AddItem("Ford"),1) = "Air condition"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Ford`),1) = `Air condition`"

	' var_Items.CellCaption(var_Items.AddItem("Nissan"),1) = "Air Bag,ABS,ESP"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Nissan`),1) = `Air Bag,ABS,ESP`"

	' var_Items.CellCaption(var_Items.AddItem("Mazda"),1) = "Air Bag, ABS,ESP"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Mazda`),1) = `Air Bag, ABS,ESP`"

	' var_Items.CellCaption(var_Items.AddItem("Mazda"),1) = "ABS,ESP"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Mazda`),1) = `ABS,ESP`"

oComboBox.ApplyFilter()
oComboBox.EndUpdate()

461:
How can I have a case-sensitive filter

Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Columns as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.MarkSearchColumn = .f.
var_Columns = oComboBox.Columns
	var_Column = var_Columns.Add("Car")
		var_Column.DisplayFilterButton = .t.
		var_Column.FilterType = 496 'exFilterDoCaseSensitive + exFilter
		var_Column.Filter = "Mazda"
	var_Column1 = var_Columns.Add("Equipment")
		var_Column1.DisplayFilterButton = .t.
		var_Column1.DisplayFilterPattern = .f.
		var_Column1.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
		var_Column1.FilterType = 259 'exFilterDoCaseSensitive + exPattern
		var_Column1.Filter = "Air Bag"
var_Items = oComboBox.Items
	' var_Items.CellCaption(var_Items.AddItem("Mazda"),1) = "Air Bag"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Mazda`),1) = `Air Bag`"

	' var_Items.CellCaption(var_Items.AddItem("Toyota"),1) = "Air Bag,Air condition"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Toyota`),1) = `Air Bag,Air condition`"

	' var_Items.CellCaption(var_Items.AddItem("Ford"),1) = "Air condition"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Ford`),1) = `Air condition`"

	' var_Items.CellCaption(var_Items.AddItem("Nissan"),1) = "Air Bag,ABS,ESP"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Nissan`),1) = `Air Bag,ABS,ESP`"

	' var_Items.CellCaption(var_Items.AddItem("Mazda"),1) = "Air Bag, ABS,ESP"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Mazda`),1) = `Air Bag, ABS,ESP`"

	' var_Items.CellCaption(var_Items.AddItem("Mazda"),1) = "ABS,ESP"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Mazda`),1) = `ABS,ESP`"

oComboBox.ApplyFilter()
oComboBox.EndUpdate()

460:
Is it possible to filter the items as I type

' Fired when the user has taken an action that may have altered text in an edit control.
function EditChange as v (ColIndex  as  N)
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	oComboBox.Columns.Item(0).Filter = oComboBox.EditText(0)
	oComboBox.ApplyFilter()
end function

Dim oComboBox as P
Dim var_Column as P
Dim var_Columns as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.MarkSearchColumn = .f.
oComboBox.SingleEdit = .t.
oComboBox.AutoComplete = .f.
oComboBox.AutoDropDown = .t.
oComboBox.IntegralHeight = .t.
var_Columns = oComboBox.Columns
	var_Column = var_Columns.Add("Items")
		var_Column.Prompt = "<i><fgcolor=808080>Start Filter</fgcolor></i>"
		var_Column.FilterType = 3
var_Items = oComboBox.Items
	var_Items.AddItem("A")
	var_Items.AddItem("B")
	var_Items.AddItem("C")
	var_Items.AddItem("AB")
	var_Items.AddItem("AC")
	var_Items.AddItem("BA")
	var_Items.AddItem("BC")
	var_Items.AddItem("CC")
oComboBox.EndUpdate()

459:
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo

Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	var_Items.AddItem("A")
	var_Items.AddItem("B")
	var_Items.AddItem("C")
	var_Items.AddItem("D")
oComboBox.Template = "EditText(0) = `C`" // oComboBox.EditText(0) = "C"

458:
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo

Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	var_Items.AddItem("A")
	var_Items.AddItem("B")
	var_Items.AddItem("C")
	var_Items.AddItem("D")
oComboBox.Template = "EditText(0) = Me.Items.CellCaption(Me.Items.ItemByIndex(2),0)" // oComboBox.EditText(0) = oComboBox.Items.CellCaption(oComboBox.Items.ItemByIndex(2),0)

457:
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo

Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	var_Items.AddItem("A")
	var_Items.AddItem("B")
	var_Items.AddItem("C")
	var_Items.AddItem("D")
oComboBox.Template = "Select(0) = Me.Items.CellCaption(Me.Items.ItemByIndex(2),0)" // oComboBox.Select(0) = oComboBox.Items.CellCaption(oComboBox.Items.ItemByIndex(2),0)

456:
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo

Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	var_Items.AddItem("A")
	var_Items.AddItem("B")
	var_Items.AddItem("C")
	var_Items.AddItem("D")
oComboBox.Template = "Select(0) = `C`" // oComboBox.Select(0) = "C"

455:
How can I change the color, font, bold etc for the items/cells in the same column or for the entire column

Dim oComboBox as P
Dim var_Column as P
Dim var_ConditionalFormat as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.MarkSearchColumn = .f.
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("1")
	var_ConditionalFormat.Bold = .t.
	var_ConditionalFormat.ForeColor = 255
	var_ConditionalFormat.ApplyTo = 1 '1 + 
oComboBox.Columns.Add("C1")
var_Column = oComboBox.Columns.Add("C2")
	var_Column.HeaderBold = .t.
	var_Column.HTMLCaption = "<fgcolor=FF0000>C2"
var_Items = oComboBox.Items
	' var_Items.CellCaption(var_Items.AddItem(10),1) = 11
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(10),1) = 11"

	' var_Items.CellCaption(var_Items.AddItem(12),1) = 13
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(12),1) = 13"

oComboBox.EndUpdate()

454:
How can I add a horizontal scroll bar

Dim oComboBox as P
Dim var_Column as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.ScrollBySingleLine = .t.
oComboBox.ColumnAutoResize = .f.
oComboBox.BackColorAlternate = 15790320
var_Column = oComboBox.Columns.Add("Default")
	var_Column.Width = 512
	' var_Column.Def(16) = .f.
	oComboBox.TemplateDef = "dim var_Column"
	oComboBox.TemplateDef = var_Column
	oComboBox.Template = "var_Column.Def(16) = False"

var_Items = oComboBox.Items
	var_Items.AddItem("Exontrol is devoted to create innovative user interface components for Windows applications, on COM or .NET platforms, since 1999. \"eXontrol\" comes from e(s)pecial (c)ontrol, where sc makes the X. We are a vendor not a reseller, and this is the single site where you can try or buy our products. If you are tired of looking for \"powerful\" components now it's time to show you real components. No registration required, no nag screens, no limitations, unlimited evaluation time.")
	var_Items.AddItem("A combo box is a commonly-used GUI tool. It is a combination of a drop-down list or list box and a single-line textbox, allowing the user either to type a value directly into the control or choose from the list of existing options.")
oComboBox.EndUpdate()

453:
Does the control have the option to have a horizontal scroll to show entries which are longer than the display

Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = .f.
' oComboBox.Columns.Add("Default").Width = 512
var_Column = oComboBox.Columns.Add("Default")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Width = 512"

var_Items = oComboBox.Items
	var_Items.AddItem("Exontrol is devoted to create innovative user interface components for Windows applications, on COM or .NET platforms, since 1999. \"eXontrol\" comes from e(s)pecial (c)ontrol, where sc makes the X. We are a vendor not a reseller, and this is the single site where you can try or buy our products. If you are tired of looking for \"powerful\" components now it's time to show you real components. No registration required, no nag screens, no limitations, unlimited evaluation time.")
	var_Items.AddItem("A combo box is a commonly-used GUI tool. It is a combination of a drop-down list or list box and a single-line textbox, allowing the user either to type a value directly into the control or choose from the list of existing options.")
oComboBox.EndUpdate()

452:
Is it possible to auto-numbering the children items but still keeps the position after filtering

Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Column4 as P
Dim var_Column5 as P
Dim var_Column6 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
var_Column = oComboBox.Columns.Add("Items")
	var_Column.DisplayFilterButton = .t.
	var_Column.FilterType = 240
	var_Column.Filter = "Child 2"
var_Column1 = oComboBox.Columns.Add("Pos.1")
	var_Column1.FormatColumn = "1 ropos ''"
	var_Column1.Position = 0
	var_Column1.Width = 32
	var_Column1.AllowSizing = .f.
var_Column2 = oComboBox.Columns.Add("Pos.2")
	var_Column2.FormatColumn = "1 ropos ':'"
	var_Column2.Position = 1
	var_Column2.Width = 32
	var_Column2.AllowSizing = .f.
var_Column3 = oComboBox.Columns.Add("Pos.3")
	var_Column3.FormatColumn = "1 ropos ':|A-Z'"
	var_Column3.Position = 2
	var_Column3.Width = 32
	var_Column3.AllowSizing = .f.
var_Column4 = oComboBox.Columns.Add("Pos.4")
	var_Column4.FormatColumn = "1 ropos '|A-Z|'"
	var_Column4.Position = 3
	var_Column4.Width = 32
	var_Column4.AllowSizing = .f.
var_Column5 = oComboBox.Columns.Add("Pos.5")
	var_Column5.FormatColumn = "'<font Tahoma;7>' + 1 ropos '-<b>||A-Z'"
	' var_Column5.Def(17) = 1
	oComboBox.TemplateDef = "dim var_Column5"
	oComboBox.TemplateDef = var_Column5
	oComboBox.Template = "var_Column5.Def(17) = 1"

	var_Column5.Position = 4
	var_Column5.Width = 32
	var_Column5.AllowSizing = .f.
var_Column6 = oComboBox.Columns.Add("Pos.6")
	var_Column6.FormatColumn = "'<b>'+ 1 ropos '</b>:<fgcolor=FF0000>|A-Z|'"
	' var_Column6.Def(17) = 1
	oComboBox.TemplateDef = "dim var_Column6"
	oComboBox.TemplateDef = var_Column6
	oComboBox.Template = "var_Column6.Def(17) = 1"

	var_Column6.Position = 5
	var_Column6.Width = 48
	var_Column6.AllowSizing = .f.
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

451:
How do I prevent scrolling the control's data after user does the sort

Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.EnsureOnSort = .f.
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
oComboBox.PutItems(oComboBox.GetItems(0))
oComboBox.PutItems(oComboBox.GetItems(0))
oComboBox.PutItems(oComboBox.GetItems(0))
oComboBox.Columns.Item(0).SortOrder = 1

450:
Is it possible to auto-numbering the children items too

Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Column4 as P
Dim var_Column5 as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
oComboBox.Columns.Add("Items")
var_Column = oComboBox.Columns.Add("Pos.1")
	var_Column.FormatColumn = "1 rpos ''"
	var_Column.Position = 0
	var_Column.Width = 32
	var_Column.AllowSizing = .f.
var_Column1 = oComboBox.Columns.Add("Pos.2")
	var_Column1.FormatColumn = "1 rpos ':'"
	var_Column1.Position = 1
	var_Column1.Width = 32
	var_Column1.AllowSizing = .f.
var_Column2 = oComboBox.Columns.Add("Pos.3")
	var_Column2.FormatColumn = "1 rpos ':|A-Z'"
	var_Column2.Position = 2
	var_Column2.Width = 32
	var_Column2.AllowSizing = .f.
var_Column3 = oComboBox.Columns.Add("Pos.4")
	var_Column3.FormatColumn = "1 rpos '|A-Z|'"
	var_Column3.Position = 3
	var_Column3.Width = 32
	var_Column3.AllowSizing = .f.
var_Column4 = oComboBox.Columns.Add("Pos.5")
	var_Column4.FormatColumn = "'<font Tahoma;7>' + 1 rpos '-<b>||A-Z'"
	' var_Column4.Def(17) = 1
	oComboBox.TemplateDef = "dim var_Column4"
	oComboBox.TemplateDef = var_Column4
	oComboBox.Template = "var_Column4.Def(17) = 1"

	var_Column4.Position = 4
	var_Column4.Width = 32
	var_Column4.AllowSizing = .f.
var_Column5 = oComboBox.Columns.Add("Pos.6")
	var_Column5.FormatColumn = "'<b>'+ 1 rpos '</b>:<fgcolor=FF0000>|A-Z|'"
	' var_Column5.Def(17) = 1
	oComboBox.TemplateDef = "dim var_Column5"
	oComboBox.TemplateDef = var_Column5
	oComboBox.Template = "var_Column5.Def(17) = 1"

	var_Column5.Position = 5
	var_Column5.Width = 48
	var_Column5.AllowSizing = .f.
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
oComboBox.EndUpdate()

449:
How can I show the child items with no identation

Dim h as N
Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.LinesAtRoot = 5
oComboBox.Indent = 12
oComboBox.HasLines = 2
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"Child 3")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"Child 3")

448:
Is there other ways of showing the hierarchy lines (exGroupLinesAtRoot)

Dim h as N
Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.LinesAtRoot = 1
oComboBox.Indent = 12
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"Child 3")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"


447:
Is there other ways of showing the hierarchy lines (exGroupLinesOutside)

Dim h as N
Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.LinesAtRoot = 5
oComboBox.Indent = 12
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"Child 3")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"Child 3")

446:
Is there other ways of showing the hierarchy lines (exGroupLinesInsideLeaf)

Dim h as N
Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.LinesAtRoot = 4
oComboBox.Indent = 12
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"Child 3")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"


445:
Is there other ways of showing the hierarchy lines (exGroupLinesInside)

Dim h as N
Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.LinesAtRoot = 3
oComboBox.Indent = 12
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"Child 3")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"


444:
Is there other ways of showing the hierarchy lines (exGroupLines)

Dim h as N
Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.LinesAtRoot = 2
oComboBox.Indent = 12
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(var_Items.InsertItem(h,,"Child 2"),,"SubChild 2")
	var_Items.InsertItem(h,,"Child 3")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"


443:
Is it possible display numbers in the same format no matter of regional settings in the control panel

Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Def").Def(17) = 1
var_Column = oComboBox.Columns.Add("Def")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(17) = 1"

var_Items = oComboBox.Items
	h = var_Items.AddItem(100000.27)
	' var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default positive)'"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '') +  ' <fgcolor=808080>(default positive)'`"

	h = var_Items.AddItem(100000.27)
	' var_Items.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '2|.|3|,|1|1')`"

	h = var_Items.AddItem(-100000.27)
	' var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default negative)'"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '') +  ' <fgcolor=808080>(default negative)'`"

	h = var_Items.AddItem(-100000.27)
	' var_Items.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '2|.|3|,|1|1')`"

oComboBox.EndUpdate()

442:
Is it possible to add a 0 for numbers less than 1 instead .7 to show 0.8

Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Def").Def(17) = 1
var_Column = oComboBox.Columns.Add("Def")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(17) = 1"

var_Items = oComboBox.Items
	h = var_Items.AddItem(0.27)
	' var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '') +  ' <fgcolor=808080>(default)'`"

	h = var_Items.AddItem(0.27)
	' var_Items.FormatCell(h,0) = "(value format '|||||0') +  ' <fgcolor=808080>(Display no leading zeros)'"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '|||||0') +  ' <fgcolor=808080>(Display no leading zeros)'`"

oComboBox.EndUpdate()

441:
How can I specify the format for negative numbers

Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Def").Def(17) = 1
var_Column = oComboBox.Columns.Add("Def")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(17) = 1"

var_Items = oComboBox.Items
	h = var_Items.AddItem(-100000.27)
	' var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '') +  ' <fgcolor=808080>(default)'`"

	h = var_Items.AddItem(-100000.27)
	' var_Items.FormatCell(h,0) = "(value format '||||1') +  ' <fgcolor=808080>(Negative sign, number; for example, -1.1)'"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '||||1') +  ' <fgcolor=808080>(Negative sign, number; for example, -1.1)'`"

oComboBox.EndUpdate()

440:
Is it possible to change the grouping character when display numbers

Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Def").Def(17) = 1
var_Column = oComboBox.Columns.Add("Def")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(17) = 1"

var_Items = oComboBox.Items
	h = var_Items.AddItem(100000.27)
	' var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '') +  ' <fgcolor=808080>(default)'`"

	h = var_Items.AddItem(100000.27)
	' var_Items.FormatCell(h,0) = "(value format '|||-') +  ' <fgcolor=808080>(grouping character is -)'"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '|||-') +  ' <fgcolor=808080>(grouping character is -)'`"

oComboBox.EndUpdate()

439:
How can I display numbers with 2 digits in each group

Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Def").Def(17) = 1
var_Column = oComboBox.Columns.Add("Def")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(17) = 1"

var_Items = oComboBox.Items
	h = var_Items.AddItem(100000.27)
	' var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '') +  ' <fgcolor=808080>(default)'`"

	h = var_Items.AddItem(100000.27)
	' var_Items.FormatCell(h,0) = "(value format '||2') +  ' <fgcolor=808080>(grouping by 2 digits)'"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '||2') +  ' <fgcolor=808080>(grouping by 2 digits)'`"

oComboBox.EndUpdate()

438:
How can I display my numbers using a different decimal separator

Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Def").Def(17) = 1
var_Column = oComboBox.Columns.Add("Def")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(17) = 1"

var_Items = oComboBox.Items
	h = var_Items.AddItem(100.27)
	' var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '') +  ' <fgcolor=808080>(default)'`"

	h = var_Items.AddItem(100.27)
	' var_Items.FormatCell(h,0) = "(value format '|;') +  ' <fgcolor=808080>(decimal separator is <b>;</b>)'"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '|;') +  ' <fgcolor=808080>(decimal separator is <b>;</b>)'`"

oComboBox.EndUpdate()

437:
Is it possible to display the numbers using 3 (three) digits

Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Def").Def(17) = 1
var_Column = oComboBox.Columns.Add("Def")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(17) = 1"

var_Items = oComboBox.Items
	h = var_Items.AddItem(100.27)
	' var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '') +  ' <fgcolor=808080>(default)'`"

	h = var_Items.AddItem(100.27)
	' var_Items.FormatCell(h,0) = "(value format '3') +  ' <fgcolor=808080>(3 digits)'"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '3') +  ' <fgcolor=808080>(3 digits)'`"

	h = var_Items.AddItem(100.27)
	' var_Items.FormatCell(h,0) = "(value format 2) +  '  <fgcolor=808080>(2 digits)'"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format 2) +  '  <fgcolor=808080>(2 digits)'`"

	h = var_Items.AddItem(100.27)
	' var_Items.FormatCell(h,0) = "(value format 1) +  ' <fgcolor=808080>(1 digit)'"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format 1) +  ' <fgcolor=808080>(1 digit)'`"

oComboBox.EndUpdate()

436:
Is it possible to format numbers

Dim h as N
Dim h1 as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Columns as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.MarkSearchColumn = .f.
var_Columns = oComboBox.Columns
	var_Columns.Add("Name")
	var_Column = var_Columns.Add("A")
		var_Column.SortType = 1
		var_Column.AllowSizing = .f.
		var_Column.Width = 36
		var_Column.FormatColumn = "len(value) ? value + ' +'"
	var_Column1 = var_Columns.Add("B")
		var_Column1.SortType = 1
		var_Column1.AllowSizing = .f.
		var_Column1.Width = 36
		var_Column1.FormatColumn = "len(value) ? value + ' +'"
	var_Column2 = var_Columns.Add("C")
		var_Column2.SortType = 1
		var_Column2.AllowSizing = .f.
		var_Column2.Width = 36
		var_Column2.FormatColumn = "len(value) ? value + ' ='"
	var_Column3 = var_Columns.Add("A+B+C")
		var_Column3.SortType = 1
		var_Column3.Width = 64
		var_Column3.ComputedField = "dbl(%1)+dbl(%2)+dbl(%3)"
		var_Column3.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=0000FF>+'+(value format '2|.|3|,' ): '0.00') )"
		' var_Column3.Def(17) = 1
		oComboBox.TemplateDef = "dim var_Column3"
		oComboBox.TemplateDef = var_Column3
		oComboBox.Template = "var_Column3.Def(17) = 1"

var_Items = oComboBox.Items
	h = var_Items.AddItem("Root")
	' var_Items.CellCaptionFormat(h,4) = 2
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaptionFormat(h,4) = 2"

	h1 = var_Items.InsertItem(h,,"Child 1")
	' var_Items.CellCaption(h1,1) = 7
	oComboBox.TemplateDef = "dim var_Items,h1"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h1
	oComboBox.Template = "var_Items.CellCaption(h1,1) = 7"

	' var_Items.CellCaption(h1,2) = 3
	oComboBox.TemplateDef = "dim var_Items,h1"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h1
	oComboBox.Template = "var_Items.CellCaption(h1,2) = 3"

	' var_Items.CellCaption(h1,3) = 1
	oComboBox.TemplateDef = "dim var_Items,h1"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h1
	oComboBox.Template = "var_Items.CellCaption(h1,3) = 1"

	h1 = var_Items.InsertItem(h,,"Child 2")
	' var_Items.CellCaption(h1,1) = -2
	oComboBox.TemplateDef = "dim var_Items,h1"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h1
	oComboBox.Template = "var_Items.CellCaption(h1,1) = -2"

	' var_Items.CellCaption(h1,2) = -2
	oComboBox.TemplateDef = "dim var_Items,h1"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h1
	oComboBox.Template = "var_Items.CellCaption(h1,2) = -2"

	' var_Items.CellCaption(h1,3) = -4
	oComboBox.TemplateDef = "dim var_Items,h1"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h1
	oComboBox.Template = "var_Items.CellCaption(h1,3) = -4"

	h1 = var_Items.InsertItem(h,,"Child 3")
	' var_Items.CellCaption(h1,1) = 2
	oComboBox.TemplateDef = "dim var_Items,h1"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h1
	oComboBox.Template = "var_Items.CellCaption(h1,1) = 2"

	' var_Items.CellCaption(h1,2) = 2
	oComboBox.TemplateDef = "dim var_Items,h1"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h1
	oComboBox.Template = "var_Items.CellCaption(h1,2) = 2"

	' var_Items.CellCaption(h1,3) = -4
	oComboBox.TemplateDef = "dim var_Items,h1"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h1
	oComboBox.Template = "var_Items.CellCaption(h1,3) = -4"

	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

oComboBox.EndUpdate()

435:
Is it possible to limit the height of the item while resizing

' Occurs after a new item has been inserted to Items collection.
function InsertItem as v (Item  as  OLE::Exontrol.ComboBox.1::HITEM)
	Dim var_Items as local
	Dim var_Items1 as local
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	' oComboBox.Items.ItemMinHeight(Item) = 18
	var_Items = oComboBox.Items
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.ItemMinHeight(Item) = 18"
	' oComboBox.Items.ItemMaxHeight(Item) = 72
	var_Items1 = oComboBox.Items
	oComboBox.TemplateDef = "dim var_Items1"
	oComboBox.TemplateDef = var_Items1
	oComboBox.Template = "var_Items1.ItemMaxHeight(Item) = 72"

end function

Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.ItemsAllowSizing = -1
oComboBox.ScrollBySingleLine = .f.
oComboBox.BackColorAlternate = 15790320
oComboBox.Columns.Add("Names")
var_Items = oComboBox.Items
	var_Items.AddItem("Mantel")
	var_Items.AddItem("Mechanik")
	var_Items.AddItem("Motor")
	var_Items.AddItem("Murks")
	var_Items.AddItem("Märchen")
	var_Items.AddItem("Möhren")
	var_Items.AddItem("Mühle")
oComboBox.Columns.Item(0).SortOrder = 1
oComboBox.EndUpdate()

434:
How can I simulate displaying groups

Dim h as N
Dim h1 as N
Dim oComboBox as P
Dim var_Columns as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.HasLines = 0
oComboBox.ScrollBySingleLine = .t.
var_Columns = oComboBox.Columns
	var_Columns.Add("Name")
	var_Columns.Add("A")
	var_Columns.Add("B")
	var_Columns.Add("C")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Group 1")
	' var_Items.CellHAlignment(h,0) = 1
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellHAlignment(h,0) = 1"

	' var_Items.ItemDivider(h) = 0
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ItemDivider(h) = 0"

	' var_Items.ItemDividerLineAlignment(h) = 3
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ItemDividerLineAlignment(h) = 3"

	' var_Items.ItemHeight(h) = 24
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ItemHeight(h) = 24"

	' var_Items.SortableItem(h) = .f.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.SortableItem(h) = False"

	h1 = var_Items.InsertItem(h,,"Child 1")
	' var_Items.CellCaption(h1,1) = 1
	oComboBox.TemplateDef = "dim var_Items,h1"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h1
	oComboBox.Template = "var_Items.CellCaption(h1,1) = 1"

	' var_Items.CellCaption(h1,2) = 2
	oComboBox.TemplateDef = "dim var_Items,h1"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h1
	oComboBox.Template = "var_Items.CellCaption(h1,2) = 2"

	' var_Items.CellCaption(h1,3) = 3
	oComboBox.TemplateDef = "dim var_Items,h1"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h1
	oComboBox.Template = "var_Items.CellCaption(h1,3) = 3"

	h1 = var_Items.InsertItem(h,,"Child 2")
	' var_Items.CellCaption(h1,1) = 4
	oComboBox.TemplateDef = "dim var_Items,h1"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h1
	oComboBox.Template = "var_Items.CellCaption(h1,1) = 4"

	' var_Items.CellCaption(h1,2) = 5
	oComboBox.TemplateDef = "dim var_Items,h1"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h1
	oComboBox.Template = "var_Items.CellCaption(h1,2) = 5"

	' var_Items.CellCaption(h1,3) = 6
	oComboBox.TemplateDef = "dim var_Items,h1"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h1
	oComboBox.Template = "var_Items.CellCaption(h1,3) = 6"

	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Group 2")
	' var_Items.CellHAlignment(h,0) = 1
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellHAlignment(h,0) = 1"

	' var_Items.ItemDivider(h) = 0
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ItemDivider(h) = 0"

	' var_Items.ItemDividerLineAlignment(h) = 3
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ItemDividerLineAlignment(h) = 3"

	' var_Items.ItemHeight(h) = 24
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ItemHeight(h) = 24"

	' var_Items.SortableItem(h) = .f.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.SortableItem(h) = False"

	h1 = var_Items.InsertItem(h,,"Child 1")
	' var_Items.CellCaption(h1,1) = 1
	oComboBox.TemplateDef = "dim var_Items,h1"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h1
	oComboBox.Template = "var_Items.CellCaption(h1,1) = 1"

	' var_Items.CellCaption(h1,2) = 2
	oComboBox.TemplateDef = "dim var_Items,h1"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h1
	oComboBox.Template = "var_Items.CellCaption(h1,2) = 2"

	' var_Items.CellCaption(h1,3) = 3
	oComboBox.TemplateDef = "dim var_Items,h1"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h1
	oComboBox.Template = "var_Items.CellCaption(h1,3) = 3"

	h1 = var_Items.InsertItem(h,,"Child 2")
	' var_Items.CellCaption(h1,1) = 4
	oComboBox.TemplateDef = "dim var_Items,h1"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h1
	oComboBox.Template = "var_Items.CellCaption(h1,1) = 4"

	' var_Items.CellCaption(h1,2) = 5
	oComboBox.TemplateDef = "dim var_Items,h1"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h1
	oComboBox.Template = "var_Items.CellCaption(h1,2) = 5"

	' var_Items.CellCaption(h1,3) = 6
	oComboBox.TemplateDef = "dim var_Items,h1"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h1
	oComboBox.Template = "var_Items.CellCaption(h1,3) = 6"

	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"


433:
How can I specify an item to be always the first item

Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.TreeColumnIndex = -1
' oComboBox.Columns.Add("Numbers").SortType = 1
var_Column = oComboBox.Columns.Add("Numbers")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.SortType = 1"

var_Items = oComboBox.Items
	var_Items.AddItem(1)
	var_Items.AddItem(2)
	var_Items.AddItem(3)
	var_Items.AddItem(4)
	h = var_Items.AddItem("first")
	' var_Items.ItemPosition(h) = 0
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ItemPosition(h) = 0"

	' var_Items.CellHAlignment(h,0) = 2
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellHAlignment(h,0) = 2"

	' var_Items.SortableItem(h) = .f.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.SortableItem(h) = False"

	var_Items.SortChildren(0,0,.f.)
oComboBox.EndUpdate()

432:
How can I specify an item to be always the last item

Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.TreeColumnIndex = -1
' oComboBox.Columns.Add("Numbers").SortType = 1
var_Column = oComboBox.Columns.Add("Numbers")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.SortType = 1"

var_Items = oComboBox.Items
	var_Items.AddItem(1)
	var_Items.AddItem(2)
	var_Items.AddItem(3)
	var_Items.AddItem(4)
	h = var_Items.AddItem("last")
	' var_Items.CellHAlignment(h,0) = 2
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellHAlignment(h,0) = 2"

	' var_Items.SortableItem(h) = .f.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.SortableItem(h) = False"

	var_Items.SortChildren(0,0,.t.)
oComboBox.EndUpdate()

431:
Can I allow sorting only the child items

Dim h as N
Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Columns.Add("Childs")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	' var_Items.SortableItem(h) = .f.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.SortableItem(h) = False"

	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Root 2")
	' var_Items.SortableItem(h) = .f.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.SortableItem(h) = False"

	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

oComboBox.EndUpdate()

430:
Can I specify a terminal item so it will mark the end of childs

Dim h as N
Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.ScrollBySingleLine = .t.
oComboBox.Columns.Add("P1")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.InsertItem(h,"","")
	' var_Items.ItemDivider(h) = 0
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ItemDivider(h) = 0"

	' var_Items.ItemDividerLineAlignment(h) = 1
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ItemDividerLineAlignment(h) = 1"

	' var_Items.ItemHeight(h) = 2
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ItemHeight(h) = 2"

	' var_Items.SelectableItem(h) = .f.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.SelectableItem(h) = False"

	' var_Items.SortableItem(h) = .f.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.SortableItem(h) = False"

	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.InsertItem(h,"","")
	' var_Items.ItemDivider(h) = 0
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ItemDivider(h) = 0"

	' var_Items.ItemDividerLineAlignment(h) = 1
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ItemDividerLineAlignment(h) = 1"

	' var_Items.ItemHeight(h) = 2
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ItemHeight(h) = 2"

	' var_Items.SelectableItem(h) = .f.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.SelectableItem(h) = False"

	' var_Items.SortableItem(h) = .f.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.SortableItem(h) = False"

oComboBox.EndUpdate()

429:
Is it possible to specify an item being unsortable so its position won't be changed after sorting

Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.TreeColumnIndex = -1
' oComboBox.Columns.Add("Numbers").SortType = 1
var_Column = oComboBox.Columns.Add("Numbers")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.SortType = 1"

var_Items = oComboBox.Items
	var_Items.AddItem(1)
	var_Items.AddItem(2)
	var_Items.AddItem(3)
	var_Items.AddItem(4)
	h = var_Items.AddItem("top 3")
	' var_Items.ItemPosition(h) = 3
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ItemPosition(h) = 3"

	' var_Items.CellHAlignment(h,0) = 2
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellHAlignment(h,0) = 2"

	' var_Items.SortableItem(h) = .f.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.SortableItem(h) = False"

	var_Items.SortChildren(0,0,.f.)
oComboBox.EndUpdate()

428:
Can I specify an item to be a separator

Dim h as N
Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.TreeColumnIndex = -1
oComboBox.SortOnClick = 0
oComboBox.Columns.Add("Numbers")
var_Items = oComboBox.Items
	var_Items.AddItem(1)
	var_Items.AddItem(2)
	h = var_Items.AddItem("separator")
	' var_Items.SelectableItem(h) = .f.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.SelectableItem(h) = False"

	' var_Items.ItemDivider(h) = 0
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ItemDivider(h) = 0"

	' var_Items.ItemDividerLineAlignment(h) = 1
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ItemDividerLineAlignment(h) = 1"

	' var_Items.ItemDividerLine(h) = 5
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ItemDividerLine(h) = 5"

	' var_Items.CellHAlignment(h,0) = 1
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellHAlignment(h,0) = 1"

	var_Items.AddItem(3)
	var_Items.AddItem(4)
oComboBox.EndUpdate()

427:
How can I collapse all items

Dim h as N
Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
oComboBox.Columns.Add("Items")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(0) = .f.
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.ExpandItem(0) = False"

oComboBox.EndUpdate()

426:
How can I expand all items

Dim h as N
Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
oComboBox.Columns.Add("Items")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(0) = .t.
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.ExpandItem(0) = True"

oComboBox.EndUpdate()

425:
Is it possible to specify the cell's value but still want to display some formatted text instead the value

Dim h as N
Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.MarkSearchColumn = .f.
oComboBox.Columns.Add("Value")
oComboBox.Columns.Add("FormatCell")
var_Items = oComboBox.Items
	h = var_Items.AddItem(1)
	' var_Items.CellCaption(h,1) = 12
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaption(h,1) = 12"

	' var_Items.FormatCell(h,1) = "currency(value)"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.FormatCell(h,1) = `currency(value)`"

	h = var_Items.AddItem({01/01/2001})
	' var_Items.CellCaption(h,1) = {01/01/2001}
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaption(h,1) = #1/1/2001#"

	' var_Items.CellCaptionFormat(h,1) = 1
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellCaptionFormat(h,1) = 1"

	' var_Items.FormatCell(h,1) = "longdate(value) replace '2001' with '<b>2001</b>'"
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.FormatCell(h,1) = `longdate(value) replace '2001' with '<b>2001</b>'`"

oComboBox.EndUpdate()

424:
How can I change the foreground color for a particular column

Dim oComboBox as P
Dim var_Column as local
Dim var_Columns as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Columns = oComboBox.Columns
	var_Columns.Add("Column 1")
	' var_Columns.Add("Column 2").Def(8) = 8439039
	var_Column = var_Columns.Add("Column 2")
	oComboBox.TemplateDef = "dim var_Column"
	oComboBox.TemplateDef = var_Column
	oComboBox.Template = "var_Column.Def(8) = 8439039"

	var_Columns.Add("Column 3")

423:
How can I change the background color for a particular column

Dim oComboBox as P
Dim var_Column as local
Dim var_Columns as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Columns = oComboBox.Columns
	var_Columns.Add("Column 1")
	' var_Columns.Add("Column 2").Def(7) = 8439039
	var_Column = var_Columns.Add("Column 2")
	oComboBox.TemplateDef = "dim var_Column"
	oComboBox.TemplateDef = var_Column
	oComboBox.Template = "var_Column.Def(7) = 8439039"

	var_Columns.Add("Column 3")

422:
How can I display the column using currency format and enlarge the font for certain values

Dim oComboBox as P
Dim var_Column as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Column = oComboBox.Columns.Add("Currency")
	' var_Column.Def(17) = 1
	oComboBox.TemplateDef = "dim var_Column"
	oComboBox.TemplateDef = var_Column
	oComboBox.Template = "var_Column.Def(17) = 1"

	var_Column.FormatColumn = "len(value) ? ((0:=dbl(value)) < 10 ? '<fgcolor=808080><font ;7>' : '<b>') + currency(=:0)"
var_Items = oComboBox.Items
	var_Items.AddItem("1.23")
	var_Items.AddItem("2.34")
	var_Items.AddItem("9.94")
	var_Items.AddItem("11.94")
	var_Items.AddItem("1000")

421:
How can I highlight only parts of the cells

Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Column = oComboBox.Columns.Add("")
	' var_Column.Def(17) = 1
	oComboBox.TemplateDef = "dim var_Column"
	oComboBox.TemplateDef = var_Column
	oComboBox.Template = "var_Column.Def(17) = 1"

	var_Column.FormatColumn = "value replace 'hil' with '<fgcolor=FF0000><b>hil</b></fgcolor>'"
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"Child 3")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"


420:
How can I get the number of occurrences of a specified string in the cell

Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("")
var_Column = oComboBox.Columns.Add("occurrences")
	var_Column.ComputedField = "lower(%0) count 'o'"
	var_Column.FormatColumn = "'contains ' + value + ' of \'o\' chars'"
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1 oooof the root")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"Child 3")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"


419:
How can I display dates in my format

Dim oComboBox as P
Dim var_Column as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Column = oComboBox.Columns.Add("Date")
	' var_Column.Def(17) = 1
	oComboBox.TemplateDef = "dim var_Column"
	oComboBox.TemplateDef = var_Column
	oComboBox.Template = "var_Column.Def(17) = 1"

	var_Column.FormatColumn = "'<b>' + year(0:=date(value)) + '</b><fgcolor=808080><font ;6> (' + month(=:0) + ' - ' + day(=:0) +')'"
var_Items = oComboBox.Items
	var_Items.AddItem({01/21/2001})
	var_Items.AddItem({02/22/2002})
	var_Items.AddItem({03/13/2003})
	var_Items.AddItem({04/24/2004})

418:
How can I display dates in short format

Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("Date").FormatColumn = "shortdate(value)"
var_Column = oComboBox.Columns.Add("Date")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.FormatColumn = `shortdate(value)`"

var_Items = oComboBox.Items
	var_Items.AddItem({01/01/2001})
	var_Items.AddItem({02/02/2002})
	var_Items.AddItem({03/03/2003})
	var_Items.AddItem({04/04/2004})

417:
How can I display dates in long format

Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("Date").FormatColumn = "longdate(value)"
var_Column = oComboBox.Columns.Add("Date")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.FormatColumn = `longdate(value)`"

var_Items = oComboBox.Items
	var_Items.AddItem({01/01/2001})
	var_Items.AddItem({02/02/2002})
	var_Items.AddItem({03/03/2003})
	var_Items.AddItem({04/04/2004})

416:
How can I display only the right part of the cell

Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("")
var_Column = oComboBox.Columns.Add("Right")
	var_Column.ComputedField = "%0 right 2"
	var_Column.FormatColumn = "'\"' + value + '\"'"
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"SChild 3")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"


415:
How can I display true or false instead 0 and -1

Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("Boolean").FormatColumn = "value != 0 ? 'true' : 'false'"
var_Column = oComboBox.Columns.Add("Boolean")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.FormatColumn = `value != 0 ? 'true' : 'false'`"

var_Items = oComboBox.Items
	var_Items.AddItem(.t.)
	var_Items.AddItem(.f.)
	var_Items.AddItem(.t.)
	var_Items.AddItem(0)
	var_Items.AddItem(1)

414:
How can I display icons or images instead numbers

Dim oComboBox as P
Dim var_Column as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Icons")
	' var_Column.Def(17) = 1
	oComboBox.TemplateDef = "dim var_Column"
	oComboBox.TemplateDef = var_Column
	oComboBox.Template = "var_Column.Def(17) = 1"

	var_Column.FormatColumn = "'The cell displays the icon <img>'+value+'</img> instead ' + value"
var_Items = oComboBox.Items
	var_Items.AddItem(1)
	var_Items.AddItem(2)
	var_Items.AddItem(3)

413:
How can I display the column using currency

Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("Currency").FormatColumn = "currency(dbl(value))"
var_Column = oComboBox.Columns.Add("Currency")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.FormatColumn = `currency(dbl(value))`"

var_Items = oComboBox.Items
	var_Items.AddItem("1.23")
	var_Items.AddItem("2.34")
	var_Items.AddItem("0")
	var_Items.AddItem(5)
	var_Items.AddItem("10000.99")

412:
How can I filter programatically using more columns

Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Columns as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.MarkSearchColumn = .f.
var_Columns = oComboBox.Columns
	var_Columns.Add("Car")
	var_Columns.Add("Equipment")
var_Items = oComboBox.Items
	' var_Items.CellCaption(var_Items.AddItem("Mazda"),1) = "Air Bag"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Mazda`),1) = `Air Bag`"

	' var_Items.CellCaption(var_Items.AddItem("Toyota"),1) = "Air Bag,Air condition"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Toyota`),1) = `Air Bag,Air condition`"

	' var_Items.CellCaption(var_Items.AddItem("Ford"),1) = "Air condition"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Ford`),1) = `Air condition`"

	' var_Items.CellCaption(var_Items.AddItem("Nissan"),1) = "Air Bag,ABS,ESP"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Nissan`),1) = `Air Bag,ABS,ESP`"

	' var_Items.CellCaption(var_Items.AddItem("Mazda"),1) = "Air Bag, ABS,ESP"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Mazda`),1) = `Air Bag, ABS,ESP`"

	' var_Items.CellCaption(var_Items.AddItem("Mazda"),1) = "ABS,ESP"
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellCaption(AddItem(`Mazda`),1) = `ABS,ESP`"

var_Column = oComboBox.Columns.Item("Car")
	var_Column.FilterType = 240
	var_Column.Filter = "Mazda"
var_Column1 = oComboBox.Columns.Item("Equipment")
	var_Column1.FilterType = 3
	var_Column1.Filter = "*ABS*|*ESP*"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

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

' Fired after cell's state has been changed.
function CellStateChanged as v (Cell  as  OLE::Exontrol.ComboBox.1::HCELL)
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	oComboBox.LabelText = Cell
	? oComboBox.Items.CellCaption(0,Cell) 
	? oComboBox.Items.CellState(0,Cell) 
end function

Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 2
oComboBox.IntegralHeight = .t.
oComboBox.HeaderVisible = .f.
oComboBox.SingleEdit = .t.
oComboBox.SearchColumnIndex = -1
oComboBox.AdjustSearchColumn = .f.
' oComboBox.Columns.Add("Language").Def(0) = .t.
var_Column = oComboBox.Columns.Add("Language")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(0) = True"

var_Items = oComboBox.Items
	var_Items.AddItem("English")
	var_Items.AddItem("Hebrew")
	var_Items.AddItem("Spanish")
oComboBox.EndUpdate()

410:
How can I display a different caption in the label area, when I click the cell's check box

' Fired after cell's state has been changed.
function CellStateChanged as v (Cell  as  OLE::Exontrol.ComboBox.1::HCELL)
	oComboBox = topparent:CONTROL_ACTIVEX1.activex
	oComboBox.LabelText = Cell
	? oComboBox.Items.CellCaption(0,Cell) 
	? oComboBox.Items.CellState(0,Cell) 
end function

Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 2
oComboBox.IntegralHeight = .t.
oComboBox.HeaderVisible = .f.
oComboBox.SingleEdit = .t.
oComboBox.SearchColumnIndex = -1
oComboBox.AdjustSearchColumn = .f.
' oComboBox.Columns.Add("Language").Def(0) = .t.
var_Column = oComboBox.Columns.Add("Language")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(0) = True"

var_Items = oComboBox.Items
	var_Items.AddItem("English")
	var_Items.AddItem("Hebrew")
	var_Items.AddItem("Spanish")
oComboBox.LabelText = " <b>custom</b> text "
oComboBox.EndUpdate()

409:
How can I display a different caption in the label area

Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 2
oComboBox.IntegralHeight = .t.
oComboBox.HeaderVisible = .f.
oComboBox.SingleEdit = .t.
oComboBox.SearchColumnIndex = -1
oComboBox.AdjustSearchColumn = .f.
' oComboBox.Columns.Add("Language").Def(0) = .t.
var_Column = oComboBox.Columns.Add("Language")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(0) = True"

var_Items = oComboBox.Items
	var_Items.AddItem("English")
	var_Items.AddItem("Hebrew")
	var_Items.AddItem("Spanish")
oComboBox.LabelText = " <b>custom</b> text "
oComboBox.EndUpdate()

408:
How can I change the background appearance (ebn) for the filter field in the bottom part of the drop down portion

Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oComboBox.FilterForVisible = .t.
oComboBox.FilterForBackColor = 16777216
oComboBox.IntegralHeight = .t.
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 4")
	var_Items.AddItem("Item 5")
oComboBox.EndUpdate()

407:
How can I change the background color for the filter field in the bottom part of the drop down portion

Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.FilterForVisible = .t.
oComboBox.FilterForBackColor = 15790320
oComboBox.IntegralHeight = .t.
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 4")
	var_Items.AddItem("Item 5")
oComboBox.EndUpdate()

406:
How can I display a filter field in the bottom part of the drop down portion

Dim oComboBox as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.FilterForVisible = .t.
oComboBox.IntegralHeight = .t.
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 4")
	var_Items.AddItem("Item 5")
oComboBox.EndUpdate()

405:
Does your control support RightToLeft property for RTL languages or right to left

Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
var_Column = oComboBox.Columns.Add("P1")
	' var_Column.Def(0) = .t.
	oComboBox.TemplateDef = "dim var_Column"
	oComboBox.TemplateDef = var_Column
	oComboBox.Template = "var_Column.Def(0) = True"

	var_Column.PartialCheck = .t.
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.ExpandItem(h) = True"

oComboBox.RightToLeft = .t.
oComboBox.EndUpdate()

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

Dim oComboBox as P
Dim var_Columns as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Columns = oComboBox.Columns
	var_Columns.Add("C1")
	var_Columns.Add("C2")
	var_Columns.Add("C3")
	var_Columns.Add("C4")
	var_Columns.Add("C5")
	var_Columns.Add("C6")
	var_Columns.Add("C7")
	var_Columns.Add("C8")
oComboBox.RightToLeft = .t.
oComboBox.EndUpdate()

403:
Can I display the cell's check box after the text

Dim oComboBox as P
Dim var_Column as P
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Column = oComboBox.Columns.Add("Column")
	' var_Column.Def(0) = .t.
	oComboBox.TemplateDef = "dim var_Column"
	oComboBox.TemplateDef = var_Column
	oComboBox.Template = "var_Column.Def(0) = True"

	' var_Column.Def(34) = "caption,check"
	oComboBox.TemplateDef = "dim var_Column"
	oComboBox.TemplateDef = var_Column
	oComboBox.Template = "var_Column.Def(34) = `caption,check`"

var_Items = oComboBox.Items
	' var_Items.CellHasCheckBox(var_Items.AddItem("Caption 1"),0) = .t.
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellHasCheckBox(AddItem(`Caption 1`),0) = True"

	' var_Items.CellHasCheckBox(var_Items.AddItem("Caption 2"),0) = .t.
	oComboBox.TemplateDef = "dim var_Items"
	oComboBox.TemplateDef = var_Items
	oComboBox.Template = "var_Items.CellHasCheckBox(AddItem(`Caption 2`),0) = True"


402:
Can I change the order of the parts in the cell, as checkbox after the text, and so on

Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
' oComboBox.Columns.Add("Column").Def(34) = "caption,check,icon,icons,picture"
var_Column = oComboBox.Columns.Add("Column")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(34) = `caption,check,icon,icons,picture`"

var_Items = oComboBox.Items
	h = var_Items.AddItem("Text")
	' var_Items.CellImage(h,0) = 1
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellImage(h,0) = 1"

	' var_Items.CellHasCheckBox(h,0) = .t.
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellHasCheckBox(h,0) = True"


401:
Can I have an image displayed after the text. Can I get that effect without using HTML content

Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P

oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
' oComboBox.Columns.Add("Column").Def(34) = "caption,icon,check,icons,picture"
var_Column = oComboBox.Columns.Add("Column")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(34) = `caption,icon,check,icons,picture`"

var_Items = oComboBox.Items
	h = var_Items.AddItem("Text")
	' var_Items.CellImage(h,0) = 1
	oComboBox.TemplateDef = "dim var_Items,h"
	oComboBox.TemplateDef = var_Items
	oComboBox.TemplateDef = h
	oComboBox.Template = "var_Items.CellImage(h,0) = 1"