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

local h,oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Column = oList.Columns.Add("Date")
	var_Column.SortType = 2
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = false
	var_Column.DisplayFilterDate = true
	var_Column.FilterList = 1296 /*exShowFocusItem | exShowCheckBox | exSortItemsDesc*/
var_Column1 = oList.Columns.Add("DateTime")
	var_Column1.SortType = 3
	var_Column1.DisplayFilterButton = true
	var_Column1.DisplayFilterPattern = false
	var_Column1.FilterList = 1296 /*exShowFocusItem | exShowCheckBox | exSortItemsDesc*/
var_Column2 = oList.Columns.Add("Time")
	var_Column2.SortType = 4
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterList = 1296 /*exShowFocusItem | exShowCheckBox | exSortItemsDesc*/
	var_Column2.FormatColumn = "time(value)"
var_Column3 = oList.Columns.Add("Numeric")
	var_Column3.SortType = 1
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterList = 1296 /*exShowFocusItem | exShowCheckBox | exSortItemsDesc*/
var_Column4 = oList.Columns.Add("String")
	var_Column4.DisplayFilterButton = true
	var_Column4.FilterList = 1296 /*exShowFocusItem | exShowCheckBox | exSortItemsDesc*/
var_Items = oList.Items
	h = var_Items.Add("01/27/2010")
	// var_Items.Caption(h,1) = "01/27/2010 10:00:00"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = #1/27/2010 10:00:00 AM#]
	endwith
	// var_Items.Caption(h,2) = var_Items.Caption(h,1)
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,2) = Caption(h,1)]
	endwith
	// var_Items.Caption(h,3) = 1
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,3) = 1]
	endwith
	// var_Items.Caption(h,4) = var_Items.Caption(h,3)
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,4) = Caption(h,3)]
	endwith
	h = var_Items.Add("01/27/2011")
	// var_Items.Caption(h,1) = "01/27/2011 09:00:00"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = #1/27/2011 9:00:00 AM#]
	endwith
	// var_Items.Caption(h,2) = var_Items.Caption(h,1)
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,2) = Caption(h,1)]
	endwith
	// var_Items.Caption(h,3) = 11
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,3) = 11]
	endwith
	// var_Items.Caption(h,4) = var_Items.Caption(h,3)
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,4) = Caption(h,3)]
	endwith
	h = var_Items.Add("11/02/2010")
	// var_Items.Caption(h,1) = "11/02/2010 09:00:00"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = #11/2/2010 9:00:00 AM#]
	endwith
	// var_Items.Caption(h,2) = var_Items.Caption(h,1)
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,2) = Caption(h,1)]
	endwith
	// var_Items.Caption(h,3) = 2
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,3) = 2]
	endwith
	// var_Items.Caption(h,4) = var_Items.Caption(h,3)
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,4) = Caption(h,3)]
	endwith
oList.Columns.Item("DateTime").DisplayFilterDate = false
oList.EndUpdate()

485:
How can I get ride / hide the image being dragged by OLE Drag and Drop
/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	OLEStartDrag = class::nativeObject_OLEStartDrag
endwith
*/
// Occurs when the OLEDrag method is called.
function nativeObject_OLEStartDrag(Data,AllowedEffects)
	/* Data.SetData("data to drag") */
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	AllowedEffects = 1
return

local oList,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.OLEDropMode = 1
oList.Template = [Background(34) = 16777215] // oList.Background(34) = 0xffffff
oList.Columns.Add("Default")
var_Items = oList.Items
	var_Items.Add("Item 1")
	var_Items.Add("Item 2")
	var_Items.Add("Item 3")

484:
Is there an event that fires on the exList control when the order of items in the list is changed via dragging
/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	AllowAutoDrag = class::nativeObject_AllowAutoDrag
endwith
*/
// Occurs when the user drags the item between InsertA and InsertB.
function nativeObject_AllowAutoDrag(Item,InsertA,InsertB,Cancel)
	local var_Items
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	var_Items = oList.Items
		? "After" 
		? Str(var_Items.Caption(InsertA,0)) 
		? "Before" 
		? Str(var_Items.Caption(InsertB,0)) 
	Cancel = true
return

local oList,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.AutoDrag = 1
oList.Columns.Add("Task")
var_Items = oList.Items
	var_Items.Add("Item 1")
	var_Items.Add("Item 2")
	var_Items.Add("Item 3")
	var_Items.Add("Item 4")
oList.EndUpdate()

483:
How can I export checked items only

local oList,var_Column,var_Column1,var_Column2,var_Columns,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Columns = oList.Columns
	// var_Columns.Add("C1").Def(0) = true
	var_Column = var_Columns.Add("C1")
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(0) = True]
	endwith
	// var_Columns.Add("C2").FormatColumn = "1 index `A-Z`"
	var_Column1 = var_Columns.Add("C2")
	with (oList)
		TemplateDef = [dim var_Column1]
		TemplateDef = var_Column1
		Template = [var_Column1.FormatColumn = "1 index `A-Z`"]
	endwith
	// var_Columns.Add("C3").FormatColumn = "100 index ``"
	var_Column2 = var_Columns.Add("C3")
	with (oList)
		TemplateDef = [dim var_Column2]
		TemplateDef = var_Column2
		Template = [var_Column2.FormatColumn = "100 index ``"]
	endwith
var_Items = oList.Items
	var_Items.Add("Item 1")
	// var_Items.CellState(var_Items.Add("Item 2"),0) = 1
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellState(Add("Item 2"),0) = 1]
	endwith
	// var_Items.CellState(var_Items.Add("Item 3"),0) = 1
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellState(Add("Item 3"),0) = 1]
	endwith
oList.EndUpdate()
? "Export CSV Checked Items Only:" 
? Str(oList.Export("","chk")) 

482:
How can I export a hidden column

local oList,var_Column,var_Column1,var_Columns,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Columns = oList.Columns
	var_Columns.Add("C1")
	var_Column = var_Columns.Add("C2")
		var_Column.FormatColumn = "1 index `A-Z`"
		var_Column.Visible = false
	var_Column1 = var_Columns.Add("C3")
		var_Column1.FormatColumn = "100 index ``"
		var_Column1.Visible = false
var_Items = oList.Items
	var_Items.Add("Item 1")
	var_Items.Add("Item 2")
	var_Items.Add("Item 3")
oList.EndUpdate()
? "Export CSV Hidden Columns (1,2):" 
? Str(oList.Export("","|1,2")) 

481:
Is it possible to have a different alignment for parts of the cell's caption

local h,oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.DrawGridLines = -1
var_Column = oList.Columns.Add("Default")
	// var_Column.Def(0) = true
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(0) = True]
	endwith
var_Items = oList.Items
	// var_Items.CellHAlignment(var_Items.Add("all-left"),0) = 0
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellHAlignment(Add("all-left"),0) = 0]
	endwith
	// var_Items.CellHAlignment(var_Items.Add("all-center"),0) = 1
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellHAlignment(Add("all-center"),0) = 1]
	endwith
	// var_Items.CellHAlignment(var_Items.Add("all-right"),0) = 2
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellHAlignment(Add("all-right"),0) = 2]
	endwith
	h = var_Items.Add("left<c>center<r>right")
	// var_Items.CaptionFormat(h,0) = 1
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CaptionFormat(h,0) = 1]
	endwith
oList.EndUpdate()

480:
I have a column with Def(exCellSingleLine) property on False, word-wrapping, and I am wondering if possible to update the column's content while user is resizing it
local oList,var_Column,var_Column1,var_Columns,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Columns = oList.Columns
	var_Column = var_Columns.Add("MultipleLine")
		var_Column.Width = 32
		// var_Column.Def(16) = false
		with (oList)
			TemplateDef = [dim var_Column]
			TemplateDef = var_Column
			Template = [var_Column.Def(16) = False]
		endwith
		// var_Column.Def(64) = true
		with (oList)
			TemplateDef = [dim var_Column]
			TemplateDef = var_Column
			Template = [var_Column.Def(64) = True]
		endwith
	var_Column1 = var_Columns.Add("SingleLine")
		// var_Column1.Def(16) = false
		with (oList)
			TemplateDef = [dim var_Column1]
			TemplateDef = var_Column1
			Template = [var_Column1.Def(16) = False]
		endwith
var_Items = oList.Items
	// var_Items.Caption(var_Items.Add("This is a bit of long text that should break the line"),1) = "This is a bit of long text that should break the line"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("This is a bit of long text that should break the line"),1) = "This is a bit of long text that should break the line"]
	endwith
oList.EndUpdate()

479:
How can I hide the cell's tooltip
/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	ToolTip = class::nativeObject_ToolTip
endwith
*/
// Fired when the control prepares the object's tooltip.
function nativeObject_ToolTip(ItemIndex,ColIndex,Visible,X,Y,CX,CY)
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	? "The tooltip is about to be shown" 
	Visible = false
return

local oList,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.Columns.Add("Def")
var_Items = oList.Items
	// var_Items.CellToolTip(var_Items.Add("Item 1"),0) = "This is a bit of text that's shown when cursor hovers the item."
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellToolTip(Add("Item 1"),0) = "This is a bit of text that's shown when cursor hovers the item."]
	endwith
	// var_Items.CellToolTip(var_Items.Add("Item 2"),0) = "This is a bit of text that's shown when cursor hovers the item."
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellToolTip(Add("Item 2"),0) = "This is a bit of text that's shown when cursor hovers the item."]
	endwith
	// var_Items.CellToolTip(var_Items.Add("Item 3"),0) = "This is a bit of text that's shown when cursor hovers the item."
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellToolTip(Add("Item 3"),0) = "This is a bit of text that's shown when cursor hovers the item."]
	endwith
oList.EndUpdate()

478:
How can I find out if an item is selected or unselected
/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	MouseMove = class::nativeObject_MouseMove
endwith
*/
// Occurs when the user moves the mouse.
function nativeObject_MouseMove(Button,Shift,X,Y)
	local i,var_Items
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	i = oList.ItemFromPoint(-1,-1,c,hit)
	var_Items = oList.Items
		? Str(var_Items.SelectItem(i)) 
return

local oList,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.Columns.Add("Header")
var_Items = oList.Items
	var_Items.Add("Item 1")
	// var_Items.SelectItem(var_Items.Add("Item 2")) = true
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.SelectItem(Add("Item 2")) = True]
	endwith
	var_Items.Add("Item 3")

477:
How do I sort the index column as numeric

/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	AddItem = class::nativeObject_AddItem
endwith
*/
// Occurs after a new Item is inserted to Items collection.
function nativeObject_AddItem(Item)
	local var_Items
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	var_Items = oList.Items
		// var_Items.CellData(Item,1) = Item
		with (oList)
			TemplateDef = [dim var_Items,Item]
			TemplateDef = var_Items
			TemplateDef = Item
			Template = [var_Items.CellData(Item,1) = Item]
		endwith
return

local oList,var_Column,var_Column1,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.DrawGridLines = -1
oList.ColumnAutoResize = true
oList.ShowFocusRect = false
var_Column = oList.Columns.Add("Next")
	// var_Column.Def(48) = 4
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(48) = 4]
	endwith
	// var_Column.Def(52) = 4
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(52) = 4]
	endwith
var_Column1 = oList.Columns.Add("Index")
	var_Column1.AllowSizing = false
	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
	with (oList)
		TemplateDef = [dim var_Column1]
		TemplateDef = var_Column1
		Template = [var_Column1.Def(17) = 1]
	endwith
	var_Column1.SortType = 5
	var_Column1.Position = 0
var_Items = oList.Items
	var_Items.Add("Item 1")
	var_Items.Add("Item 2")
	var_Items.Add("Item 3")
	var_Items.Add("Item 4")
	var_Items.Add("Item 5")
	var_Items.Add("Item 6")
	var_Items.Add("Item 7")
	var_Items.Add("Item 8")
	var_Items.Add("Item 9")
	var_Items.Add("Item 10")
oList.EndUpdate()

476:
How can I put icons/images into buttons

local oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ColumnAutoResize = true
oList.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oList.Columns.Add("C+B")
	var_Column.AllowSizing = false
	var_Column.Width = 48
	var_Column.FormatColumn = "` <img>` + ( 1 + (1 index ``) mod 3 ) + `</img> `"
	// var_Column.Def(17) = 1
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(17) = 1]
	endwith
	// var_Column.Def(0) = true
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(0) = True]
	endwith
	// var_Column.Def(2) = true
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(2) = True]
	endwith
	// var_Column.Def(3 /*exCellHasButton | exCellHasRadioButton*/) = true
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(3) = True]
	endwith
oList.Columns.Add("")
oList.DrawGridLines = 2
oList.DefaultItemHeight = 20
var_Items = oList.Items
	var_Items.Add("")
	var_Items.Add("")
	var_Items.Add("")
	var_Items.Add("")
	var_Items.Add("")
	var_Items.Add("")
	var_Items.Add("")
	var_Items.Add("")
oList.EndUpdate()

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

/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	CellButtonClick = class::nativeObject_CellButtonClick
endwith
*/
// Fired after the user clicks the cell's button.
function nativeObject_CellButtonClick(Item,ColIndex)
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	? "CellButtonClick" 
	? Str(Item) 
return

/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	CellStateChanged = class::nativeObject_CellStateChanged
endwith
*/
// Fired after cell's state is changed.
function nativeObject_CellStateChanged(Item,ColIndex)
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	? "CellStateChanged" 
	? Str(Item) 
return

local oList,var_Column,var_Column1,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ColumnAutoResize = true
var_Column = oList.Columns.Add("")
	var_Column.AllowSizing = false
	var_Column.Width = 32
	var_Column.FormatColumn = "1 index ``"
var_Column1 = oList.Columns.Add("Def")
	var_Column1.AllowSizing = false
	var_Column1.Width = 48
	var_Column1.FormatColumn = "`     `"
	// var_Column1.Def(0) = true
	with (oList)
		TemplateDef = [dim var_Column1]
		TemplateDef = var_Column1
		Template = [var_Column1.Def(0) = True]
	endwith
	// var_Column1.Def(2) = true
	with (oList)
		TemplateDef = [dim var_Column1]
		TemplateDef = var_Column1
		Template = [var_Column1.Def(2) = True]
	endwith
	// var_Column1.Def(3 /*exCellHasButton | exCellHasRadioButton*/) = true
	with (oList)
		TemplateDef = [dim var_Column1]
		TemplateDef = var_Column1
		Template = [var_Column1.Def(3) = True]
	endwith
oList.Columns.Add("")
var_Items = oList.Items
	var_Items.Add("")
	var_Items.Add("")
	var_Items.Add("")
	var_Items.Add("")
	var_Items.Add("")
	var_Items.Add("")
	var_Items.Add("")
	var_Items.Add("")
oList.EndUpdate()

474:
Does filtering work with umlauts / accents characters
local oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Column = oList.Columns.Add("Names")
	var_Column.DisplayFilterButton = true
	var_Column.FilterType = 3
var_Items = oList.Items
	var_Items.Add("Mantel")
	var_Items.Add("Mechanik")
	var_Items.Add("Motor")
	var_Items.Add("Murks")
	var_Items.Add("Märchen")
	var_Items.Add("Möhren")
	var_Items.Add("Mühle")
	var_Items.Add("Sérigraphie")
oList.Columns.Item(0).Filter = "*ä*"
oList.ApplyFilter()
oList.EndUpdate()

473:
Can I set the search box / filterbarprompt to invisible, so I can use my own input and *string* via VBA
local h0,oList,var_Column,var_Column1,var_Columns,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ColumnAutoResize = true
oList.ContinueColumnScroll = false
oList.MarkSearchColumn = false
oList.SearchColumnIndex = 1
oList.FilterBarHeight = 0
oList.FilterBarPromptVisible = true
var_Columns = oList.Columns
	// var_Columns.Add("Name").Width = 96
	var_Column = var_Columns.Add("Name")
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Width = 96]
	endwith
	// var_Columns.Add("Title").Width = 96
	var_Column1 = var_Columns.Add("Title")
	with (oList)
		TemplateDef = [dim var_Column1]
		TemplateDef = var_Column1
		Template = [var_Column1.Width = 96]
	endwith
	var_Columns.Add("City")
var_Items = oList.Items
	h0 = var_Items.Add("Nancy Davolio")
	// var_Items.Caption(h0,1) = "Sales Representative"
	with (oList)
		TemplateDef = [dim var_Items,h0]
		TemplateDef = var_Items
		TemplateDef = h0
		Template = [var_Items.Caption(h0,1) = "Sales Representative"]
	endwith
	// var_Items.Caption(h0,2) = "Seattle"
	with (oList)
		TemplateDef = [dim var_Items,h0]
		TemplateDef = var_Items
		TemplateDef = h0
		Template = [var_Items.Caption(h0,2) = "Seattle"]
	endwith
	h0 = var_Items.Add("Andrew Fuller")
	// var_Items.Caption(h0,1) = "Vice President, Sales"
	with (oList)
		TemplateDef = [dim var_Items,h0]
		TemplateDef = var_Items
		TemplateDef = h0
		Template = [var_Items.Caption(h0,1) = "Vice President, Sales"]
	endwith
	// var_Items.Caption(h0,2) = "Tacoma"
	with (oList)
		TemplateDef = [dim var_Items,h0]
		TemplateDef = var_Items
		TemplateDef = h0
		Template = [var_Items.Caption(h0,2) = "Tacoma"]
	endwith
	// var_Items.SelectItem(h0) = true
	with (oList)
		TemplateDef = [dim var_Items,h0]
		TemplateDef = var_Items
		TemplateDef = h0
		Template = [var_Items.SelectItem(h0) = True]
	endwith
	h0 = var_Items.Add("Janet Leverling")
	// var_Items.Caption(h0,1) = "Sales Representative"
	with (oList)
		TemplateDef = [dim var_Items,h0]
		TemplateDef = var_Items
		TemplateDef = h0
		Template = [var_Items.Caption(h0,1) = "Sales Representative"]
	endwith
	// var_Items.Caption(h0,2) = "Kirkland"
	with (oList)
		TemplateDef = [dim var_Items,h0]
		TemplateDef = var_Items
		TemplateDef = h0
		Template = [var_Items.Caption(h0,2) = "Kirkland"]
	endwith
	h0 = var_Items.Add("Margaret Peacock")
	// var_Items.Caption(h0,1) = "Sales Representative"
	with (oList)
		TemplateDef = [dim var_Items,h0]
		TemplateDef = var_Items
		TemplateDef = h0
		Template = [var_Items.Caption(h0,1) = "Sales Representative"]
	endwith
	// var_Items.Caption(h0,2) = "Redmond"
	with (oList)
		TemplateDef = [dim var_Items,h0]
		TemplateDef = var_Items
		TemplateDef = h0
		Template = [var_Items.Caption(h0,2) = "Redmond"]
	endwith
	h0 = var_Items.Add("Steven Buchanan")
	// var_Items.Caption(h0,1) = "Sales Manager"
	with (oList)
		TemplateDef = [dim var_Items,h0]
		TemplateDef = var_Items
		TemplateDef = h0
		Template = [var_Items.Caption(h0,1) = "Sales Manager"]
	endwith
	// var_Items.Caption(h0,2) = "London"
	with (oList)
		TemplateDef = [dim var_Items,h0]
		TemplateDef = var_Items
		TemplateDef = h0
		Template = [var_Items.Caption(h0,2) = "London"]
	endwith
	h0 = var_Items.Add("Michael Suyama")
	// var_Items.Caption(h0,1) = "Sales Representative"
	with (oList)
		TemplateDef = [dim var_Items,h0]
		TemplateDef = var_Items
		TemplateDef = h0
		Template = [var_Items.Caption(h0,1) = "Sales Representative"]
	endwith
	// var_Items.Caption(h0,2) = "London"
	with (oList)
		TemplateDef = [dim var_Items,h0]
		TemplateDef = var_Items
		TemplateDef = h0
		Template = [var_Items.Caption(h0,2) = "London"]
	endwith
	h0 = var_Items.Add("Robert King")
	// var_Items.Caption(h0,1) = "Sales Representative"
	with (oList)
		TemplateDef = [dim var_Items,h0]
		TemplateDef = var_Items
		TemplateDef = h0
		Template = [var_Items.Caption(h0,1) = "Sales Representative"]
	endwith
	// var_Items.Caption(h0,2) = "London"
	with (oList)
		TemplateDef = [dim var_Items,h0]
		TemplateDef = var_Items
		TemplateDef = h0
		Template = [var_Items.Caption(h0,2) = "London"]
	endwith
	h0 = var_Items.Add("Laura Callahan")
	// var_Items.Caption(h0,1) = "Inside Sales Coordinator"
	with (oList)
		TemplateDef = [dim var_Items,h0]
		TemplateDef = var_Items
		TemplateDef = h0
		Template = [var_Items.Caption(h0,1) = "Inside Sales Coordinator"]
	endwith
	// var_Items.Caption(h0,2) = "Seattle"
	with (oList)
		TemplateDef = [dim var_Items,h0]
		TemplateDef = var_Items
		TemplateDef = h0
		Template = [var_Items.Caption(h0,2) = "Seattle"]
	endwith
	h0 = var_Items.Add("Anne Dodsworth")
	// var_Items.Caption(h0,1) = "Sales Representative"
	with (oList)
		TemplateDef = [dim var_Items,h0]
		TemplateDef = var_Items
		TemplateDef = h0
		Template = [var_Items.Caption(h0,1) = "Sales Representative"]
	endwith
	// var_Items.Caption(h0,2) = "London"
	with (oList)
		TemplateDef = [dim var_Items,h0]
		TemplateDef = var_Items
		TemplateDef = h0
		Template = [var_Items.Caption(h0,2) = "London"]
	endwith
oList.FilterBarPromptPattern = "London"
oList.EndUpdate()

472:
How can I align captions of items with checkbox, with items with no checkbox

local oList,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.Columns.Add("Default")
var_Items = oList.Items
	// var_Items.CellImages(var_Items.Add(0),0) = "1"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellImages(Add(0),0) = "1"]
	endwith
	// var_Items.CellHasCheckBox(var_Items.Add(1),0) = true
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellHasCheckBox(Add(1),0) = True]
	endwith
	// var_Items.CellImages(var_Items.Add(2),0) = "1"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellImages(Add(2),0) = "1"]
	endwith
oList.EndUpdate()

471:
How do I programmatically scroll the control (method 2)
local oList,rs

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ColumnAutoResize = false
oList.ContinueColumnScroll = false
rs = new OleAutoClient("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\SAMPLE.MDB",3,3)
oList.DataSource = rs
oList.Layout = "vscroll = 10"
oList.EndUpdate()

470:
How do I programmatically scroll the control (method 1)
local oList,rs

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ColumnAutoResize = false
oList.ContinueColumnScroll = false
rs = new OleAutoClient("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\SAMPLE.MDB",3,3)
oList.DataSource = rs
oList.Template = [ScrollPos(True) = 10] // oList.ScrollPos(true) = 10
oList.EndUpdate()

469:
How can I decode the Layout property
local oList,var_Column,var_Columns,var_Items,var_Print

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Columns = oList.Columns
	var_Columns.Add("C1")
	// var_Columns.Add("C2").Position = 1
	var_Column = var_Columns.Add("C2")
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Position = 1]
	endwith
var_Items = oList.Items
	// var_Items.Caption(var_Items.Add("SubItem 1.1"),1) = "SubItem 1.2"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("SubItem 1.1"),1) = "SubItem 1.2"]
	endwith
	// var_Items.Caption(var_Items.Add("SubItem 2.1"),1) = "SubItem 2.2"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("SubItem 2.1"),1) = "SubItem 2.2"]
	endwith
oList.Columns.Item("C2").SortOrder = 2
oList.EndUpdate()
? "Encoded:" 
? oList.Layout 
var_Print = new OleAutoClient("Exontrol.Print")
	? "Decoded: " 
	? var_Print.Decode64TextW(oList.Layout) 

468:
Does the title of the cell's tooltip supports HTML format

local h,oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Column = oList.Columns.Add("")
	var_Column.Caption = ""
	var_Column.HTMLCaption = "Column"
var_Items = oList.Items
	h = var_Items.Add("tooltip w/h different title")
	// var_Items.CellToolTip(h,0) = "<c><b><fgcolor=FF0000>Title</fgcolor></b><br>This is bit of text that's shown when the user hovers the cell. This shows the title centered with a different color."
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellToolTip(h,0) = "<c><b><fgcolor=FF0000>Title</fgcolor></b><br>This is bit of text that's shown when the user hovers the cell. This shows the title centered with a different color."]
	endwith
oList.EndUpdate()

467:
How do I specify a different title for the cell's tooltip

local h,oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Column = oList.Columns.Add("")
	var_Column.Caption = "This is the title"
	var_Column.HTMLCaption = "Column"
var_Items = oList.Items
	h = var_Items.Add("tooltip w/h different title")
	// var_Items.CellToolTip(h,0) = "This is bit of text that's shown when the user hovers the cell."
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellToolTip(h,0) = "This is bit of text that's shown when the user hovers the cell."]
	endwith
oList.EndUpdate()

466:
The cell's tooltip displays the column's caption in its title. How can I get ride of that

local h,oList,var_Column,var_Columns,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Columns = oList.Columns
	var_Columns.Add("C1")
	var_Columns.Add("C2")
var_Items = oList.Items
	h = var_Items.Add("tooltip w/h caption")
	// var_Items.CellToolTip(h,0) = "This is bit of text that's shown when the user hovers the cell. This shows the column's caption in the title."
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellToolTip(h,0) = "This is bit of text that's shown when the user hovers the cell. This shows the column's caption in the title."]
	endwith
	// var_Items.Caption(h,1) = "tooltip no caption"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = "tooltip no caption"]
	endwith
	// var_Items.CellToolTip(h,1) = "This is bit of text that's shown when the user hovers the cell. This shows no column's caption in the title."
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellToolTip(h,1) = "This is bit of text that's shown when the user hovers the cell. This shows no column's caption in the title."]
	endwith
var_Column = oList.Columns.Item("C2")
	var_Column.HTMLCaption = var_Column.Caption
	var_Column.Caption = ""
oList.EndUpdate()

465:
When you click the cell it takes some time before the edit box appears, can this delay be removed

/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	Click = class::nativeObject_Click
endwith
*/
// Occurs when the user presses and then releases the left mouse button over the list control.
function nativeObject_Click()
	local h
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	h = oList.ItemFromPoint(-1,-1,ColIndex,HitTestInfo)
	oList.Items.Edit(h,ColIndex)
return

local oList,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.AllowEdit = true
oList.Columns.Add("Default")
var_Items = oList.Items
	var_Items.Add("")
	var_Items.Add("Edit")
	var_Items.Add("")

464:
How can I programmatically show the column's filter

/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	RClick = class::nativeObject_RClick
endwith
*/
// Fired when right mouse button is clicked
function nativeObject_RClick()
	local i
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	i = oList.ItemFromPoint(-1,-1,c,hit)
	oList.Columns.Item(c).ShowFilter("-1,-1,128,128")
return

local oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ShowFocusRect = false
var_Column = oList.Columns.Add("Items ")
	var_Column.DisplayFilterPattern = false
	var_Column.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Items = oList.Items
	var_Items.Add("Item 1")
	var_Items.Add("Item 2")
	var_Items.Add("Item 3")
oList.EndUpdate()

463:
I want to be able to click on one of the headers, and sort by other column. How can I do that

/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	ColumnClick = class::nativeObject_ColumnClick
endwith
*/
// Fired after the user clicks on column's header.
function nativeObject_ColumnClick(Column)
	/* Column.SortOrder = 1 */
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	oList.SortOnClick = -1
	oList.Columns.Item("Sort").SortOrder = 1
	oList.SortOnClick = 1
return

local oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.SortOnClick = 1
oList.Columns.Add("Items")
// oList.Columns.Add("Sort").Visible = false
var_Column = oList.Columns.Add("Sort")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.Visible = False]
endwith
var_Items = oList.Items
	// var_Items.Caption(var_Items.Add("Item 1 (3)"),1) = 3
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item 1 (3)"),1) = 3]
	endwith
	// var_Items.Caption(var_Items.Add("Item 2 (1)"),1) = 1
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item 2 (1)"),1) = 1]
	endwith
	// var_Items.Caption(var_Items.Add("Item 3 (2)"),1) = 2
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item 3 (2)"),1) = 2]
	endwith
oList.EndUpdate()

462:
How can I sort by two-columns, one by date and one by time

local h,oList,var_Column,var_Column1,var_Column2,var_Columns,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.SingleSort = false
var_Columns = oList.Columns
	// var_Columns.Add("Index").FormatColumn = "1 index ``"
	var_Column = var_Columns.Add("Index")
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.FormatColumn = "1 index ``"]
	endwith
	// var_Columns.Add("Date").SortType = 2
	var_Column1 = var_Columns.Add("Date")
	with (oList)
		TemplateDef = [dim var_Column1]
		TemplateDef = var_Column1
		Template = [var_Column1.SortType = 2]
	endwith
	var_Column2 = var_Columns.Add("Time")
		var_Column2.SortType = 4
		var_Column2.FormatColumn = "time(value)"
var_Items = oList.Items
	h = var_Items.Add(0)
	// var_Items.Caption(h,1) = "01/01/2001"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = #1/1/2001#]
	endwith
	// var_Items.Caption(h,2) = "01/01/2001 10:00:00"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,2) = #1/1/2001 10:00:00 AM#]
	endwith
	h = var_Items.Add(0)
	// var_Items.Caption(h,1) = "12/31/2000"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = #12/31/2000#]
	endwith
	// var_Items.Caption(h,2) = "01/01/2001 10:00:00"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,2) = #1/1/2001 10:00:00 AM#]
	endwith
	h = var_Items.Add(0)
	// var_Items.Caption(h,1) = "01/01/2001"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = #1/1/2001#]
	endwith
	// var_Items.Caption(h,2) = "01/01/2001 06:00:00"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,2) = #1/1/2001 6:00:00 AM#]
	endwith
	h = var_Items.Add(0)
	// var_Items.Caption(h,1) = "12/31/2000"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = #12/31/2000#]
	endwith
	// var_Items.Caption(h,2) = "01/01/2001 08:00:00"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,2) = #1/1/2001 8:00:00 AM#]
	endwith
	h = var_Items.Add(0)
	// var_Items.Caption(h,1) = "01/01/2001"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = #1/1/2001#]
	endwith
	// var_Items.Caption(h,2) = "01/01/2001 08:00:00"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,2) = #1/1/2001 8:00:00 AM#]
	endwith
	h = var_Items.Add(0)
	// var_Items.Caption(h,1) = "12/31/2000"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = #12/31/2000#]
	endwith
	// var_Items.Caption(h,2) = "01/01/2001 06:00:00"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,2) = #1/1/2001 6:00:00 AM#]
	endwith
oList.Layout = "multiplesort=" + ["] + "C1:1 C2:1" + ["] + ""
oList.EndUpdate()

461:
How can I connect to a DBF file
local oList,rs

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ColumnAutoResize = false
oList.ContinueColumnScroll = false
oList.MarkSearchColumn = false
rs = new OleAutoClient("ADODB.Recordset")
	rs.Open("Select * From foxcode.DBF","Provider=vfpoledb;Data Source=C:\Program Files\Microsoft Visual FoxPro 9\",3,3)
oList.DataSource = rs
oList.EndUpdate()

460:
Does your control supports scrolling by touching the screen

local oList,rs

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.ColumnAutoResize = false
rs = new OleAutoClient("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\VB\SAMPLE.MDB",3,3)
oList.DataSource = rs
oList.ContinueColumnScroll = true
oList.ScrollBySingleLine = true
oList.AutoDrag = 4112 /*exAutoDragScrollOnShortTouch | exAutoDragScroll*/

459:
How can I enlarge the size of the control's scroll bars, for using on touch screens

local oList

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.ScrollBars = 15
oList.ScrollWidth = 32
oList.ScrollHeight = 32
oList.ScrollButtonHeight = 32
oList.ScrollButtonWidth = 32

458:
Is there a syntax for conditional formatting of items, based on CellState/CellStateChange

/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	CellStateChanged = class::nativeObject_CellStateChanged
endwith
*/
// Fired after cell's state is changed.
function nativeObject_CellStateChanged(Item,ColIndex)
	local var_Items
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	var_Items = oList.Items
		// var_Items.Caption(Item,2) = var_Items.CellState(Item,0)
		with (oList)
			TemplateDef = [dim var_Items,Item]
			TemplateDef = var_Items
			TemplateDef = Item
			Template = [var_Items.Caption(Item,2) = CellState(Item,0)]
		endwith
return

local h,oList,var_Column,var_Column1,var_ConditionalFormat,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ShowFocusRect = false
oList.MarkSearchColumn = false
oList.SelBackMode = 1
var_ConditionalFormat = oList.ConditionalFormats.Add("%2 != 0")
	var_ConditionalFormat.Bold = true
	var_ConditionalFormat.ForeColor = 0xff
	var_ConditionalFormat.ApplyTo = -1
var_Column = oList.Columns.Add("")
	// var_Column.Def(0) = true
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(0) = True]
	endwith
	var_Column.Width = 16
	var_Column.AllowSizing = false
oList.Columns.Add("Information")
// oList.Columns.Add("Hidden").Visible = false
var_Column1 = oList.Columns.Add("Hidden")
with (oList)
	TemplateDef = [dim var_Column1]
	TemplateDef = var_Column1
	Template = [var_Column1.Visible = False]
endwith
var_Items = oList.Items
	// var_Items.Caption(var_Items.Add(""),1) = "This is a bit of text associated"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add(""),1) = "This is a bit of text associated"]
	endwith
	h = var_Items.Add("")
	// var_Items.Caption(h,1) = "This is a bit of text associated"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = "This is a bit of text associated"]
	endwith
	// var_Items.CellState(h,0) = 1
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellState(h,0) = 1]
	endwith
	// var_Items.Caption(var_Items.Add(""),1) = "This is a bit of text associated"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add(""),1) = "This is a bit of text associated"]
	endwith
oList.EndUpdate()

457:
How can I display the caption bellow to picture

local h,oList,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ScrollBySingleLine = true
oList.Template = [HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"] // oList.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
oList.Template = [HTMLPicture("p2") = "c:\exontrol\images\auction.gif"] // oList.HTMLPicture("p2") = "c:\exontrol\images\auction.gif"
oList.Columns.Add("Default")
var_Items = oList.Items
	h = var_Items.Add("<c><img>p1</img><br><c>your caption1")
	// var_Items.CellSingleLine(h,0) = false
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellSingleLine(h,0) = False]
	endwith
	// var_Items.CaptionFormat(h,0) = 1
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CaptionFormat(h,0) = 1]
	endwith
	h = var_Items.Add("<c><img>p2</img><br><c>your caption2")
	// var_Items.CellSingleLine(h,0) = false
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellSingleLine(h,0) = False]
	endwith
	// var_Items.CaptionFormat(h,0) = 1
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CaptionFormat(h,0) = 1]
	endwith
oList.EndUpdate()

456:
How can I add a vertical padding

local oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.DrawGridLines = -1
var_Column = oList.Columns.Add("Padding")
	// var_Column.Def(0) = true
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(0) = True]
	endwith
	// var_Column.Def(16) = false
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(16) = False]
	endwith
	// var_Column.Def(48) = 6
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(48) = 6]
	endwith
	// var_Column.Def(49) = 6
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(49) = 6]
	endwith
	// var_Column.Def(50) = 6
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(50) = 6]
	endwith
	// var_Column.Def(51) = 6
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(51) = 6]
	endwith
var_Items = oList.Items
	var_Items.Add("padding")
	var_Items.Add("padding")
oList.EndUpdate()

455:
How do you embed HTML options into the anchor click string

/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	AnchorClick = class::nativeObject_AnchorClick
endwith
*/
// Occurs when an anchor element is clicked.
function nativeObject_AnchorClick(AnchorID,Options)
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	? Str(AnchorID) 
	? Str(Options) 
return

local oList,var_Column,var_Columns,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Columns = oList.Columns
	// var_Columns.Add("Car").Def(17) = 1
	var_Column = var_Columns.Add("Car")
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(17) = 1]
	endwith
var_Items = oList.Items
	var_Items.Add("<a mazda_1;options for 1>Mazda <b>1</b></a>")
	var_Items.Add("<a mazda_2;options for 2>Mazda <b>2</b></a>")
	var_Items.Add("<a mazda_3;options for 3a>Mazda <b>3.a</b></a>")
	var_Items.Add("<a mazda_3;options for 3b>Mazda <b>3.b</b></a>")
oList.EndUpdate()

454:
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 3)

local oList,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BVEIQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQCWIAzATGYBRfIUEgjBM6ExwG78egBHp/ZpkACIJJAaRjHQdJxGKKMQB9DIhCZpeKhWgkKIJBzOEyBRC4ERBGqNGrsIgLEqWZpnWhaNpWXYTLyBN64LhuK46g53O6wLxvK6hEr2dJ/YBcIAOfghf4NQ7EMRxLC8Mw3BDvYDkOAABAIgI=")
oList.SelBackColor = 0x1fffffe
oList.ShowFocusRect = false
oList.Columns.Add("Items")
var_Items = oList.Items
	// var_Items.ItemBackColor(var_Items.Add("red")) = 0xff
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.ItemBackColor(Add("red")) = 255]
	endwith
	// var_Items.ItemBackColor(var_Items.Add("blue")) = 0xff0000
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.ItemBackColor(Add("blue")) = 16711680]
	endwith
	// var_Items.ItemBackColor(var_Items.Add("green")) = 0xff00
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.ItemBackColor(Add("green")) = 65280]
	endwith
oList.EndUpdate()

453:
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 2)

local oList,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.SelBackMode = 1
oList.ShowFocusRect = false
oList.Columns.Add("Items")
var_Items = oList.Items
	// var_Items.ItemBackColor(var_Items.Add("red")) = 0xff
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.ItemBackColor(Add("red")) = 255]
	endwith
	// var_Items.ItemBackColor(var_Items.Add("blue")) = 0xff0000
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.ItemBackColor(Add("blue")) = 16711680]
	endwith
	// var_Items.ItemBackColor(var_Items.Add("green")) = 0xff00
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.ItemBackColor(Add("green")) = 65280]
	endwith
oList.EndUpdate()

452:
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 1)

local oList,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.SelBackColor = oList.BackColor
oList.SelForeColor = oList.ForeColor
oList.ShowFocusRect = true
oList.Columns.Add("Items")
var_Items = oList.Items
	// var_Items.ItemBackColor(var_Items.Add("red")) = 0xff
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.ItemBackColor(Add("red")) = 255]
	endwith
	// var_Items.ItemBackColor(var_Items.Add("blue")) = 0xff0000
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.ItemBackColor(Add("blue")) = 16711680]
	endwith
	// var_Items.ItemBackColor(var_Items.Add("green")) = 0xff00
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.ItemBackColor(Add("green")) = 65280]
	endwith
oList.EndUpdate()

451:
I am using the FormatColumn property, but is it also possible to have a blank field when the value is '0'. I've tried the 'leading zero' flag in the FormatColumn, but that did not work

local oList,var_Column

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
// oList.Columns.Add("Currency").FormatColumn = "int(value) != 0 ? (value format `0||3|,`) : ``"
var_Column = oList.Columns.Add("Currency")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.FormatColumn = "int(value) != 0 ? (value format `0||3|,`) : ``"]
endwith
oList.Items.Add(123456789)
oList.Items.Add(1234)
oList.Items.Add(0)
oList.Items.Add(2345)

450:
Do you have a VB sample on how to use .FormatColumn to show this number '123456789' like '123,456,789'

local oList,var_Column

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
// oList.Columns.Add("Currency").FormatColumn = "value format `0||3|,`"
var_Column = oList.Columns.Add("Currency")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.FormatColumn = "value format `0||3|,`"]
endwith
oList.Items.Add(123456789)
oList.Items.Add(1234)

449:
Is it possible to change the image while do OLE Drag and Drop operations

/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	OLEStartDrag = class::nativeObject_OLEStartDrag
endwith
*/
// Occurs when the OLEDrag method is called.
function nativeObject_OLEStartDrag(Data,AllowedEffects)
	/* Data.SetData(Items.FocusItem) */
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
return

local oList

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.Columns.Add("Default")
oList.Items.Add("Item 1")
oList.Items.Add("Item 2")
oList.OLEDropMode = 1
oList.Template = [HTMLPicture("OLEDragDropImage") = "C:\Program Files\Exontrol\ExList\Sample\VB\UNICODE\unicode.jpg"] // oList.HTMLPicture("OLEDragDropImage") = "C:\Program Files\Exontrol\ExList\Sample\VB\UNICODE\unicode.jpg"

448:
Is it possible to change the image while do OLE Drag and Drop operations

/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	OLEStartDrag = class::nativeObject_OLEStartDrag
endwith
*/
// Occurs when the OLEDrag method is called.
function nativeObject_OLEStartDrag(Data,AllowedEffects)
	/* Data.SetData(Items.FocusItem) */
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
return

local oList

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.Columns.Add("Default")
oList.Items.Add("Item 1")
oList.Items.Add("Item 2")
oList.OLEDropMode = 1
oList.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExG2antt\Sample\EBN\xpbselIcon.ebn")
oList.Template = [Background(34) = 16777216] // oList.Background(34) = 0x1000000
oList.Template = [Background(33) = 16777215] // oList.Background(33) = 0xffffff

447:
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a snapshot
local oList,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oList.Template = [HTMLPicture("p1") = "c:\exontrol\images\card.png"] // oList.HTMLPicture("p1") = "c:\exontrol\images\card.png"
oList.Template = [HTMLPicture("p2") = "c:\exontrol\images\sun.png"] // oList.HTMLPicture("p2") = "c:\exontrol\images\sun.png"
oList.AutoDrag = 11
oList.ShowFocusRect = false
oList.DefaultItemHeight = 26
oList.Columns.Add("Task")
var_Items = oList.Items
	// var_Items.CaptionFormat(var_Items.Add("<img>p1:32</img> Group 1"),0) = 1
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CaptionFormat(Add("<img>p1:32</img> Group 1"),0) = 1]
	endwith
	// var_Items.CaptionFormat(var_Items.Add("<img>p2:32</img> Group 2"),0) = 1
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CaptionFormat(Add("<img>p2:32</img> Group 2"),0) = 1]
	endwith
oList.EndUpdate()

446:
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a image

local oList,rs,var_Columns,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.Template = [HTMLPicture("p1") = "c:\exontrol\images\card.png"] // oList.HTMLPicture("p1") = "c:\exontrol\images\card.png"
oList.Template = [HTMLPicture("p2") = "c:\exontrol\images\sun.png"] // oList.HTMLPicture("p2") = "c:\exontrol\images\sun.png"
oList.HeaderHeight = 24
oList.DefaultItemHeight = 48
oList.DrawGridLines = -2 /*0xfffffffc | exVLines*/
oList.GridLineColor = 0xf0f0f0
oList.SelBackMode = 1
oList.ColumnAutoResize = false
oList.ContinueColumnScroll = false
rs = new OleAutoClient("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\SAMPLE.MDB",3,3)
oList.DataSource = rs
// oList.Columns.Item(0).Def(17) = 1
var_Columns = oList.Columns.Item(0)
with (oList)
	TemplateDef = [dim var_Columns]
	TemplateDef = var_Columns
	Template = [var_Columns.Def(17) = 1]
endwith
oList.Columns.Item(0).FormatColumn = "value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>`"
oList.Columns.Item(0).Width = 112
oList.AutoDrag = 10
oList.SingleSel = false
var_Items = oList.Items
	// var_Items.SelectItem(1) = true
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.SelectItem(1) = True]
	endwith
	// var_Items.SelectItem(2) = true
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.SelectItem(2) = True]
	endwith
	// var_Items.SelectItem(3) = true
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.SelectItem(3) = True]
	endwith
oList.EndUpdate()

445:
How can copy and paste the selection to Microsoft Word, Excel or any OLE compliant application, as a text

local oList,rs,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ColumnAutoResize = false
oList.ContinueColumnScroll = false
rs = new OleAutoClient("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\SAMPLE.MDB",3,3)
oList.DataSource = rs
oList.AutoDrag = 9
oList.SingleSel = false
var_Items = oList.Items
	// var_Items.SelectItem(1) = true
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.SelectItem(1) = True]
	endwith
	// var_Items.SelectItem(3) = true
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.SelectItem(3) = True]
	endwith
	// var_Items.SelectItem(4) = true
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.SelectItem(4) = True]
	endwith
	// var_Items.SelectItem(5) = true
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.SelectItem(5) = True]
	endwith
oList.EndUpdate()

444:
How can I change the row's position to another, by drag and drop. Is it possible

local oList,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.AutoDrag = 1
oList.Columns.Add("Task")
var_Items = oList.Items
	var_Items.Add("Item 1")
	var_Items.Add("Item 2")
	var_Items.Add("Item 3")
	var_Items.Add("Item 4")
oList.EndUpdate()

443:
Does your control support subscript or superscript, in HTML captions

local oList,var_Column

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
// oList.Columns.Add("Column").Def(17) = 1
var_Column = oList.Columns.Add("Column")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.Def(17) = 1]
endwith
oList.Items.Add("<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1")

442:
Is there any property I can save and restore automatically the current setting, column position, size, and so on (2)

local oList,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.Columns.Add("Column")
var_Items = oList.Items
	var_Items.Add("Item 1")
	var_Items.Add("Item 2")
	var_Items.Add("Item 3")
oList.Layout = "Select=" + ["] + "0" + ["] + ";SingleSort=" + ["] + "C0:2" + ["] + ";Columns=1"
oList.EndUpdate()

441:
Is there any property I can save and restore automatically the current setting, column position, size, and so on (1)

local oList,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.Columns.Add("Column")
var_Items = oList.Items
	var_Items.Add("Item 1")
	var_Items.Add("Item 2")
	var_Items.Add("Item 3")
oList.Layout = "gBjAAwAAuABmABpABsAB0ABlAByhoAPIAOEPAA9gYABoABQAgUEg0XN4AOcJicKkpujMbjsfkMFk0YhkQgUOjUEl8gjcGO0ok8KMULjEaGMcj08kQAO8oMkTNEtGwAGQAqc7gUlhh1ABtAEsk9GpEfhElgVcsMupNlnlonlaAFcr0shUsp8QPEtnVJqJhmcIhUMh0QiU5sYAqMngUSuEMw07k8Qv0SgVRrNEuVflF2jF5x9JyNEm0TjQijemyE0jE3t+YruauoAu4Az1qj9BzRn0UzksSnAA0xDjY6qnAw8OiUQ0dwzN0zWz2t7j8/xURAGNvWH6k8xlEhklhEI0O/6QAgI="
oList.EndUpdate()

440:
Is there any public method to export the selected data

local oList,var_Column,var_Column1,var_Columns,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Columns = oList.Columns
	var_Columns.Add("C1")
	// var_Columns.Add("C2").FormatColumn = "1 index `A-Z`"
	var_Column = var_Columns.Add("C2")
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.FormatColumn = "1 index `A-Z`"]
	endwith
	// var_Columns.Add("C3").FormatColumn = "100 index ``"
	var_Column1 = var_Columns.Add("C3")
	with (oList)
		TemplateDef = [dim var_Column1]
		TemplateDef = var_Column1
		Template = [var_Column1.FormatColumn = "100 index ``"]
	endwith
var_Items = oList.Items
	var_Items.Add("Item 1")
	// var_Items.SelectItem(var_Items.Add("Item 2")) = true
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.SelectItem(Add("Item 2")) = True]
	endwith
	var_Items.Add("Item 3")
oList.EndUpdate()
? "Export CSV Selected Items Only:" 
? Str(oList.Export("","sel")) 

439:
How can I change the visual aspect of the links in the sort bar

local oList,rs,var_Column,var_Column1

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ColumnAutoResize = false
rs = new OleAutoClient("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",3,3)
oList.DataSource = rs
oList.SortBarHeight = 24
oList.HeaderHeight = 24
oList.BackColorSortBar = 0xf0f0f0
oList.BackColorSortBarCaption = oList.BackColor
oList.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BdsIQAAYAQGKIYBkAKBQAGaAoDDgNw0QwAAxjMK0EwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyMc7QHKAWhrEAbJjgQYJUh+TQAAZCIJRXRQAL/K6rKwnSCQIgkUBpGKdBynEYoYxAfyESCJWyIahWAwoQjUMB1HLQAAxC5kKbkIxyBABFBdVjVeBYG78Bz+ABjEovbAMEwPBqAMwmIAZDheA4FR4AGhTXKcbxrFaXZSzKckPRoADSZq1Sg5LjDJI2ABqU6ABqNLZtJKsZS4apABrWeZ3Q7QMLdFTwA4PH6EZhxXAYbTVeaPZjQIBAgI")
oList.SortBarVisible = true
oList.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
var_Column = oList.Columns.Item(1)
	var_Column.Alignment = 1
	// var_Column.Def(4) = 15790320
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(4) = 15790320]
	endwith
	var_Column.SortOrder = true
var_Column1 = oList.Columns.Item(5)
	var_Column1.Alignment = 1
	// var_Column1.Def(4) = 16119285
	with (oList)
		TemplateDef = [dim var_Column1]
		TemplateDef = var_Column1
		Template = [var_Column1.Def(4) = 16119285]
	endwith
	var_Column1.SortOrder = true
oList.Template = [Background(28) = 16777216] // oList.Background(28) = 0x1000000
oList.EndUpdate()

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

local oList,var_Column,var_Column1,var_Columns,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.MarkSearchColumn = false
var_Columns = oList.Columns
	var_Column = var_Columns.Add("Car")
		var_Column.DisplayFilterButton = true
		var_Column.FilterType = 240
		var_Column.Filter = "MAZDA"
	var_Column1 = var_Columns.Add("Equipment")
		var_Column1.DisplayFilterButton = true
		var_Column1.DisplayFilterPattern = false
		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 = oList.Items
	// var_Items.Caption(var_Items.Add("Mazda"),1) = "Air Bag"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Mazda"),1) = "Air Bag"]
	endwith
	// var_Items.Caption(var_Items.Add("Toyota"),1) = "Air Bag,Air condition"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Toyota"),1) = "Air Bag,Air condition"]
	endwith
	// var_Items.Caption(var_Items.Add("Ford"),1) = "Air condition"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Ford"),1) = "Air condition"]
	endwith
	// var_Items.Caption(var_Items.Add("Nissan"),1) = "Air Bag,ABS,ESP"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Nissan"),1) = "Air Bag,ABS,ESP"]
	endwith
	// var_Items.Caption(var_Items.Add("Mazda"),1) = "Air Bag, ABS,ESP"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Mazda"),1) = "Air Bag, ABS,ESP"]
	endwith
	// var_Items.Caption(var_Items.Add("Mazda"),1) = "ABS,ESP"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Mazda"),1) = "ABS,ESP"]
	endwith
oList.ApplyFilter()
oList.EndUpdate()

437:
How can I have a case-sensitive filter

local oList,var_Column,var_Column1,var_Columns,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.MarkSearchColumn = false
var_Columns = oList.Columns
	var_Column = var_Columns.Add("Car")
		var_Column.DisplayFilterButton = true
		var_Column.FilterType = 496 /*exFilterDoCaseSensitive | exFilter*/
		var_Column.Filter = "Mazda"
	var_Column1 = var_Columns.Add("Equipment")
		var_Column1.DisplayFilterButton = true
		var_Column1.DisplayFilterPattern = false
		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 = oList.Items
	// var_Items.Caption(var_Items.Add("Mazda"),1) = "Air Bag"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Mazda"),1) = "Air Bag"]
	endwith
	// var_Items.Caption(var_Items.Add("Toyota"),1) = "Air Bag,Air condition"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Toyota"),1) = "Air Bag,Air condition"]
	endwith
	// var_Items.Caption(var_Items.Add("Ford"),1) = "Air condition"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Ford"),1) = "Air condition"]
	endwith
	// var_Items.Caption(var_Items.Add("Nissan"),1) = "Air Bag,ABS,ESP"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Nissan"),1) = "Air Bag,ABS,ESP"]
	endwith
	// var_Items.Caption(var_Items.Add("Mazda"),1) = "Air Bag, ABS,ESP"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Mazda"),1) = "Air Bag, ABS,ESP"]
	endwith
	// var_Items.Caption(var_Items.Add("Mazda"),1) = "ABS,ESP"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Mazda"),1) = "ABS,ESP"]
	endwith
oList.ApplyFilter()
oList.EndUpdate()

436:
I have several columns, but noticed that the filter is using AND between columns, but I need OR clause for filtering. Is it possible

local h,oList,var_Column,var_Column1,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Column = oList.Columns.Add("Item")
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = false
	var_Column.Filter = "Child 1"
	var_Column.FilterType = 240
var_Column1 = oList.Columns.Add("Date")
	var_Column1.DisplayFilterButton = true
	var_Column1.DisplayFilterPattern = false
	var_Column1.DisplayFilterDate = true
	var_Column1.FilterList = 9474 /*exShowExclude | exShowFocusItem | exShowCheckBox | exNoItems*/
	var_Column1.Filter = Str("12/28/2010")
	var_Column1.FilterType = 4
oList.FilterCriteria = "%0 or %1"
oList.Template = [Description(23) = "<font ;18><fgcolor=FF0000>or</fgcolor></font>"] // oList.Description(23) = "<font ;18><fgcolor=FF0000>or</fgcolor></font>"
oList.Template = [Description(11) = "<font ;18><fgcolor=FF0000>and</fgcolor></font>"] // oList.Description(11) = "<font ;18><fgcolor=FF0000>and</fgcolor></font>"
var_Items = oList.Items
	h = var_Items.Add("Root 1")
	// var_Items.Caption(var_Items.Add("Child 1"),1) = "12/27/2010"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Child 1"),1) = #12/27/2010#]
	endwith
	// var_Items.Caption(var_Items.Add("Child 2"),1) = "12/28/2010"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Child 2"),1) = #12/28/2010#]
	endwith
	h = var_Items.Add("Root 2")
	// var_Items.Caption(var_Items.Add("Child 1"),1) = "12/29/2010"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Child 1"),1) = #12/29/2010#]
	endwith
	// var_Items.Caption(var_Items.Add("Child 2"),1) = "12/30/2010"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Child 2"),1) = #12/30/2010#]
	endwith
oList.ApplyFilter()
oList.EndUpdate()

435:
Is it possible exclude the dates being selected in the drop down filter window

local oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Column = oList.Columns.Add("Date")
	var_Column.SortType = 2
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = false
	var_Column.DisplayFilterDate = true
	var_Column.FilterList = 9474 /*exShowExclude | exShowFocusItem | exShowCheckBox | exNoItems*/
var_Items = oList.Items
	var_Items.Add("12/27/2010")
	var_Items.Add("12/28/2010")
	var_Items.Add("12/29/2010")
	var_Items.Add("12/30/2010")
	var_Items.Add("12/31/2010")
oList.EndUpdate()

434:
How can I display a calendar control inside the drop down filter window

local oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Column = oList.Columns.Add("Date")
	var_Column.SortType = 2
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = false
	var_Column.DisplayFilterDate = true
	var_Column.FilterList = 1282 /*exShowFocusItem | exShowCheckBox | exNoItems*/
var_Items = oList.Items
	var_Items.Add("12/27/2010")
	var_Items.Add("12/28/2010")
	var_Items.Add("12/29/2010")
	var_Items.Add("12/30/2010")
	var_Items.Add("12/31/2010")
oList.EndUpdate()

433:
Is it possible to include the dates as checkb-boxes in the drop down filter window

local oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Column = oList.Columns.Add("Dates")
	var_Column.SortType = 2
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = true
	var_Column.DisplayFilterDate = true
	var_Column.FilterList = 1280 /*exShowFocusItem | exShowCheckBox*/
	var_Column.Filter = "to 12/27/2010"
	var_Column.FilterType = 4
var_Items = oList.Items
	var_Items.Add("12/27/2010")
	var_Items.Add("12/28/2010")
	var_Items.Add("12/29/2010")
	var_Items.Add("12/30/2010")
	var_Items.Add("12/31/2010")
oList.ApplyFilter()
oList.EndUpdate()

432:
How can I filter items for dates before a specified date

local oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Column = oList.Columns.Add("Dates")
	var_Column.SortType = 2
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = true
	var_Column.DisplayFilterDate = true
	var_Column.FilterList = 1026 /*exShowFocusItem | exNoItems*/
	var_Column.Filter = "to 12/27/2010"
	var_Column.FilterType = 4
var_Items = oList.Items
	var_Items.Add("12/27/2010")
	var_Items.Add("12/28/2010")
	var_Items.Add("12/29/2010")
	var_Items.Add("12/30/2010")
	var_Items.Add("12/31/2010")
oList.ApplyFilter()
oList.EndUpdate()

431:
Is it possible to filter dates

local oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Column = oList.Columns.Add("Dates")
	var_Column.SortType = 2
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = true
	var_Column.DisplayFilterDate = true
	var_Column.FilterList = 1026 /*exShowFocusItem | exNoItems*/
var_Items = oList.Items
	var_Items.Add("12/27/2010")
	var_Items.Add("12/28/2010")
	var_Items.Add("12/29/2010")
	var_Items.Add("12/30/2010")
	var_Items.Add("12/31/2010")
oList.EndUpdate()

430:
Is it possible to change the Exclude field name to something different, in the drop down filter window

local h,oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.Template = [Description(25) = "Leaving out"] // oList.Description(25) = "Leaving out"
var_Column = oList.Columns.Add("Items")
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = false
	var_Column.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Items = oList.Items
	h = var_Items.Add("Root 1")
	var_Items.Add("Child 1")
	var_Items.Add("Child 2")
	h = var_Items.Add("Root 2")
	var_Items.Add("Child 1")
oList.EndUpdate()

429:
How can I display the Exclude field in the drop down filter window

local h,oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Column = oList.Columns.Add("Items")
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = false
	var_Column.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Items = oList.Items
	h = var_Items.Add("Root 1")
	var_Items.Add("Child 1")
	var_Items.Add("Child 2")
	h = var_Items.Add("Root 2")
	var_Items.Add("Child 1")
oList.EndUpdate()

428:
Is it possible to show and ensure the focused item from the control, in the drop down filter window

local h,oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Column = oList.Columns.Add("Items")
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = false
	var_Column.FilterList = 1280 /*exShowFocusItem | exShowCheckBox*/
var_Items = oList.Items
	h = var_Items.Add("Root 1")
	var_Items.Add("Child 1")
	var_Items.Add("Child 2")
	h = var_Items.Add("Root 2")
	var_Items.Add("Child 1")
	// var_Items.SelectItem(var_Items.Add("Child 2")) = true
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.SelectItem(Add("Child 2")) = True]
	endwith
oList.EndUpdate()

427:
Is it possible to show only blanks items with no listed items from the control

local h,oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Column = oList.Columns.Add("Items")
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = false
	var_Column.FilterList = 16386 /*exShowBlanks | exNoItems*/
var_Items = oList.Items
	h = var_Items.Add("Root 1")
	var_Items.Add("Child 1")
	var_Items.Add("Child 2")
	h = var_Items.Add("Root 2")
	var_Items.Add("Child 1")
	var_Items.Add("Child 2")
oList.EndUpdate()

426:
How can I include the blanks items in the drop down filter window

local h,oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Column = oList.Columns.Add("Items")
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = false
	var_Column.FilterList = 16640 /*exShowBlanks | exShowCheckBox*/
var_Items = oList.Items
	h = var_Items.Add("Root 1")
	var_Items.Add("Child 1")
	var_Items.Add("Child 2")
	h = var_Items.Add("Root 2")
	var_Items.Add("Child 1")
	var_Items.Add("Child 2")
oList.EndUpdate()

425:
How can I select multiple items in the drop down filter window, using check-boxes

local h,oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Column = oList.Columns.Add("Items")
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = false
	var_Column.FilterList = 256
var_Items = oList.Items
	h = var_Items.Add("Root 1")
	var_Items.Add("Child 1")
	var_Items.Add("Child 2")
	h = var_Items.Add("Root 2")
	var_Items.Add("Child 1")
	var_Items.Add("Child 2")
oList.EndUpdate()

424:
Is it possible to allow a single item being selected in the drop down filter window

local h,oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Column = oList.Columns.Add("Items")
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = false
	var_Column.FilterList = 128
var_Items = oList.Items
	h = var_Items.Add("Root 1")
	var_Items.Add("Child 1")
	var_Items.Add("Child 2")
	h = var_Items.Add("Root 2")
	var_Items.Add("Child 1")
	var_Items.Add("Child 2")
oList.EndUpdate()

423:
How can I display no (All) item in the drop down filter window

local h,oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.Template = [Description(0) = ""] // oList.Description(0) = ""
var_Column = oList.Columns.Add("Items")
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = true
	var_Column.FilterList = 2
var_Items = oList.Items
	h = var_Items.Add("Root 1")
	var_Items.Add("Child 1")
	var_Items.Add("Child 2")
	h = var_Items.Add("Root 2")
	var_Items.Add("Child 1")
	var_Items.Add("Child 2")
oList.EndUpdate()

422:
Is it possible to display no items in the drop down filter window, so only the pattern is visible

local h,oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Column = oList.Columns.Add("Items")
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = true
	var_Column.FilterList = 2
var_Items = oList.Items
	h = var_Items.Add("Root 1")
	var_Items.Add("Child 1")
	var_Items.Add("Child 2")
	h = var_Items.Add("Root 2")
	var_Items.Add("Child 1")
	var_Items.Add("Child 2")
oList.EndUpdate()

421:
How can I sort the value gets listed in the drop down filter window

local h,oList,var_Column,var_Column1,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.MarkSearchColumn = false
oList.Template = [Description(0) = ""] // oList.Description(0) = ""
oList.Template = [Description(1) = ""] // oList.Description(1) = ""
oList.Template = [Description(2) = ""] // oList.Description(2) = ""
var_Column = oList.Columns.Add("P1")
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = false
	var_Column.FilterList = 16
var_Column1 = oList.Columns.Add("P2")
	var_Column1.DisplayFilterButton = true
	var_Column1.DisplayFilterPattern = false
	var_Column1.FilterList = 32
var_Items = oList.Items
	h = var_Items.Add("Z3")
	// var_Items.Caption(h,1) = "C"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = "C"]
	endwith
	// var_Items.Caption(var_Items.Add("Z1"),1) = "B"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Z1"),1) = "B"]
	endwith
	// var_Items.Caption(var_Items.Add("Z2"),1) = "A"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Z2"),1) = "A"]
	endwith

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

local oList,var_Column,var_Column1

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
// oList.Columns.Add("Padding-Left").Def(52) = 18
var_Column = oList.Columns.Add("Padding-Left")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.Def(52) = 18]
endwith
var_Column1 = oList.Columns.Add("Padding-Right")
	// var_Column1.Def(53) = 18
	with (oList)
		TemplateDef = [dim var_Column1]
		TemplateDef = var_Column1
		Template = [var_Column1.Def(53) = 18]
	endwith
	var_Column1.HeaderAlignment = 2
oList.EndUpdate()

419:
Do you have any plans to add cell spacing and cell padding to the cells

local oList,var_Column,var_Column1,var_Column2,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.DrawGridLines = -2 /*0xfffffffc | exVLines*/
var_Column = oList.Columns.Add("Padding-Left")
	// var_Column.Def(0) = true
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(0) = True]
	endwith
	// var_Column.Def(48) = 18
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(48) = 18]
	endwith
// oList.Columns.Add("No-Padding").Def(0) = true
var_Column1 = oList.Columns.Add("No-Padding")
with (oList)
	TemplateDef = [dim var_Column1]
	TemplateDef = var_Column1
	Template = [var_Column1.Def(0) = True]
endwith
// oList.Columns.Add("Empty").Position = 0
var_Column2 = oList.Columns.Add("Empty")
with (oList)
	TemplateDef = [dim var_Column2]
	TemplateDef = var_Column2
	Template = [var_Column2.Position = 0]
endwith
var_Items = oList.Items
	// var_Items.Caption(var_Items.Add("Item A.1"),1) = "Item A.2"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item A.1"),1) = "Item A.2"]
	endwith
	// var_Items.Caption(var_Items.Add("Item B.1"),1) = "Item B.2"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item B.1"),1) = "Item B.2"]
	endwith
	// var_Items.Caption(var_Items.Add("Item C.1"),1) = "Item C.2"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item C.1"),1) = "Item C.2"]
	endwith
oList.EndUpdate()

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

local h,oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
// oList.Columns.Add("Def").Def(17) = 1
var_Column = oList.Columns.Add("Def")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.Def(17) = 1]
endwith
var_Items = oList.Items
	h = var_Items.Add(100000.27)
	// var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default positive)'"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default positive)'"]
	endwith
	h = var_Items.Add(100000.27)
	// var_Items.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"]
	endwith
	h = var_Items.Add(-100000.27)
	// var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default negative)'"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default negative)'"]
	endwith
	h = var_Items.Add(-100000.27)
	// var_Items.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"]
	endwith
oList.EndUpdate()

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

local h,oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
// oList.Columns.Add("Def").Def(17) = 1
var_Column = oList.Columns.Add("Def")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.Def(17) = 1]
endwith
var_Items = oList.Items
	h = var_Items.Add(0.27)
	// var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"]
	endwith
	h = var_Items.Add(0.27)
	// var_Items.FormatCell(h,0) = "(value format '|||||0') +  ' <fgcolor=808080>(Display no leading zeros)'"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.FormatCell(h,0) = "(value format '|||||0') +  ' <fgcolor=808080>(Display no leading zeros)'"]
	endwith
oList.EndUpdate()

416:
How can I specify the format for negative numbers

local h,oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
// oList.Columns.Add("Def").Def(17) = 1
var_Column = oList.Columns.Add("Def")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.Def(17) = 1]
endwith
var_Items = oList.Items
	h = var_Items.Add(-100000.27)
	// var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"]
	endwith
	h = var_Items.Add(-100000.27)
	// var_Items.FormatCell(h,0) = "(value format '||||1') +  ' <fgcolor=808080>(Negative sign, number; for example, -1.1)'"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.FormatCell(h,0) = "(value format '||||1') +  ' <fgcolor=808080>(Negative sign, number; for example, -1.1)'"]
	endwith
oList.EndUpdate()

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

local h,oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
// oList.Columns.Add("Def").Def(17) = 1
var_Column = oList.Columns.Add("Def")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.Def(17) = 1]
endwith
var_Items = oList.Items
	h = var_Items.Add(100000.27)
	// var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"]
	endwith
	h = var_Items.Add(100000.27)
	// var_Items.FormatCell(h,0) = "(value format '|||-') +  ' <fgcolor=808080>(grouping character is -)'"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.FormatCell(h,0) = "(value format '|||-') +  ' <fgcolor=808080>(grouping character is -)'"]
	endwith
oList.EndUpdate()

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

local h,oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
// oList.Columns.Add("Def").Def(17) = 1
var_Column = oList.Columns.Add("Def")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.Def(17) = 1]
endwith
var_Items = oList.Items
	h = var_Items.Add(100000.27)
	// var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"]
	endwith
	h = var_Items.Add(100000.27)
	// var_Items.FormatCell(h,0) = "(value format '||2') +  ' <fgcolor=808080>(grouping by 2 digits)'"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.FormatCell(h,0) = "(value format '||2') +  ' <fgcolor=808080>(grouping by 2 digits)'"]
	endwith
oList.EndUpdate()

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

local h,oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
// oList.Columns.Add("Def").Def(17) = 1
var_Column = oList.Columns.Add("Def")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.Def(17) = 1]
endwith
var_Items = oList.Items
	h = var_Items.Add(100.27)
	// var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"]
	endwith
	h = var_Items.Add(100.27)
	// var_Items.FormatCell(h,0) = "(value format '|;') +  ' <fgcolor=808080>(decimal separator is <b>;</b>)'"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.FormatCell(h,0) = "(value format '|;') +  ' <fgcolor=808080>(decimal separator is <b>;</b>)'"]
	endwith
oList.EndUpdate()

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

local h,oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
// oList.Columns.Add("Def").Def(17) = 1
var_Column = oList.Columns.Add("Def")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.Def(17) = 1]
endwith
var_Items = oList.Items
	h = var_Items.Add(100.27)
	// var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"]
	endwith
	h = var_Items.Add(100.27)
	// var_Items.FormatCell(h,0) = "(value format '3') +  ' <fgcolor=808080>(3 digits)'"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.FormatCell(h,0) = "(value format '3') +  ' <fgcolor=808080>(3 digits)'"]
	endwith
	h = var_Items.Add(100.27)
	// var_Items.FormatCell(h,0) = "(value format 2) +  '  <fgcolor=808080>(2 digits)'"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.FormatCell(h,0) = "(value format 2) +  '  <fgcolor=808080>(2 digits)'"]
	endwith
	h = var_Items.Add(100.27)
	// var_Items.FormatCell(h,0) = "(value format 1) +  ' <fgcolor=808080>(1 digit)'"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.FormatCell(h,0) = "(value format 1) +  ' <fgcolor=808080>(1 digit)'"]
	endwith
oList.EndUpdate()

411:
Is it possible to format numbers

local h,oList,var_Column,var_Column1,var_Column2,var_Column3,var_Columns,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.MarkSearchColumn = false
oList.SelBackColor = oList.BackColor
oList.SelForeColor = oList.ForeColor
oList.ShowFocusRect = true
var_Columns = oList.Columns
	var_Columns.Add("Name")
	var_Column = var_Columns.Add("A")
		var_Column.SortType = 1
		var_Column.AllowSizing = false
		var_Column.Width = 36
		var_Column.FormatColumn = "len(value) ? value + ' +'"
	var_Column1 = var_Columns.Add("B")
		var_Column1.SortType = 1
		var_Column1.AllowSizing = false
		var_Column1.Width = 36
		var_Column1.FormatColumn = "len(value) ? value + ' +'"
	var_Column2 = var_Columns.Add("C")
		var_Column2.SortType = 1
		var_Column2.AllowSizing = false
		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
		with (oList)
			TemplateDef = [dim var_Column3]
			TemplateDef = var_Column3
			Template = [var_Column3.Def(17) = 1]
		endwith
var_Items = oList.Items
	h = var_Items.Add("Item")
	// var_Items.CaptionFormat(h,4) = 2
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CaptionFormat(h,4) = 2]
	endwith
	h = var_Items.Add("Item 1")
	// var_Items.Caption(h,1) = 7
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = 7]
	endwith
	// var_Items.Caption(h,2) = 3
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,2) = 3]
	endwith
	// var_Items.Caption(h,3) = 1
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,3) = 1]
	endwith
	h = var_Items.Add("Item 2")
	// var_Items.Caption(h,1) = -2
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = -2]
	endwith
	// var_Items.Caption(h,2) = -2
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,2) = -2]
	endwith
	// var_Items.Caption(h,3) = -4
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,3) = -4]
	endwith
	h = var_Items.Add("Item 3")
	// var_Items.Caption(h,1) = 2
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = 2]
	endwith
	// var_Items.Caption(h,2) = 2
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,2) = 2]
	endwith
	// var_Items.Caption(h,3) = -4
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,3) = -4]
	endwith
oList.EndUpdate()

410:
Is it possible background color displayed when the mouse passes over an item

local oList,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.Columns.Add("Def")
oList.HotBackColor = 0x800000
oList.HotForeColor = 0xffffff
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
oList.EndUpdate()

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

local oList,var_Column,var_Columns,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.MarkSearchColumn = false
var_Columns = oList.Columns
	var_Columns.Add("Name")
	var_Column = var_Columns.Add("Values")
		var_Column.SortType = 1
		var_Column.AllowSizing = false
		var_Column.Width = 64
		var_Column.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
		// var_Column.Def(17) = 1
		with (oList)
			TemplateDef = [dim var_Column]
			TemplateDef = var_Column
			Template = [var_Column.Def(17) = 1]
		endwith
var_Items = oList.Items
	// var_Items.FormatCell(var_Items.Add("Item A"),1) = "`<none>`"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.FormatCell(Add("Item A"),1) = "`<none>`"]
	endwith
	// var_Items.Caption(var_Items.Add("Item 1"),1) = 10
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item 1"),1) = 10]
	endwith
	// var_Items.Caption(var_Items.Add("Item 2"),1) = 15
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item 2"),1) = 15]
	endwith
	// var_Items.Caption(var_Items.Add("Item 3"),1) = 25
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item 3"),1) = 25]
	endwith
oList.EndUpdate()

408:
I am using the FormatColumn to display the current currency, but would like hide some values. Is it possible

local oList,var_Column,var_Columns,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.MarkSearchColumn = false
var_Columns = oList.Columns
	var_Columns.Add("Name")
	var_Column = var_Columns.Add("Values")
		var_Column.SortType = 1
		var_Column.AllowSizing = false
		var_Column.Width = 64
		var_Column.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
		// var_Column.Def(17) = 1
		with (oList)
			TemplateDef = [dim var_Column]
			TemplateDef = var_Column
			Template = [var_Column.Def(17) = 1]
		endwith
var_Items = oList.Items
	// var_Items.FormatCell(var_Items.Add("Item A"),1) = " "
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.FormatCell(Add("Item A"),1) = " "]
	endwith
	// var_Items.Caption(var_Items.Add("Item 1"),1) = 10
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item 1"),1) = 10]
	endwith
	// var_Items.Caption(var_Items.Add("Item 2"),1) = 15
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item 2"),1) = 15]
	endwith
	// var_Items.Caption(var_Items.Add("Item 3"),1) = 25
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item 3"),1) = 25]
	endwith
oList.EndUpdate()

407:
I am using the FormatColumn to format my columns. Is it possible to ignore the SelForeColor, so the foreground color for selected items does not override my settings

/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	SelectionChanged = class::nativeObject_SelectionChanged
endwith
*/
// Fired after a new item is selected.
function nativeObject_SelectionChanged()
	local var_Items
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	var_Items = oList.Items
		var_Items.ClearItemBackColor(-1)
		// var_Items.ItemBackColor(var_Items.SelectedItem(0)) = 0xffff80
		with (oList)
			TemplateDef = [dim var_Items]
			TemplateDef = var_Items
			Template = [var_Items.ItemBackColor(SelectedItem(0)) = 16777088]
		endwith
return

local oList,var_Column,var_Columns,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.MarkSearchColumn = false
oList.SelForeColor = oList.ForeColor
oList.SelBackColor = oList.BackColor
oList.ShowFocusRect = false
var_Columns = oList.Columns
	var_Column = var_Columns.Add("Format")
		var_Column.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_Column.Def(17) = 1
		with (oList)
			TemplateDef = [dim var_Column]
			TemplateDef = var_Column
			Template = [var_Column.Def(17) = 1]
		endwith
var_Items = oList.Items
	var_Items.Add(10)
	var_Items.Add(-8)
oList.EndUpdate()

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

local oList,var_Items,var_Items1

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.Columns.Add("Items")
var_Items = oList.Items
	var_Items.Add("Item 1")
	var_Items.Add("Item 2")
	var_Items.Add("Item 3")
	var_Items.Add("Item 4")
oList.EndUpdate()
oList.DefaultItemHeight = 12
// oList.Items.ItemHeight(-1) = 12
var_Items1 = oList.Items
with (oList)
	TemplateDef = [dim var_Items1]
	TemplateDef = var_Items1
	Template = [var_Items1.ItemHeight(-1) = 12]
endwith

405:
How can I change the shape of the line to be shown when user drag and drop data over the control

/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	OLEStartDrag = class::nativeObject_OLEStartDrag
endwith
*/
// Occurs when the OLEDrag method is called.
function nativeObject_OLEStartDrag(Data,AllowedEffects)
	/* Data.SetData("data to be dragged") */
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
return

local oList,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.OLEDropMode = 1
oList.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExList\Sample\VB\DragDrop\insert_bottom.ebn")
oList.Template = [Background(96) = 16777216] // oList.Background(96) = 0x1000000
oList.Columns.Add("Default")
var_Items = oList.Items
	var_Items.Add("Item 1")
	var_Items.Add("Item 2")

404:
How can I highlight the item from cursor when the user drag and drop data over the control

/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	OLEStartDrag = class::nativeObject_OLEStartDrag
endwith
*/
// Occurs when the OLEDrag method is called.
function nativeObject_OLEStartDrag(Data,AllowedEffects)
	/* Data.SetData("data to be dragged") */
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
return

local oList,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.OLEDropMode = 1
oList.Template = [Background(96) = 1] // oList.Background(96) = 0x1
oList.Columns.Add("Default")
var_Items = oList.Items
	var_Items.Add("Item 1")
	var_Items.Add("Item 2")

403:
How can I start drag and drop items

/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	OLEStartDrag = class::nativeObject_OLEStartDrag
endwith
*/
// Occurs when the OLEDrag method is called.
function nativeObject_OLEStartDrag(Data,AllowedEffects)
	/* Data.SetData("to be carried by drag and drop") */
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	AllowedEffects = 1
return

local oList,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.OLEDropMode = 1
oList.Columns.Add("Default")
var_Items = oList.Items
	var_Items.Add("Item 1")
	var_Items.Add("Item 2")
oList.EndUpdate()

402:
When I'm trying to show string with "line break" character (vbCrLF) in a textbox, it shows 2 squares. Is there any way to hide these squares

local oList,var_Column,var_Column1,var_Column2,var_Columns,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
var_Columns = oList.Columns
	var_Columns.Add("Value")
	var_Column = var_Columns.Add("CellSingleLine = False")
		var_Column.ComputedField = "%0"
		// var_Column.Def(16) = false
		with (oList)
			TemplateDef = [dim var_Column]
			TemplateDef = var_Column
			Template = [var_Column.Def(16) = False]
		endwith
	var_Column1 = var_Columns.Add("FormatColumn/replace CRLF")
		var_Column1.ComputedField = "%0"
		var_Column1.FormatColumn = "value replace `\r\n` with ``"
	var_Column2 = var_Columns.Add("FormatColumn/replace TAB,CRLF")
		var_Column2.ComputedField = "%0"
		var_Column2.FormatColumn = "(value replace `\t` with ``) replace `\r\n` with ``"
var_Items = oList.Items
	var_Items.Add("a\ta\r\nb\tb")

401:
The Column.Alignment property does not seem to work for cells with images in them. What can be done

local oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oList.DrawGridLines = -1
oList.HeaderHeight = 24
oList.DefaultItemHeight = 24
var_Column = oList.Columns.Add("Image")
	var_Column.AllowSizing = false
	var_Column.Width = 32
	var_Column.HTMLCaption = "<img>1</img>"
	var_Column.HeaderAlignment = 1
	var_Column.Alignment = 1
	// var_Column.Def(17) = 1
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(17) = 1]
	endwith
oList.Columns.Add("Rest")
var_Items = oList.Items
	var_Items.Add("<img>1</img>")
	var_Items.Add("<img>2</img>")
	var_Items.Add("<img>3</img>")
oList.EndUpdate()