562
ADOR, MDB (JET)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.ColumnAutoResize = false;
	var rs = new ActiveXObject("ADOR.Recordset");
		rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Program Files\\Exontrol\\ExList\\Sample\\Access\\sample.mdb",3,3,null);
	List1.DataSource = rs;
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

561
Highlight the match once the filter is applied
<BODY onload="Init()">
<SCRIPT FOR="List1" EVENT="FilterChange()" LANGUAGE="JScript">
	var format = List1.FormatABC("`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`",List1.FilterBarPromptPattern,null,null);
	List1.Columns.Item(0).FormatColumn = format;
	List1.Columns.Item(1).FormatColumn = format;
	List1.Columns.Item(2).FormatColumn = format;
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.SelBackColor = List1.BackColor;
	List1.SelForeColor = List1.ForeColor;
	List1.ColumnAutoResize = true;
	List1.ContinueColumnScroll = 0;
	List1.MarkSearchColumn = false;
	List1.SearchColumnIndex = 1;
	List1.HeaderAppearance = 4;
	List1.HeaderHeight = 23;
	List1.BackColorLevelHeader = List1.BackColor;
	List1.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)";
	List1.FilterBarPromptVisible = 2055;
	List1.FilterBarBackColor = List1.BackColor;
	List1.FilterBarPromptPattern = "and";
	var var_Columns = List1.Columns;
		var var_Column = var_Columns.Add("Name");
			var_Column.Def(17) = 1;
			var_Column.FormatColumn = "lower(value)";
		var var_Column1 = var_Columns.Add("Title");
			var_Column1.Def(17) = 1;
			var_Column1.FormatColumn = "lower(value)";
		var var_Column2 = var_Columns.Add("City");
			var_Column2.Def(17) = 1;
			var_Column2.FormatColumn = "lower(value)";
	var var_Items = List1.Items;
		var h0 = var_Items.Add("Nancy Davolio");
		var_Items.Caption(h0,1) = "Sales Representative";
		var_Items.Caption(h0,2) = "Seattle";
		h0 = var_Items.Add("Andrew Fuller");
		var_Items.Caption(h0,1) = "Vice President, Sales";
		var_Items.Caption(h0,2) = "Tacoma";
		var_Items.SelectItem(h0) = 1;
		h0 = var_Items.Add("Janet Leverling");
		var_Items.Caption(h0,1) = "Sales Representative";
		var_Items.Caption(h0,2) = "Kirkland";
		h0 = var_Items.Add("Margaret Peacock");
		var_Items.Caption(h0,1) = "Sales Representative";
		var_Items.Caption(h0,2) = "Redmond";
		h0 = var_Items.Add("Steven Buchanan");
		var_Items.Caption(h0,1) = "Sales Manager";
		var_Items.Caption(h0,2) = "London";
		h0 = var_Items.Add("Michael Suyama");
		var_Items.Caption(h0,1) = "Sales Representative";
		var_Items.Caption(h0,2) = "London";
		h0 = var_Items.Add("Robert King");
		var_Items.Caption(h0,1) = "Sales Representative";
		var_Items.Caption(h0,2) = "London";
		h0 = var_Items.Add("Laura Callahan");
		var_Items.Caption(h0,1) = "Inside Sales Coordinator";
		var_Items.Caption(h0,2) = "Seattle";
		h0 = var_Items.Add("Anne Dodsworth");
		var_Items.Caption(h0,1) = "Sales Representative";
		var_Items.Caption(h0,2) = "London";
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

560
Re-order the cell's caption, icons and images/pictures

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.ColumnAutoResize = true;
	List1.Images("gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmD" +
	"cD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB");
	var var_Column = List1.Columns.Add("ToLeft");
		var_Column.Def(0) = true;
	var var_Column1 = List1.Columns.Add("ToRight");
		var_Column1.Def(0) = true;
		var_Column1.Def(34) = "caption,picture,icons,icon,check";
	List1.DefaultItemHeight = 32;
	List1.DrawGridLines = 2;
	List1.HeaderAppearance = 4;
	var var_Items = List1.Items;
		var h = var_Items.Add("Caption");
		var_Items.CellImage(h,0) = 2;
		var_Items.CellImages(h,0) = "1,2";
		var_Items.CellPicture(h,0) = List1.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLs" +
	"GL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7" +
	"FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0F" +
	"CjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4" +
	"wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/Ay" +
	"QJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" +
	"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSF" +
	"pTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5si" +
	"qbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8Yx" +
	"XhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8D" +
	"PH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZA" +
	"mBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" +
	"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rBy" +
	"jJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0W" +
	"gLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTH" +
	"CBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB" +
	"1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHw" +
	"L4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" +
	"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYd" +
	"guhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCG" +
	"USNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmh" +
	"AFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg" +
	"6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GF" +
	"ZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" +
	"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsA" +
	"YAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg" +
	"5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARA" +
	"SA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9A" +
	"IBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcA" +
	"dAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" +
	"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzA" +
	"hhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARB" +
	"vgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURA" +
	"Ghvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh" +
	"/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3s" +
	"UhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" +
	"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8x" +
	"MhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA" +
	"2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXB" +
	"WhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBag" +
	"xAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9B" +
	"tnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" +
	"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDA" +
	"jAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBih" +
	"Fh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdA" +
	"uAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeA" +
	"FBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg" +
	"3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" +
	"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCB" +
	"QAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxh" +
	"Tg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5" +
	"WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJA" +
	"kgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEg" +
	"qgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" +
	"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADB" +
	"Wh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMA" +
	"GAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFO" +
	"rC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZT" +
	"WP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwd" +
	"i4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" +
	"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnL" +
	"Cs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIy" +
	"DQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhO" +
	"ApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj" +
	"5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)");
		var_Items.Caption(h,1) = var_Items.Caption(h,0);
		var_Items.CellHAlignment(h,1) = 2;
		var_Items.CellImage(h,1) = var_Items.CellImage(h,0);
		var_Items.CellImages(h,1) = "2,1";
		var_Items.CellPicture(h,1) = var_Items.CellPicture(h,0);
		h = var_Items.Add("<b>HTML</b> <off 4>Caption");
		var_Items.CaptionFormat(h,0) = 1;
		var_Items.CellImage(h,0) = 2;
		var_Items.CellImages(h,0) = "1,2";
		var_Items.CellPicture(h,0) = List1.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLs" +
	"GL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7" +
	"FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0F" +
	"CjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4" +
	"wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/Ay" +
	"QJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" +
	"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSF" +
	"pTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5si" +
	"qbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8Yx" +
	"XhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8D" +
	"PH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZA" +
	"mBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" +
	"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rBy" +
	"jJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0W" +
	"gLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTH" +
	"CBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB" +
	"1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHw" +
	"L4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" +
	"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYd" +
	"guhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCG" +
	"USNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmh" +
	"AFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg" +
	"6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GF" +
	"ZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" +
	"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsA" +
	"YAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg" +
	"5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARA" +
	"SA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9A" +
	"IBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcA" +
	"dAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" +
	"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzA" +
	"hhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARB" +
	"vgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURA" +
	"Ghvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh" +
	"/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3s" +
	"UhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" +
	"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8x" +
	"MhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA" +
	"2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXB" +
	"WhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBag" +
	"xAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9B" +
	"tnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" +
	"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDA" +
	"jAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBih" +
	"Fh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdA" +
	"uAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeA" +
	"FBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg" +
	"3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" +
	"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCB" +
	"QAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxh" +
	"Tg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5" +
	"WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJA" +
	"kgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEg" +
	"qgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" +
	"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADB" +
	"Wh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMA" +
	"GAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFO" +
	"rC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZT" +
	"WP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwd" +
	"i4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" +
	"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnL" +
	"Cs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIy" +
	"DQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhO" +
	"ApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj" +
	"5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)");
		var_Items.Caption(h,1) = var_Items.Caption(h,0);
		var_Items.CaptionFormat(h,1) = 1;
		var_Items.CellHAlignment(h,1) = 2;
		var_Items.CellImage(h,1) = var_Items.CellImage(h,0);
		var_Items.CellImages(h,1) = "2,1";
		var_Items.CellPicture(h,1) = var_Items.CellPicture(h,0);
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

559
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)

<BODY onload="Init()">
<SCRIPT FOR="List1" EVENT="AddColumn(Column)" LANGUAGE="JScript">
	// Column.Def(48) = 2
	// Column.Def(49) = 2
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.ImageSize = 32;
	List1.DefaultItemHeight = 36;
	List1.HeaderHeight = List1.DefaultItemHeight;
	List1.SortBarHeight = List1.DefaultItemHeight;
	List1.Font.Size = 16;
	List1.FilterBarFont.Size = List1.Font.Size;
	List1.ToolTipFont.Size = List1.Font.Size;
	List1.Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" +
	"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" +
	"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" +
	"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" +
	"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" +
	"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" +
	"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" +
	"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" +
	"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" +
	"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" +
	"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" +
	"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" +
	"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" +
	"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" +
	"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" +
	"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" +
	"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==");
	var var_Appearance = List1.VisualAppearance;
		var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" +
	"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
	"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" +
	"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" +
	"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" +
	"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" +
	"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" +
	"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" +
	"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" +
	"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==");
		var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" +
	"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
	"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
	"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" +
	"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" +
	"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" +
	"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" +
	"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" +
	"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" +
	"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" +
	"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" +
	"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" +
	"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" +
	"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" +
	"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" +
	"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" +
	"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" +
	"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" +
	"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" +
	"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" +
	"gRBCCQAgQEA==");
		var_Appearance.Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" +
	"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
	"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
	"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" +
	"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" +
	"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" +
	"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" +
	"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" +
	"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" +
	"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" +
	"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" +
	"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" +
	"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" +
	"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" +
	"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" +
	"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" +
	"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" +
	"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" +
	"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=");
		var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" +
	"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
	"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
	"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
	"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
	"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
	"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
	"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
	"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==");
	List1.BackColorHeader = 80135878;
	List1.SelBackColor = 67108864;
	List1.SelForeColor = 65536;
	List1.CheckImage(0) = 16777216;
	List1.CheckImage(1) = 33554432;
	List1.CheckImage(2) = 50331648;
	List1.Background(20) = List1.SelBackColor;
	List1.Background(21) = List1.SelForeColor;
	List1.Background(26) = List1.BackColor;
	List1.Background(27) = List1.ForeColor;
	List1.Background(32) = -1;
	List1.Background(0) = 67108864;
	List1.Background(41) = 67174657;
	List1.Background(1) = 67109119;
	List1.HeaderAppearance = 4;
	List1.ShowFocusRect = false;
	List1.SortBarVisible = true;
	List1.BackColorSortBar = List1.BackColor;
	List1.BackColorLevelHeader = List1.BackColor;
	List1.FilterBarDropDownHeight = 1;
	var var_Column = List1.Columns.Add("Check");
		var_Column.Def(0) = true;
		var_Column.Width = 128;
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 256;
	var var_Column1 = List1.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 var_Column2 = List1.Columns.Add("Image");
		var_Column2.DisplayFilterButton = true;
		var_Column2.FilterList = 8480;
		var_Column2.FilterType = 10;
		var_Column2.Width = 128;
		var_Column2.HeaderImage = 1;
	var var_Column3 = List1.Columns.Add("Images");
		var_Column3.Def(0) = true;
		var_Column3.Width = 196;
		var_Column3.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images";
	List1.Columns.Item("Pos").Position = 3;
	var var_Items = List1.Items;
		var h = var_Items.Add("Child A");
		var_Items.CellImage(h,2) = 1;
		var_Items.CellImages(h,3) = "1,2,3";
		var_Items.Caption(h,3) = "123";
		h = var_Items.Add("Child B");
		var_Items.CellState(h,0) = 1;
		var_Items.CellImage(h,2) = 3;
		var_Items.CellImages(h,3) = "2,3,1";
		var_Items.Caption(h,3) = "231";
		var_Items.SelectItem(h) = true;
		h = var_Items.Add("Child C");
		var_Items.CellImage(h,2) = 2;
		var_Items.CellState(h,3) = 1;
		var_Items.Caption(h,3) = "312";
		var_Items.CellImages(h,3) = "3,1,2";
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

558
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)

<BODY onload="Init()">
<SCRIPT FOR="List1" EVENT="AddColumn(Column)" LANGUAGE="JScript">
	// Column.Def(48) = 2
	// Column.Def(49) = 2
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.ImageSize = 16;
	List1.Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" +
	"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" +
	"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" +
	"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" +
	"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" +
	"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==");
	var var_Appearance = List1.VisualAppearance;
		var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" +
	"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
	"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
	"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
	"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
	"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
	"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
	"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
	"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==");
	List1.BackColorHeader = 80135878;
	List1.SelBackColor = 67108864;
	List1.SelForeColor = 65536;
	List1.Background(20) = List1.SelBackColor;
	List1.Background(21) = List1.SelForeColor;
	List1.Background(26) = List1.BackColor;
	List1.Background(27) = List1.ForeColor;
	List1.Background(32) = -1;
	List1.Background(0) = 67108864;
	List1.Background(41) = 67174657;
	List1.Background(1) = 67109119;
	List1.HeaderAppearance = 4;
	List1.ShowFocusRect = false;
	List1.SortBarVisible = true;
	List1.BackColorSortBar = List1.BackColor;
	List1.BackColorLevelHeader = List1.BackColor;
	List1.FilterBarDropDownHeight = 1;
	var var_Column = List1.Columns.Add("Check");
		var_Column.Def(0) = true;
		var_Column.Width = 128;
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 256;
	var var_Column1 = List1.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 var_Column2 = List1.Columns.Add("Image");
		var_Column2.DisplayFilterButton = true;
		var_Column2.FilterList = 8480;
		var_Column2.FilterType = 10;
		var_Column2.Width = 128;
		var_Column2.HeaderImage = 1;
	var var_Column3 = List1.Columns.Add("Images");
		var_Column3.Def(0) = true;
		var_Column3.Width = 196;
		var_Column3.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images";
	List1.Columns.Item("Pos").Position = 3;
	var var_Items = List1.Items;
		var h = var_Items.Add("Child A");
		var_Items.CellImage(h,2) = 1;
		var_Items.CellImages(h,3) = "1,2,3";
		var_Items.Caption(h,3) = "123";
		h = var_Items.Add("Child B");
		var_Items.CellState(h,0) = 1;
		var_Items.CellImage(h,2) = 3;
		var_Items.CellImages(h,3) = "2,3,1";
		var_Items.Caption(h,3) = "231";
		var_Items.SelectItem(h) = true;
		h = var_Items.Add("Child C");
		var_Items.CellImage(h,2) = 2;
		var_Items.CellState(h,3) = 1;
		var_Items.Caption(h,3) = "312";
		var_Items.CellImages(h,3) = "3,1,2";
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="List1" EVENT="AddColumn(Column)" LANGUAGE="JScript">
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.ColumnAutoResize = false;
	var rs = new ActiveXObject("ADOR.Recordset");
		rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExList\\Sample\\Access\\sample.accdb",3,3,null);
	List1.DataSource = rs;
	List1.Columns.Item("ShipVia").Position = 2;
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

556
Is it possible to set from code, a column sort without being inserted in the sortbar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.ColumnAutoResize = false;
	var rs = new ActiveXObject("ADOR.Recordset");
		rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExList\\Sample\\Access\\SAMPLE.ACCDB",3,3,null);
	List1.DataSource = rs;
	List1.SortBarVisible = true;
	List1.Layout = "singlesort=\"C1:1\"";
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

555
Is it possible to highligth the match while a filter is applied

<BODY onload="Init()">
<SCRIPT FOR="List1" EVENT="AddColumn(Column)" LANGUAGE="JScript">
	// Column.Def(17) = 1
</SCRIPT>

<SCRIPT FOR="List1" EVENT="FilterChange()" LANGUAGE="JScript">
	var format = List1.FormatABC("`value replace '` + value + `' with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`",List1.FilterBarPromptPattern,null,null);
	List1.Columns.Item(0).FormatColumn = format;
	List1.Columns.Item(1).FormatColumn = format;
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.DrawGridLines = 2;
	List1.HeaderAppearance = 4;
	List1.Columns.Add("Col 1");
	List1.Columns.Add("Col 2");
	var var_Items = List1.Items;
		var_Items.Caption(var_Items.Add("219 Smith"),1) = "Ignacio 1234";
		var_Items.Caption(var_Items.Add("1666 County Road 309A"),1) = "897 Manassa";
		var_Items.Caption(var_Items.Add("38 Lone Pine"),1) = "Durango 11";
		var_Items.Caption(var_Items.Add("612 Jachim Street"),1) = "Lamar 222";
	List1.FilterBarPromptPattern = "1";
	List1.FilterBarPromptVisible = 2067;
	List1.FilterBarPromptType = 257;
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

554
Is it possible to highlight the column's header once a filter is applied

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	var var_Appearance = List1.VisualAppearance;
		var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" +
	"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" +
	"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" +
	"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" +
	"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" +
	"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=");
		var_Appearance.Add(1,"CP:2 -8 -4 2 4");
	List1.Background(0) = 33488638;
	List1.Background(41) = 16843009;
	List1.Background(32) = -1;
	List1.HeaderHeight = 28;
	List1.BackColorHeader = 16777215;
	List1.DrawGridLines = -1;
	List1.HeaderVisible = 1;
	var var_Columns = List1.Columns;
		var_Columns.Add("C1").DisplayFilterButton = true;
		var var_Column = var_Columns.Add("C2");
			var_Column.DisplayFilterButton = true;
			var_Column.Filter = "Item 2";
			var_Column.FilterType = 240;
		var_Columns.Add("C3").DisplayFilterButton = true;
	var var_Items = List1.Items;
		var h = var_Items.Add("Item 1");
		var_Items.Caption(h,1) = "Item 2";
		var_Items.Caption(h,2) = "Item 3";
		h = var_Items.Add("Item 4");
		var_Items.Caption(h,1) = "Item 5";
		var_Items.Caption(h,2) = "Item 6";
	List1.ApplyFilter();
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

553
Is it possible to show the filterbar on top of the rows

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.FilterBarPromptVisible = 8192;
	List1.HeaderHeight = 24;
	List1.FilterBarHeight = List1.HeaderHeight;
	List1.HeaderAppearance = 1;
	List1.DrawGridLines = -1;
	List1.GridLineStyle = 512;
	var var_Column = List1.Columns.Add("Column");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterType = 3;
		var_Column.Filter = "B*";
	var var_Column1 = List1.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;
	var var_Items = List1.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");
	List1.ApplyFilter();
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

552
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header (non-clickable)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.HeaderAppearance = 4;
	var var_Columns = List1.Columns;
		var_Columns.Add("Item");
		var 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 var_Items = List1.Items;
		var_Items.Add("Item A");
		var_Items.Add("Item B");
		var_Items.Add("Item C");
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

551
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.HeaderAppearance = 4;
	List1.Background(32) = -1;
	var var_Columns = List1.Columns;
		var_Columns.Add("Item");
		var 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 var_Items = List1.Items;
		var_Items.Add("Item A");
		var_Items.Add("Item B");
		var_Items.Add("Item C");
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

550
How do I get notified once the user clicks the cell's button

<BODY onload="Init()">
<SCRIPT FOR="List1" EVENT="CellButtonClick(ItemIndex,ColIndex)" LANGUAGE="JScript">
	var var_Items = List1.Items;
		alert( var_Items.Caption(ItemIndex,0) );
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Columns.Add("Item");
	var var_Column = List1.Columns.Add("...");
		var_Column.Def(2) = true;
		var_Column.Alignment = 1;
		var_Column.HeaderAlignment = 1;
		var_Column.FormatColumn = "` ... `";
		var_Column.Width = 32;
		var_Column.AllowSizing = false;
		var_Column.Position = 0;
	List1.SelBackMode = 1;
	var var_Items = List1.Items;
		var_Items.Add("Item 1");
		var_Items.Add("Item 2");
		var_Items.Add("Item 3");
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

549
How do I set an extra data for each item
<BODY onload="Init()">
<SCRIPT FOR="List1" EVENT="MouseMove(Button,Shift,X,Y)" LANGUAGE="JScript">
	var i = List1.ItemFromPoint(-1,-1,c,hit);
	alert( i );
	alert( List1.Items.ItemData(i) );
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.ColumnAutoResize = true;
	List1.Columns.Add("Default");
	var var_Items = List1.Items;
		var_Items.ItemData(var_Items.Add("method")) = "your extra data of method";
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

548
I do not like to specify the item padding for every column I add. The question is how can I do it automatically

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.AttachTemplate("handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}");
	List1.HeaderAppearance = 4;
	List1.DrawGridLines = -1;
	List1.GridLineStyle = 32;
	var var_Columns = List1.Columns;
		var_Columns.Add("Item");
		var var_Column = var_Columns.Add("Pos");
			var_Column.Position = 0;
			var_Column.Width = 32;
			var_Column.AllowSizing = false;
			var_Column.FormatColumn = "1 index ``";
	var var_Items = List1.Items;
		var_Items.Add("Item A");
		var_Items.Add("Item B");
		var_Items.Add("Item C");
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

547
Can I sort the column by check-state

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	var var_Column = List1.Columns.Add("Check");
		var_Column.Def(0) = true;
		var_Column.SortType = 32;
	var var_Items = List1.Items;
		var_Items.Add(null);
		var_Items.CellState(var_Items.Add(null),0) = 1;
		var_Items.CellState(var_Items.Add(null),0) = 1;
		var_Items.Add(null);
	List1.Columns.Item(0).SortOrder = 1;
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

546
Can I sort the column by image

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
	var var_Column = List1.Columns.Add("Image");
		var_Column.SortType = 48;
	var var_Items = List1.Items;
		var_Items.CellImage(var_Items.Add(null),0) = 3;
		var_Items.Add(null);
		var_Items.CellImage(var_Items.Add(null),0) = 1;
		var_Items.CellImage(var_Items.Add(null),0) = 2;
	List1.Columns.Item(0).SortOrder = 1;
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

545
How can I display UNICODE characters

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	var var_StdFont = List1.Font;
		var_StdFont.Name = "Arial Unicode";
		var_StdFont.Size = 22;
	List1.HeaderVisible = false;
	List1.DefaultItemHeight = 48;
	List1.Columns.Add("").Def(17) = 1;
	var var_Items = List1.Items;
		var_Items.Add("Ӓӓ");
		var_Items.Add("ᦜᦝ;ᦞ");
		var_Items.Add("ɮɭ;ɯ");
		var_Items.Add("勳勴勵勶");
		var_Items.FormatCell(var_Items.Add(List1.Version),0) = "(value lfind `UNICODE`) < 0 ? `<fgcolor=FF0000><b>!UNICODE!</b> version</fgcolor> required: ` + value : `` ";
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

544
How do I display the position of the item with 0-padding

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Columns.Add("Items").FormatColumn = "((1 apos ``) lpad `00`) + `. `  + value";
	var var_Items = List1.Items;
		var_Items.Add("Item A");
		var_Items.Add("Item B");
		var_Items.Add("Item C");
		var_Items.Add("Item D");
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	var var_Appearance = List1.VisualAppearance;
		var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" +
	"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQGhsCYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU8lORLUi+M4zSBPcZVTRtGShPDB" +
	"KTjMKKYgkG4lVpRNa0PC1GTzQ6mazkKQLRADDIDVbAeL3LiMBy9LyLLItQALByua5mWhbcZyBCOPgBTrRb5zO58FjuTK7YLjMB7NrUNYtFaUMy2OpOCADIaecTNcaWLx" +
	"PF2MY1HWYxVj2Jw3DuRJonKYBgggSRAlIYw6B0ThGFgPAkFUDAhBMfZRiGNAkFECZnm4YQdneJwqnsSQrGAAhWAIJBJBIQgFCQIBiEIAglgqYo0i4V4MEgRI9gSToYFS" +
	"b4Fk6Y4+BmBZhFOJgTC8TBogQAArgqco4muCZOkOMJtgmYpIjYKg7GKE4uCUK4AAKKg2DwI4DiCZw5k6KJ2D6D4OHiag4DwIxiiQAArAqMosnEPBPAOIhOg+DozjIJ4P" +
	"GSY4iEwPAkhKLhHUUSQsnKFCnkYU9MjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDya" +
	"ICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tE" +
	"sHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQg" +
	"pDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAA" +
	"MR1EOZxWi+bx7HcWQ8msfRYnnDhQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARViHH" +
	"4HQOYmxuCpF2MsecEQVBvGQCcIQvA6i2CAAIARAQ=");
		var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMwwDhEIwjHCEEhsGIbJAGQBJCjWGodQLOEgzN" +
	"C0IxNFCQILhEZJADKII8TTOU5UPRESwTE4cKBmKhQCo2NpKR7VUTxCKQahLLivoCjBT8EzHMqtIzrCA6MpaP4pQjKcqwHJ8YyHEi0ZrjazKaj6T5AXDUcaWbbNVx3PK3" +
	"aioOpLZrqOZZYzYFoABTuJzPMSyIhxXD8cweaZvSpLExVYK9BY3PbKMgxC77QgTIpDaQMNS6PjtF43PAALLFUaNYzoOKzABMHATBIXAYJCwIIR5G7ID4BbQcCQAHL9DB" +
	"aEEIAEEISgGhMGZQmocgymmIRQkIEQ2BcGgbEIRQci8XaMBqTRVgSAZHG+S5pnOep+D6f4vjec5zn0fpfmgBgAH6TRoBYBoAh+eAmAiAgPFgNArgOQpIESdoEmCOAOAq" +
	"BYfFGAgaEaBgYHYFYFmIB5UiGCJUgKCgmgeYoHk4BgCmKRQiCwApgHgYgyH8B54lQU4NkMeJlBoDgjkiXBTg0R54iYIR+koeQVBoKpkgkChKhEJBkF4SFEjkDgJhFQoe" +
	"EmDJlBeehUhWJQJGIXoICWOQ6FeFIlhkfhlDsSJpiQVoamaSY2G6G5nAmRhpCOH5pkwVYdmeCZmHqHpnkmdhzhmaAIFiax8AABAEICA==");
	List1.BackColorHeader = 16777216;
	List1.ForeColorHeader = 8421504;
	List1.Background(0) = 33554432;
	List1.Background(26) = 16777215;
	List1.Background(27) = 65536;
	List1.Background(20) = 33521664;
	List1.Background(21) = 15790320;
	List1.Background(32) = -1;
	List1.HeaderHeight = 24;
	List1.BackColorLevelHeader = List1.BackColor;
	var var_Column = List1.Columns.Add("Filter");
		var_Column.DisplayFilterButton = true;
		var_Column.DisplayFilterPattern = false;
		var_Column.FilterList = 9504;
		var_Column.Def(52) = 2;
		var_Column.Def(53) = 2;
	var var_Items = List1.Items;
		var_Items.Add("A");
		var_Items.Add("B");
		var_Items.Add("C");
		var_Items.Add("D");
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

542
Type of wraps the cell's caption support (Sample 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.HeaderSingleLine = false;
	List1.HeaderHeight = 36;
	List1.DrawGridLines = -1;
	List1.ColumnAutoResize = false;
	List1.ScrollBySingleLine = true;
	var var_Columns = List1.Columns;
		var var_Column = var_Columns.Add("Single-Line (exCaptionSingleLine)");
			var_Column.Width = 96;
			var_Column.Def(17) = 1;
			var_Column.Def(16) = -1;
		var var_Column1 = var_Columns.Add("Word-Wrap (exCaptionWordWrap)");
			var_Column1.Width = 96;
			var_Column1.Def(17) = 1;
			var_Column1.Def(16) = 0;
			var_Column1.FormatColumn = "%0";
		var var_Column2 = var_Columns.Add("Break-Wrap (exCaptionBreakWrap)");
			var_Column2.Width = 96;
			var_Column2.Def(17) = 1;
			var_Column2.Def(16) = 1;
			var_Column2.FormatColumn = "%0";
	var var_Items = List1.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.");
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

541
Type of wraps the cell's caption support (Sample 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.DrawGridLines = -1;
	List1.ColumnAutoResize = false;
	List1.ScrollBySingleLine = true;
	List1.Columns.Add("Default").Width = 128;
	var var_Items = List1.Items;
		var 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;
		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;
		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;
		var_Items.CellSingleLine(h,0) = 0;
		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;
		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;
		var_Items.CellSingleLine(h,0) = 1;
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

540
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.DrawGridLines = -1;
	List1.ColumnAutoResize = false;
	List1.ScrollBySingleLine = true;
	List1.Columns.Add("Default").Width = 128;
	var var_Items = List1.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;
		var_Items.Add("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line.");
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

539
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.DrawGridLines = -1;
	List1.ColumnAutoResize = false;
	List1.ScrollBySingleLine = true;
	var var_Column = List1.Columns.Add("Default");
		var_Column.Width = 128;
		var_Column.Def(16) = 1;
	var var_Items = List1.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.");
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

538
How can I change the visual appearance/color of the Filter For ... field

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.BackColorHeader = 1;
	List1.ForeColorHeader = 16777215;
	List1.Background(26) = List1.BackColorHeader;
	List1.Background(27) = List1.ForeColorHeader;
	List1.Background(0) = 15790320;
	List1.Background(32) = -1;
	List1.HeaderAppearance = 5;
	var var_Column = List1.Columns.Add("Items");
		var_Column.FilterOnType = true;
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 2;
	var var_Items = List1.Items;
		var_Items.Add("Item 1");
		var_Items.Add("Item 2");
		var_Items.Add("Item 3");
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

537
How can I display the cell's caption without spaces on both sides

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.ColumnAutoResize = true;
	var var_Column = List1.Columns.Add("Default");
		var_Column.Def(17) = 1;
		var_Column.FormatColumn = "((trim(value) replace `   ` with ` `) replace `  ` with ` `) replace ` ` with `<bgcolor=FF0000> </bgcolor>`";
	var var_Items = List1.Items;
		var_Items.Add("");
		var_Items.Add("Item A");
		var_Items.Add("    Item B");
		var_Items.Add("        Item   C    ");
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

536
How can I highlight the spaces within the column (sample 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.ColumnAutoResize = true;
	var var_Column = List1.Columns.Add("Default");
		var_Column.Def(17) = 1;
		var_Column.FormatColumn = "`'` + ( value replace ` ` with `_` ) + `'`";
	var var_Items = List1.Items;
		var_Items.Add("");
		var_Items.Add("Item A");
		var_Items.Add("    Item B");
		var_Items.Add("        Item   C    ");
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

535
How can I highlight the spaces within the column (sample 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.ColumnAutoResize = true;
	var var_Column = List1.Columns.Add("Default");
		var_Column.Def(17) = 1;
		var_Column.FormatColumn = "len(value) = 0 ? `<bgcolor=FF0000> </bgcolor>` : ( value replace ` ` with `<bgcolor=FF0000> </bgcolor>` )";
	var var_Items = List1.Items;
		var_Items.Add("");
		var_Items.Add("Item A");
		var_Items.Add("    Item B");
		var_Items.Add("        Item   C    ");
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

534
How can I change the visual aspect of the drop down filter-calendar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Background(26) = 65536;
	List1.Background(27) = 16777215;
	List1.Background(12) = 16777215;
	List1.Background(8) = List1.Background(26);
	List1.Background(11) = 8421504;
	var var_Column = List1.Columns.Add("Date");
		var_Column.FilterType = 4;
		var_Column.DisplayFilterButton = true;
		var_Column.DisplayFilterDate = true;
		var_Column.DisplayFilterPattern = false;
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

533
Export Data in HTML format

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.BackColorAlternate = 15790320;
	List1.DrawGridLines = -1;
	List1.HeaderAppearance = 4;
	List1.Description(11) = List1.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",List1.Description(11),null,null);
	List1.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>` + ( matc" +
	"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" +
	"nt + ` item(s)`) )))";
	List1.FilterBarPromptVisible = 2579;
	List1.FilterBarPromptType = 2;
	var var_ConditionalFormats = List1.ConditionalFormats;
		var_ConditionalFormats.Add("%0 like `*AA*`","aa").BackColor = 12632256;
		var var_ConditionalFormat = var_ConditionalFormats.Add("%0 like `*D*`","d");
			var_ConditionalFormat.ForeColor = 8421631;
			var_ConditionalFormat.ApplyTo = 0;
		var var_ConditionalFormat1 = var_ConditionalFormats.Add("%0 like `*b*`","b");
			var_ConditionalFormat1.ForeColor = 16711680;
			var_ConditionalFormat1.Bold = true;
			var_ConditionalFormat1.Italic = true;
			var_ConditionalFormat1.ApplyTo = 0;
	var var_Columns = List1.Columns;
		var var_Column = var_Columns.Add("Value");
			var_Column.Width = 128;
			var_Column.HTMLCaption = "<b>VA</b><r>sko";
		var var_Column1 = var_Columns.Add("APos");
			var_Column1.FormatColumn = "0 apos ``";
			var_Column1.AllowSort = false;
			var_Column1.Def(4) = 15790320;
			var_Column1.Def(5) = 8421504;
			var_Column1.Def(8) = var_Column1.Def(5);
			var_Column1.Position = 0;
		var var_Column2 = var_Columns.Add("RPos");
			var_Column2.FormatColumn = "0 rpos ``";
			var_Column2.AllowSort = false;
			var_Column2.Position = 1;
		var var_Column3 = var_Columns.Add("Index");
			var_Column3.FormatColumn = "0 index ``";
			var_Column3.DisplayFilterButton = true;
			var_Column3.FilterList = 256;
			var_Column3.Position = 2;
		var var_Column4 = var_Columns.Add("Data 1");
			var_Column4.FormatColumn = "0 index `A-Z`";
			var_Column4.Def(0) = true;
		var 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;
			var_Column5.Def(17) = 1;
			var_Column5.Def(1) = true;
		var var_Column6 = var_Columns.Add("Data 3");
			var_Column6.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`";
			var_Column6.Def(17) = 1;
	var var_Items = List1.Items;
		var_Items.Add("Item A");
		var_Items.Add("Item B");
		var_Items.Add("Item C");
		var_Items.CellState(2,4) = 1;
		var_Items.Add("Item AA");
		var_Items.Add("Item BB");
		var_Items.Add("Item CC");
		var_Items.CellState(5,5) = 1;
		var_Items.Add("Item D");
		var_Items.Add("Item EE");
		var_Items.Add("Item FFF");
	List1.EndUpdate();
	var sFile = "c:/temp/export.html";
	List1.Export(sFile,"vis");
	var var_ShellBrowserWindow = new ActiveXObject("InternetExplorer.Application");
		var_ShellBrowserWindow.Navigate2(sFile,null,null,null,null);
}
</SCRIPT>
</BODY>

532
Export Data in CSV format

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.BackColorAlternate = 15790320;
	List1.DrawGridLines = -1;
	List1.HeaderAppearance = 4;
	List1.Description(11) = List1.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",List1.Description(11),null,null);
	List1.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>` + ( matc" +
	"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" +
	"nt + ` item(s)`) )))";
	List1.FilterBarPromptVisible = 2579;
	List1.FilterBarPromptType = 2;
	var var_ConditionalFormats = List1.ConditionalFormats;
		var_ConditionalFormats.Add("%0 like `*AA*`","aa").BackColor = 12632256;
		var var_ConditionalFormat = var_ConditionalFormats.Add("%0 like `*D*`","d");
			var_ConditionalFormat.ForeColor = 8421631;
			var_ConditionalFormat.ApplyTo = 0;
		var var_ConditionalFormat1 = var_ConditionalFormats.Add("%0 like `*b*`","b");
			var_ConditionalFormat1.ForeColor = 16711680;
			var_ConditionalFormat1.Bold = true;
			var_ConditionalFormat1.Italic = true;
			var_ConditionalFormat1.ApplyTo = 0;
	var var_Columns = List1.Columns;
		var var_Column = var_Columns.Add("Value");
			var_Column.Width = 128;
			var_Column.HTMLCaption = "<b>VA</b><r>sko";
		var var_Column1 = var_Columns.Add("APos");
			var_Column1.FormatColumn = "0 apos ``";
			var_Column1.AllowSort = false;
			var_Column1.Def(4) = 15790320;
			var_Column1.Def(5) = 8421504;
			var_Column1.Def(8) = var_Column1.Def(5);
			var_Column1.Position = 0;
		var var_Column2 = var_Columns.Add("RPos");
			var_Column2.FormatColumn = "0 rpos ``";
			var_Column2.AllowSort = false;
			var_Column2.Position = 1;
		var var_Column3 = var_Columns.Add("Index");
			var_Column3.FormatColumn = "0 index ``";
			var_Column3.DisplayFilterButton = true;
			var_Column3.FilterList = 256;
			var_Column3.Position = 2;
		var var_Column4 = var_Columns.Add("Data 1");
			var_Column4.FormatColumn = "0 index `A-Z`";
			var_Column4.Def(0) = true;
		var 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;
			var_Column5.Def(17) = 1;
			var_Column5.Def(1) = true;
		var var_Column6 = var_Columns.Add("Data 3");
			var_Column6.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`";
			var_Column6.Def(17) = 1;
	var var_Items = List1.Items;
		var_Items.Add("Item A");
		var_Items.Add("Item B");
		var_Items.Add("Item C");
		var_Items.CellState(2,4) = 1;
		var_Items.Add("Item AA");
		var_Items.Add("Item BB");
		var_Items.Add("Item CC");
		var_Items.CellState(5,5) = 1;
		var_Items.Add("Item D");
		var_Items.Add("Item EE");
		var_Items.Add("Item FFF");
	List1.EndUpdate();
	alert( List1.Export("","vis") );
}
</SCRIPT>
</BODY>

531
How can I get the icon from the cell when using the Items.CellImages property (icon index)

<BODY onload="Init()">
<SCRIPT FOR="List1" EVENT="MouseMove(Button,Shift,X,Y)" LANGUAGE="JScript">
	var i = List1.ItemFromPoint(-1,-1,c,hit);
	alert( List1.FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? ( ( (value bitand 0xFFFF0000) bitshift 16 ) array B split `,` )  : `no image`",hit,List1.Items.CellImages(i,c),null) );
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
	List1.Columns.Add("Default");
	var var_Items = List1.Items;
		var_Items.CellImages(var_Items.Add("Item 1"),0) = "3,2,1";
		var_Items.CellImages(var_Items.Add("Item 2"),0) = "2,3";
		var_Items.CellImages(var_Items.Add("Item 3"),0) = "2,";
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

530
How can I get the icon from the cell when using the Items.CellImages property (icon position within the cell)

<BODY onload="Init()">
<SCRIPT FOR="List1" EVENT="MouseMove(Button,Shift,X,Y)" LANGUAGE="JScript">
	var i = List1.ItemFromPoint(-1,-1,c,hit);
	alert( List1.FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit,null,null) );
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
	List1.Columns.Add("Default");
	var var_Items = List1.Items;
		var_Items.CellImages(var_Items.Add("Item 1"),0) = "3,2,1";
		var_Items.CellImages(var_Items.Add("Item 2"),0) = "2,3";
		var_Items.CellImages(var_Items.Add("Item 3"),0) = "2";
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

529
How can I get the index of icon from the cell, if using the CellImages property
<BODY onload="Init()">
<SCRIPT FOR="List1" EVENT="MouseMove(Button,Shift,X,Y)" LANGUAGE="JScript">
	var i = List1.ItemFromPoint(-1,-1,c,hit);
	alert( List1.FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit,null,null) );
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
	List1.Columns.Add("Default");
	var var_Items = List1.Items;
		var_Items.CellImages(var_Items.Add("Item 1"),0) = "1,2,3";
		var_Items.CellImages(var_Items.Add("Item 2"),0) = "2,3,1";
		var_Items.CellImages(var_Items.Add("Item 3"),0) = "3,2,1";
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

528
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.HeaderAppearance = 4;
	var var_Columns = List1.Columns;
		var_Columns.Add("Column 1");
		var_Columns.Add("Column 2");
		var_Columns.Add("Column 3");
	var var_Appearance = List1.VisualAppearance;
		var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV" +
	"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" +
	"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" +
	"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" +
	"BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" +
	"GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=");
		var_Appearance.Add(2,"CP:1 0 -36 0 0");
	List1.Background(182) = 33554432;
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

527
A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.ColumnAutoResize = true;
	List1.DefaultItemHeight = 20;
	List1.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1m" +
	"Y1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2h" +
	"hWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY" +
	"6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQR" +
	"JSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd" +
	"0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA==");
	List1.Columns.Add("Default").Def(0) = true;
	var var_Column = List1.Columns.Add("Position");
		var_Column.FormatColumn = "1 rindex ``";
		var_Column.Visible = false;
	var var_ConditionalFormat = List1.ConditionalFormats.Add("%C1 mod 2",null);
		var_ConditionalFormat.BackColor = 16777216;
	var var_Items = List1.Items;
		var_Items.Add("Item 1");
		var_Items.Add("Item 2");
		var_Items.Add("Item 3");
		var_Items.Add("Item 4");
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

526
Is it possible to change the caption from a column without to remove the column and add it with the new caption
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.Columns.Add("ColumnName").Caption = "NewName";
	List1.Columns.Add("ColumnName").HTMLCaption = "<b>New</b>Name";
}
</SCRIPT>
</BODY>

525
FilterBarCaption ALL Keyword ( sample 2, result )

<BODY onload="Init()">
<SCRIPT FOR="List1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	// i = FormatABC("value + 1", Items.ItemToIndex(Item))
	List1.Items.CellImage(Item,3) = i;
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
	var var_Column = List1.Columns.Add("Col-1");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 9504;
	var var_Column1 = List1.Columns.Add("Col-2");
		var_Column1.DisplayFilterButton = true;
		var_Column1.FilterList = 9504;
	var var_Column2 = List1.Columns.Add("Check");
		var_Column2.Def(0) = true;
		var_Column2.DisplayFilterButton = true;
		var_Column2.DisplayFilterPattern = false;
		var_Column2.FilterType = 6;
	var var_Column3 = List1.Columns.Add("Image");
		var_Column3.DisplayFilterButton = true;
		var_Column3.FilterType = 10;
		var_Column3.FilterList = 9472;
	var var_Column4 = List1.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 var_Items = List1.Items;
		var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A";
		var h = var_Items.Add("Item B");
		var_Items.Caption(h,1) = "Sub-Item B";
		var_Items.CellState(h,2) = 1;
		var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C";
	List1.FilterBarFont = List1.Font;
	List1.Description(11) = List1.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",List1.Description(11),null,null);
	List1.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>` + ( matchi" +
	"temcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount" +
	" + ` item(s)`) )))";
	List1.FilterBarPromptVisible = 3;
	var var_Column5 = List1.Columns.Item(0);
		var_Column5.FilterType = 240;
		var_Column5.Filter = "Item A|Item B";
	List1.Columns.Item(2).Filter = 1;
	List1.ApplyFilter();
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

524
FilterBarCaption ALL Keyword ( sample 1 )

<BODY onload="Init()">
<SCRIPT FOR="List1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	// i = FormatABC("value + 1", Items.ItemToIndex(Item))
	List1.Items.CellImage(Item,3) = i;
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
	var var_Column = List1.Columns.Add("Col-1");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 9504;
	var var_Column1 = List1.Columns.Add("Col-2");
		var_Column1.DisplayFilterButton = true;
		var_Column1.FilterList = 9504;
	var var_Column2 = List1.Columns.Add("Check");
		var_Column2.Def(0) = true;
		var_Column2.DisplayFilterButton = true;
		var_Column2.DisplayFilterPattern = false;
		var_Column2.FilterType = 6;
	var var_Column3 = List1.Columns.Add("Image");
		var_Column3.DisplayFilterButton = true;
		var_Column3.FilterType = 10;
		var_Column3.FilterList = 9472;
	var var_Column4 = List1.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 var_Items = List1.Items;
		var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A";
		var h = var_Items.Add("Item B");
		var_Items.Caption(h,1) = "Sub-Item B";
		var_Items.CellState(h,2) = 1;
		var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C";
	List1.FilterBarFont = List1.Font;
	List1.Description(11) = List1.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",List1.Description(11),null,null);
	List1.FilterBarCaption = "all";
	List1.FilterBarPromptVisible = 3;
	var var_Column5 = List1.Columns.Item(0);
		var_Column5.FilterType = 240;
		var_Column5.Filter = "Item A|Item B";
	List1.Columns.Item(2).Filter = 1;
	List1.ApplyFilter();
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

523
FilterBarCaption ALLUI Keyword ( sample 2, result )

<BODY onload="Init()">
<SCRIPT FOR="List1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	// i = FormatABC("value + 1", Items.ItemToIndex(Item))
	List1.Items.CellImage(Item,3) = i;
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
	var var_Column = List1.Columns.Add("Col-1");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 9504;
	var var_Column1 = List1.Columns.Add("Col-2");
		var_Column1.DisplayFilterButton = true;
		var_Column1.FilterList = 9504;
	var var_Column2 = List1.Columns.Add("Check");
		var_Column2.Def(0) = true;
		var_Column2.DisplayFilterButton = true;
		var_Column2.DisplayFilterPattern = false;
		var_Column2.FilterType = 6;
	var var_Column3 = List1.Columns.Add("Image");
		var_Column3.DisplayFilterButton = true;
		var_Column3.FilterType = 10;
		var_Column3.FilterList = 9472;
	var var_Column4 = List1.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 var_Items = List1.Items;
		var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A";
		var h = var_Items.Add("Item B");
		var_Items.Caption(h,1) = "Sub-Item B";
		var_Items.CellState(h,2) = 1;
		var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C";
	List1.FilterBarFont = List1.Font;
	List1.Description(11) = List1.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",List1.Description(11),null,null);
	List1.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>` + ( matc" +
	"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" +
	"nt + ` item(s)`) )))";
	List1.FilterBarPromptVisible = 3;
	var var_Column5 = List1.Columns.Item(0);
		var_Column5.FilterType = 240;
		var_Column5.Filter = "Item A|Item B";
	List1.Columns.Item(2).Filter = 1;
	List1.ApplyFilter();
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

522
FilterBarCaption ALLUI Keyword ( sample 1 )
<BODY onload="Init()">
<SCRIPT FOR="List1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	// i = FormatABC("value + 1", Items.ItemToIndex(Item))
	List1.Items.CellImage(Item,3) = i;
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
	var var_Column = List1.Columns.Add("Col-1");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 9504;
	var var_Column1 = List1.Columns.Add("Col-2");
		var_Column1.DisplayFilterButton = true;
		var_Column1.FilterList = 9504;
	var var_Column2 = List1.Columns.Add("Check");
		var_Column2.Def(0) = true;
		var_Column2.DisplayFilterButton = true;
		var_Column2.DisplayFilterPattern = false;
		var_Column2.FilterType = 6;
	var var_Column3 = List1.Columns.Add("Image");
		var_Column3.DisplayFilterButton = true;
		var_Column3.FilterType = 10;
		var_Column3.FilterList = 9472;
	var var_Column4 = List1.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 var_Items = List1.Items;
		var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A";
		var h = var_Items.Add("Item B");
		var_Items.Caption(h,1) = "Sub-Item B";
		var_Items.CellState(h,2) = 1;
		var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C";
	List1.FilterBarFont = List1.Font;
	List1.Description(11) = List1.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",List1.Description(11),null,null);
	List1.FilterBarCaption = "allui";
	List1.FilterBarPromptVisible = 3;
	var var_Column5 = List1.Columns.Item(0);
		var_Column5.FilterType = 240;
		var_Column5.Filter = "Item A|Item B";
	List1.Columns.Item(2).Filter = 1;
	List1.ApplyFilter();
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

521
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

<BODY onload="Init()">
<SCRIPT FOR="List1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	// i = FormatABC("value + 1", Items.ItemToIndex(Item))
	List1.Items.CellImage(Item,3) = i;
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
	var var_Column = List1.Columns.Add("Col-1");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 9504;
	var var_Column1 = List1.Columns.Add("Col-2");
		var_Column1.DisplayFilterButton = true;
		var_Column1.FilterList = 9504;
	var var_Column2 = List1.Columns.Add("Check");
		var_Column2.Def(0) = true;
		var_Column2.DisplayFilterButton = true;
		var_Column2.DisplayFilterPattern = false;
		var_Column2.FilterType = 6;
	var var_Column3 = List1.Columns.Add("Image");
		var_Column3.DisplayFilterButton = true;
		var_Column3.FilterType = 10;
		var_Column3.FilterList = 9472;
	var var_Column4 = List1.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 var_Items = List1.Items;
		var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A";
		var h = var_Items.Add("Item B");
		var_Items.Caption(h,1) = "Sub-Item B";
		var_Items.CellState(h,2) = 1;
		var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C";
	List1.FilterBarFont = List1.Font;
	List1.Description(11) = List1.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",List1.Description(11),null,null);
	List1.FilterBarCaption = "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( ava" +
	"ilable 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)`) )))";
	List1.FilterBarPromptVisible = 3;
	var var_Column5 = List1.Columns.Item(0);
		var_Column5.FilterType = 240;
		var_Column5.Filter = "Item A|Item B";
	List1.Columns.Item(2).Filter = 1;
	List1.ApplyFilter();
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

520
FilterBarCaption AVAILABLE Keyword ( sample 1 )

<BODY onload="Init()">
<SCRIPT FOR="List1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	// i = FormatABC("value + 1", Items.ItemToIndex(Item))
	List1.Items.CellImage(Item,3) = i;
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
	var var_Column = List1.Columns.Add("Col-1");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 9504;
	var var_Column1 = List1.Columns.Add("Col-2");
		var_Column1.DisplayFilterButton = true;
		var_Column1.FilterList = 9504;
	var var_Column2 = List1.Columns.Add("Check");
		var_Column2.Def(0) = true;
		var_Column2.DisplayFilterButton = true;
		var_Column2.DisplayFilterPattern = false;
		var_Column2.FilterType = 6;
	var var_Column3 = List1.Columns.Add("Image");
		var_Column3.DisplayFilterButton = true;
		var_Column3.FilterType = 10;
		var_Column3.FilterList = 9472;
	var var_Column4 = List1.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 var_Items = List1.Items;
		var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A";
		var h = var_Items.Add("Item B");
		var_Items.Caption(h,1) = "Sub-Item B";
		var_Items.CellState(h,2) = 1;
		var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C";
	List1.FilterBarFont = List1.Font;
	List1.Description(11) = List1.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",List1.Description(11),null,null);
	List1.FilterBarCaption = "value + ` ` + available";
	List1.FilterBarPromptVisible = 3;
	var var_Column5 = List1.Columns.Item(0);
		var_Column5.FilterType = 240;
		var_Column5.Filter = "Item A|Item B";
	List1.Columns.Item(2).Filter = 1;
	List1.ApplyFilter();
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

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 )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	var var_Column = List1.Columns.Add("Col-1");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 9504;
	var var_Column1 = List1.Columns.Add("Col-2");
		var_Column1.DisplayFilterButton = true;
		var_Column1.FilterList = 9504;
	var var_Column2 = List1.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 var_Items = List1.Items;
		var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A";
		var_Items.Caption(var_Items.Add("Item B"),1) = "Sub-Item B";
		var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C";
	List1.FilterBarFont = List1.Font;
	List1.Description(11) = List1.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",List1.Description(11),null,null);
	List1.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> ` replac" +
	"e `]` with ` </b></bgcolor></fgcolor>`";
	List1.FilterBarPromptVisible = 256;
	var var_Column3 = List1.Columns.Item(0);
		var_Column3.FilterType = 240;
		var_Column3.Filter = "Item A|Item B";
	var var_Column4 = List1.Columns.Item(1);
		var_Column4.FilterType = 3;
		var_Column4.Filter = "*B";
	List1.ApplyFilter();
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	var var_Column = List1.Columns.Add("Col-1");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 9504;
	var var_Column1 = List1.Columns.Add("Col-2");
		var_Column1.DisplayFilterButton = true;
		var_Column1.FilterList = 9504;
	var var_Column2 = List1.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 var_Items = List1.Items;
		var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A";
		var_Items.Caption(var_Items.Add("Item B"),1) = "Sub-Item B";
		var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C";
	List1.FilterBarFont = List1.Font;
	List1.Description(11) = List1.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",List1.Description(11),null,null);
	List1.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`";
	List1.FilterBarPromptVisible = 256;
	var var_Column3 = List1.Columns.Item(0);
		var_Column3.FilterType = 240;
		var_Column3.Filter = "Item A|Item B";
	var var_Column4 = List1.Columns.Item(1);
		var_Column4.FilterType = 3;
		var_Column4.Filter = "*B";
	List1.ApplyFilter();
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	var var_Column = List1.Columns.Add("Col-1");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 9504;
	var var_Column1 = List1.Columns.Add("Col-2");
		var_Column1.DisplayFilterButton = true;
		var_Column1.FilterList = 9504;
	var var_Column2 = List1.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 var_Items = List1.Items;
		var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A";
		var_Items.Caption(var_Items.Add("Item B"),1) = "Sub-Item B";
		var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C";
	List1.Description(11) = List1.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",List1.Description(11),null,null);
	List1.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`";
	List1.FilterBarPromptVisible = 256;
	var var_Column3 = List1.Columns.Item(0);
		var_Column3.FilterType = 240;
		var_Column3.Filter = "Item A|Item B";
	var var_Column4 = List1.Columns.Item(1);
		var_Column4.FilterType = 3;
		var_Column4.Filter = "*B";
	List1.ApplyFilter();
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	var var_Column = List1.Columns.Add("Item");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 9504;
	var var_Column1 = List1.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 var_Items = List1.Items;
		var_Items.Add("Item A");
		var_Items.Add("Item B");
		var_Items.Add("Item C");
	List1.FilterBarCaption = "`<r>` + value";
	List1.FilterBarPromptVisible = 1280;
	var var_Column2 = List1.Columns.Item(0);
		var_Column2.FilterType = 240;
		var_Column2.Filter = "Item B";
	List1.ApplyFilter();
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	var var_Column = List1.Columns.Add("Item");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 9504;
	var var_Column1 = List1.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 var_Items = List1.Items;
		var_Items.Add("Item A");
		var_Items.Add("Item B");
		var_Items.Add("Item C");
	List1.FilterBarFont = List1.Font;
	List1.FilterBarPrompt = List1.FormatABC("`<b>` + value",List1.FilterBarPrompt,null,null);
	List1.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount " +
	"+ 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )";
	List1.FilterBarPromptVisible = 3591;
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = List1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = List1.Items;
		var_Items.Add("Item A");
		var_Items.Add("Item B");
		var_Items.Add("Item C");
	List1.FilterBarFont = List1.Font;
	List1.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount " +
	"+ 1) + ` result(s)` ) : ``)";
	List1.FilterBarPromptVisible = 2055;
	var var_Column1 = List1.Columns.Item(0);
		var_Column1.FilterType = 240;
		var_Column1.Filter = "Item A|Item B";
	List1.ApplyFilter();
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = List1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = List1.Items;
		var_Items.Add("Item A");
		var_Items.Add("Item B");
		var_Items.Add("Item C");
	List1.FilterBarFont = List1.Font;
	List1.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)";
	List1.FilterBarPromptVisible = 2071;
	var var_Column1 = List1.Columns.Item(0);
		var_Column1.FilterType = 240;
		var_Column1.Filter = "Item A|Item B";
	List1.ApplyFilter();
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = List1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = List1.Items;
		var_Items.Add("Item A");
		var_Items.Add("Item B");
		var_Items.Add("Item C");
	List1.FilterBarFont = List1.Font;
	List1.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)";
	List1.FilterBarPromptVisible = 7;
	var var_Column1 = List1.Columns.Item(0);
		var_Column1.FilterType = 240;
		var_Column1.Filter = "Item A|Item B";
	List1.ApplyFilter();
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

511
FilterBarCaption Predefined Keywords

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = List1.Columns.Add("Check");
		var_Column.Def(0) = true;
		var_Column.DisplayFilterButton = true;
		var_Column.DisplayFilterPattern = false;
		var_Column.FilterType = 6;
	var var_Column1 = List1.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 var_Items = List1.Items;
		var_Items.Add("Item A");
		var_Items.Add("Item B");
		var_Items.Add("Item C");
	List1.FilterBarFont = List1.Font;
	List1.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=8" +
	"08080>` + promptpattern + `</fgcolor>`";
	List1.FilterBarPromptPattern = "B";
	List1.FilterBarPromptVisible = 7;
	var var_Column2 = List1.Columns.Item(0);
		var_Column2.FilterType = 240;
		var_Column2.Filter = "Item A|Item B";
	List1.ApplyFilter();
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = List1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = List1.Items;
		var_Items.Add("Item A");
		var_Items.Add("Item B");
		var_Items.Add("Item C");
	List1.FilterBarFont = List1.Font;
	List1.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value";
	List1.FilterBarPromptPattern = "B";
	List1.FilterBarPromptVisible = 2067;
	var var_Column1 = List1.Columns.Item(0);
		var_Column1.FilterType = 240;
		var_Column1.Filter = "Item A|Item B";
	List1.ApplyFilter();
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = List1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = List1.Items;
		var_Items.Add("Item A");
		var_Items.Add("Item B");
		var_Items.Add("Item C");
	List1.FilterBarPromptVisible = 1281;
	List1.FilterBarPrompt = List1.FormatABC("`<r>` + value",List1.FilterBarPrompt,null,null);
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.RightToLeft = true;
	List1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = List1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = List1.Items;
		var_Items.Add("Item A");
		var_Items.Add("Item B");
		var_Items.Add("Item C");
	List1.FilterBarPromptVisible = 257;
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	var var_Appearance = List1.VisualAppearance;
		var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJ" +
	"jyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKm" +
	"SZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OR" +
	"OicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2" +
	"DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJX" +
	"AiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaK" +
	"JDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G" +
	"0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEA" +
	"kjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRS" +
	"MRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhA" +
	"QHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ");
	List1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = List1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = List1.Items;
		var_Items.Add("Item A");
		var_Items.Add("Item B");
		var_Items.Add("Item C");
	List1.FilterBarPromptVisible = 257;
	List1.Background(1) = 16777216;
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = List1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = List1.Items;
		var_Items.Add("Item A");
		var_Items.Add("Item B");
		var_Items.Add("Item C");
	List1.FilterBarPromptVisible = 1;
	List1.Background(1) = 255;
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = List1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = List1.Items;
		var_Items.Add("Item A");
		var_Items.Add("Item B");
		var_Items.Add("Item C");
	List1.FilterBarPromptVisible = 1;
	List1.Background(1) = -1;
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = List1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = List1.Items;
		var_Items.Add("Item A");
		var_Items.Add("Item B");
		var_Items.Add("Item C");
	List1.FilterBarPromptVisible = 513;
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = List1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = List1.Items;
		var_Items.Add("Item A");
		var_Items.Add("Item B");
		var_Items.Add("Item C");
	List1.FilterBarCaption = "`<r><fgcolor=808080>` + value";
	List1.FilterBarPromptPattern = "B";
	List1.FilterBarPromptVisible = 2323;
	var var_Column1 = List1.Columns.Item(0);
		var_Column1.FilterType = 240;
		var_Column1.Filter = "Item B";
	List1.ApplyFilter();
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = List1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = List1.Items;
		var_Items.Add("Item A");
		var_Items.Add("Item B");
		var_Items.Add("Item C");
	List1.FilterBarCaption = "len(value) ? `filter for: <fgcolor 808080>` + value  : `<fgcolor 808080>no filter`";
	List1.FilterBarPromptVisible = 18;
	var var_Column1 = List1.Columns.Item(0);
		var_Column1.FilterType = 240;
		var_Column1.Filter = "Item A|Item B";
	List1.ApplyFilter();
	List1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	List1.BeginUpdate();
	List1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = List1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = List1.Items;
		var_Items.Add("Item A");
		var_Items.Add("Item B");
		var_Items.Add("Item C");
	List1.FilterBarCaption = "`<r>` + value";
	List1.FilterBarPromptVisible = 2067;
	var var_Column1 = List1.Columns.Item(0);
		var_Column1.FilterType = 240;
		var_Column1.Filter = "Item A|Item B";
	List1.ApplyFilter();
	List1.EndUpdate();
}
</SCRIPT>
</BODY>