How-To dBASE Plus (exlist)

562	ADOR, MDB (JET) local oList,rs oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.ColumnAutoResize = false rs = new OleAutoClient("ADOR.Recordset") rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\Access\sample.mdb",3,3) oList.DataSource = rs oList.EndUpdate()
561	Highlight the match once the filter is applied /* with (this.EXLISTACTIVEXCONTROL1.nativeObject) FilterChange = class::nativeObject_FilterChange endwith / // Occurs when filter was changed.* function nativeObject_FilterChange() local format oList = form.EXLISTACTIVEXCONTROL1.nativeObject format = oList.FormatABC("`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value + `</fgcolor></bgcolor>'`",oList.FilterBarPromptPattern) oList.Columns.Item(0).FormatColumn = Str(format) oList.Columns.Item(1).FormatColumn = Str(format) oList.Columns.Item(2).FormatColumn = Str(format) return local h0,oList,var_Column,var_Column1,var_Column2,var_Columns,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.SelBackColor = oList.BackColor oList.SelForeColor = oList.ForeColor oList.ColumnAutoResize = true oList.ContinueColumnScroll = false oList.MarkSearchColumn = false oList.SearchColumnIndex = 1 oList.HeaderAppearance = 4 oList.HeaderHeight = 23 oList.BackColorLevelHeader = oList.BackColor oList.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)" oList.FilterBarPromptVisible = 2055 /exFilterBarCompact \| exFilterBarCaptionVisible \| exFilterBarVisible \| exFilterBarPromptVisible/ oList.FilterBarBackColor = oList.BackColor oList.FilterBarPromptPattern = "and" var_Columns = oList.Columns var_Column = var_Columns.Add("Name") // var_Column.Def(17) = 1 with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.Def(17) = 1] endwith var_Column.FormatColumn = "lower(value)" var_Column1 = var_Columns.Add("Title") // var_Column1.Def(17) = 1 with (oList) TemplateDef = [dim var_Column1] TemplateDef = var_Column1 Template = [var_Column1.Def(17) = 1] endwith var_Column1.FormatColumn = "lower(value)" var_Column2 = var_Columns.Add("City") // var_Column2.Def(17) = 1 with (oList) TemplateDef = [dim var_Column2] TemplateDef = var_Column2 Template = [var_Column2.Def(17) = 1] endwith var_Column2.FormatColumn = "lower(value)" var_Items = oList.Items h0 = var_Items.Add("Nancy Davolio") // var_Items.Caption(h0,1) = "Sales Representative" with (oList) TemplateDef = [dim var_Items,h0] TemplateDef = var_Items TemplateDef = h0 Template = [var_Items.Caption(h0,1) = "Sales Representative"] endwith // var_Items.Caption(h0,2) = "Seattle" with (oList) TemplateDef = [dim var_Items,h0] TemplateDef = var_Items TemplateDef = h0 Template = [var_Items.Caption(h0,2) = "Seattle"] endwith h0 = var_Items.Add("Andrew Fuller") // var_Items.Caption(h0,1) = "Vice President, Sales" with (oList) TemplateDef = [dim var_Items,h0] TemplateDef = var_Items TemplateDef = h0 Template = [var_Items.Caption(h0,1) = "Vice President, Sales"] endwith // var_Items.Caption(h0,2) = "Tacoma" with (oList) TemplateDef = [dim var_Items,h0] TemplateDef = var_Items TemplateDef = h0 Template = [var_Items.Caption(h0,2) = "Tacoma"] endwith // var_Items.SelectItem(h0) = true with (oList) TemplateDef = [dim var_Items,h0] TemplateDef = var_Items TemplateDef = h0 Template = [var_Items.SelectItem(h0) = 1] endwith h0 = var_Items.Add("Janet Leverling") // var_Items.Caption(h0,1) = "Sales Representative" with (oList) TemplateDef = [dim var_Items,h0] TemplateDef = var_Items TemplateDef = h0 Template = [var_Items.Caption(h0,1) = "Sales Representative"] endwith // var_Items.Caption(h0,2) = "Kirkland" with (oList) TemplateDef = [dim var_Items,h0] TemplateDef = var_Items TemplateDef = h0 Template = [var_Items.Caption(h0,2) = "Kirkland"] endwith h0 = var_Items.Add("Margaret Peacock") // var_Items.Caption(h0,1) = "Sales Representative" with (oList) TemplateDef = [dim var_Items,h0] TemplateDef = var_Items TemplateDef = h0 Template = [var_Items.Caption(h0,1) = "Sales Representative"] endwith // var_Items.Caption(h0,2) = "Redmond" with (oList) TemplateDef = [dim var_Items,h0] TemplateDef = var_Items TemplateDef = h0 Template = [var_Items.Caption(h0,2) = "Redmond"] endwith h0 = var_Items.Add("Steven Buchanan") // var_Items.Caption(h0,1) = "Sales Manager" with (oList) TemplateDef = [dim var_Items,h0] TemplateDef = var_Items TemplateDef = h0 Template = [var_Items.Caption(h0,1) = "Sales Manager"] endwith // var_Items.Caption(h0,2) = "London" with (oList) TemplateDef = [dim var_Items,h0] TemplateDef = var_Items TemplateDef = h0 Template = [var_Items.Caption(h0,2) = "London"] endwith h0 = var_Items.Add("Michael Suyama") // var_Items.Caption(h0,1) = "Sales Representative" with (oList) TemplateDef = [dim var_Items,h0] TemplateDef = var_Items TemplateDef = h0 Template = [var_Items.Caption(h0,1) = "Sales Representative"] endwith // var_Items.Caption(h0,2) = "London" with (oList) TemplateDef = [dim var_Items,h0] TemplateDef = var_Items TemplateDef = h0 Template = [var_Items.Caption(h0,2) = "London"] endwith h0 = var_Items.Add("Robert King") // var_Items.Caption(h0,1) = "Sales Representative" with (oList) TemplateDef = [dim var_Items,h0] TemplateDef = var_Items TemplateDef = h0 Template = [var_Items.Caption(h0,1) = "Sales Representative"] endwith // var_Items.Caption(h0,2) = "London" with (oList) TemplateDef = [dim var_Items,h0] TemplateDef = var_Items TemplateDef = h0 Template = [var_Items.Caption(h0,2) = "London"] endwith h0 = var_Items.Add("Laura Callahan") // var_Items.Caption(h0,1) = "Inside Sales Coordinator" with (oList) TemplateDef = [dim var_Items,h0] TemplateDef = var_Items TemplateDef = h0 Template = [var_Items.Caption(h0,1) = "Inside Sales Coordinator"] endwith // var_Items.Caption(h0,2) = "Seattle" with (oList) TemplateDef = [dim var_Items,h0] TemplateDef = var_Items TemplateDef = h0 Template = [var_Items.Caption(h0,2) = "Seattle"] endwith h0 = var_Items.Add("Anne Dodsworth") // var_Items.Caption(h0,1) = "Sales Representative" with (oList) TemplateDef = [dim var_Items,h0] TemplateDef = var_Items TemplateDef = h0 Template = [var_Items.Caption(h0,1) = "Sales Representative"] endwith // var_Items.Caption(h0,2) = "London" with (oList) TemplateDef = [dim var_Items,h0] TemplateDef = var_Items TemplateDef = h0 Template = [var_Items.Caption(h0,2) = "London"] endwith oList.EndUpdate()
560	Re-order the cell's caption, icons and images/pictures local h,oList,var_Column,var_Column1,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.ColumnAutoResize = true oList.Images("gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmDcD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB") var_Column = oList.Columns.Add("ToLeft") // var_Column.Def(0) = true with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.Def(0) = True] endwith var_Column1 = oList.Columns.Add("ToRight") // var_Column1.Def(0) = true with (oList) TemplateDef = [dim var_Column1] TemplateDef = var_Column1 Template = [var_Column1.Def(0) = True] endwith // var_Column1.Def(34) = "caption,picture,icons,icon,check" with (oList) TemplateDef = [dim var_Column1] TemplateDef = var_Column1 Template = [var_Column1.Def(34) = "caption,picture,icons,icon,check"] endwith oList.DefaultItemHeight = 32 oList.DrawGridLines = 2 oList.HeaderAppearance = 4 var_Items = oList.Items h = var_Items.Add("Caption") // var_Items.CellImage(h,0) = 2 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellImage(h,0) = 2] endwith // var_Items.CellImages(h,0) = "1,2" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellImages(h,0) = "1,2"] endwith // var_Items.CellPicture(h,0) = oList.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" ; +"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" & +"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" & +"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" & +"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" & +"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" & +"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" & +"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" & +"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" & +"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" & +"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)") with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellPicture(h,0) = Me.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)")] endwith // var_Items.Caption(h,1) = var_Items.Caption(h,0) with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.Caption(h,1) = Caption(h,0)] endwith // var_Items.CellHAlignment(h,1) = 2 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellHAlignment(h,1) = 2] endwith // var_Items.CellImage(h,1) = var_Items.CellImage(h,0) with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellImage(h,1) = CellImage(h,0)] endwith // var_Items.CellImages(h,1) = "2,1" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellImages(h,1) = "2,1"] endwith // var_Items.CellPicture(h,1) = var_Items.CellPicture(h,0) with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellPicture(h,1) = CellPicture(h,0)] endwith h = var_Items.Add("<b>HTML</b> <off 4>Caption") // var_Items.CaptionFormat(h,0) = 1 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CaptionFormat(h,0) = 1] endwith // var_Items.CellImage(h,0) = 2 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellImage(h,0) = 2] endwith // var_Items.CellImages(h,0) = "1,2" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellImages(h,0) = "1,2"] endwith // var_Items.CellPicture(h,0) = oList.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" ; +"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" & +"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" & +"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" & +"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" & +"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" & +"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" & +"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" & +"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" & +"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" & +"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)") with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellPicture(h,0) = Me.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)")] endwith // var_Items.Caption(h,1) = var_Items.Caption(h,0) with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.Caption(h,1) = Caption(h,0)] endwith // var_Items.CaptionFormat(h,1) = 1 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CaptionFormat(h,1) = 1] endwith // var_Items.CellHAlignment(h,1) = 2 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellHAlignment(h,1) = 2] endwith // var_Items.CellImage(h,1) = var_Items.CellImage(h,0) with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellImage(h,1) = CellImage(h,0)] endwith // var_Items.CellImages(h,1) = "2,1" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellImages(h,1) = "2,1"] endwith // var_Items.CellPicture(h,1) = var_Items.CellPicture(h,0) with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellPicture(h,1) = CellPicture(h,0)] endwith oList.EndUpdate()
559	ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons) /* with (this.EXLISTACTIVEXCONTROL1.nativeObject) AddColumn = class::nativeObject_AddColumn endwith / // Fired after a new column is added.* function nativeObject_AddColumn(Column) /* Column.Def(48) = 2 / / Column.Def(49) = 2 / oList = form.EXLISTACTIVEXCONTROL1.nativeObject return local h,oList,var_Appearance,var_Column,var_Column1,var_Column2,var_Column3,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.ImageSize = 32 oList.DefaultItemHeight = 36 oList.HeaderHeight = oList.DefaultItemHeight oList.SortBarHeight = oList.DefaultItemHeight oList.Font.Size = 16 oList.FilterBarFont.Size = oList.Font.Size oList.ToolTipFont.Size = oList.Font.Size oList.Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" ; +"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" & +"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWRJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==") var_Appearance = oList.VisualAppearance var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" ; +"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==") var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" ; +"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" & +"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4gaBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" & +"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==") var_Appearance.Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" ; +"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" & +"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjVHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" & +"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=") var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" ; +"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==") oList.BackColorHeader = 0x4c6c6c6 oList.SelBackColor = 0x4000000 oList.SelForeColor = 0x10000 oList.Template = [CheckImage(0) = 16777216] // oList.CheckImage(0) = 16777216* oList.Template = [CheckImage(1) = 33554432] // oList.CheckImage(1) = 33554432 oList.Template = [CheckImage(2) = 50331648] // oList.CheckImage(2) = 50331648 oList.Template = [Background(20) = SelBackColor] // oList.Background(20) = oList.SelBackColor oList.Template = [Background(21) = SelForeColor] // oList.Background(21) = oList.SelForeColor oList.Template = [Background(26) = BackColor] // oList.Background(26) = oList.BackColor oList.Template = [Background(27) = ForeColor] // oList.Background(27) = oList.ForeColor oList.Template = [Background(32) = -1] // oList.Background(32) = -1 oList.Template = [Background(0) = 67108864] // oList.Background(0) = 0x4000000 oList.Template = [Background(41) = 67174657] // oList.Background(41) = 0x4010101 oList.Template = [Background(1) = 67109119] // oList.Background(1) = 0x40000ff oList.HeaderAppearance = 4 oList.ShowFocusRect = false oList.SortBarVisible = true oList.BackColorSortBar = oList.BackColor oList.BackColorLevelHeader = oList.BackColor oList.FilterBarDropDownHeight = 1 var_Column = oList.Columns.Add("Check") // var_Column.Def(0) = true with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.Def(0) = True] endwith var_Column.Width = 128 var_Column.DisplayFilterButton = true var_Column.FilterList = 256 var_Column1 = oList.Columns.Add("Pos") var_Column1.FormatColumn = "1 pos ``" var_Column1.AllowSort = false var_Column1.Width = 48 var_Column1.AllowSizing = false var_Column1.Alignment = 1 var_Column1.HeaderAlignment = 1 var_Column2 = oList.Columns.Add("Image") var_Column2.DisplayFilterButton = true var_Column2.FilterList = 8480 /exShowExclude \| exShowCheckBox \| exSortItemsAsc/ var_Column2.FilterType = 10 var_Column2.Width = 128 var_Column2.HeaderImage = 1 var_Column3 = oList.Columns.Add("Images") // var_Column3.Def(0) = true with (oList) TemplateDef = [dim var_Column3] TemplateDef = var_Column3 Template = [var_Column3.Def(0) = True] endwith var_Column3.Width = 196 var_Column3.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images" oList.Columns.Item("Pos").Position = 3 var_Items = oList.Items h = var_Items.Add("Child A") // var_Items.CellImage(h,2) = 1 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellImage(h,2) = 1] endwith // var_Items.CellImages(h,3) = "1,2,3" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellImages(h,3) = "1,2,3"] endwith // var_Items.Caption(h,3) = "123" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.Caption(h,3) = "123"] endwith h = var_Items.Add("Child B") // var_Items.CellState(h,0) = 1 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellState(h,0) = 1] endwith // var_Items.CellImage(h,2) = 3 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellImage(h,2) = 3] endwith // var_Items.CellImages(h,3) = "2,3,1" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellImages(h,3) = "2,3,1"] endwith // var_Items.Caption(h,3) = "231" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.Caption(h,3) = "231"] endwith // var_Items.SelectItem(h) = true with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.SelectItem(h) = True] endwith h = var_Items.Add("Child C") // var_Items.CellImage(h,2) = 2 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellImage(h,2) = 2] endwith // var_Items.CellState(h,3) = 1 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellState(h,3) = 1] endwith // var_Items.Caption(h,3) = "312" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.Caption(h,3) = "312"] endwith // var_Items.CellImages(h,3) = "3,1,2" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellImages(h,3) = "3,1,2"] endwith oList.EndUpdate()
558	ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons) /* with (this.EXLISTACTIVEXCONTROL1.nativeObject) AddColumn = class::nativeObject_AddColumn endwith / // Fired after a new column is added.* function nativeObject_AddColumn(Column) /* Column.Def(48) = 2 / / Column.Def(49) = 2 / oList = form.EXLISTACTIVEXCONTROL1.nativeObject return local h,oList,var_Appearance,var_Column,var_Column1,var_Column2,var_Column3,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.ImageSize = 16 oList.Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==") var_Appearance = oList.VisualAppearance var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" ; +"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==") oList.BackColorHeader = 0x4c6c6c6 oList.SelBackColor = 0x4000000 oList.SelForeColor = 0x10000 oList.Template = [Background(20) = SelBackColor] // oList.Background(20) = oList.SelBackColor* oList.Template = [Background(21) = SelForeColor] // oList.Background(21) = oList.SelForeColor oList.Template = [Background(26) = BackColor] // oList.Background(26) = oList.BackColor oList.Template = [Background(27) = ForeColor] // oList.Background(27) = oList.ForeColor oList.Template = [Background(32) = -1] // oList.Background(32) = -1 oList.Template = [Background(0) = 67108864] // oList.Background(0) = 0x4000000 oList.Template = [Background(41) = 67174657] // oList.Background(41) = 0x4010101 oList.Template = [Background(1) = 67109119] // oList.Background(1) = 0x40000ff oList.HeaderAppearance = 4 oList.ShowFocusRect = false oList.SortBarVisible = true oList.BackColorSortBar = oList.BackColor oList.BackColorLevelHeader = oList.BackColor oList.FilterBarDropDownHeight = 1 var_Column = oList.Columns.Add("Check") // var_Column.Def(0) = true with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.Def(0) = True] endwith var_Column.Width = 128 var_Column.DisplayFilterButton = true var_Column.FilterList = 256 var_Column1 = oList.Columns.Add("Pos") var_Column1.FormatColumn = "1 pos ``" var_Column1.AllowSort = false var_Column1.Width = 48 var_Column1.AllowSizing = false var_Column1.Alignment = 1 var_Column1.HeaderAlignment = 1 var_Column2 = oList.Columns.Add("Image") var_Column2.DisplayFilterButton = true var_Column2.FilterList = 8480 /exShowExclude \| exShowCheckBox \| exSortItemsAsc/ var_Column2.FilterType = 10 var_Column2.Width = 128 var_Column2.HeaderImage = 1 var_Column3 = oList.Columns.Add("Images") // var_Column3.Def(0) = true with (oList) TemplateDef = [dim var_Column3] TemplateDef = var_Column3 Template = [var_Column3.Def(0) = True] endwith var_Column3.Width = 196 var_Column3.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images" oList.Columns.Item("Pos").Position = 3 var_Items = oList.Items h = var_Items.Add("Child A") // var_Items.CellImage(h,2) = 1 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellImage(h,2) = 1] endwith // var_Items.CellImages(h,3) = "1,2,3" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellImages(h,3) = "1,2,3"] endwith // var_Items.Caption(h,3) = "123" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.Caption(h,3) = "123"] endwith h = var_Items.Add("Child B") // var_Items.CellState(h,0) = 1 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellState(h,0) = 1] endwith // var_Items.CellImage(h,2) = 3 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellImage(h,2) = 3] endwith // var_Items.CellImages(h,3) = "2,3,1" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellImages(h,3) = "2,3,1"] endwith // var_Items.Caption(h,3) = "231" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.Caption(h,3) = "231"] endwith // var_Items.SelectItem(h) = true with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.SelectItem(h) = True] endwith h = var_Items.Add("Child C") // var_Items.CellImage(h,2) = 2 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellImage(h,2) = 2] endwith // var_Items.CellState(h,3) = 1 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellState(h,3) = 1] endwith // var_Items.Caption(h,3) = "312" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.Caption(h,3) = "312"] endwith // var_Items.CellImages(h,3) = "3,1,2" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellImages(h,3) = "3,1,2"] endwith oList.EndUpdate()
557	The user clicks the drop-down filter, select a value and the control's list filters for the selected item(s). Is there a way for when the user then goes to the next column to add another filter and the drop down arrow is clicked for the list of values they can filter by to be limited to what is being displayed in the list due to the first filter they set /* with (this.EXLISTACTIVEXCONTROL1.nativeObject) AddColumn = class::nativeObject_AddColumn endwith / // Fired after a new column is added.* function nativeObject_AddColumn(Column) oList = form.EXLISTACTIVEXCONTROL1.nativeObject return local oList,rs oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.ColumnAutoResize = false rs = new OleAutoClient("ADOR.Recordset") rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\Access\sample.accdb",3,3) oList.DataSource = rs oList.Columns.Item("ShipVia").Position = 2 oList.EndUpdate()
556	Is it possible to set from code, a column sort without being inserted in the sortbar local oList,rs oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.ColumnAutoResize = false rs = new OleAutoClient("ADOR.Recordset") rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\Access\SAMPLE.ACCDB",3,3) oList.DataSource = rs oList.SortBarVisible = true oList.Layout = "singlesort=" + ["] + "C1:1" + ["] + "" oList.EndUpdate()
555	Is it possible to highligth the match while a filter is applied /* with (this.EXLISTACTIVEXCONTROL1.nativeObject) AddColumn = class::nativeObject_AddColumn endwith / // Fired after a new column is added.* function nativeObject_AddColumn(Column) /* Column.Def(17) = 1 / oList = form.EXLISTACTIVEXCONTROL1.nativeObject return / with (this.EXLISTACTIVEXCONTROL1.nativeObject) FilterChange = class::nativeObject_FilterChange endwith / // Occurs when filter was changed.* function nativeObject_FilterChange() local format oList = form.EXLISTACTIVEXCONTROL1.nativeObject format = oList.FormatABC("`value replace '` + value + `' with '<bgcolor 000000><fgcolor FFFFFF>` + value + `</fgcolor></bgcolor>'`",oList.FilterBarPromptPattern) oList.Columns.Item(0).FormatColumn = Str(format) oList.Columns.Item(1).FormatColumn = Str(format) return local oList,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.DrawGridLines = 2 oList.HeaderAppearance = 4 oList.Columns.Add("Col 1") oList.Columns.Add("Col 2") var_Items = oList.Items // var_Items.Caption(var_Items.Add("219 Smith"),1) = "Ignacio 1234" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("219 Smith"),1) = "Ignacio 1234"] endwith // var_Items.Caption(var_Items.Add("1666 County Road 309A"),1) = "897 Manassa" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("1666 County Road 309A"),1) = "897 Manassa"] endwith // var_Items.Caption(var_Items.Add("38 Lone Pine"),1) = "Durango 11" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("38 Lone Pine"),1) = "Durango 11"] endwith // var_Items.Caption(var_Items.Add("612 Jachim Street"),1) = "Lamar 222" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("612 Jachim Street"),1) = "Lamar 222"] endwith oList.FilterBarPromptPattern = "1" oList.FilterBarPromptVisible = 2067 /exFilterBarCompact \| exFilterBarSingleLine \| exFilterBarVisible \| exFilterBarPromptVisible/ oList.FilterBarPromptType = 257 /exFilterPromptCaseSensitive \| exFilterPromptContainsAll/ oList.EndUpdate()
554	Is it possible to highlight the column's header once a filter is applied local h,oList,var_Appearance,var_Column,var_Column1,var_Column2,var_Columns,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() var_Appearance = oList.VisualAppearance var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgANJ0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8YNYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mgbhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhWBMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=") var_Appearance.Add(1,"CP:2 -8 -4 2 4") oList.Template = [Background(0) = 33488638] // oList.Background(0) = 0x1fefefe oList.Template = [Background(41) = 16843009] // oList.Background(41) = 0x1010101 oList.Template = [Background(32) = -1] // oList.Background(32) = -1 oList.HeaderHeight = 28 oList.BackColorHeader = 0xffffff oList.DrawGridLines = -1 oList.HeaderVisible = true var_Columns = oList.Columns // var_Columns.Add("C1").DisplayFilterButton = true var_Column = var_Columns.Add("C1") with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.DisplayFilterButton = True] endwith var_Column1 = var_Columns.Add("C2") var_Column1.DisplayFilterButton = true var_Column1.Filter = "Item 2" var_Column1.FilterType = 240 // var_Columns.Add("C3").DisplayFilterButton = true var_Column2 = var_Columns.Add("C3") with (oList) TemplateDef = [dim var_Column2] TemplateDef = var_Column2 Template = [var_Column2.DisplayFilterButton = True] endwith var_Items = oList.Items h = var_Items.Add("Item 1") // var_Items.Caption(h,1) = "Item 2" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.Caption(h,1) = "Item 2"] endwith // var_Items.Caption(h,2) = "Item 3" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.Caption(h,2) = "Item 3"] endwith h = var_Items.Add("Item 4") // var_Items.Caption(h,1) = "Item 5" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.Caption(h,1) = "Item 5"] endwith // var_Items.Caption(h,2) = "Item 6" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.Caption(h,2) = "Item 6"] endwith oList.ApplyFilter() oList.EndUpdate()
553	Is it possible to show the filterbar on top of the rows local oList,var_Column,var_Column1,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.FilterBarPromptVisible = 8192 oList.HeaderHeight = 24 oList.FilterBarHeight = oList.HeaderHeight oList.HeaderAppearance = 1 oList.DrawGridLines = -1 oList.GridLineStyle = 512 var_Column = oList.Columns.Add("Column") var_Column.DisplayFilterButton = true var_Column.FilterType = 3 var_Column.Filter = "B" var_Column1 = oList.Columns.Add("Index") var_Column1.FormatColumn = "1 index ``" var_Column1.Position = 0 var_Column1.Width = 48 var_Column1.AllowSizing = false var_Column1.SortType = 1 // var_Column1.Def(0) = true* with (oList) TemplateDef = [dim var_Column1] TemplateDef = var_Column1 Template = [var_Column1.Def(0) = True] endwith var_Items = oList.Items var_Items.Add("A.1") var_Items.Add("A.2") var_Items.Add("B.1") var_Items.Add("B.2") var_Items.Add("B.3") var_Items.Add("C") oList.ApplyFilter() oList.EndUpdate()
552	Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header (non-clickable) local oList,var_Column,var_Columns,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.HeaderAppearance = 4 var_Columns = oList.Columns var_Columns.Add("Item") var_Column = var_Columns.Add("Pos") var_Column.Position = 0 var_Column.Width = 32 var_Column.AllowSizing = false var_Column.FormatColumn = "1 index ``" var_Column.AllowSort = false var_Column.AllowDragging = false var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") oList.EndUpdate()
551	Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header local oList,var_Column,var_Columns,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.HeaderAppearance = 4 oList.Template = [Background(32) = -1] // oList.Background(32) = -1 var_Columns = oList.Columns var_Columns.Add("Item") var_Column = var_Columns.Add("Pos") var_Column.Position = 0 var_Column.Width = 32 var_Column.AllowSizing = false var_Column.FormatColumn = "1 index ``" var_Column.AllowSort = false var_Column.AllowDragging = false var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") oList.EndUpdate()
550	How do I get notified once the user clicks the cell's button /* with (this.EXLISTACTIVEXCONTROL1.nativeObject) CellButtonClick = class::nativeObject_CellButtonClick endwith / // Fired after the user clicks the cell's button.* function nativeObject_CellButtonClick(ItemIndex,ColIndex) local var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject var_Items = oList.Items ? Str(var_Items.Caption(ItemIndex,0)) return local oList,var_Column,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.Columns.Add("Item") var_Column = oList.Columns.Add("...") // var_Column.Def(2) = true with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.Def(2) = True] endwith var_Column.Alignment = 1 var_Column.HeaderAlignment = 1 var_Column.FormatColumn = "` ... `" var_Column.Width = 32 var_Column.AllowSizing = false var_Column.Position = 0 oList.SelBackMode = 1 var_Items = oList.Items var_Items.Add("Item 1") var_Items.Add("Item 2") var_Items.Add("Item 3") oList.EndUpdate()
549	How do I set an extra data for each item /* with (this.EXLISTACTIVEXCONTROL1.nativeObject) MouseMove = class::nativeObject_MouseMove endwith / // Occurs when the user moves the mouse.* function nativeObject_MouseMove(Button,Shift,X,Y) local i oList = form.EXLISTACTIVEXCONTROL1.nativeObject i = oList.ItemFromPoint(-1,-1,c,hit) ? Str(i) ? Str(oList.Items.ItemData(i)) return local oList,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.ColumnAutoResize = true oList.Columns.Add("Default") var_Items = oList.Items // var_Items.ItemData(var_Items.Add("method")) = "your extra data of method" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.ItemData(Add("method")) = "your extra data of method"] endwith oList.EndUpdate()
548	I do not like to specify the item padding for every column I add. The question is how can I do it automatically local oList,var_Column,var_Columns,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.AttachTemplate("handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}") oList.HeaderAppearance = 4 oList.DrawGridLines = -1 oList.GridLineStyle = 32 var_Columns = oList.Columns var_Columns.Add("Item") var_Column = var_Columns.Add("Pos") var_Column.Position = 0 var_Column.Width = 32 var_Column.AllowSizing = false var_Column.FormatColumn = "1 index ``" var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") oList.EndUpdate()
547	Can I sort the column by check-state local oList,var_Column,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() var_Column = oList.Columns.Add("Check") // var_Column.Def(0) = true with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.Def(0) = True] endwith var_Column.SortType = 32 var_Items = oList.Items var_Items.Add() // var_Items.CellState(var_Items.Add(),0) = 1 with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellState(Add(),0) = 1] endwith // var_Items.CellState(var_Items.Add(),0) = 1 with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellState(Add(),0) = 1] endwith var_Items.Add() oList.Columns.Item(0).SortOrder = 1 oList.EndUpdate()
546	Can I sort the column by image local oList,var_Column,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") var_Column = oList.Columns.Add("Image") var_Column.SortType = 48 var_Items = oList.Items // var_Items.CellImage(var_Items.Add(),0) = 3 with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellImage(Add(),0) = 3] endwith var_Items.Add() // var_Items.CellImage(var_Items.Add(),0) = 1 with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellImage(Add(),0) = 1] endwith // var_Items.CellImage(var_Items.Add(),0) = 2 with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellImage(Add(),0) = 2] endwith oList.Columns.Item(0).SortOrder = 1 oList.EndUpdate()
545	How can I display UNICODE characters local oList,var_Column,var_Items,var_StdFont oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() var_StdFont = oList.Font var_StdFont.Name = "Arial Unicode" var_StdFont.Size = 22 oList.HeaderVisible = false oList.DefaultItemHeight = 48 // oList.Columns.Add("").Def(17) = 1 var_Column = oList.Columns.Add("") with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.Def(17) = 1] endwith var_Items = oList.Items var_Items.Add("Ӓӓ") var_Items.Add("ᦜᦝ;ᦞ") var_Items.Add("ɮɭ;ɯ") var_Items.Add("勳勴勵勶") // var_Items.FormatCell(var_Items.Add(oList.Version),0) = "(value lfind `UNICODE`) < 0 ? `<fgcolor=FF0000><b>!UNICODE!</b> version</fgcolor> required: ` + value : `` " with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.FormatCell(Add(Me.Version),0) = "(value lfind `UNICODE`) < 0 ? `<fgcolor=FF0000><b>!UNICODE!</b> version</fgcolor> required: ` + value : `` "] endwith oList.EndUpdate()
544	How do I display the position of the item with 0-padding local oList,var_Column,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() // oList.Columns.Add("Items").FormatColumn = "((1 apos ``) lpad `00`) + `. ` + value" var_Column = oList.Columns.Add("Items") with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.FormatColumn = "((1 apos ``) lpad `00`) + `. ` + value"] endwith var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") var_Items.Add("Item D") oList.EndUpdate()
543	I am skinning the control's header-bar, but the background of the header-bar is shown on each item in the filter-bar drop down panel. What can I do local oList,var_Appearance,var_Column,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() var_Appearance = oList.VisualAppearance var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQGhsCYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU8lORLUi+M4zSBPcZVTRtGShPDBKTjMKKYgkG4lVpRNa0PC1GTzQ6mazkKQLRADDIDVbAeL3LiMBy9LyLLItQALByua5mWhbcZyBCOPgBTrRb5zO58FjuTK7YLjMB7NrUNYtFaUMy2OpOCADIaecTNcaWLxPF2MY1HWYxVj2Jw3DuRJonKYBgggSRAlIYw6B0ThGFgPAkFUDAhBMfZRiGNAkFECZnm4YQdneJwqnsSQrGAAhWAIJBJBIQgFCQIBiEIAglgqYo0i4V4MEgRI9gSToYFSb4Fk6Y4+BmBZhFOJgTC8TBogQAArgqco4muCZOkOMJtgmYpIjYKg7GKE4uCUK4AAKKg2DwI4DiCZw5k6KJ2D6D4OHiag4DwIxiiQAArAqMosnEPBPAOIhOg+DozjIJ4PGSY4iEwPAkhKLhHUUSQsnKFCnkYU9MjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDya" ; +"ICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDhQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARViHH4HQOYmxuCpF2MsecEQVBvGQCcIQvA6i2CAAIARAQ=") var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMwwDhEIwjHCEEhsGIbJAGQBJCjWGodQLOEgzNC0IxNFCQILhEZJADKII8TTOU5UPRESwTE4cKBmKhQCo2NpKR7VUTxCKQahLLivoCjBT8EzHMqtIzrCA6MpaP4pQjKcqwHJ8YyHEi0ZrjazKaj6T5AXDUcaWbbNVx3PK3aioOpLZrqOZZYzYFoABTuJzPMSyIhxXD8cweaZvSpLExVYK9BY3PbKMgxC77QgTIpDaQMNS6PjtF43PAALLFUaNYzoOKzABMHATBIXAYJCwIIR5G7ID4BbQcCQAHL9DBaEEIAEEISgGhMGZQmocgymmIRQkIEQ2BcGgbEIRQci8XaMBqTRVgSAZHG+S5pnOep+D6f4vjec5zn0fpfmgBgAH6TRoBYBoAh+eAmAiAgPFgNArgOQpIESdoEmCOAOAqBYfFGAgaEaBgYHYFYFmIB5UiGCJUgKCgmgeYoHk4BgCmKRQiCwApgHgYgyH8B54lQU4NkMeJlBoDgjkiXBTg0R54iYIR+koeQVBoKpkgkChKhEJBkF4SFEjkDgJhFQoeEmDJlBeehUhWJQJGIXoICWOQ6FeFIlhkfhlDsSJpiQVoamaSY2G6G5nAmRhpCOH5pkwVYdmeCZmHqHpnkmdhzhmaAIFiax8AABAEICA==") oList.BackColorHeader = 0x1000000 oList.ForeColorHeader = 0x808080 oList.Template = [Background(0) = 33554432] // oList.Background(0) = 0x2000000 oList.Template = [Background(26) = 16777215] // oList.Background(26) = 0xffffff oList.Template = [Background(27) = 65536] // oList.Background(27) = 0x10000 oList.Template = [Background(20) = 33521664] // oList.Background(20) = 0x1ff8000 oList.Template = [Background(21) = 15790320] // oList.Background(21) = 0xf0f0f0 oList.Template = [Background(32) = -1] // oList.Background(32) = -1 oList.HeaderHeight = 24 oList.BackColorLevelHeader = oList.BackColor var_Column = oList.Columns.Add("Filter") var_Column.DisplayFilterButton = true var_Column.DisplayFilterPattern = false var_Column.FilterList = 9504 /exShowExclude \| exShowFocusItem \| exShowCheckBox \| exSortItemsAsc/ // var_Column.Def(52) = 2 with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.Def(52) = 2] endwith // var_Column.Def(53) = 2 with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.Def(53) = 2] endwith var_Items = oList.Items var_Items.Add("A") var_Items.Add("B") var_Items.Add("C") var_Items.Add("D") oList.EndUpdate()
542	Type of wraps the cell's caption support (Sample 2) local oList,var_Column,var_Column1,var_Column2,var_Columns,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.HeaderSingleLine = false oList.HeaderHeight = 36 oList.DrawGridLines = -1 oList.ColumnAutoResize = false oList.ScrollBySingleLine = true var_Columns = oList.Columns var_Column = var_Columns.Add("Single-Line (exCaptionSingleLine)") var_Column.Width = 96 // var_Column.Def(17) = 1 with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.Def(17) = 1] endwith // var_Column.Def(16) = -1 with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.Def(16) = -1] endwith var_Column1 = var_Columns.Add("Word-Wrap (exCaptionWordWrap)") var_Column1.Width = 96 // var_Column1.Def(17) = 1 with (oList) TemplateDef = [dim var_Column1] TemplateDef = var_Column1 Template = [var_Column1.Def(17) = 1] endwith // var_Column1.Def(16) = 0 with (oList) TemplateDef = [dim var_Column1] TemplateDef = var_Column1 Template = [var_Column1.Def(16) = 0] endwith var_Column1.FormatColumn = "%0" var_Column2 = var_Columns.Add("Break-Wrap (exCaptionBreakWrap)") var_Column2.Width = 96 // var_Column2.Def(17) = 1 with (oList) TemplateDef = [dim var_Column2] TemplateDef = var_Column2 Template = [var_Column2.Def(17) = 1] endwith // var_Column2.Def(16) = 1 with (oList) TemplateDef = [dim var_Column2] TemplateDef = var_Column2 Template = [var_Column2.Def(16) = 1] endwith var_Column2.FormatColumn = "%0" var_Items = oList.Items var_Items.Add("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.") var_Items.Add("This is the <b>first</b> line.\r\nThis is the <b>second</b> line.\r\nThis is the <b>third</b> line.") oList.EndUpdate()
541	Type of wraps the cell's caption support (Sample 1) local h,oList,var_Column,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.DrawGridLines = -1 oList.ColumnAutoResize = false oList.ScrollBySingleLine = true // oList.Columns.Add("Default").Width = 128 var_Column = oList.Columns.Add("Default") with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.Width = 128] endwith var_Items = oList.Items h = var_Items.Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line.") h = var_Items.Add("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.") // var_Items.CaptionFormat(h,0) = 1 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CaptionFormat(h,0) = 1] endwith h = var_Items.Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line.") // var_Items.CellSingleLine(h,0) = 0 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellSingleLine(h,0) = 0] endwith h = var_Items.Add("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.") // var_Items.CaptionFormat(h,0) = 1 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CaptionFormat(h,0) = 1] endwith // var_Items.CellSingleLine(h,0) = 0 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellSingleLine(h,0) = 0] endwith h = var_Items.Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line.") // var_Items.CellSingleLine(h,0) = 1 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellSingleLine(h,0) = 1] endwith h = var_Items.Add("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.") // var_Items.CaptionFormat(h,0) = 1 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CaptionFormat(h,0) = 1] endwith // var_Items.CellSingleLine(h,0) = 1 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellSingleLine(h,0) = 1] endwith oList.EndUpdate()
540	Can I break the cell's caption using the line break <br> or \r\n (Sample 2) local oList,var_Column,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.DrawGridLines = -1 oList.ColumnAutoResize = false oList.ScrollBySingleLine = true // oList.Columns.Add("Default").Width = 128 var_Column = oList.Columns.Add("Default") with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.Width = 128] endwith var_Items = oList.Items // var_Items.CellSingleLine(var_Items.Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0) = 1 with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellSingleLine(Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0) = 1] endwith var_Items.Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line.") oList.EndUpdate()
539	Can I break the cell's caption using the line break <br> or \r\n (Sample 1) local oList,var_Column,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.DrawGridLines = -1 oList.ColumnAutoResize = false oList.ScrollBySingleLine = true var_Column = oList.Columns.Add("Default") var_Column.Width = 128 // var_Column.Def(16) = 1 with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.Def(16) = 1] endwith var_Items = oList.Items var_Items.Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line.") var_Items.Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line.") oList.EndUpdate()
538	How can I change the visual appearance/color of the Filter For ... field local oList,var_Column,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.BackColorHeader = 0x1 oList.ForeColorHeader = 0xffffff oList.Template = [Background(26) = BackColorHeader] // oList.Background(26) = oList.BackColorHeader oList.Template = [Background(27) = ForeColorHeader] // oList.Background(27) = oList.ForeColorHeader oList.Template = [Background(0) = 15790320] // oList.Background(0) = 0xf0f0f0 oList.Template = [Background(32) = -1] // oList.Background(32) = -1 oList.HeaderAppearance = 5 var_Column = oList.Columns.Add("Items") var_Column.FilterOnType = true var_Column.DisplayFilterButton = true var_Column.FilterList = 2 var_Items = oList.Items var_Items.Add("Item 1") var_Items.Add("Item 2") var_Items.Add("Item 3") oList.EndUpdate()
537	How can I display the cell's caption without spaces on both sides local oList,var_Column,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.ColumnAutoResize = true var_Column = oList.Columns.Add("Default") // var_Column.Def(17) = 1 with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.Def(17) = 1] endwith var_Column.FormatColumn = "((trim(value) replace ` ` with ` `) replace ` ` with ` `) replace ` ` with `<bgcolor=FF0000> </bgcolor>`" var_Items = oList.Items var_Items.Add("") var_Items.Add("Item A") var_Items.Add(" Item B") var_Items.Add(" Item C ") oList.EndUpdate()
536	How can I highlight the spaces within the column (sample 2) local oList,var_Column,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.ColumnAutoResize = true var_Column = oList.Columns.Add("Default") // var_Column.Def(17) = 1 with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.Def(17) = 1] endwith var_Column.FormatColumn = "`'` + ( value replace ` ` with `_` ) + `'`" var_Items = oList.Items var_Items.Add("") var_Items.Add("Item A") var_Items.Add(" Item B") var_Items.Add(" Item C ") oList.EndUpdate()
535	How can I highlight the spaces within the column (sample 1) local oList,var_Column,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.ColumnAutoResize = true var_Column = oList.Columns.Add("Default") // var_Column.Def(17) = 1 with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.Def(17) = 1] endwith var_Column.FormatColumn = "len(value) = 0 ? `<bgcolor=FF0000> </bgcolor>` : ( value replace ` ` with `<bgcolor=FF0000> </bgcolor>` )" var_Items = oList.Items var_Items.Add("") var_Items.Add("Item A") var_Items.Add(" Item B") var_Items.Add(" Item C ") oList.EndUpdate()
534	How can I change the visual aspect of the drop down filter-calendar local oList,var_Column oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.Template = [Background(26) = 65536] // oList.Background(26) = 0x10000 oList.Template = [Background(27) = 16777215] // oList.Background(27) = 0xffffff oList.Template = [Background(12) = 16777215] // oList.Background(12) = 0xffffff oList.Template = [Background(8) = Background(26)] // oList.Background(8) = oList.Background(26) oList.Template = [Background(11) = 8421504] // oList.Background(11) = 0x808080 var_Column = oList.Columns.Add("Date") var_Column.FilterType = 4 var_Column.DisplayFilterButton = true var_Column.DisplayFilterDate = true var_Column.DisplayFilterPattern = false oList.EndUpdate()
533	Export Data in HTML format local oList,sFile,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Column6,var_Columns,var_ConditionalFormat,var_ConditionalFormat1,var_ConditionalFormat2,var_ConditionalFormats,var_Items,var_ShellBrowserWindow oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.BackColorAlternate = 0xf0f0f0 oList.DrawGridLines = -1 oList.HeaderAppearance = 4 oList.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oList.Description(11) = Str(oList.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oList.Description(11))) oList.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))" oList.FilterBarPromptVisible = 2579 /exFilterBarCompact \| exFilterBarShowCloseIfRequired \| exFilterBarSingleLine \| exFilterBarVisible \| exFilterBarPromptVisible/ oList.FilterBarPromptType = 2 var_ConditionalFormats = oList.ConditionalFormats // var_ConditionalFormats.Add("%0 like `AA`","aa").BackColor = 0xc0c0c0 var_ConditionalFormat = var_ConditionalFormats.Add("%0 like `AA`","aa") with (oList) TemplateDef = [dim var_ConditionalFormat] TemplateDef = var_ConditionalFormat Template = [var_ConditionalFormat.BackColor = 12632256] endwith var_ConditionalFormat1 = var_ConditionalFormats.Add("%0 like `D`","d") var_ConditionalFormat1.ForeColor = 0x8080ff var_ConditionalFormat1.ApplyTo = 0 var_ConditionalFormat2 = var_ConditionalFormats.Add("%0 like `b`","b") var_ConditionalFormat2.ForeColor = 0xff0000 var_ConditionalFormat2.Bold = true var_ConditionalFormat2.Italic = true var_ConditionalFormat2.ApplyTo = 0 var_Columns = oList.Columns var_Column = var_Columns.Add("Value") var_Column.Width = 128 var_Column.HTMLCaption = "<b>VA</b><r>sko" var_Column1 = var_Columns.Add("APos") var_Column1.FormatColumn = "0 apos ``" var_Column1.AllowSort = false // var_Column1.Def(4) = 15790320 with (oList) TemplateDef = [dim var_Column1] TemplateDef = var_Column1 Template = [var_Column1.Def(4) = 15790320] endwith // var_Column1.Def(5) = 8421504 with (oList) TemplateDef = [dim var_Column1] TemplateDef = var_Column1 Template = [var_Column1.Def(5) = 8421504] endwith // var_Column1.Def(8) = var_Column1.Def(5) with (oList) TemplateDef = [dim var_Column1] TemplateDef = var_Column1 Template = [var_Column1.Def(8) = Def(5)] endwith var_Column1.Position = 0 var_Column2 = var_Columns.Add("RPos") var_Column2.FormatColumn = "0 rpos ``" var_Column2.AllowSort = false var_Column2.Position = 1 var_Column3 = var_Columns.Add("Index") var_Column3.FormatColumn = "0 index ``" var_Column3.DisplayFilterButton = true var_Column3.FilterList = 256 var_Column3.Position = 2 var_Column4 = var_Columns.Add("Data 1") var_Column4.FormatColumn = "0 index `A-Z`" // var_Column4.Def(0) = true with (oList) TemplateDef = [dim var_Column4] TemplateDef = var_Column4 Template = [var_Column4.Def(0) = True] endwith var_Column5 = var_Columns.Add("Data 2") var_Column5.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`" // var_Column5.Def(16) = false with (oList) TemplateDef = [dim var_Column5] TemplateDef = var_Column5 Template = [var_Column5.Def(16) = False] endwith // var_Column5.Def(17) = 1 with (oList) TemplateDef = [dim var_Column5] TemplateDef = var_Column5 Template = [var_Column5.Def(17) = 1] endwith // var_Column5.Def(1) = true with (oList) TemplateDef = [dim var_Column5] TemplateDef = var_Column5 Template = [var_Column5.Def(1) = True] endwith var_Column6 = var_Columns.Add("Data 3") var_Column6.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`" // var_Column6.Def(17) = 1 with (oList) TemplateDef = [dim var_Column6] TemplateDef = var_Column6 Template = [var_Column6.Def(17) = 1] endwith var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") // var_Items.CellState(2,4) = 1 with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellState(2,4) = 1] endwith var_Items.Add("Item AA") var_Items.Add("Item BB") var_Items.Add("Item CC") // var_Items.CellState(5,5) = 1 with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellState(5,5) = 1] endwith var_Items.Add("Item D") var_Items.Add("Item EE") var_Items.Add("Item FFF") oList.EndUpdate() sFile = "c:/temp/export.html" oList.Export(sFile,"vis") var_ShellBrowserWindow = new OleAutoClient("InternetExplorer.Application") var_ShellBrowserWindow.Navigate2(sFile)
532	Export Data in CSV format local oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Column6,var_Columns,var_ConditionalFormat,var_ConditionalFormat1,var_ConditionalFormat2,var_ConditionalFormats,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.BackColorAlternate = 0xf0f0f0 oList.DrawGridLines = -1 oList.HeaderAppearance = 4 oList.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oList.Description(11) = Str(oList.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oList.Description(11))) oList.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))" oList.FilterBarPromptVisible = 2579 /exFilterBarCompact \| exFilterBarShowCloseIfRequired \| exFilterBarSingleLine \| exFilterBarVisible \| exFilterBarPromptVisible/ oList.FilterBarPromptType = 2 var_ConditionalFormats = oList.ConditionalFormats // var_ConditionalFormats.Add("%0 like `AA`","aa").BackColor = 0xc0c0c0 var_ConditionalFormat = var_ConditionalFormats.Add("%0 like `AA`","aa") with (oList) TemplateDef = [dim var_ConditionalFormat] TemplateDef = var_ConditionalFormat Template = [var_ConditionalFormat.BackColor = 12632256] endwith var_ConditionalFormat1 = var_ConditionalFormats.Add("%0 like `D`","d") var_ConditionalFormat1.ForeColor = 0x8080ff var_ConditionalFormat1.ApplyTo = 0 var_ConditionalFormat2 = var_ConditionalFormats.Add("%0 like `b`","b") var_ConditionalFormat2.ForeColor = 0xff0000 var_ConditionalFormat2.Bold = true var_ConditionalFormat2.Italic = true var_ConditionalFormat2.ApplyTo = 0 var_Columns = oList.Columns var_Column = var_Columns.Add("Value") var_Column.Width = 128 var_Column.HTMLCaption = "<b>VA</b><r>sko" var_Column1 = var_Columns.Add("APos") var_Column1.FormatColumn = "0 apos ``" var_Column1.AllowSort = false // var_Column1.Def(4) = 15790320 with (oList) TemplateDef = [dim var_Column1] TemplateDef = var_Column1 Template = [var_Column1.Def(4) = 15790320] endwith // var_Column1.Def(5) = 8421504 with (oList) TemplateDef = [dim var_Column1] TemplateDef = var_Column1 Template = [var_Column1.Def(5) = 8421504] endwith // var_Column1.Def(8) = var_Column1.Def(5) with (oList) TemplateDef = [dim var_Column1] TemplateDef = var_Column1 Template = [var_Column1.Def(8) = Def(5)] endwith var_Column1.Position = 0 var_Column2 = var_Columns.Add("RPos") var_Column2.FormatColumn = "0 rpos ``" var_Column2.AllowSort = false var_Column2.Position = 1 var_Column3 = var_Columns.Add("Index") var_Column3.FormatColumn = "0 index ``" var_Column3.DisplayFilterButton = true var_Column3.FilterList = 256 var_Column3.Position = 2 var_Column4 = var_Columns.Add("Data 1") var_Column4.FormatColumn = "0 index `A-Z`" // var_Column4.Def(0) = true with (oList) TemplateDef = [dim var_Column4] TemplateDef = var_Column4 Template = [var_Column4.Def(0) = True] endwith var_Column5 = var_Columns.Add("Data 2") var_Column5.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`" // var_Column5.Def(16) = false with (oList) TemplateDef = [dim var_Column5] TemplateDef = var_Column5 Template = [var_Column5.Def(16) = False] endwith // var_Column5.Def(17) = 1 with (oList) TemplateDef = [dim var_Column5] TemplateDef = var_Column5 Template = [var_Column5.Def(17) = 1] endwith // var_Column5.Def(1) = true with (oList) TemplateDef = [dim var_Column5] TemplateDef = var_Column5 Template = [var_Column5.Def(1) = True] endwith var_Column6 = var_Columns.Add("Data 3") var_Column6.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`" // var_Column6.Def(17) = 1 with (oList) TemplateDef = [dim var_Column6] TemplateDef = var_Column6 Template = [var_Column6.Def(17) = 1] endwith var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") // var_Items.CellState(2,4) = 1 with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellState(2,4) = 1] endwith var_Items.Add("Item AA") var_Items.Add("Item BB") var_Items.Add("Item CC") // var_Items.CellState(5,5) = 1 with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellState(5,5) = 1] endwith var_Items.Add("Item D") var_Items.Add("Item EE") var_Items.Add("Item FFF") oList.EndUpdate() ? Str(oList.Export("","vis"))
531	How can I get the icon from the cell when using the Items.CellImages property (icon index) /* with (this.EXLISTACTIVEXCONTROL1.nativeObject) MouseMove = class::nativeObject_MouseMove endwith / // Occurs when the user moves the mouse.* function nativeObject_MouseMove(Button,Shift,X,Y) local i oList = form.EXLISTACTIVEXCONTROL1.nativeObject i = oList.ItemFromPoint(-1,-1,c,hit) ? Str(oList.FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? ( ( (value bitand 0xFFFF0000) bitshift 16 ) array B split `,` ) : `no image`",hit,oList.Items.CellImages(i,c))) return local oList,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") oList.Columns.Add("Default") var_Items = oList.Items // var_Items.CellImages(var_Items.Add("Item 1"),0) = "3,2,1" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellImages(Add("Item 1"),0) = "3,2,1"] endwith // var_Items.CellImages(var_Items.Add("Item 2"),0) = "2,3" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellImages(Add("Item 2"),0) = "2,3"] endwith // var_Items.CellImages(var_Items.Add("Item 3"),0) = "2," with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellImages(Add("Item 3"),0) = "2,"] endwith oList.EndUpdate()
530	How can I get the icon from the cell when using the Items.CellImages property (icon position within the cell) /* with (this.EXLISTACTIVEXCONTROL1.nativeObject) MouseMove = class::nativeObject_MouseMove endwith / // Occurs when the user moves the mouse.* function nativeObject_MouseMove(Button,Shift,X,Y) local i oList = form.EXLISTACTIVEXCONTROL1.nativeObject i = oList.ItemFromPoint(-1,-1,c,hit) ? Str(oList.FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit)) return local oList,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") oList.Columns.Add("Default") var_Items = oList.Items // var_Items.CellImages(var_Items.Add("Item 1"),0) = "3,2,1" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellImages(Add("Item 1"),0) = "3,2,1"] endwith // var_Items.CellImages(var_Items.Add("Item 2"),0) = "2,3" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellImages(Add("Item 2"),0) = "2,3"] endwith // var_Items.CellImages(var_Items.Add("Item 3"),0) = "2" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellImages(Add("Item 3"),0) = "2"] endwith oList.EndUpdate()
529	How can I get the index of icon from the cell, if using the CellImages property /* with (this.EXLISTACTIVEXCONTROL1.nativeObject) MouseMove = class::nativeObject_MouseMove endwith / // Occurs when the user moves the mouse.* function nativeObject_MouseMove(Button,Shift,X,Y) local i oList = form.EXLISTACTIVEXCONTROL1.nativeObject i = oList.ItemFromPoint(-1,-1,c,hit) ? Str(oList.FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit)) return local oList,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") oList.Columns.Add("Default") var_Items = oList.Items // var_Items.CellImages(var_Items.Add("Item 1"),0) = "1,2,3" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellImages(Add("Item 1"),0) = "1,2,3"] endwith // var_Items.CellImages(var_Items.Add("Item 2"),0) = "2,3,1" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellImages(Add("Item 2"),0) = "2,3,1"] endwith // var_Items.CellImages(var_Items.Add("Item 3"),0) = "3,2,1" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellImages(Add("Item 3"),0) = "3,2,1"] endwith oList.EndUpdate()
528	Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop local oList,var_Appearance,var_Columns oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.HeaderAppearance = 4 var_Columns = oList.Columns var_Columns.Add("Column 1") var_Columns.Add("Column 2") var_Columns.Add("Column 3") var_Appearance = oList.VisualAppearance var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVIUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBeEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIBICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokGKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=") var_Appearance.Add(2,"CP:1 0 -36 0 0") oList.Template = [Background(182) = 33554432] // oList.Background(182) = 0x2000000 oList.EndUpdate()
527	A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do local oList,var_Column,var_Column1,var_ConditionalFormat,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.ColumnAutoResize = true oList.DefaultItemHeight = 20 oList.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1mY1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2hhWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQRJSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA==") // oList.Columns.Add("Default").Def(0) = true var_Column = oList.Columns.Add("Default") with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.Def(0) = True] endwith var_Column1 = oList.Columns.Add("Position") var_Column1.FormatColumn = "1 rindex ``" var_Column1.Visible = false var_ConditionalFormat = oList.ConditionalFormats.Add("%C1 mod 2") var_ConditionalFormat.BackColor = 0x1000000 var_Items = oList.Items var_Items.Add("Item 1") var_Items.Add("Item 2") var_Items.Add("Item 3") var_Items.Add("Item 4") oList.EndUpdate()
526	Is it possible to change the caption from a column without to remove the column and add it with the new caption local oList,var_Column,var_Column1 oList = form.EXLISTACTIVEXCONTROL1.nativeObject // oList.Columns.Add("ColumnName").Caption = "NewName" var_Column = oList.Columns.Add("ColumnName") with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.Caption = "NewName"] endwith // oList.Columns.Add("ColumnName").HTMLCaption = "<b>New</b>Name" var_Column1 = oList.Columns.Add("ColumnName") with (oList) TemplateDef = [dim var_Column1] TemplateDef = var_Column1 Template = [var_Column1.HTMLCaption = "<b>New</b>Name"] endwith
525	FilterBarCaption ALL Keyword ( sample 2, result ) /* with (this.EXLISTACTIVEXCONTROL1.nativeObject) AddItem = class::nativeObject_AddItem endwith / // Occurs after a new Item is inserted to Items collection.* function nativeObject_AddItem(Item) /* i = FormatABC("value + 1", Items.ItemToIndex(Item)) / local var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject // oList.Items.CellImage(Item,3) = i* var_Items = oList.Items with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellImage(Item,3) = i] endwith return local h,oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") var_Column = oList.Columns.Add("Col-1") var_Column.DisplayFilterButton = true var_Column.FilterList = 9504 /exShowExclude \| exShowFocusItem \| exShowCheckBox \| exSortItemsAsc/ var_Column1 = oList.Columns.Add("Col-2") var_Column1.DisplayFilterButton = true var_Column1.FilterList = 9504 /exShowExclude \| exShowFocusItem \| exShowCheckBox \| exSortItemsAsc/ var_Column2 = oList.Columns.Add("Check") // var_Column2.Def(0) = true with (oList) TemplateDef = [dim var_Column2] TemplateDef = var_Column2 Template = [var_Column2.Def(0) = True] endwith var_Column2.DisplayFilterButton = true var_Column2.DisplayFilterPattern = false var_Column2.FilterType = 6 var_Column3 = oList.Columns.Add("Image") var_Column3.DisplayFilterButton = true var_Column3.FilterType = 10 var_Column3.FilterList = 9472 /exShowExclude \| exShowFocusItem \| exShowCheckBox/ var_Column4 = oList.Columns.Add("Pos") var_Column4.AllowSizing = false var_Column4.AllowSort = false var_Column4.Width = 32 var_Column4.FormatColumn = "1 apos ``" var_Column4.Position = 0 var_Items = oList.Items // var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("Item A"),1) = "Sub-Item A"] endwith h = var_Items.Add("Item B") // var_Items.Caption(h,1) = "Sub-Item B" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.Caption(h,1) = "Sub-Item B"] endwith // var_Items.CellState(h,2) = 1 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellState(h,2) = 1] endwith // var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("Item C"),1) = "Sub-Item C"] endwith oList.FilterBarFont = oList.Font oList.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oList.Description(11) = Str(oList.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oList.Description(11))) oList.FilterBarCaption = "(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))" oList.FilterBarPromptVisible = 3 /exFilterBarVisible \| exFilterBarPromptVisible/ var_Column5 = oList.Columns.Item(0) var_Column5.FilterType = 240 var_Column5.Filter = "Item A\|Item B" oList.Columns.Item(2).Filter = Str(1) oList.ApplyFilter() oList.EndUpdate()
524	FilterBarCaption ALL Keyword ( sample 1 ) /* with (this.EXLISTACTIVEXCONTROL1.nativeObject) AddItem = class::nativeObject_AddItem endwith / // Occurs after a new Item is inserted to Items collection.* function nativeObject_AddItem(Item) /* i = FormatABC("value + 1", Items.ItemToIndex(Item)) / local var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject // oList.Items.CellImage(Item,3) = i* var_Items = oList.Items with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellImage(Item,3) = i] endwith return local h,oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") var_Column = oList.Columns.Add("Col-1") var_Column.DisplayFilterButton = true var_Column.FilterList = 9504 /exShowExclude \| exShowFocusItem \| exShowCheckBox \| exSortItemsAsc/ var_Column1 = oList.Columns.Add("Col-2") var_Column1.DisplayFilterButton = true var_Column1.FilterList = 9504 /exShowExclude \| exShowFocusItem \| exShowCheckBox \| exSortItemsAsc/ var_Column2 = oList.Columns.Add("Check") // var_Column2.Def(0) = true with (oList) TemplateDef = [dim var_Column2] TemplateDef = var_Column2 Template = [var_Column2.Def(0) = True] endwith var_Column2.DisplayFilterButton = true var_Column2.DisplayFilterPattern = false var_Column2.FilterType = 6 var_Column3 = oList.Columns.Add("Image") var_Column3.DisplayFilterButton = true var_Column3.FilterType = 10 var_Column3.FilterList = 9472 /exShowExclude \| exShowFocusItem \| exShowCheckBox/ var_Column4 = oList.Columns.Add("Pos") var_Column4.AllowSizing = false var_Column4.AllowSort = false var_Column4.Width = 32 var_Column4.FormatColumn = "1 apos ``" var_Column4.Position = 0 var_Items = oList.Items // var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("Item A"),1) = "Sub-Item A"] endwith h = var_Items.Add("Item B") // var_Items.Caption(h,1) = "Sub-Item B" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.Caption(h,1) = "Sub-Item B"] endwith // var_Items.CellState(h,2) = 1 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellState(h,2) = 1] endwith // var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("Item C"),1) = "Sub-Item C"] endwith oList.FilterBarFont = oList.Font oList.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oList.Description(11) = Str(oList.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oList.Description(11))) oList.FilterBarCaption = "all" oList.FilterBarPromptVisible = 3 /exFilterBarVisible \| exFilterBarPromptVisible/ var_Column5 = oList.Columns.Item(0) var_Column5.FilterType = 240 var_Column5.Filter = "Item A\|Item B" oList.Columns.Item(2).Filter = Str(1) oList.ApplyFilter() oList.EndUpdate()
523	FilterBarCaption ALLUI Keyword ( sample 2, result ) /* with (this.EXLISTACTIVEXCONTROL1.nativeObject) AddItem = class::nativeObject_AddItem endwith / // Occurs after a new Item is inserted to Items collection.* function nativeObject_AddItem(Item) /* i = FormatABC("value + 1", Items.ItemToIndex(Item)) / local var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject // oList.Items.CellImage(Item,3) = i* var_Items = oList.Items with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellImage(Item,3) = i] endwith return local h,oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") var_Column = oList.Columns.Add("Col-1") var_Column.DisplayFilterButton = true var_Column.FilterList = 9504 /exShowExclude \| exShowFocusItem \| exShowCheckBox \| exSortItemsAsc/ var_Column1 = oList.Columns.Add("Col-2") var_Column1.DisplayFilterButton = true var_Column1.FilterList = 9504 /exShowExclude \| exShowFocusItem \| exShowCheckBox \| exSortItemsAsc/ var_Column2 = oList.Columns.Add("Check") // var_Column2.Def(0) = true with (oList) TemplateDef = [dim var_Column2] TemplateDef = var_Column2 Template = [var_Column2.Def(0) = True] endwith var_Column2.DisplayFilterButton = true var_Column2.DisplayFilterPattern = false var_Column2.FilterType = 6 var_Column3 = oList.Columns.Add("Image") var_Column3.DisplayFilterButton = true var_Column3.FilterType = 10 var_Column3.FilterList = 9472 /exShowExclude \| exShowFocusItem \| exShowCheckBox/ var_Column4 = oList.Columns.Add("Pos") var_Column4.AllowSizing = false var_Column4.AllowSort = false var_Column4.Width = 32 var_Column4.FormatColumn = "1 apos ``" var_Column4.Position = 0 var_Items = oList.Items // var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("Item A"),1) = "Sub-Item A"] endwith h = var_Items.Add("Item B") // var_Items.Caption(h,1) = "Sub-Item B" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.Caption(h,1) = "Sub-Item B"] endwith // var_Items.CellState(h,2) = 1 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellState(h,2) = 1] endwith // var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("Item C"),1) = "Sub-Item C"] endwith oList.FilterBarFont = oList.Font oList.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oList.Description(11) = Str(oList.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oList.Description(11))) oList.FilterBarCaption = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))" oList.FilterBarPromptVisible = 3 /exFilterBarVisible \| exFilterBarPromptVisible/ var_Column5 = oList.Columns.Item(0) var_Column5.FilterType = 240 var_Column5.Filter = "Item A\|Item B" oList.Columns.Item(2).Filter = Str(1) oList.ApplyFilter() oList.EndUpdate()
522	FilterBarCaption ALLUI Keyword ( sample 1 ) /* with (this.EXLISTACTIVEXCONTROL1.nativeObject) AddItem = class::nativeObject_AddItem endwith / // Occurs after a new Item is inserted to Items collection.* function nativeObject_AddItem(Item) /* i = FormatABC("value + 1", Items.ItemToIndex(Item)) / local var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject // oList.Items.CellImage(Item,3) = i* var_Items = oList.Items with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellImage(Item,3) = i] endwith return local h,oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") var_Column = oList.Columns.Add("Col-1") var_Column.DisplayFilterButton = true var_Column.FilterList = 9504 /exShowExclude \| exShowFocusItem \| exShowCheckBox \| exSortItemsAsc/ var_Column1 = oList.Columns.Add("Col-2") var_Column1.DisplayFilterButton = true var_Column1.FilterList = 9504 /exShowExclude \| exShowFocusItem \| exShowCheckBox \| exSortItemsAsc/ var_Column2 = oList.Columns.Add("Check") // var_Column2.Def(0) = true with (oList) TemplateDef = [dim var_Column2] TemplateDef = var_Column2 Template = [var_Column2.Def(0) = True] endwith var_Column2.DisplayFilterButton = true var_Column2.DisplayFilterPattern = false var_Column2.FilterType = 6 var_Column3 = oList.Columns.Add("Image") var_Column3.DisplayFilterButton = true var_Column3.FilterType = 10 var_Column3.FilterList = 9472 /exShowExclude \| exShowFocusItem \| exShowCheckBox/ var_Column4 = oList.Columns.Add("Pos") var_Column4.AllowSizing = false var_Column4.AllowSort = false var_Column4.Width = 32 var_Column4.FormatColumn = "1 apos ``" var_Column4.Position = 0 var_Items = oList.Items // var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("Item A"),1) = "Sub-Item A"] endwith h = var_Items.Add("Item B") // var_Items.Caption(h,1) = "Sub-Item B" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.Caption(h,1) = "Sub-Item B"] endwith // var_Items.CellState(h,2) = 1 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellState(h,2) = 1] endwith // var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("Item C"),1) = "Sub-Item C"] endwith oList.FilterBarFont = oList.Font oList.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oList.Description(11) = Str(oList.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oList.Description(11))) oList.FilterBarCaption = "allui" oList.FilterBarPromptVisible = 3 /exFilterBarVisible \| exFilterBarPromptVisible/ var_Column5 = oList.Columns.Item(0) var_Column5.FilterType = 240 var_Column5.Filter = "Item A\|Item B" oList.Columns.Item(2).Filter = Str(1) oList.ApplyFilter() oList.EndUpdate()
521	FilterBarCaption AVAILABLE Keyword ( sample 2, result ) /* with (this.EXLISTACTIVEXCONTROL1.nativeObject) AddItem = class::nativeObject_AddItem endwith / // Occurs after a new Item is inserted to Items collection.* function nativeObject_AddItem(Item) /* i = FormatABC("value + 1", Items.ItemToIndex(Item)) / local var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject // oList.Items.CellImage(Item,3) = i* var_Items = oList.Items with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellImage(Item,3) = i] endwith return local h,oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") var_Column = oList.Columns.Add("Col-1") var_Column.DisplayFilterButton = true var_Column.FilterList = 9504 /exShowExclude \| exShowFocusItem \| exShowCheckBox \| exSortItemsAsc/ var_Column1 = oList.Columns.Add("Col-2") var_Column1.DisplayFilterButton = true var_Column1.FilterList = 9504 /exShowExclude \| exShowFocusItem \| exShowCheckBox \| exSortItemsAsc/ var_Column2 = oList.Columns.Add("Check") // var_Column2.Def(0) = true with (oList) TemplateDef = [dim var_Column2] TemplateDef = var_Column2 Template = [var_Column2.Def(0) = True] endwith var_Column2.DisplayFilterButton = true var_Column2.DisplayFilterPattern = false var_Column2.FilterType = 6 var_Column3 = oList.Columns.Add("Image") var_Column3.DisplayFilterButton = true var_Column3.FilterType = 10 var_Column3.FilterList = 9472 /exShowExclude \| exShowFocusItem \| exShowCheckBox/ var_Column4 = oList.Columns.Add("Pos") var_Column4.AllowSizing = false var_Column4.AllowSort = false var_Column4.Width = 32 var_Column4.FormatColumn = "1 apos ``" var_Column4.Position = 0 var_Items = oList.Items // var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("Item A"),1) = "Sub-Item A"] endwith h = var_Items.Add("Item B") // var_Items.Caption(h,1) = "Sub-Item B" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.Caption(h,1) = "Sub-Item B"] endwith // var_Items.CellState(h,2) = 1 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellState(h,2) = 1] endwith // var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("Item C"),1) = "Sub-Item C"] endwith oList.FilterBarFont = oList.Font oList.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oList.Description(11) = Str(oList.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oList.Description(11))) oList.FilterBarCaption = "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( available replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))" oList.FilterBarPromptVisible = 3 /exFilterBarVisible \| exFilterBarPromptVisible/ var_Column5 = oList.Columns.Item(0) var_Column5.FilterType = 240 var_Column5.Filter = "Item A\|Item B" oList.Columns.Item(2).Filter = Str(1) oList.ApplyFilter() oList.EndUpdate()
520	FilterBarCaption AVAILABLE Keyword ( sample 1 ) /* with (this.EXLISTACTIVEXCONTROL1.nativeObject) AddItem = class::nativeObject_AddItem endwith / // Occurs after a new Item is inserted to Items collection.* function nativeObject_AddItem(Item) /* i = FormatABC("value + 1", Items.ItemToIndex(Item)) / local var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject // oList.Items.CellImage(Item,3) = i* var_Items = oList.Items with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.CellImage(Item,3) = i] endwith return local h,oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") var_Column = oList.Columns.Add("Col-1") var_Column.DisplayFilterButton = true var_Column.FilterList = 9504 /exShowExclude \| exShowFocusItem \| exShowCheckBox \| exSortItemsAsc/ var_Column1 = oList.Columns.Add("Col-2") var_Column1.DisplayFilterButton = true var_Column1.FilterList = 9504 /exShowExclude \| exShowFocusItem \| exShowCheckBox \| exSortItemsAsc/ var_Column2 = oList.Columns.Add("Check") // var_Column2.Def(0) = true with (oList) TemplateDef = [dim var_Column2] TemplateDef = var_Column2 Template = [var_Column2.Def(0) = True] endwith var_Column2.DisplayFilterButton = true var_Column2.DisplayFilterPattern = false var_Column2.FilterType = 6 var_Column3 = oList.Columns.Add("Image") var_Column3.DisplayFilterButton = true var_Column3.FilterType = 10 var_Column3.FilterList = 9472 /exShowExclude \| exShowFocusItem \| exShowCheckBox/ var_Column4 = oList.Columns.Add("Pos") var_Column4.AllowSizing = false var_Column4.AllowSort = false var_Column4.Width = 32 var_Column4.FormatColumn = "1 apos ``" var_Column4.Position = 0 var_Items = oList.Items // var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("Item A"),1) = "Sub-Item A"] endwith h = var_Items.Add("Item B") // var_Items.Caption(h,1) = "Sub-Item B" with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.Caption(h,1) = "Sub-Item B"] endwith // var_Items.CellState(h,2) = 1 with (oList) TemplateDef = [dim var_Items,h] TemplateDef = var_Items TemplateDef = h Template = [var_Items.CellState(h,2) = 1] endwith // var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("Item C"),1) = "Sub-Item C"] endwith oList.FilterBarFont = oList.Font oList.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oList.Description(11) = Str(oList.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oList.Description(11))) oList.FilterBarCaption = "value + ` ` + available" oList.FilterBarPromptVisible = 3 /exFilterBarVisible \| exFilterBarPromptVisible/ var_Column5 = oList.Columns.Item(0) var_Column5.FilterType = 240 var_Column5.Filter = "Item A\|Item B" oList.Columns.Item(2).Filter = Str(1) oList.ApplyFilter() oList.EndUpdate()
519	Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 3, results ) local oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() var_Column = oList.Columns.Add("Col-1") var_Column.DisplayFilterButton = true var_Column.FilterList = 9504 /exShowExclude \| exShowFocusItem \| exShowCheckBox \| exSortItemsAsc/ var_Column1 = oList.Columns.Add("Col-2") var_Column1.DisplayFilterButton = true var_Column1.FilterList = 9504 /exShowExclude \| exShowFocusItem \| exShowCheckBox \| exSortItemsAsc/ var_Column2 = oList.Columns.Add("Pos") var_Column2.AllowSizing = false var_Column2.AllowSort = false var_Column2.Width = 32 var_Column2.FormatColumn = "1 apos ``" var_Column2.Position = 0 var_Items = oList.Items // var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("Item A"),1) = "Sub-Item A"] endwith // var_Items.Caption(var_Items.Add("Item B"),1) = "Sub-Item B" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("Item B"),1) = "Sub-Item B"] endwith // var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("Item C"),1) = "Sub-Item C"] endwith oList.FilterBarFont = oList.Font oList.Template = [Description(11) = FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",Description(11))] // oList.Description(11) = Str(oList.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oList.Description(11))) oList.FilterBarCaption = "(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`" oList.FilterBarPromptVisible = 256 var_Column3 = oList.Columns.Item(0) var_Column3.FilterType = 240 var_Column3.Filter = "Item A\|Item B" var_Column4 = oList.Columns.Item(1) var_Column4.FilterType = 3 var_Column4.Filter = "*B" oList.ApplyFilter() oList.EndUpdate()
518	Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 ) local oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() var_Column = oList.Columns.Add("Col-1") var_Column.DisplayFilterButton = true var_Column.FilterList = 9504 /exShowExclude \| exShowFocusItem \| exShowCheckBox \| exSortItemsAsc/ var_Column1 = oList.Columns.Add("Col-2") var_Column1.DisplayFilterButton = true var_Column1.FilterList = 9504 /exShowExclude \| exShowFocusItem \| exShowCheckBox \| exSortItemsAsc/ var_Column2 = oList.Columns.Add("Pos") var_Column2.AllowSizing = false var_Column2.AllowSort = false var_Column2.Width = 32 var_Column2.FormatColumn = "1 apos ``" var_Column2.Position = 0 var_Items = oList.Items // var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("Item A"),1) = "Sub-Item A"] endwith // var_Items.Caption(var_Items.Add("Item B"),1) = "Sub-Item B" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("Item B"),1) = "Sub-Item B"] endwith // var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("Item C"),1) = "Sub-Item C"] endwith oList.FilterBarFont = oList.Font oList.Template = [Description(11) = FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",Description(11))] // oList.Description(11) = Str(oList.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oList.Description(11))) oList.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`" oList.FilterBarPromptVisible = 256 var_Column3 = oList.Columns.Item(0) var_Column3.FilterType = 240 var_Column3.Filter = "Item A\|Item B" var_Column4 = oList.Columns.Item(1) var_Column4.FilterType = 3 var_Column4.Filter = "*B" oList.ApplyFilter() oList.EndUpdate()
517	Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 ) local oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() var_Column = oList.Columns.Add("Col-1") var_Column.DisplayFilterButton = true var_Column.FilterList = 9504 /exShowExclude \| exShowFocusItem \| exShowCheckBox \| exSortItemsAsc/ var_Column1 = oList.Columns.Add("Col-2") var_Column1.DisplayFilterButton = true var_Column1.FilterList = 9504 /exShowExclude \| exShowFocusItem \| exShowCheckBox \| exSortItemsAsc/ var_Column2 = oList.Columns.Add("Pos") var_Column2.AllowSizing = false var_Column2.AllowSort = false var_Column2.Width = 32 var_Column2.FormatColumn = "1 apos ``" var_Column2.Position = 0 var_Items = oList.Items // var_Items.Caption(var_Items.Add("Item A"),1) = "Sub-Item A" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("Item A"),1) = "Sub-Item A"] endwith // var_Items.Caption(var_Items.Add("Item B"),1) = "Sub-Item B" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("Item B"),1) = "Sub-Item B"] endwith // var_Items.Caption(var_Items.Add("Item C"),1) = "Sub-Item C" with (oList) TemplateDef = [dim var_Items] TemplateDef = var_Items Template = [var_Items.Caption(Add("Item C"),1) = "Sub-Item C"] endwith oList.Template = [Description(11) = FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",Description(11))] // oList.Description(11) = Str(oList.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oList.Description(11))) oList.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`" oList.FilterBarPromptVisible = 256 var_Column3 = oList.Columns.Item(0) var_Column3.FilterType = 240 var_Column3.Filter = "Item A\|Item B" var_Column4 = oList.Columns.Item(1) var_Column4.FilterType = 3 var_Column4.Filter = "*B" oList.ApplyFilter() oList.EndUpdate()
516	Is it possible to automatically displays the control's filter label to the right local oList,var_Column,var_Column1,var_Column2,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() var_Column = oList.Columns.Add("Item") var_Column.DisplayFilterButton = true var_Column.FilterList = 9504 /exShowExclude \| exShowFocusItem \| exShowCheckBox \| exSortItemsAsc/ var_Column1 = oList.Columns.Add("Pos") var_Column1.AllowSizing = false var_Column1.AllowSort = false var_Column1.Width = 32 var_Column1.FormatColumn = "1 apos ``" var_Column1.Position = 0 var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") oList.FilterBarCaption = "`<r>` + value" oList.FilterBarPromptVisible = 1280 /exFilterBarShowCloseOnRight \| exFilterBarToggle/ var_Column2 = oList.Columns.Item(0) var_Column2.FilterType = 240 var_Column2.Filter = "Item B" oList.ApplyFilter() oList.EndUpdate()
515	How can I get the number of results/items being shown in the control's filter bar (sample 4) local oList,var_Column,var_Column1,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() var_Column = oList.Columns.Add("Item") var_Column.DisplayFilterButton = true var_Column.FilterList = 9504 /exShowExclude \| exShowFocusItem \| exShowCheckBox \| exSortItemsAsc/ var_Column1 = oList.Columns.Add("Pos") var_Column1.AllowSizing = false var_Column1.AllowSort = false var_Column1.Width = 32 var_Column1.FormatColumn = "1 apos ``" var_Column1.Position = 0 var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") oList.FilterBarFont = oList.Font oList.FilterBarPrompt = Str(oList.FormatABC("`<b>` + value",oList.FilterBarPrompt)) oList.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )" oList.FilterBarPromptVisible = 3591 /exFilterBarCompact \| exFilterBarShowCloseOnRight \| exFilterBarShowCloseIfRequired \| exFilterBarCaptionVisible \| exFilterBarVisible \| exFilterBarPromptVisible/ oList.EndUpdate()
514	How can I get the number of results being shown in the control's filter bar (sample 3) local oList,var_Column,var_Column1,var_Column2,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() // oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Item") with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.DisplayFilterButton = True] endwith var_Column1 = oList.Columns.Add("Pos") var_Column1.AllowSizing = false var_Column1.AllowSort = false var_Column1.Width = 32 var_Column1.FormatColumn = "1 apos ``" var_Column1.Position = 0 var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") oList.FilterBarFont = oList.Font oList.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : ``)" oList.FilterBarPromptVisible = 2055 /exFilterBarCompact \| exFilterBarCaptionVisible \| exFilterBarVisible \| exFilterBarPromptVisible/ var_Column2 = oList.Columns.Item(0) var_Column2.FilterType = 240 var_Column2.Filter = "Item A\|Item B" oList.ApplyFilter() oList.EndUpdate()
513	How can I get the number of results being shown in the control's filter bar (sample 2, compact) local oList,var_Column,var_Column1,var_Column2,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() // oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Item") with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.DisplayFilterButton = True] endwith var_Column1 = oList.Columns.Add("Pos") var_Column1.AllowSizing = false var_Column1.AllowSort = false var_Column1.Width = 32 var_Column1.FormatColumn = "1 apos ``" var_Column1.Position = 0 var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") oList.FilterBarFont = oList.Font oList.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)" oList.FilterBarPromptVisible = 2071 /exFilterBarCompact \| exFilterBarSingleLine \| exFilterBarCaptionVisible \| exFilterBarVisible \| exFilterBarPromptVisible/ var_Column2 = oList.Columns.Item(0) var_Column2.FilterType = 240 var_Column2.Filter = "Item A\|Item B" oList.ApplyFilter() oList.EndUpdate()
512	How can I get the number of results being shown in the control's filter bar (sample 1) local oList,var_Column,var_Column1,var_Column2,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() // oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Item") with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.DisplayFilterButton = True] endwith var_Column1 = oList.Columns.Add("Pos") var_Column1.AllowSizing = false var_Column1.AllowSort = false var_Column1.Width = 32 var_Column1.FormatColumn = "1 apos ``" var_Column1.Position = 0 var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") oList.FilterBarFont = oList.Font oList.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)" oList.FilterBarPromptVisible = 7 /exFilterBarCaptionVisible \| exFilterBarVisible \| exFilterBarPromptVisible/ var_Column2 = oList.Columns.Item(0) var_Column2.FilterType = 240 var_Column2.Filter = "Item A\|Item B" oList.ApplyFilter() oList.EndUpdate()
511	FilterBarCaption Predefined Keywords local oList,var_Column,var_Column1,var_Column2,var_Column3,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() // oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Item") with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.DisplayFilterButton = True] endwith var_Column1 = oList.Columns.Add("Check") // var_Column1.Def(0) = true with (oList) TemplateDef = [dim var_Column1] TemplateDef = var_Column1 Template = [var_Column1.Def(0) = True] endwith var_Column1.DisplayFilterButton = true var_Column1.DisplayFilterPattern = false var_Column1.FilterType = 6 var_Column2 = oList.Columns.Add("Pos") var_Column2.AllowSizing = false var_Column2.AllowSort = false var_Column2.Width = 32 var_Column2.FormatColumn = "1 apos ``" var_Column2.Position = 0 var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") oList.FilterBarFont = oList.Font oList.FilterBarCaption = "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>: ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=808080>` + promptpattern + `</fgcolor>`" oList.FilterBarPromptPattern = "B" oList.FilterBarPromptVisible = 7 /exFilterBarCaptionVisible \| exFilterBarVisible \| exFilterBarPromptVisible/ var_Column3 = oList.Columns.Item(0) var_Column3.FilterType = 240 var_Column3.Filter = "Item A\|Item B" oList.ApplyFilter() oList.EndUpdate()
510	I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines local oList,var_Column,var_Column1,var_Column2,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() // oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Item") with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.DisplayFilterButton = True] endwith var_Column1 = oList.Columns.Add("Pos") var_Column1.AllowSizing = false var_Column1.AllowSort = false var_Column1.Width = 32 var_Column1.FormatColumn = "1 apos ``" var_Column1.Position = 0 var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") oList.FilterBarFont = oList.Font oList.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value" oList.FilterBarPromptPattern = "B" oList.FilterBarPromptVisible = 2067 /exFilterBarCompact \| exFilterBarSingleLine \| exFilterBarVisible \| exFilterBarPromptVisible/ var_Column2 = oList.Columns.Item(0) var_Column2.FilterType = 240 var_Column2.Filter = "Item A\|Item B" oList.ApplyFilter() oList.EndUpdate()
509	Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 ) local oList,var_Column,var_Column1,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() // oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Item") with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.DisplayFilterButton = True] endwith var_Column1 = oList.Columns.Add("Pos") var_Column1.AllowSizing = false var_Column1.AllowSort = false var_Column1.Width = 32 var_Column1.FormatColumn = "1 apos ``" var_Column1.Position = 0 var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") oList.FilterBarPromptVisible = 1281 /exFilterBarShowCloseOnRight \| exFilterBarToggle \| exFilterBarPromptVisible/ oList.FilterBarPrompt = Str(oList.FormatABC("`<r>` + value",oList.FilterBarPrompt)) oList.EndUpdate()
508	Just wondering if it is possible to show the filter bar's close button on the right ( sample 1 ) local oList,var_Column,var_Column1,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() oList.RightToLeft = true // oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Item") with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.DisplayFilterButton = True] endwith var_Column1 = oList.Columns.Add("Pos") var_Column1.AllowSizing = false var_Column1.AllowSort = false var_Column1.Width = 32 var_Column1.FormatColumn = "1 apos ``" var_Column1.Position = 0 var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") oList.FilterBarPromptVisible = 257 /exFilterBarToggle \| exFilterBarPromptVisible/ oList.EndUpdate()
507	How can I change the visual appearance of the filter bar's close button (EBN) local oList,var_Appearance,var_Column,var_Column1,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() var_Appearance = oList.VisualAppearance var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJjyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmSZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OROicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXAiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaK" ; +"JDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEAkjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSMRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ") // oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Item") with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.DisplayFilterButton = True] endwith var_Column1 = oList.Columns.Add("Pos") var_Column1.AllowSizing = false var_Column1.AllowSort = false var_Column1.Width = 32 var_Column1.FormatColumn = "1 apos ``" var_Column1.Position = 0 var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") oList.FilterBarPromptVisible = 257 /exFilterBarToggle \| exFilterBarPromptVisible/ oList.Template = [Background(1) = 16777216] // oList.Background(1) = 0x1000000 oList.EndUpdate()
506	How can I change the visual appearance of the filter bar's close button (solid) local oList,var_Column,var_Column1,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() // oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Item") with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.DisplayFilterButton = True] endwith var_Column1 = oList.Columns.Add("Pos") var_Column1.AllowSizing = false var_Column1.AllowSort = false var_Column1.Width = 32 var_Column1.FormatColumn = "1 apos ``" var_Column1.Position = 0 var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") oList.FilterBarPromptVisible = 1 oList.Template = [Background(1) = 255] // oList.Background(1) = 0xff oList.EndUpdate()
505	Is it possible to prevent definitely showing the filter bar's close button local oList,var_Column,var_Column1,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() // oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Item") with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.DisplayFilterButton = True] endwith var_Column1 = oList.Columns.Add("Pos") var_Column1.AllowSizing = false var_Column1.AllowSort = false var_Column1.Width = 32 var_Column1.FormatColumn = "1 apos ``" var_Column1.Position = 0 var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") oList.FilterBarPromptVisible = 1 oList.Template = [Background(1) = -1] // oList.Background(1) = -1 oList.EndUpdate()
504	Is it possible to show the close button only if there is a filter applied local oList,var_Column,var_Column1,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() // oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Item") with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.DisplayFilterButton = True] endwith var_Column1 = oList.Columns.Add("Pos") var_Column1.AllowSizing = false var_Column1.AllowSort = false var_Column1.Width = 32 var_Column1.FormatColumn = "1 apos ``" var_Column1.Position = 0 var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") oList.FilterBarPromptVisible = 513 /exFilterBarShowCloseIfRequired \| exFilterBarPromptVisible/ oList.EndUpdate()
503	The control's filter bar is not closed once I click the close button (toggle) local oList,var_Column,var_Column1,var_Column2,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() // oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Item") with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.DisplayFilterButton = True] endwith var_Column1 = oList.Columns.Add("Pos") var_Column1.AllowSizing = false var_Column1.AllowSort = false var_Column1.Width = 32 var_Column1.FormatColumn = "1 apos ``" var_Column1.Position = 0 var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") oList.FilterBarCaption = "`<r><fgcolor=808080>` + value" oList.FilterBarPromptPattern = "B" oList.FilterBarPromptVisible = 2323 /exFilterBarCompact \| exFilterBarToggle \| exFilterBarSingleLine \| exFilterBarVisible \| exFilterBarPromptVisible/ var_Column2 = oList.Columns.Item(0) var_Column2.FilterType = 240 var_Column2.Filter = "Item B" oList.ApplyFilter() oList.EndUpdate()
502	How can I display the control's filter on a single line local oList,var_Column,var_Column1,var_Column2,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() // oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Item") with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.DisplayFilterButton = True] endwith var_Column1 = oList.Columns.Add("Pos") var_Column1.AllowSizing = false var_Column1.AllowSort = false var_Column1.Width = 32 var_Column1.FormatColumn = "1 apos ``" var_Column1.Position = 0 var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") oList.FilterBarCaption = "len(value) ? `filter for: <fgcolor 808080>` + value : `<fgcolor 808080>no filter`" oList.FilterBarPromptVisible = 18 /exFilterBarSingleLine \| exFilterBarVisible/ var_Column2 = oList.Columns.Item(0) var_Column2.FilterType = 240 var_Column2.Filter = "Item A\|Item B" oList.ApplyFilter() oList.EndUpdate()
501	How can I display the control's filter on a single line (prompt-combined) local oList,var_Column,var_Column1,var_Column2,var_Items oList = form.EXLISTACTIVEXCONTROL1.nativeObject oList.BeginUpdate() // oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Item") with (oList) TemplateDef = [dim var_Column] TemplateDef = var_Column Template = [var_Column.DisplayFilterButton = True] endwith var_Column1 = oList.Columns.Add("Pos") var_Column1.AllowSizing = false var_Column1.AllowSort = false var_Column1.Width = 32 var_Column1.FormatColumn = "1 apos ``" var_Column1.Position = 0 var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") oList.FilterBarCaption = "`<r>` + value" oList.FilterBarPromptVisible = 2067 /exFilterBarCompact \| exFilterBarSingleLine \| exFilterBarVisible \| exFilterBarPromptVisible/ var_Column2 = oList.Columns.Item(0) var_Column2.FilterType = 240 var_Column2.Filter = "Item A\|Item B" oList.ApplyFilter() oList.EndUpdate()