575
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (ditto mark)

local oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.HeaderAppearance = 4
oList.HeaderHeight = 24
oList.DrawGridLines = -1
// oList.Columns.Add("Country").ShowIdem = "<fgcolor gray>〃"
var_Column = oList.Columns.Add("Country")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.ShowIdem = "<fgcolor gray>〃"]
endwith
var_Items = oList.Items
	var_Items.Add("Spain")
	var_Items.Add("Spain")
	var_Items.Add("Spain")
	var_Items.Add("Spain")
	var_Items.Add("Germany")
	var_Items.Add("Germany")
	var_Items.Add("Germany")
	var_Items.Add("Germany")
oList.EndUpdate()
574
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (space)

local oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.HeaderAppearance = 4
oList.HeaderHeight = 24
oList.DrawGridLines = -1
// oList.Columns.Add("Country").ShowIdem = " "
var_Column = oList.Columns.Add("Country")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.ShowIdem = " "]
endwith
var_Items = oList.Items
	var_Items.Add("Spain")
	var_Items.Add("Spain")
	var_Items.Add("Spain")
	var_Items.Add("Spain")
	var_Items.Add("Germany")
	var_Items.Add("Germany")
	var_Items.Add("Germany")
	var_Items.Add("Germany")
oList.EndUpdate()
573
Displays a glitch funnel for drop-down filter buttons (empty or active)

local oList,var_Appearance,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Appearance = oList.VisualAppearance
	var_Appearance.RenderType = -1
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABa8IQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFMbxCKQahLEiTIhGUYJHgmK4tRiAUgxVDkBxrECZYqjcBZOiwLQ2TxDM7DNKUCBnIoABhGOaYDh+IQNQjUFKwTRFGRxK4EIRKAyTDLQdRyGSMMbjdQpBCbMiMRqhESKRq2UwYRYCFS1NalaztO6BUAvK67YrWez/YBfF+SfwGeqDYReWAPfgWERnQrGMLxbD8KwZAKTRjkGJ4XhuB41TbQMqufL9ByXHKSSDpGjaXjeO5VVjYNAvS69UzXNq3bhtQAOXCMEwCgI=")
	var_Appearance.Add(2,"CP:1 -2 0 0 0")
oList.DrawGridLines = -1
oList.GridLineStyle = 512
oList.ShowFocusRect = false
oList.Template = [Background(0) = 33554432] // oList.Background(0) = 0x2000000
oList.Template = [Background(41) = 33554433] // oList.Background(41) = 0x2000001
oList.HeaderAppearance = 4
oList.BackColorHeader = 0xffffff
oList.HeaderHeight = 24
oList.HeaderVisible = true
var_Column = oList.Columns.Add("1st col")
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = false
	var_Column.Filter = "Item B"
	var_Column.FilterType = 240
oList.Columns.Add("2nd col")
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
oList.ApplyFilter()
oList.EndUpdate()
572
How can I replace or add an icon at runtime

local oList,var_Column

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ReplaceIcon("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+OkYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==")
oList.ReplaceIcon("C:\images\favicon.ico",0)
// oList.Columns.Add("Items").Def(17) = 1
var_Column = oList.Columns.Add("Items")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.Def(17) = 1]
endwith
oList.Items.Add("Item <img>1</img>")
oList.EndUpdate()
571
Can I set a filter that automatically adds a * before and after the word, so the user can just search for 'cat' and it becomes '*cat*' automatically

local oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.HeaderAppearance = 4
oList.HeaderHeight = 24
var_Column = oList.Columns.Add("Items")
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = true
	// var_Column.Def(21) = "*<%filter%>*"
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(21) = "*<%filter%>*"]
	endwith
	var_Column.FilterType = 3
	var_Column.Filter = "1"
var_Items = oList.Items
	var_Items.Add("Item 1")
	var_Items.Add("Item 2")
	var_Items.Add("Item 3")
	var_Items.Add("Item 1")
	var_Items.Add("Item 2")
	var_Items.Add("Item 3")
oList.ApplyFilter()
oList.EndUpdate()
570
Disable temporarily the column's sort, resize and drag and drop
local oList,var_Column,var_Column1

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.SortBarVisible = true
oList.SortBarCaption = "<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)"
oList.HeaderEnabled = false
oList.HeaderAppearance = 4
// oList.Columns.Add("Index").FormatColumn = "1 index ``"
var_Column = oList.Columns.Add("Index")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.FormatColumn = "1 index ``"]
endwith
// oList.Columns.Add("Pos").FormatColumn = "1 apos ``"
var_Column1 = oList.Columns.Add("Pos")
with (oList)
	TemplateDef = [dim var_Column1]
	TemplateDef = var_Column1
	Template = [var_Column1.FormatColumn = "1 apos ``"]
endwith
oList.Columns.Add("Edit")
oList.GridLineStyle = 512
oList.DrawGridLines = 2
oList.GridLineColor = 0xe0e0e0
oList.EndUpdate()
569
Expandable-caption

/*
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) 
return

local h,oList,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ColumnAutoResize = true
oList.DrawGridLines = -1
oList.GridLineStyle = 512
oList.BackColorAlternate = 0xf0f0f0
oList.ShowFocusRect = false
oList.Columns.Add("Default")
var_Items = oList.Items
	var_Items.Add("before item")
	h = var_Items.Add("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4AjMGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEBA==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>+ withdraw(amount: Currency)")
	// 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
	// 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.Add("after item")
oList.EndUpdate()
568
Expandable-caption

local h,oList,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ColumnAutoResize = true
oList.DrawGridLines = -1
oList.GridLineStyle = 512
oList.BackColorAlternate = 0xf0f0f0
oList.ShowFocusRect = false
oList.Columns.Add("Default")
var_Items = oList.Items
	var_Items.Add("before item")
	h = var_Items.Add("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
	// 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
	// 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.Add("after item")
oList.EndUpdate()
567
Force hover-all feature
local oList

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.Template = [Background(500) = -1] // oList.Background(500) = -1
566
Disable hover-all feature (Windows 11 or greater)
local oList

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.Template = [Background(500) = 1] // oList.Background(500) = 0x1
565
Display a custom tooltip
/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	MouseMove = class::nativeObject_MouseMove
endwith
*/
// Occurs when the user moves the mouse.
function nativeObject_MouseMove(Button,Shift,X,Y)
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	oList.ShowToolTip("new content","",null,"+8","+8")
return

local oList

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
564
Shows the tooltip of the object moved relative to its default position
/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	MouseMove = class::nativeObject_MouseMove
endwith
*/
// Occurs when the user moves the mouse.
function nativeObject_MouseMove(Button,Shift,X,Y)
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	oList.ShowToolTip("<null>","<null>",null,"+8","+8")
return

local oList,var_Column

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.ColumnAutoResize = false
// oList.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
var_Column = oList.Columns.Add("tootip")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.ToolTip = "this is a tooltip assigned to a column"]
endwith
563
How do I prevent changing the cell's state ( check-box state )
/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	CellStateChanging = class::nativeObject_CellStateChanging
endwith
*/
// Fired before cell's state is about to be changed.
function nativeObject_CellStateChanging(ItemIndex,ColIndex,NewState)
	local var_Items
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	var_Items = oList.Items
		NewState = var_Items.CellState(ItemIndex,ColIndex)
return

local oList,var_Column,var_Column1,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.FreezeEvents(true)
// oList.Columns.Add("P1").Def(0) = true
var_Column = oList.Columns.Add("P1")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.Def(0) = True]
endwith
// oList.Columns.Add("P2").Def(0) = true
var_Column1 = oList.Columns.Add("P2")
with (oList)
	TemplateDef = [dim var_Column1]
	TemplateDef = var_Column1
	Template = [var_Column1.Def(0) = True]
endwith
var_Items = oList.Items
	var_Items.Add("C1")
	// var_Items.CellState(var_Items.Add("C2"),0) = 1
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellState(Add("C2"),0) = 1]
	endwith
	// var_Items.CellState(var_Items.Add("C3"),0) = 1
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellState(Add("C3"),0) = 1]
	endwith
	var_Items.Add("C4")
oList.FreezeEvents(false)
oList.EndUpdate()
562
ADOR, MDB (JET) 

local oList,rs

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\ExList\Sample\Access\sample.mdb",3,3)
oList.DataSource = rs
oList.EndUpdate()
561
Highlight the match once the filter is applied
/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	FilterChange = class::nativeObject_FilterChange
endwith
*/
// Occurs when filter was changed.
function nativeObject_FilterChange()
	local format
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	format = oList.FormatABC("`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`",oList.FilterBarPromptPattern)
	oList.Columns.Item(0).FormatColumn = Str(format)
	oList.Columns.Item(1).FormatColumn = Str(format)
	oList.Columns.Item(2).FormatColumn = Str(format)
return

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

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.SelBackColor = oList.BackColor
oList.SelForeColor = oList.ForeColor
oList.ColumnAutoResize = true
oList.ContinueColumnScroll = false
oList.MarkSearchColumn = false
oList.SearchColumnIndex = 1
oList.HeaderAppearance = 4
oList.HeaderHeight = 23
oList.BackColorLevelHeader = oList.BackColor
oList.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
oList.FilterBarPromptVisible = 2055 /*exFilterBarCompact | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible*/
oList.FilterBarBackColor = oList.BackColor
oList.FilterBarPromptPattern = "and"
var_Columns = oList.Columns
	var_Column = var_Columns.Add("Name")
		// var_Column.Def(17) = 1
		with (oList)
			TemplateDef = [dim var_Column]
			TemplateDef = var_Column
			Template = [var_Column.Def(17) = 1]
		endwith
		var_Column.FormatColumn = "lower(value)"
	var_Column1 = var_Columns.Add("Title")
		// var_Column1.Def(17) = 1
		with (oList)
			TemplateDef = [dim var_Column1]
			TemplateDef = var_Column1
			Template = [var_Column1.Def(17) = 1]
		endwith
		var_Column1.FormatColumn = "lower(value)"
	var_Column2 = var_Columns.Add("City")
		// var_Column2.Def(17) = 1
		with (oList)
			TemplateDef = [dim var_Column2]
			TemplateDef = var_Column2
			Template = [var_Column2.Def(17) = 1]
		endwith
		var_Column2.FormatColumn = "lower(value)"
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) = 1]
	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.EndUpdate()
560
Re-order the cell's caption, icons and images/pictures

local h,oList,var_Column,var_Column1,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ColumnAutoResize = true
oList.Images("gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmDcD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB")
var_Column = oList.Columns.Add("ToLeft")
	// var_Column.Def(0) = true
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(0) = True]
	endwith
var_Column1 = oList.Columns.Add("ToRight")
	// var_Column1.Def(0) = true
	with (oList)
		TemplateDef = [dim var_Column1]
		TemplateDef = var_Column1
		Template = [var_Column1.Def(0) = True]
	endwith
	// var_Column1.Def(34) = "caption,picture,icons,icon,check"
	with (oList)
		TemplateDef = [dim var_Column1]
		TemplateDef = var_Column1
		Template = [var_Column1.Def(34) = "caption,picture,icons,icon,check"]
	endwith
oList.DefaultItemHeight = 32
oList.DrawGridLines = 2
oList.HeaderAppearance = 4
var_Items = oList.Items
	h = var_Items.Add("Caption")
	// var_Items.CellImage(h,0) = 2
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellImage(h,0) = 2]
	endwith
	// var_Items.CellImages(h,0) = "1,2"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellImages(h,0) = "1,2"]
	endwith
	// var_Items.CellPicture(h,0) = oList.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" ;
 +"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" &
 +"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" &
 +"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" &
 +"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" &
 +"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" &
 +"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" &
 +"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" &
 +"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" &
 +"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" &
 +"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)")
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellPicture(h,0) = Me.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)")]
	endwith
	// var_Items.Caption(h,1) = var_Items.Caption(h,0)
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = Caption(h,0)]
	endwith
	// var_Items.CellHAlignment(h,1) = 2
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellHAlignment(h,1) = 2]
	endwith
	// var_Items.CellImage(h,1) = var_Items.CellImage(h,0)
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellImage(h,1) = CellImage(h,0)]
	endwith
	// var_Items.CellImages(h,1) = "2,1"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellImages(h,1) = "2,1"]
	endwith
	// var_Items.CellPicture(h,1) = var_Items.CellPicture(h,0)
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellPicture(h,1) = CellPicture(h,0)]
	endwith
	h = var_Items.Add("<b>HTML</b> <off 4>Caption")
	// 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
	// var_Items.CellImage(h,0) = 2
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellImage(h,0) = 2]
	endwith
	// var_Items.CellImages(h,0) = "1,2"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellImages(h,0) = "1,2"]
	endwith
	// var_Items.CellPicture(h,0) = oList.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" ;
 +"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" &
 +"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" &
 +"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" &
 +"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" &
 +"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" &
 +"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" &
 +"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" &
 +"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" &
 +"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" &
 +"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)")
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellPicture(h,0) = Me.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)")]
	endwith
	// var_Items.Caption(h,1) = var_Items.Caption(h,0)
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = Caption(h,0)]
	endwith
	// var_Items.CaptionFormat(h,1) = 1
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CaptionFormat(h,1) = 1]
	endwith
	// var_Items.CellHAlignment(h,1) = 2
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellHAlignment(h,1) = 2]
	endwith
	// var_Items.CellImage(h,1) = var_Items.CellImage(h,0)
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellImage(h,1) = CellImage(h,0)]
	endwith
	// var_Items.CellImages(h,1) = "2,1"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellImages(h,1) = "2,1"]
	endwith
	// var_Items.CellPicture(h,1) = var_Items.CellPicture(h,0)
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellPicture(h,1) = CellPicture(h,0)]
	endwith
oList.EndUpdate()
559
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)

/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	AddColumn = class::nativeObject_AddColumn
endwith
*/
// Fired after a new column is added.
function nativeObject_AddColumn(Column)
	/* Column.Def(48) = 2 */
	/* Column.Def(49) = 2 */
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
return

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

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ImageSize = 32
oList.DefaultItemHeight = 36
oList.HeaderHeight = oList.DefaultItemHeight
oList.SortBarHeight = oList.DefaultItemHeight
oList.Font.Size = 16
oList.FilterBarFont.Size = oList.Font.Size
oList.ToolTipFont.Size = oList.Font.Size
oList.Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" ;
 +"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" &
 +"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWRJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
var_Appearance = oList.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" ;
 +"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==")
	var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" ;
 +"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" &
 +"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4gaBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" &
 +"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==")
	var_Appearance.Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" ;
 +"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" &
 +"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjVHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" &
 +"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=")
	var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" ;
 +"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
oList.BackColorHeader = 0x4c6c6c6
oList.SelBackColor = 0x4000000
oList.SelForeColor = 0x10000
oList.Template = [CheckImage(0) = 16777216] // oList.CheckImage(0) = 16777216
oList.Template = [CheckImage(1) = 33554432] // oList.CheckImage(1) = 33554432
oList.Template = [CheckImage(2) = 50331648] // oList.CheckImage(2) = 50331648
oList.Template = [Background(20) = SelBackColor] // oList.Background(20) = oList.SelBackColor
oList.Template = [Background(21) = SelForeColor] // oList.Background(21) = oList.SelForeColor
oList.Template = [Background(26) = BackColor] // oList.Background(26) = oList.BackColor
oList.Template = [Background(27) = ForeColor] // oList.Background(27) = oList.ForeColor
oList.Template = [Background(32) = -1] // oList.Background(32) = -1
oList.Template = [Background(0) = 67108864] // oList.Background(0) = 0x4000000
oList.Template = [Background(41) = 67174657] // oList.Background(41) = 0x4010101
oList.Template = [Background(1) = 67109119] // oList.Background(1) = 0x40000ff
oList.HeaderAppearance = 4
oList.ShowFocusRect = false
oList.SortBarVisible = true
oList.BackColorSortBar = oList.BackColor
oList.BackColorLevelHeader = oList.BackColor
oList.FilterBarDropDownHeight = 1
var_Column = oList.Columns.Add("Check")
	// var_Column.Def(0) = true
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(0) = True]
	endwith
	var_Column.Width = 128
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 256
var_Column1 = oList.Columns.Add("Pos")
	var_Column1.FormatColumn = "1 pos ``"
	var_Column1.AllowSort = false
	var_Column1.Width = 48
	var_Column1.AllowSizing = false
	var_Column1.Alignment = 1
	var_Column1.HeaderAlignment = 1
var_Column2 = oList.Columns.Add("Image")
	var_Column2.DisplayFilterButton = true
	var_Column2.FilterList = 8480 /*exShowExclude | exShowCheckBox | exSortItemsAsc*/
	var_Column2.FilterType = 10
	var_Column2.Width = 128
	var_Column2.HeaderImage = 1
var_Column3 = oList.Columns.Add("Images")
	// var_Column3.Def(0) = true
	with (oList)
		TemplateDef = [dim var_Column3]
		TemplateDef = var_Column3
		Template = [var_Column3.Def(0) = True]
	endwith
	var_Column3.Width = 196
	var_Column3.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images"
oList.Columns.Item("Pos").Position = 3
var_Items = oList.Items
	h = var_Items.Add("Child A")
	// var_Items.CellImage(h,2) = 1
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellImage(h,2) = 1]
	endwith
	// var_Items.CellImages(h,3) = "1,2,3"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellImages(h,3) = "1,2,3"]
	endwith
	// var_Items.Caption(h,3) = "123"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,3) = "123"]
	endwith
	h = var_Items.Add("Child B")
	// 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.CellImage(h,2) = 3
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellImage(h,2) = 3]
	endwith
	// var_Items.CellImages(h,3) = "2,3,1"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellImages(h,3) = "2,3,1"]
	endwith
	// var_Items.Caption(h,3) = "231"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,3) = "231"]
	endwith
	// var_Items.SelectItem(h) = true
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.SelectItem(h) = True]
	endwith
	h = var_Items.Add("Child C")
	// var_Items.CellImage(h,2) = 2
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellImage(h,2) = 2]
	endwith
	// var_Items.CellState(h,3) = 1
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellState(h,3) = 1]
	endwith
	// var_Items.Caption(h,3) = "312"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,3) = "312"]
	endwith
	// var_Items.CellImages(h,3) = "3,1,2"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellImages(h,3) = "3,1,2"]
	endwith
oList.EndUpdate()
558
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)

/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	AddColumn = class::nativeObject_AddColumn
endwith
*/
// Fired after a new column is added.
function nativeObject_AddColumn(Column)
	/* Column.Def(48) = 2 */
	/* Column.Def(49) = 2 */
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
return

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

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ImageSize = 16
oList.Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
var_Appearance = oList.VisualAppearance
	var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" ;
 +"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
oList.BackColorHeader = 0x4c6c6c6
oList.SelBackColor = 0x4000000
oList.SelForeColor = 0x10000
oList.Template = [Background(20) = SelBackColor] // oList.Background(20) = oList.SelBackColor
oList.Template = [Background(21) = SelForeColor] // oList.Background(21) = oList.SelForeColor
oList.Template = [Background(26) = BackColor] // oList.Background(26) = oList.BackColor
oList.Template = [Background(27) = ForeColor] // oList.Background(27) = oList.ForeColor
oList.Template = [Background(32) = -1] // oList.Background(32) = -1
oList.Template = [Background(0) = 67108864] // oList.Background(0) = 0x4000000
oList.Template = [Background(41) = 67174657] // oList.Background(41) = 0x4010101
oList.Template = [Background(1) = 67109119] // oList.Background(1) = 0x40000ff
oList.HeaderAppearance = 4
oList.ShowFocusRect = false
oList.SortBarVisible = true
oList.BackColorSortBar = oList.BackColor
oList.BackColorLevelHeader = oList.BackColor
oList.FilterBarDropDownHeight = 1
var_Column = oList.Columns.Add("Check")
	// var_Column.Def(0) = true
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(0) = True]
	endwith
	var_Column.Width = 128
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 256
var_Column1 = oList.Columns.Add("Pos")
	var_Column1.FormatColumn = "1 pos ``"
	var_Column1.AllowSort = false
	var_Column1.Width = 48
	var_Column1.AllowSizing = false
	var_Column1.Alignment = 1
	var_Column1.HeaderAlignment = 1
var_Column2 = oList.Columns.Add("Image")
	var_Column2.DisplayFilterButton = true
	var_Column2.FilterList = 8480 /*exShowExclude | exShowCheckBox | exSortItemsAsc*/
	var_Column2.FilterType = 10
	var_Column2.Width = 128
	var_Column2.HeaderImage = 1
var_Column3 = oList.Columns.Add("Images")
	// var_Column3.Def(0) = true
	with (oList)
		TemplateDef = [dim var_Column3]
		TemplateDef = var_Column3
		Template = [var_Column3.Def(0) = True]
	endwith
	var_Column3.Width = 196
	var_Column3.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images"
oList.Columns.Item("Pos").Position = 3
var_Items = oList.Items
	h = var_Items.Add("Child A")
	// var_Items.CellImage(h,2) = 1
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellImage(h,2) = 1]
	endwith
	// var_Items.CellImages(h,3) = "1,2,3"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellImages(h,3) = "1,2,3"]
	endwith
	// var_Items.Caption(h,3) = "123"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,3) = "123"]
	endwith
	h = var_Items.Add("Child B")
	// 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.CellImage(h,2) = 3
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellImage(h,2) = 3]
	endwith
	// var_Items.CellImages(h,3) = "2,3,1"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellImages(h,3) = "2,3,1"]
	endwith
	// var_Items.Caption(h,3) = "231"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,3) = "231"]
	endwith
	// var_Items.SelectItem(h) = true
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.SelectItem(h) = True]
	endwith
	h = var_Items.Add("Child C")
	// var_Items.CellImage(h,2) = 2
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellImage(h,2) = 2]
	endwith
	// var_Items.CellState(h,3) = 1
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellState(h,3) = 1]
	endwith
	// var_Items.Caption(h,3) = "312"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,3) = "312"]
	endwith
	// var_Items.CellImages(h,3) = "3,1,2"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellImages(h,3) = "3,1,2"]
	endwith
oList.EndUpdate()
557
The user clicks the drop-down filter, select a value and the control's list filters for the selected item(s). Is there a way for when the user then goes to the next column to add another filter and the drop down arrow is clicked for the list of values they can filter by to be limited to what is being displayed in the list due to the first filter they set

/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	AddColumn = class::nativeObject_AddColumn
endwith
*/
// Fired after a new column is added.
function nativeObject_AddColumn(Column)
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
return

local oList,rs

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ColumnAutoResize = false
rs = new OleAutoClient("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\Access\sample.accdb",3,3)
oList.DataSource = rs
oList.Columns.Item("ShipVia").Position = 2
oList.EndUpdate()
556
Is it possible to set from code, a column sort without being inserted in the sortbar

local oList,rs

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ColumnAutoResize = false
rs = new OleAutoClient("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\Access\SAMPLE.ACCDB",3,3)
oList.DataSource = rs
oList.SortBarVisible = true
oList.Layout = "singlesort=" + ["] + "C1:1" + ["] + ""
oList.EndUpdate()
555
Is it possible to highligth the match while a filter is applied

/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	AddColumn = class::nativeObject_AddColumn
endwith
*/
// Fired after a new column is added.
function nativeObject_AddColumn(Column)
	/* Column.Def(17) = 1 */
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
return

/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	FilterChange = class::nativeObject_FilterChange
endwith
*/
// Occurs when filter was changed.
function nativeObject_FilterChange()
	local format
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	format = oList.FormatABC("`value replace '` + value + `' with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`",oList.FilterBarPromptPattern)
	oList.Columns.Item(0).FormatColumn = Str(format)
	oList.Columns.Item(1).FormatColumn = Str(format)
return

local oList,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.DrawGridLines = 2
oList.HeaderAppearance = 4
oList.Columns.Add("Col 1")
oList.Columns.Add("Col 2")
var_Items = oList.Items
	// var_Items.Caption(var_Items.Add("219 Smith"),1) = "Ignacio 1234"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("219 Smith"),1) = "Ignacio 1234"]
	endwith
	// var_Items.Caption(var_Items.Add("1666 County Road 309A"),1) = "897 Manassa"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("1666 County Road 309A"),1) = "897 Manassa"]
	endwith
	// var_Items.Caption(var_Items.Add("38 Lone Pine"),1) = "Durango 11"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("38 Lone Pine"),1) = "Durango 11"]
	endwith
	// var_Items.Caption(var_Items.Add("612 Jachim Street"),1) = "Lamar 222"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("612 Jachim Street"),1) = "Lamar 222"]
	endwith
oList.FilterBarPromptPattern = "1"
oList.FilterBarPromptVisible = 2067 /*exFilterBarCompact | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
oList.FilterBarPromptType = 257 /*exFilterPromptCaseSensitive | exFilterPromptContainsAll*/
oList.EndUpdate()
554
Is it possible to highlight the column's header once a filter is applied

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

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Appearance = oList.VisualAppearance
	var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgANJ0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8YNYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mgbhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhWBMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=")
	var_Appearance.Add(1,"CP:2 -8 -4 2 4")
oList.Template = [Background(0) = 33488638] // oList.Background(0) = 0x1fefefe
oList.Template = [Background(41) = 16843009] // oList.Background(41) = 0x1010101
oList.Template = [Background(32) = -1] // oList.Background(32) = -1
oList.HeaderHeight = 28
oList.BackColorHeader = 0xffffff
oList.DrawGridLines = -1
oList.HeaderVisible = true
var_Columns = oList.Columns
	// var_Columns.Add("C1").DisplayFilterButton = true
	var_Column = var_Columns.Add("C1")
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.DisplayFilterButton = True]
	endwith
	var_Column1 = var_Columns.Add("C2")
		var_Column1.DisplayFilterButton = true
		var_Column1.Filter = "Item 2"
		var_Column1.FilterType = 240
	// var_Columns.Add("C3").DisplayFilterButton = true
	var_Column2 = var_Columns.Add("C3")
	with (oList)
		TemplateDef = [dim var_Column2]
		TemplateDef = var_Column2
		Template = [var_Column2.DisplayFilterButton = True]
	endwith
var_Items = oList.Items
	h = var_Items.Add("Item 1")
	// var_Items.Caption(h,1) = "Item 2"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = "Item 2"]
	endwith
	// var_Items.Caption(h,2) = "Item 3"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,2) = "Item 3"]
	endwith
	h = var_Items.Add("Item 4")
	// var_Items.Caption(h,1) = "Item 5"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = "Item 5"]
	endwith
	// var_Items.Caption(h,2) = "Item 6"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,2) = "Item 6"]
	endwith
oList.ApplyFilter()
oList.EndUpdate()
553
Is it possible to show the filterbar on top of the rows

local oList,var_Column,var_Column1,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.FilterBarPromptVisible = 8192
oList.HeaderHeight = 24
oList.FilterBarHeight = oList.HeaderHeight
oList.HeaderAppearance = 1
oList.DrawGridLines = -1
oList.GridLineStyle = 512
var_Column = oList.Columns.Add("Column")
	var_Column.DisplayFilterButton = true
	var_Column.FilterType = 3
	var_Column.Filter = "B*"
var_Column1 = oList.Columns.Add("Index")
	var_Column1.FormatColumn = "1 index ``"
	var_Column1.Position = 0
	var_Column1.Width = 48
	var_Column1.AllowSizing = false
	var_Column1.SortType = 1
	// var_Column1.Def(0) = true
	with (oList)
		TemplateDef = [dim var_Column1]
		TemplateDef = var_Column1
		Template = [var_Column1.Def(0) = True]
	endwith
var_Items = oList.Items
	var_Items.Add("A.1")
	var_Items.Add("A.2")
	var_Items.Add("B.1")
	var_Items.Add("B.2")
	var_Items.Add("B.3")
	var_Items.Add("C")
oList.ApplyFilter()
oList.EndUpdate()
552
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header (non-clickable)

local oList,var_Column,var_Columns,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.HeaderAppearance = 4
var_Columns = oList.Columns
	var_Columns.Add("Item")
	var_Column = var_Columns.Add("Pos")
		var_Column.Position = 0
		var_Column.Width = 32
		var_Column.AllowSizing = false
		var_Column.FormatColumn = "1 index ``"
		var_Column.AllowSort = false
		var_Column.AllowDragging = false
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
oList.EndUpdate()
551
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header

local oList,var_Column,var_Columns,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.HeaderAppearance = 4
oList.Template = [Background(32) = -1] // oList.Background(32) = -1
var_Columns = oList.Columns
	var_Columns.Add("Item")
	var_Column = var_Columns.Add("Pos")
		var_Column.Position = 0
		var_Column.Width = 32
		var_Column.AllowSizing = false
		var_Column.FormatColumn = "1 index ``"
		var_Column.AllowSort = false
		var_Column.AllowDragging = false
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
oList.EndUpdate()
550
How do I get notified once the user clicks the cell's button

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

local oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.Columns.Add("Item")
var_Column = oList.Columns.Add("...")
	// var_Column.Def(2) = true
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(2) = True]
	endwith
	var_Column.Alignment = 1
	var_Column.HeaderAlignment = 1
	var_Column.FormatColumn = "` ... `"
	var_Column.Width = 32
	var_Column.AllowSizing = false
	var_Column.Position = 0
oList.SelBackMode = 1
var_Items = oList.Items
	var_Items.Add("Item 1")
	var_Items.Add("Item 2")
	var_Items.Add("Item 3")
oList.EndUpdate()
549
How do I set an extra data for each item
/*
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
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	i = oList.ItemFromPoint(-1,-1,c,hit)
	? Str(i) 
	? Str(oList.Items.ItemData(i)) 
return

local oList,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ColumnAutoResize = true
oList.Columns.Add("Default")
var_Items = oList.Items
	// var_Items.ItemData(var_Items.Add("method")) = "your extra data of method"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.ItemData(Add("method")) = "your extra data of method"]
	endwith
oList.EndUpdate()
548
I do not like to specify the item padding for every column I add. The question is how can I do it automatically

local oList,var_Column,var_Columns,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.AttachTemplate("handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}")
oList.HeaderAppearance = 4
oList.DrawGridLines = -1
oList.GridLineStyle = 32
var_Columns = oList.Columns
	var_Columns.Add("Item")
	var_Column = var_Columns.Add("Pos")
		var_Column.Position = 0
		var_Column.Width = 32
		var_Column.AllowSizing = false
		var_Column.FormatColumn = "1 index ``"
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
oList.EndUpdate()
547
Can I sort the column by check-state

local oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Column = oList.Columns.Add("Check")
	// var_Column.Def(0) = true
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(0) = True]
	endwith
	var_Column.SortType = 32
var_Items = oList.Items
	var_Items.Add()
	// var_Items.CellState(var_Items.Add(),0) = 1
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellState(Add(),0) = 1]
	endwith
	// var_Items.CellState(var_Items.Add(),0) = 1
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellState(Add(),0) = 1]
	endwith
	var_Items.Add()
oList.Columns.Item(0).SortOrder = 1
oList.EndUpdate()
546
Can I sort the column by image

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=")
var_Column = oList.Columns.Add("Image")
	var_Column.SortType = 48
var_Items = oList.Items
	// var_Items.CellImage(var_Items.Add(),0) = 3
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellImage(Add(),0) = 3]
	endwith
	var_Items.Add()
	// var_Items.CellImage(var_Items.Add(),0) = 1
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellImage(Add(),0) = 1]
	endwith
	// var_Items.CellImage(var_Items.Add(),0) = 2
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellImage(Add(),0) = 2]
	endwith
oList.Columns.Item(0).SortOrder = 1
oList.EndUpdate()
545
How can I display UNICODE characters

local oList,var_Column,var_Items,var_StdFont

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_StdFont = oList.Font
	var_StdFont.Name = "Arial Unicode"
	var_StdFont.Size = 22
oList.HeaderVisible = false
oList.DefaultItemHeight = 48
// oList.Columns.Add("").Def(17) = 1
var_Column = oList.Columns.Add("")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.Def(17) = 1]
endwith
var_Items = oList.Items
	var_Items.Add("Ӓӓ")
	var_Items.Add("ᦜᦝ;ᦞ")
	var_Items.Add("ɮɭ;ɯ")
	var_Items.Add("勳勴勵勶")
	// var_Items.FormatCell(var_Items.Add(oList.Version),0) = "(value lfind `UNICODE`) < 0 ? `<fgcolor=FF0000><b>!UNICODE!</b> version</fgcolor> required: ` + value : `` "
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.FormatCell(Add(Me.Version),0) = "(value lfind `UNICODE`) < 0 ? `<fgcolor=FF0000><b>!UNICODE!</b> version</fgcolor> required: ` + value : `` "]
	endwith
oList.EndUpdate()
544
How do I display the position of the item with 0-padding

local oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
// oList.Columns.Add("Items").FormatColumn = "((1 apos ``) lpad `00`) + `. `  + value"
var_Column = oList.Columns.Add("Items")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.FormatColumn = "((1 apos ``) lpad `00`) + `. `  + value"]
endwith
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
	var_Items.Add("Item D")
oList.EndUpdate()
543
I am skinning the control's header-bar, but the background of the header-bar is shown on each item in the filter-bar drop down panel. What can I do

local oList,var_Appearance,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Appearance = oList.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQGhsCYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU8lORLUi+M4zSBPcZVTRtGShPDBKTjMKKYgkG4lVpRNa0PC1GTzQ6mazkKQLRADDIDVbAeL3LiMBy9LyLLItQALByua5mWhbcZyBCOPgBTrRb5zO58FjuTK7YLjMB7NrUNYtFaUMy2OpOCADIaecTNcaWLxPF2MY1HWYxVj2Jw3DuRJonKYBgggSRAlIYw6B0ThGFgPAkFUDAhBMfZRiGNAkFECZnm4YQdneJwqnsSQrGAAhWAIJBJBIQgFCQIBiEIAglgqYo0i4V4MEgRI9gSToYFSb4Fk6Y4+BmBZhFOJgTC8TBogQAArgqco4muCZOkOMJtgmYpIjYKg7GKE4uCUK4AAKKg2DwI4DiCZw5k6KJ2D6D4OHiag4DwIxiiQAArAqMosnEPBPAOIhOg+DozjIJ4PGSY4iEwPAkhKLhHUUSQsnKFCnkYU9MjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDya" ;
 +"ICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDhQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARViHH4HQOYmxuCpF2MsecEQVBvGQCcIQvA6i2CAAIARAQ=")
	var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMwwDhEIwjHCEEhsGIbJAGQBJCjWGodQLOEgzNC0IxNFCQILhEZJADKII8TTOU5UPRESwTE4cKBmKhQCo2NpKR7VUTxCKQahLLivoCjBT8EzHMqtIzrCA6MpaP4pQjKcqwHJ8YyHEi0ZrjazKaj6T5AXDUcaWbbNVx3PK3aioOpLZrqOZZYzYFoABTuJzPMSyIhxXD8cweaZvSpLExVYK9BY3PbKMgxC77QgTIpDaQMNS6PjtF43PAALLFUaNYzoOKzABMHATBIXAYJCwIIR5G7ID4BbQcCQAHL9DBaEEIAEEISgGhMGZQmocgymmIRQkIEQ2BcGgbEIRQci8XaMBqTRVgSAZHG+S5pnOep+D6f4vjec5zn0fpfmgBgAH6TRoBYBoAh+eAmAiAgPFgNArgOQpIESdoEmCOAOAqBYfFGAgaEaBgYHYFYFmIB5UiGCJUgKCgmgeYoHk4BgCmKRQiCwApgHgYgyH8B54lQU4NkMeJlBoDgjkiXBTg0R54iYIR+koeQVBoKpkgkChKhEJBkF4SFEjkDgJhFQoeEmDJlBeehUhWJQJGIXoICWOQ6FeFIlhkfhlDsSJpiQVoamaSY2G6G5nAmRhpCOH5pkwVYdmeCZmHqHpnkmdhzhmaAIFiax8AABAEICA==")
oList.BackColorHeader = 0x1000000
oList.ForeColorHeader = 0x808080
oList.Template = [Background(0) = 33554432] // oList.Background(0) = 0x2000000
oList.Template = [Background(26) = 16777215] // oList.Background(26) = 0xffffff
oList.Template = [Background(27) = 65536] // oList.Background(27) = 0x10000
oList.Template = [Background(20) = 33521664] // oList.Background(20) = 0x1ff8000
oList.Template = [Background(21) = 15790320] // oList.Background(21) = 0xf0f0f0
oList.Template = [Background(32) = -1] // oList.Background(32) = -1
oList.HeaderHeight = 24
oList.BackColorLevelHeader = oList.BackColor
var_Column = oList.Columns.Add("Filter")
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = false
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
	// var_Column.Def(52) = 2
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(52) = 2]
	endwith
	// var_Column.Def(53) = 2
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(53) = 2]
	endwith
var_Items = oList.Items
	var_Items.Add("A")
	var_Items.Add("B")
	var_Items.Add("C")
	var_Items.Add("D")
oList.EndUpdate()
542
Type of wraps the cell's caption support (Sample 2)

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

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.HeaderSingleLine = false
oList.HeaderHeight = 36
oList.DrawGridLines = -1
oList.ColumnAutoResize = false
oList.ScrollBySingleLine = true
var_Columns = oList.Columns
	var_Column = var_Columns.Add("Single-Line (exCaptionSingleLine)")
		var_Column.Width = 96
		// var_Column.Def(17) = 1
		with (oList)
			TemplateDef = [dim var_Column]
			TemplateDef = var_Column
			Template = [var_Column.Def(17) = 1]
		endwith
		// var_Column.Def(16) = -1
		with (oList)
			TemplateDef = [dim var_Column]
			TemplateDef = var_Column
			Template = [var_Column.Def(16) = -1]
		endwith
	var_Column1 = var_Columns.Add("Word-Wrap (exCaptionWordWrap)")
		var_Column1.Width = 96
		// var_Column1.Def(17) = 1
		with (oList)
			TemplateDef = [dim var_Column1]
			TemplateDef = var_Column1
			Template = [var_Column1.Def(17) = 1]
		endwith
		// var_Column1.Def(16) = 0
		with (oList)
			TemplateDef = [dim var_Column1]
			TemplateDef = var_Column1
			Template = [var_Column1.Def(16) = 0]
		endwith
		var_Column1.FormatColumn = "%0"
	var_Column2 = var_Columns.Add("Break-Wrap (exCaptionBreakWrap)")
		var_Column2.Width = 96
		// var_Column2.Def(17) = 1
		with (oList)
			TemplateDef = [dim var_Column2]
			TemplateDef = var_Column2
			Template = [var_Column2.Def(17) = 1]
		endwith
		// var_Column2.Def(16) = 1
		with (oList)
			TemplateDef = [dim var_Column2]
			TemplateDef = var_Column2
			Template = [var_Column2.Def(16) = 1]
		endwith
		var_Column2.FormatColumn = "%0"
var_Items = oList.Items
	var_Items.Add("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
	var_Items.Add("This is the <b>first</b> line.\r\nThis is the <b>second</b> line.\r\nThis is the <b>third</b> line.")
oList.EndUpdate()
541
Type of wraps the cell's caption support (Sample 1)

local h,oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.DrawGridLines = -1
oList.ColumnAutoResize = false
oList.ScrollBySingleLine = true
// oList.Columns.Add("Default").Width = 128
var_Column = oList.Columns.Add("Default")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.Width = 128]
endwith
var_Items = oList.Items
	h = var_Items.Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
	h = var_Items.Add("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
	// 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("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
	// var_Items.CellSingleLine(h,0) = 0
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellSingleLine(h,0) = 0]
	endwith
	h = var_Items.Add("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
	// 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
	// var_Items.CellSingleLine(h,0) = 0
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellSingleLine(h,0) = 0]
	endwith
	h = var_Items.Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
	// var_Items.CellSingleLine(h,0) = 1
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellSingleLine(h,0) = 1]
	endwith
	h = var_Items.Add("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
	// 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
	// var_Items.CellSingleLine(h,0) = 1
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellSingleLine(h,0) = 1]
	endwith
oList.EndUpdate()
540
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)

local oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.DrawGridLines = -1
oList.ColumnAutoResize = false
oList.ScrollBySingleLine = true
// oList.Columns.Add("Default").Width = 128
var_Column = oList.Columns.Add("Default")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.Width = 128]
endwith
var_Items = oList.Items
	// var_Items.CellSingleLine(var_Items.Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0) = 1
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellSingleLine(Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0) = 1]
	endwith
	var_Items.Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
oList.EndUpdate()
539
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)

local oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.DrawGridLines = -1
oList.ColumnAutoResize = false
oList.ScrollBySingleLine = true
var_Column = oList.Columns.Add("Default")
	var_Column.Width = 128
	// var_Column.Def(16) = 1
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(16) = 1]
	endwith
var_Items = oList.Items
	var_Items.Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
	var_Items.Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
oList.EndUpdate()
538
How can I change the visual appearance/color of the Filter For ... field

local oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.BackColorHeader = 0x1
oList.ForeColorHeader = 0xffffff
oList.Template = [Background(26) = BackColorHeader] // oList.Background(26) = oList.BackColorHeader
oList.Template = [Background(27) = ForeColorHeader] // oList.Background(27) = oList.ForeColorHeader
oList.Template = [Background(0) = 15790320] // oList.Background(0) = 0xf0f0f0
oList.Template = [Background(32) = -1] // oList.Background(32) = -1
oList.HeaderAppearance = 5
var_Column = oList.Columns.Add("Items")
	var_Column.FilterOnType = true
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 2
var_Items = oList.Items
	var_Items.Add("Item 1")
	var_Items.Add("Item 2")
	var_Items.Add("Item 3")
oList.EndUpdate()
537
How can I display the cell's caption without spaces on both sides

local oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ColumnAutoResize = true
var_Column = oList.Columns.Add("Default")
	// var_Column.Def(17) = 1
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(17) = 1]
	endwith
	var_Column.FormatColumn = "((trim(value) replace `   ` with ` `) replace `  ` with ` `) replace ` ` with `<bgcolor=FF0000> </bgcolor>`"
var_Items = oList.Items
	var_Items.Add("")
	var_Items.Add("Item A")
	var_Items.Add("    Item B")
	var_Items.Add("        Item   C    ")
oList.EndUpdate()
536
How can I highlight the spaces within the column (sample 2)

local oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ColumnAutoResize = true
var_Column = oList.Columns.Add("Default")
	// var_Column.Def(17) = 1
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(17) = 1]
	endwith
	var_Column.FormatColumn = "`'` + ( value replace ` ` with `_` ) + `'`"
var_Items = oList.Items
	var_Items.Add("")
	var_Items.Add("Item A")
	var_Items.Add("    Item B")
	var_Items.Add("        Item   C    ")
oList.EndUpdate()
535
How can I highlight the spaces within the column (sample 1)

local oList,var_Column,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ColumnAutoResize = true
var_Column = oList.Columns.Add("Default")
	// var_Column.Def(17) = 1
	with (oList)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(17) = 1]
	endwith
	var_Column.FormatColumn = "len(value) = 0 ? `<bgcolor=FF0000> </bgcolor>` : ( value replace ` ` with `<bgcolor=FF0000> </bgcolor>` )"
var_Items = oList.Items
	var_Items.Add("")
	var_Items.Add("Item A")
	var_Items.Add("    Item B")
	var_Items.Add("        Item   C    ")
oList.EndUpdate()
534
How can I change the visual aspect of the drop down filter-calendar

local oList,var_Column

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.Template = [Background(26) = 65536] // oList.Background(26) = 0x10000
oList.Template = [Background(27) = 16777215] // oList.Background(27) = 0xffffff
oList.Template = [Background(12) = 16777215] // oList.Background(12) = 0xffffff
oList.Template = [Background(8) = Background(26)] // oList.Background(8) = oList.Background(26)
oList.Template = [Background(11) = 8421504] // oList.Background(11) = 0x808080
var_Column = oList.Columns.Add("Date")
	var_Column.FilterType = 4
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterDate = true
	var_Column.DisplayFilterPattern = false
oList.EndUpdate()
533
Export Data in HTML format

local oList,sFile,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Column6,var_Columns,var_ConditionalFormat,var_ConditionalFormat1,var_ConditionalFormat2,var_ConditionalFormats,var_Items,var_ShellBrowserWindow

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.BackColorAlternate = 0xf0f0f0
oList.DrawGridLines = -1
oList.HeaderAppearance = 4
oList.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oList.Description(11) = Str(oList.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oList.Description(11)))
oList.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oList.FilterBarPromptVisible = 2579 /*exFilterBarCompact | exFilterBarShowCloseIfRequired | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
oList.FilterBarPromptType = 2
var_ConditionalFormats = oList.ConditionalFormats
	// var_ConditionalFormats.Add("%0 like `*AA*`","aa").BackColor = 0xc0c0c0
	var_ConditionalFormat = var_ConditionalFormats.Add("%0 like `*AA*`","aa")
	with (oList)
		TemplateDef = [dim var_ConditionalFormat]
		TemplateDef = var_ConditionalFormat
		Template = [var_ConditionalFormat.BackColor = 12632256]
	endwith
	var_ConditionalFormat1 = var_ConditionalFormats.Add("%0 like `*D*`","d")
		var_ConditionalFormat1.ForeColor = 0x8080ff
		var_ConditionalFormat1.ApplyTo = 0
	var_ConditionalFormat2 = var_ConditionalFormats.Add("%0 like `*b*`","b")
		var_ConditionalFormat2.ForeColor = 0xff0000
		var_ConditionalFormat2.Bold = true
		var_ConditionalFormat2.Italic = true
		var_ConditionalFormat2.ApplyTo = 0
var_Columns = oList.Columns
	var_Column = var_Columns.Add("Value")
		var_Column.Width = 128
		var_Column.HTMLCaption = "<b>VA</b><r>sko"
	var_Column1 = var_Columns.Add("APos")
		var_Column1.FormatColumn = "0 apos ``"
		var_Column1.AllowSort = false
		// var_Column1.Def(4) = 15790320
		with (oList)
			TemplateDef = [dim var_Column1]
			TemplateDef = var_Column1
			Template = [var_Column1.Def(4) = 15790320]
		endwith
		// var_Column1.Def(5) = 8421504
		with (oList)
			TemplateDef = [dim var_Column1]
			TemplateDef = var_Column1
			Template = [var_Column1.Def(5) = 8421504]
		endwith
		// var_Column1.Def(8) = var_Column1.Def(5)
		with (oList)
			TemplateDef = [dim var_Column1]
			TemplateDef = var_Column1
			Template = [var_Column1.Def(8) = Def(5)]
		endwith
		var_Column1.Position = 0
	var_Column2 = var_Columns.Add("RPos")
		var_Column2.FormatColumn = "0 rpos ``"
		var_Column2.AllowSort = false
		var_Column2.Position = 1
	var_Column3 = var_Columns.Add("Index")
		var_Column3.FormatColumn = "0 index ``"
		var_Column3.DisplayFilterButton = true
		var_Column3.FilterList = 256
		var_Column3.Position = 2
	var_Column4 = var_Columns.Add("Data 1")
		var_Column4.FormatColumn = "0 index `A-Z`"
		// var_Column4.Def(0) = true
		with (oList)
			TemplateDef = [dim var_Column4]
			TemplateDef = var_Column4
			Template = [var_Column4.Def(0) = True]
		endwith
	var_Column5 = var_Columns.Add("Data 2")
		var_Column5.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
		// var_Column5.Def(16) = false
		with (oList)
			TemplateDef = [dim var_Column5]
			TemplateDef = var_Column5
			Template = [var_Column5.Def(16) = False]
		endwith
		// var_Column5.Def(17) = 1
		with (oList)
			TemplateDef = [dim var_Column5]
			TemplateDef = var_Column5
			Template = [var_Column5.Def(17) = 1]
		endwith
		// var_Column5.Def(1) = true
		with (oList)
			TemplateDef = [dim var_Column5]
			TemplateDef = var_Column5
			Template = [var_Column5.Def(1) = True]
		endwith
	var_Column6 = var_Columns.Add("Data 3")
		var_Column6.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
		// var_Column6.Def(17) = 1
		with (oList)
			TemplateDef = [dim var_Column6]
			TemplateDef = var_Column6
			Template = [var_Column6.Def(17) = 1]
		endwith
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
	// var_Items.CellState(2,4) = 1
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellState(2,4) = 1]
	endwith
	var_Items.Add("Item AA")
	var_Items.Add("Item BB")
	var_Items.Add("Item CC")
	// var_Items.CellState(5,5) = 1
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellState(5,5) = 1]
	endwith
	var_Items.Add("Item D")
	var_Items.Add("Item EE")
	var_Items.Add("Item FFF")
oList.EndUpdate()
sFile = "c:/temp/export.html"
oList.Export(sFile,"vis")
var_ShellBrowserWindow = new OleAutoClient("InternetExplorer.Application")
	var_ShellBrowserWindow.Navigate2(sFile)
532
Export Data in CSV format

local oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Column6,var_Columns,var_ConditionalFormat,var_ConditionalFormat1,var_ConditionalFormat2,var_ConditionalFormats,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.BackColorAlternate = 0xf0f0f0
oList.DrawGridLines = -1
oList.HeaderAppearance = 4
oList.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oList.Description(11) = Str(oList.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oList.Description(11)))
oList.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oList.FilterBarPromptVisible = 2579 /*exFilterBarCompact | exFilterBarShowCloseIfRequired | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
oList.FilterBarPromptType = 2
var_ConditionalFormats = oList.ConditionalFormats
	// var_ConditionalFormats.Add("%0 like `*AA*`","aa").BackColor = 0xc0c0c0
	var_ConditionalFormat = var_ConditionalFormats.Add("%0 like `*AA*`","aa")
	with (oList)
		TemplateDef = [dim var_ConditionalFormat]
		TemplateDef = var_ConditionalFormat
		Template = [var_ConditionalFormat.BackColor = 12632256]
	endwith
	var_ConditionalFormat1 = var_ConditionalFormats.Add("%0 like `*D*`","d")
		var_ConditionalFormat1.ForeColor = 0x8080ff
		var_ConditionalFormat1.ApplyTo = 0
	var_ConditionalFormat2 = var_ConditionalFormats.Add("%0 like `*b*`","b")
		var_ConditionalFormat2.ForeColor = 0xff0000
		var_ConditionalFormat2.Bold = true
		var_ConditionalFormat2.Italic = true
		var_ConditionalFormat2.ApplyTo = 0
var_Columns = oList.Columns
	var_Column = var_Columns.Add("Value")
		var_Column.Width = 128
		var_Column.HTMLCaption = "<b>VA</b><r>sko"
	var_Column1 = var_Columns.Add("APos")
		var_Column1.FormatColumn = "0 apos ``"
		var_Column1.AllowSort = false
		// var_Column1.Def(4) = 15790320
		with (oList)
			TemplateDef = [dim var_Column1]
			TemplateDef = var_Column1
			Template = [var_Column1.Def(4) = 15790320]
		endwith
		// var_Column1.Def(5) = 8421504
		with (oList)
			TemplateDef = [dim var_Column1]
			TemplateDef = var_Column1
			Template = [var_Column1.Def(5) = 8421504]
		endwith
		// var_Column1.Def(8) = var_Column1.Def(5)
		with (oList)
			TemplateDef = [dim var_Column1]
			TemplateDef = var_Column1
			Template = [var_Column1.Def(8) = Def(5)]
		endwith
		var_Column1.Position = 0
	var_Column2 = var_Columns.Add("RPos")
		var_Column2.FormatColumn = "0 rpos ``"
		var_Column2.AllowSort = false
		var_Column2.Position = 1
	var_Column3 = var_Columns.Add("Index")
		var_Column3.FormatColumn = "0 index ``"
		var_Column3.DisplayFilterButton = true
		var_Column3.FilterList = 256
		var_Column3.Position = 2
	var_Column4 = var_Columns.Add("Data 1")
		var_Column4.FormatColumn = "0 index `A-Z`"
		// var_Column4.Def(0) = true
		with (oList)
			TemplateDef = [dim var_Column4]
			TemplateDef = var_Column4
			Template = [var_Column4.Def(0) = True]
		endwith
	var_Column5 = var_Columns.Add("Data 2")
		var_Column5.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
		// var_Column5.Def(16) = false
		with (oList)
			TemplateDef = [dim var_Column5]
			TemplateDef = var_Column5
			Template = [var_Column5.Def(16) = False]
		endwith
		// var_Column5.Def(17) = 1
		with (oList)
			TemplateDef = [dim var_Column5]
			TemplateDef = var_Column5
			Template = [var_Column5.Def(17) = 1]
		endwith
		// var_Column5.Def(1) = true
		with (oList)
			TemplateDef = [dim var_Column5]
			TemplateDef = var_Column5
			Template = [var_Column5.Def(1) = True]
		endwith
	var_Column6 = var_Columns.Add("Data 3")
		var_Column6.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
		// var_Column6.Def(17) = 1
		with (oList)
			TemplateDef = [dim var_Column6]
			TemplateDef = var_Column6
			Template = [var_Column6.Def(17) = 1]
		endwith
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
	// var_Items.CellState(2,4) = 1
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellState(2,4) = 1]
	endwith
	var_Items.Add("Item AA")
	var_Items.Add("Item BB")
	var_Items.Add("Item CC")
	// var_Items.CellState(5,5) = 1
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellState(5,5) = 1]
	endwith
	var_Items.Add("Item D")
	var_Items.Add("Item EE")
	var_Items.Add("Item FFF")
oList.EndUpdate()
? Str(oList.Export("","vis"))
531
How can I get the icon from the cell when using the Items.CellImages property (icon index)

/*
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
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	i = oList.ItemFromPoint(-1,-1,c,hit)
	? Str(oList.FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? ( ( (value bitand 0xFFFF0000) bitshift 16 ) array B split `,` )  : `no image`",hit,oList.Items.CellImages(i,c))) 
return

local oList,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.Columns.Add("Default")
var_Items = oList.Items
	// var_Items.CellImages(var_Items.Add("Item 1"),0) = "3,2,1"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellImages(Add("Item 1"),0) = "3,2,1"]
	endwith
	// var_Items.CellImages(var_Items.Add("Item 2"),0) = "2,3"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellImages(Add("Item 2"),0) = "2,3"]
	endwith
	// var_Items.CellImages(var_Items.Add("Item 3"),0) = "2,"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellImages(Add("Item 3"),0) = "2,"]
	endwith
oList.EndUpdate()
530
How can I get the icon from the cell when using the Items.CellImages property (icon position within the cell)

/*
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
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	i = oList.ItemFromPoint(-1,-1,c,hit)
	? Str(oList.FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit)) 
return

local oList,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.Columns.Add("Default")
var_Items = oList.Items
	// var_Items.CellImages(var_Items.Add("Item 1"),0) = "3,2,1"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellImages(Add("Item 1"),0) = "3,2,1"]
	endwith
	// var_Items.CellImages(var_Items.Add("Item 2"),0) = "2,3"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellImages(Add("Item 2"),0) = "2,3"]
	endwith
	// var_Items.CellImages(var_Items.Add("Item 3"),0) = "2"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellImages(Add("Item 3"),0) = "2"]
	endwith
oList.EndUpdate()
529
How can I get the index of icon from the cell, if using the CellImages property
/*
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
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	i = oList.ItemFromPoint(-1,-1,c,hit)
	? Str(oList.FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit)) 
return

local oList,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.Columns.Add("Default")
var_Items = oList.Items
	// var_Items.CellImages(var_Items.Add("Item 1"),0) = "1,2,3"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellImages(Add("Item 1"),0) = "1,2,3"]
	endwith
	// var_Items.CellImages(var_Items.Add("Item 2"),0) = "2,3,1"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellImages(Add("Item 2"),0) = "2,3,1"]
	endwith
	// var_Items.CellImages(var_Items.Add("Item 3"),0) = "3,2,1"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellImages(Add("Item 3"),0) = "3,2,1"]
	endwith
oList.EndUpdate()
528
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop

local oList,var_Appearance,var_Columns

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.HeaderAppearance = 4
var_Columns = oList.Columns
	var_Columns.Add("Column 1")
	var_Columns.Add("Column 2")
	var_Columns.Add("Column 3")
var_Appearance = oList.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVIUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBeEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIBICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokGKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=")
	var_Appearance.Add(2,"CP:1 0 -36 0 0")
oList.Template = [Background(182) = 33554432] // oList.Background(182) = 0x2000000
oList.EndUpdate()
527
A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do
local oList,var_Column,var_Column1,var_ConditionalFormat,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.ColumnAutoResize = true
oList.DefaultItemHeight = 20
oList.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1mY1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2hhWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQRJSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA==")
// oList.Columns.Add("Default").Def(0) = true
var_Column = oList.Columns.Add("Default")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.Def(0) = True]
endwith
var_Column1 = oList.Columns.Add("Position")
	var_Column1.FormatColumn = "1 rindex ``"
	var_Column1.Visible = false
var_ConditionalFormat = oList.ConditionalFormats.Add("%C1 mod 2")
	var_ConditionalFormat.BackColor = 0x1000000
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()
526
Is it possible to change the caption from a column without to remove the column and add it with the new caption
local oList,var_Column,var_Column1

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
// oList.Columns.Add("ColumnName").Caption = "NewName"
var_Column = oList.Columns.Add("ColumnName")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.Caption = "NewName"]
endwith
// oList.Columns.Add("ColumnName").HTMLCaption = "<b>New</b>Name"
var_Column1 = oList.Columns.Add("ColumnName")
with (oList)
	TemplateDef = [dim var_Column1]
	TemplateDef = var_Column1
	Template = [var_Column1.HTMLCaption = "<b>New</b>Name"]
endwith
525
FilterBarCaption ALL Keyword ( sample 2, result ) 

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

local h,oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,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=")
var_Column = oList.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oList.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oList.Columns.Add("Check")
	// var_Column2.Def(0) = true
	with (oList)
		TemplateDef = [dim var_Column2]
		TemplateDef = var_Column2
		Template = [var_Column2.Def(0) = True]
	endwith
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oList.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oList.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oList.Items
	// var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item A"),1) = "Sub-Item A"]
	endwith
	h = var_Items.Add("Item B")
	// var_Items.Caption(h,1) = "Sub-Item B"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = "Sub-Item B"]
	endwith
	// var_Items.CellState(h,2) = 1
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellState(h,2) = 1]
	endwith
	// var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item C"),1) = "Sub-Item C"]
	endwith
oList.FilterBarFont = oList.Font
oList.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oList.Description(11) = Str(oList.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oList.Description(11)))
oList.FilterBarCaption = "(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oList.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oList.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oList.Columns.Item(2).Filter = Str(1)
oList.ApplyFilter()
oList.EndUpdate()
524
FilterBarCaption ALL Keyword ( sample 1 ) 

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

local h,oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,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=")
var_Column = oList.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oList.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oList.Columns.Add("Check")
	// var_Column2.Def(0) = true
	with (oList)
		TemplateDef = [dim var_Column2]
		TemplateDef = var_Column2
		Template = [var_Column2.Def(0) = True]
	endwith
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oList.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oList.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oList.Items
	// var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item A"),1) = "Sub-Item A"]
	endwith
	h = var_Items.Add("Item B")
	// var_Items.Caption(h,1) = "Sub-Item B"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = "Sub-Item B"]
	endwith
	// var_Items.CellState(h,2) = 1
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellState(h,2) = 1]
	endwith
	// var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item C"),1) = "Sub-Item C"]
	endwith
oList.FilterBarFont = oList.Font
oList.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oList.Description(11) = Str(oList.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oList.Description(11)))
oList.FilterBarCaption = "all"
oList.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oList.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oList.Columns.Item(2).Filter = Str(1)
oList.ApplyFilter()
oList.EndUpdate()
523
FilterBarCaption ALLUI Keyword ( sample 2, result ) 

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

local h,oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,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=")
var_Column = oList.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oList.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oList.Columns.Add("Check")
	// var_Column2.Def(0) = true
	with (oList)
		TemplateDef = [dim var_Column2]
		TemplateDef = var_Column2
		Template = [var_Column2.Def(0) = True]
	endwith
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oList.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oList.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oList.Items
	// var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item A"),1) = "Sub-Item A"]
	endwith
	h = var_Items.Add("Item B")
	// var_Items.Caption(h,1) = "Sub-Item B"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = "Sub-Item B"]
	endwith
	// var_Items.CellState(h,2) = 1
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellState(h,2) = 1]
	endwith
	// var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item C"),1) = "Sub-Item C"]
	endwith
oList.FilterBarFont = oList.Font
oList.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oList.Description(11) = Str(oList.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oList.Description(11)))
oList.FilterBarCaption = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oList.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oList.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oList.Columns.Item(2).Filter = Str(1)
oList.ApplyFilter()
oList.EndUpdate()
522
FilterBarCaption ALLUI Keyword ( sample 1 ) 
/*
with (this.EXLISTACTIVEXCONTROL1.nativeObject)
	AddItem = class::nativeObject_AddItem
endwith
*/
// Occurs after a new Item is inserted to Items collection.
function nativeObject_AddItem(Item)
	/* i = FormatABC("value + 1", Items.ItemToIndex(Item)) */
	local var_Items
	oList = form.EXLISTACTIVEXCONTROL1.nativeObject
	// oList.Items.CellImage(Item,3) = i
	var_Items = oList.Items
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellImage(Item,3) = i]
	endwith
return

local h,oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,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=")
var_Column = oList.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oList.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oList.Columns.Add("Check")
	// var_Column2.Def(0) = true
	with (oList)
		TemplateDef = [dim var_Column2]
		TemplateDef = var_Column2
		Template = [var_Column2.Def(0) = True]
	endwith
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oList.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oList.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oList.Items
	// var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item A"),1) = "Sub-Item A"]
	endwith
	h = var_Items.Add("Item B")
	// var_Items.Caption(h,1) = "Sub-Item B"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = "Sub-Item B"]
	endwith
	// var_Items.CellState(h,2) = 1
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellState(h,2) = 1]
	endwith
	// var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item C"),1) = "Sub-Item C"]
	endwith
oList.FilterBarFont = oList.Font
oList.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oList.Description(11) = Str(oList.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oList.Description(11)))
oList.FilterBarCaption = "allui"
oList.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oList.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oList.Columns.Item(2).Filter = Str(1)
oList.ApplyFilter()
oList.EndUpdate()
521
FilterBarCaption AVAILABLE Keyword ( sample 2, result ) 

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

local h,oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,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=")
var_Column = oList.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oList.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oList.Columns.Add("Check")
	// var_Column2.Def(0) = true
	with (oList)
		TemplateDef = [dim var_Column2]
		TemplateDef = var_Column2
		Template = [var_Column2.Def(0) = True]
	endwith
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oList.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oList.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oList.Items
	// var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item A"),1) = "Sub-Item A"]
	endwith
	h = var_Items.Add("Item B")
	// var_Items.Caption(h,1) = "Sub-Item B"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = "Sub-Item B"]
	endwith
	// var_Items.CellState(h,2) = 1
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellState(h,2) = 1]
	endwith
	// var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item C"),1) = "Sub-Item C"]
	endwith
oList.FilterBarFont = oList.Font
oList.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oList.Description(11) = Str(oList.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oList.Description(11)))
oList.FilterBarCaption = "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( available replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oList.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oList.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oList.Columns.Item(2).Filter = Str(1)
oList.ApplyFilter()
oList.EndUpdate()
520
FilterBarCaption AVAILABLE Keyword ( sample 1 ) 

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

local h,oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,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=")
var_Column = oList.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oList.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oList.Columns.Add("Check")
	// var_Column2.Def(0) = true
	with (oList)
		TemplateDef = [dim var_Column2]
		TemplateDef = var_Column2
		Template = [var_Column2.Def(0) = True]
	endwith
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oList.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oList.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oList.Items
	// var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item A"),1) = "Sub-Item A"]
	endwith
	h = var_Items.Add("Item B")
	// var_Items.Caption(h,1) = "Sub-Item B"
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.Caption(h,1) = "Sub-Item B"]
	endwith
	// var_Items.CellState(h,2) = 1
	with (oList)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellState(h,2) = 1]
	endwith
	// var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item C"),1) = "Sub-Item C"]
	endwith
oList.FilterBarFont = oList.Font
oList.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oList.Description(11) = Str(oList.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oList.Description(11)))
oList.FilterBarCaption = "value + ` ` + available"
oList.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oList.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oList.Columns.Item(2).Filter = Str(1)
oList.ApplyFilter()
oList.EndUpdate()
519
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 3, results )

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

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Column = oList.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oList.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oList.Columns.Add("Pos")
	var_Column2.AllowSizing = false
	var_Column2.AllowSort = false
	var_Column2.Width = 32
	var_Column2.FormatColumn = "1 apos ``"
	var_Column2.Position = 0
var_Items = oList.Items
	// var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item A"),1) = "Sub-Item A"]
	endwith
	// var_Items.Caption(var_Items.Add("Item B"),1) = "Sub-Item B"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item B"),1) = "Sub-Item B"]
	endwith
	// var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item C"),1) = "Sub-Item C"]
	endwith
oList.FilterBarFont = oList.Font
oList.Template = [Description(11) = FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",Description(11))] // oList.Description(11) = Str(oList.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oList.Description(11)))
oList.FilterBarCaption = "(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
oList.FilterBarPromptVisible = 256
var_Column3 = oList.Columns.Item(0)
	var_Column3.FilterType = 240
	var_Column3.Filter = "Item A|Item B"
var_Column4 = oList.Columns.Item(1)
	var_Column4.FilterType = 3
	var_Column4.Filter = "*B"
oList.ApplyFilter()
oList.EndUpdate()
518
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )

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

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Column = oList.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oList.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oList.Columns.Add("Pos")
	var_Column2.AllowSizing = false
	var_Column2.AllowSort = false
	var_Column2.Width = 32
	var_Column2.FormatColumn = "1 apos ``"
	var_Column2.Position = 0
var_Items = oList.Items
	// var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item A"),1) = "Sub-Item A"]
	endwith
	// var_Items.Caption(var_Items.Add("Item B"),1) = "Sub-Item B"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item B"),1) = "Sub-Item B"]
	endwith
	// var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item C"),1) = "Sub-Item C"]
	endwith
oList.FilterBarFont = oList.Font
oList.Template = [Description(11) = FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",Description(11))] // oList.Description(11) = Str(oList.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oList.Description(11)))
oList.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
oList.FilterBarPromptVisible = 256
var_Column3 = oList.Columns.Item(0)
	var_Column3.FilterType = 240
	var_Column3.Filter = "Item A|Item B"
var_Column4 = oList.Columns.Item(1)
	var_Column4.FilterType = 3
	var_Column4.Filter = "*B"
oList.ApplyFilter()
oList.EndUpdate()
517
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )

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

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Column = oList.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oList.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oList.Columns.Add("Pos")
	var_Column2.AllowSizing = false
	var_Column2.AllowSort = false
	var_Column2.Width = 32
	var_Column2.FormatColumn = "1 apos ``"
	var_Column2.Position = 0
var_Items = oList.Items
	// var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item A"),1) = "Sub-Item A"]
	endwith
	// var_Items.Caption(var_Items.Add("Item B"),1) = "Sub-Item B"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item B"),1) = "Sub-Item B"]
	endwith
	// var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C"
	with (oList)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Caption(Add("Item C"),1) = "Sub-Item C"]
	endwith
oList.Template = [Description(11) = FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",Description(11))] // oList.Description(11) = Str(oList.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oList.Description(11)))
oList.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
oList.FilterBarPromptVisible = 256
var_Column3 = oList.Columns.Item(0)
	var_Column3.FilterType = 240
	var_Column3.Filter = "Item A|Item B"
var_Column4 = oList.Columns.Item(1)
	var_Column4.FilterType = 3
	var_Column4.Filter = "*B"
oList.ApplyFilter()
oList.EndUpdate()
516
Is it possible to automatically displays the control's filter label to the right

local oList,var_Column,var_Column1,var_Column2,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Column = oList.Columns.Add("Item")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oList.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
oList.FilterBarCaption = "`<r>` + value"
oList.FilterBarPromptVisible = 1280 /*exFilterBarShowCloseOnRight | exFilterBarToggle*/
var_Column2 = oList.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item B"
oList.ApplyFilter()
oList.EndUpdate()
515
How can I get the number of results/items being shown in the control's filter bar (sample 4)

local 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.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oList.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
oList.FilterBarFont = oList.Font
oList.FilterBarPrompt = Str(oList.FormatABC("`<b>` + value",oList.FilterBarPrompt))
oList.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
oList.FilterBarPromptVisible = 3591 /*exFilterBarCompact | exFilterBarShowCloseOnRight | exFilterBarShowCloseIfRequired | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible*/
oList.EndUpdate()
514
How can I get the number of results being shown in the control's filter bar (sample 3)

local oList,var_Column,var_Column1,var_Column2,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
// oList.Columns.Add("Item").DisplayFilterButton = true
var_Column = oList.Columns.Add("Item")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oList.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
oList.FilterBarFont = oList.Font
oList.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : ``)"
oList.FilterBarPromptVisible = 2055 /*exFilterBarCompact | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column2 = oList.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item A|Item B"
oList.ApplyFilter()
oList.EndUpdate()
513
How can I get the number of results being shown in the control's filter bar (sample 2, compact)

local oList,var_Column,var_Column1,var_Column2,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
// oList.Columns.Add("Item").DisplayFilterButton = true
var_Column = oList.Columns.Add("Item")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oList.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
oList.FilterBarFont = oList.Font
oList.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)"
oList.FilterBarPromptVisible = 2071 /*exFilterBarCompact | exFilterBarSingleLine | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column2 = oList.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item A|Item B"
oList.ApplyFilter()
oList.EndUpdate()
512
How can I get the number of results being shown in the control's filter bar (sample 1)

local oList,var_Column,var_Column1,var_Column2,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
// oList.Columns.Add("Item").DisplayFilterButton = true
var_Column = oList.Columns.Add("Item")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oList.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
oList.FilterBarFont = oList.Font
oList.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
oList.FilterBarPromptVisible = 7 /*exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column2 = oList.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item A|Item B"
oList.ApplyFilter()
oList.EndUpdate()
511
FilterBarCaption Predefined Keywords

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

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
// oList.Columns.Add("Item").DisplayFilterButton = true
var_Column = oList.Columns.Add("Item")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oList.Columns.Add("Check")
	// var_Column1.Def(0) = true
	with (oList)
		TemplateDef = [dim var_Column1]
		TemplateDef = var_Column1
		Template = [var_Column1.Def(0) = True]
	endwith
	var_Column1.DisplayFilterButton = true
	var_Column1.DisplayFilterPattern = false
	var_Column1.FilterType = 6
var_Column2 = oList.Columns.Add("Pos")
	var_Column2.AllowSizing = false
	var_Column2.AllowSort = false
	var_Column2.Width = 32
	var_Column2.FormatColumn = "1 apos ``"
	var_Column2.Position = 0
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
oList.FilterBarFont = oList.Font
oList.FilterBarCaption = "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>: ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=808080>` + promptpattern + `</fgcolor>`"
oList.FilterBarPromptPattern = "B"
oList.FilterBarPromptVisible = 7 /*exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column3 = oList.Columns.Item(0)
	var_Column3.FilterType = 240
	var_Column3.Filter = "Item A|Item B"
oList.ApplyFilter()
oList.EndUpdate()
510
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines

local oList,var_Column,var_Column1,var_Column2,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
// oList.Columns.Add("Item").DisplayFilterButton = true
var_Column = oList.Columns.Add("Item")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oList.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
oList.FilterBarFont = oList.Font
oList.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
oList.FilterBarPromptPattern = "B"
oList.FilterBarPromptVisible = 2067 /*exFilterBarCompact | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column2 = oList.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item A|Item B"
oList.ApplyFilter()
oList.EndUpdate()
509
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )

local oList,var_Column,var_Column1,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
// oList.Columns.Add("Item").DisplayFilterButton = true
var_Column = oList.Columns.Add("Item")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oList.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
oList.FilterBarPromptVisible = 1281 /*exFilterBarShowCloseOnRight | exFilterBarToggle | exFilterBarPromptVisible*/
oList.FilterBarPrompt = Str(oList.FormatABC("`<r>` + value",oList.FilterBarPrompt))
oList.EndUpdate()
508
Just wondering if it is possible to show the filter bar's close button on the right ( sample 1 )

local oList,var_Column,var_Column1,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
oList.RightToLeft = true
// oList.Columns.Add("Item").DisplayFilterButton = true
var_Column = oList.Columns.Add("Item")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oList.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
oList.FilterBarPromptVisible = 257 /*exFilterBarToggle | exFilterBarPromptVisible*/
oList.EndUpdate()
507
How can I change the visual appearance of the filter bar's close button (EBN)

local oList,var_Appearance,var_Column,var_Column1,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
var_Appearance = oList.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJjyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmSZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OROicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXAiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaK" ;
 +"JDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEAkjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSMRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ")
// oList.Columns.Add("Item").DisplayFilterButton = true
var_Column = oList.Columns.Add("Item")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oList.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
oList.FilterBarPromptVisible = 257 /*exFilterBarToggle | exFilterBarPromptVisible*/
oList.Template = [Background(1) = 16777216] // oList.Background(1) = 0x1000000
oList.EndUpdate()
506
How can I change the visual appearance of the filter bar's close button (solid)

local oList,var_Column,var_Column1,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
// oList.Columns.Add("Item").DisplayFilterButton = true
var_Column = oList.Columns.Add("Item")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oList.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
oList.FilterBarPromptVisible = 1
oList.Template = [Background(1) = 255] // oList.Background(1) = 0xff
oList.EndUpdate()
505
Is it possible to prevent definitely showing the filter bar's close button

local oList,var_Column,var_Column1,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
// oList.Columns.Add("Item").DisplayFilterButton = true
var_Column = oList.Columns.Add("Item")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oList.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
oList.FilterBarPromptVisible = 1
oList.Template = [Background(1) = -1] // oList.Background(1) = -1
oList.EndUpdate()
504
Is it possible to show the close button only if there is a filter applied

local oList,var_Column,var_Column1,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
// oList.Columns.Add("Item").DisplayFilterButton = true
var_Column = oList.Columns.Add("Item")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oList.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
oList.FilterBarPromptVisible = 513 /*exFilterBarShowCloseIfRequired | exFilterBarPromptVisible*/
oList.EndUpdate()
503
The control's filter bar is not closed once I click the close button (toggle)

local oList,var_Column,var_Column1,var_Column2,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
// oList.Columns.Add("Item").DisplayFilterButton = true
var_Column = oList.Columns.Add("Item")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oList.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
oList.FilterBarCaption = "`<r><fgcolor=808080>` + value"
oList.FilterBarPromptPattern = "B"
oList.FilterBarPromptVisible = 2323 /*exFilterBarCompact | exFilterBarToggle | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column2 = oList.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item B"
oList.ApplyFilter()
oList.EndUpdate()
502
How can I display the control's filter on a single line

local oList,var_Column,var_Column1,var_Column2,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
// oList.Columns.Add("Item").DisplayFilterButton = true
var_Column = oList.Columns.Add("Item")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oList.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
oList.FilterBarCaption = "len(value) ? `filter for: <fgcolor 808080>` + value  : `<fgcolor 808080>no filter`"
oList.FilterBarPromptVisible = 18 /*exFilterBarSingleLine | exFilterBarVisible*/
var_Column2 = oList.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item A|Item B"
oList.ApplyFilter()
oList.EndUpdate()
501
How can I display the control's filter on a single line (prompt-combined)

local oList,var_Column,var_Column1,var_Column2,var_Items

oList = form.EXLISTACTIVEXCONTROL1.nativeObject
oList.BeginUpdate()
// oList.Columns.Add("Item").DisplayFilterButton = true
var_Column = oList.Columns.Add("Item")
with (oList)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oList.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oList.Items
	var_Items.Add("Item A")
	var_Items.Add("Item B")
	var_Items.Add("Item C")
oList.FilterBarCaption = "`<r>` + value"
oList.FilterBarPromptVisible = 2067 /*exFilterBarCompact | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column2 = oList.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item A|Item B"
oList.ApplyFilter()
oList.EndUpdate()