How-To PowerBuilder (exlist)

562	ADOR, MDB (JET) OleObject oList,rs oList = ole_1.Object oList.BeginUpdate() oList.ColumnAutoResize = false rs = CREATE OLEObject rs.ConnectToNewObject("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 /begin event FilterChange() - Occurs when filter was changed./ /* any format oList = ole_1.Object format = oList.FormatABC("`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value + `</fgcolor></bgcolor>'`",oList.FilterBarPromptPattern) oList.Columns.Item(0).FormatColumn = String(format) oList.Columns.Item(1).FormatColumn = String(format) oList.Columns.Item(2).FormatColumn = String(format) / /end event FilterChange/ OleObject oList,var_Column,var_Column1,var_Column2,var_Columns,var_Items any h0 oList = ole_1.Object 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) var_Column.FormatColumn = "lower(value)" var_Column1 = var_Columns.Add("Title") var_Column1.Def(17,1) var_Column1.FormatColumn = "lower(value)" var_Column2 = var_Columns.Add("City") var_Column2.Def(17,1) var_Column2.FormatColumn = "lower(value)" var_Items = oList.Items h0 = var_Items.Add("Nancy Davolio") var_Items.Caption(h0,1,"Sales Representative") var_Items.Caption(h0,2,"Seattle") h0 = var_Items.Add("Andrew Fuller") var_Items.Caption(h0,1,"Vice President, Sales") var_Items.Caption(h0,2,"Tacoma") var_Items.SelectItem(h0,true) h0 = var_Items.Add("Janet Leverling") var_Items.Caption(h0,1,"Sales Representative") var_Items.Caption(h0,2,"Kirkland") h0 = var_Items.Add("Margaret Peacock") var_Items.Caption(h0,1,"Sales Representative") var_Items.Caption(h0,2,"Redmond") h0 = var_Items.Add("Steven Buchanan") var_Items.Caption(h0,1,"Sales Manager") var_Items.Caption(h0,2,"London") h0 = var_Items.Add("Michael Suyama") var_Items.Caption(h0,1,"Sales Representative") var_Items.Caption(h0,2,"London") h0 = var_Items.Add("Robert King") var_Items.Caption(h0,1,"Sales Representative") var_Items.Caption(h0,2,"London") h0 = var_Items.Add("Laura Callahan") var_Items.Caption(h0,1,"Inside Sales Coordinator") var_Items.Caption(h0,2,"Seattle") h0 = var_Items.Add("Anne Dodsworth") var_Items.Caption(h0,1,"Sales Representative") var_Items.Caption(h0,2,"London") oList.EndUpdate()
560	Re-order the cell's caption, icons and images/pictures OleObject oList,var_Column,var_Column1,var_Items any h oList = ole_1.Object 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) var_Column1 = oList.Columns.Add("ToRight") var_Column1.Def(0,true) var_Column1.Def(34,"caption,picture,icons,icon,check") oList.DefaultItemHeight = 32 oList.DrawGridLines = 2 oList.HeaderAppearance = 4 var_Items = oList.Items h = var_Items.Add("Caption") var_Items.CellImage(h,0,2) var_Items.CellImages(h,0,"1,2") var_Items.CellPicture(h,0,oList.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5si" & +"qbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB" & +"1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" & +"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARB" & +"vgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/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/ANBag" & +"xAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" & +"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMA" & +"GAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj" & +"5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)")) var_Items.Caption(h,1,var_Items.Caption(h,0)) var_Items.CellHAlignment(h,1,2) var_Items.CellImage(h,1,var_Items.CellImage(h,0)) var_Items.CellImages(h,1,"2,1") var_Items.CellPicture(h,1,var_Items.CellPicture(h,0)) h = var_Items.Add("<b>HTML</b> <off 4>Caption") var_Items.CaptionFormat(h,0,1) var_Items.CellImage(h,0,2) var_Items.CellImages(h,0,"1,2") var_Items.CellPicture(h,0,oList.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5si" & +"qbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB" & +"1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" & +"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARB" & +"vgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/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/ANBag" & +"xAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" & +"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMA" & +"GAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj" & +"5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)")) var_Items.Caption(h,1,var_Items.Caption(h,0)) var_Items.CaptionFormat(h,1,1) var_Items.CellHAlignment(h,1,2) var_Items.CellImage(h,1,var_Items.CellImage(h,0)) var_Items.CellImages(h,1,"2,1") var_Items.CellPicture(h,1,var_Items.CellPicture(h,0)) oList.EndUpdate()
559	ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons) /begin event AddColumn(oleobject Column) - Fired after a new column is added./ /* Column.Def(48) = 2 Column.Def(49) = 2 oList = ole_1.Object / /end event AddColumn/ OleObject oList,var_Appearance,var_Column,var_Column1,var_Column2,var_Column3,var_Items any h oList = ole_1.Object 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/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" & +"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" & +"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==") var_Appearance = oList.VisualAppearance var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" & +"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==") var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" & +"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" & +"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==") var_Appearance.Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" & +"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" & +"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=") var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & +"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==") oList.BackColorHeader = 80135878 /0x4c6c6c6/ oList.SelBackColor = 67108864 /0x4000000/ oList.SelForeColor = RGB(0,0,1) oList.CheckImage(0,16777216) oList.CheckImage(1,33554432) oList.CheckImage(2,50331648) oList.Background(20,oList.SelBackColor) oList.Background(21,oList.SelForeColor) oList.Background(26,oList.BackColor) oList.Background(27,oList.ForeColor) oList.Background(32,-1) oList.Background(0,67108864 /0x4000000/) oList.Background(41,67174657 /0x4010101/) oList.Background(1,67109119 /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) 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) 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) var_Items.CellImages(h,3,"1,2,3") var_Items.Caption(h,3,"123") h = var_Items.Add("Child B") var_Items.CellState(h,0,1) var_Items.CellImage(h,2,3) var_Items.CellImages(h,3,"2,3,1") var_Items.Caption(h,3,"231") var_Items.SelectItem(h,true) h = var_Items.Add("Child C") var_Items.CellImage(h,2,2) var_Items.CellState(h,3,1) var_Items.Caption(h,3,"312") var_Items.CellImages(h,3,"3,1,2") oList.EndUpdate()
558	ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons) /begin event AddColumn(oleobject Column) - Fired after a new column is added./ /* Column.Def(48) = 2 Column.Def(49) = 2 oList = ole_1.Object / /end event AddColumn/ OleObject oList,var_Appearance,var_Column,var_Column1,var_Column2,var_Column3,var_Items any h oList = ole_1.Object 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+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & +"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==") oList.BackColorHeader = 80135878 /0x4c6c6c6/ oList.SelBackColor = 67108864 /0x4000000/ oList.SelForeColor = RGB(0,0,1) oList.Background(20,oList.SelBackColor) oList.Background(21,oList.SelForeColor) oList.Background(26,oList.BackColor) oList.Background(27,oList.ForeColor) oList.Background(32,-1) oList.Background(0,67108864 /0x4000000/) oList.Background(41,67174657 /0x4010101/) oList.Background(1,67109119 /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) 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) 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) var_Items.CellImages(h,3,"1,2,3") var_Items.Caption(h,3,"123") h = var_Items.Add("Child B") var_Items.CellState(h,0,1) var_Items.CellImage(h,2,3) var_Items.CellImages(h,3,"2,3,1") var_Items.Caption(h,3,"231") var_Items.SelectItem(h,true) h = var_Items.Add("Child C") var_Items.CellImage(h,2,2) var_Items.CellState(h,3,1) var_Items.Caption(h,3,"312") var_Items.CellImages(h,3,"3,1,2") 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 /begin event AddColumn(oleobject Column) - Fired after a new column is added./ /* oList = ole_1.Object / /end event AddColumn*/ OleObject oList,rs oList = ole_1.Object oList.BeginUpdate() oList.ColumnAutoResize = false rs = CREATE OLEObject rs.ConnectToNewObject("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 OleObject oList,rs oList = ole_1.Object oList.BeginUpdate() oList.ColumnAutoResize = false rs = CREATE OLEObject rs.ConnectToNewObject("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=" + CHAR(34) + "C1:1" + CHAR(34) + "" oList.EndUpdate()
555	Is it possible to highligth the match while a filter is applied /begin event AddColumn(oleobject Column) - Fired after a new column is added./ /* Column.Def(17) = 1 oList = ole_1.Object / /end event AddColumn/ /begin event FilterChange() - Occurs when filter was changed./ / any format oList = ole_1.Object format = oList.FormatABC("`value replace '` + value + `' with '<bgcolor 000000><fgcolor FFFFFF>` + value + `</fgcolor></bgcolor>'`",oList.FilterBarPromptPattern) oList.Columns.Item(0).FormatColumn = String(format) oList.Columns.Item(1).FormatColumn = String(format) / /end event FilterChange/ OleObject oList,var_Items oList = ole_1.Object 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") var_Items.Caption(var_Items.Add("1666 County Road 309A"),1,"897 Manassa") var_Items.Caption(var_Items.Add("38 Lone Pine"),1,"Durango 11") var_Items.Caption(var_Items.Add("612 Jachim Street"),1,"Lamar 222") 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 OleObject oList,var_Appearance,var_Column,var_Columns,var_Items any h oList = ole_1.Object 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.Background(0,33488638 /0x1fefefe/) oList.Background(41,16843009 /0x1010101/) oList.Background(32,-1) oList.HeaderHeight = 28 oList.BackColorHeader = RGB(255,255,255) oList.DrawGridLines = -1 oList.HeaderVisible = true var_Columns = oList.Columns var_Columns.Add("C1").DisplayFilterButton = true var_Column = var_Columns.Add("C2") var_Column.DisplayFilterButton = true var_Column.Filter = "Item 2" var_Column.FilterType = 240 var_Columns.Add("C3").DisplayFilterButton = true var_Items = oList.Items h = var_Items.Add("Item 1") var_Items.Caption(h,1,"Item 2") var_Items.Caption(h,2,"Item 3") h = var_Items.Add("Item 4") var_Items.Caption(h,1,"Item 5") var_Items.Caption(h,2,"Item 6") oList.ApplyFilter() oList.EndUpdate()
553	Is it possible to show the filterbar on top of the rows OleObject oList,var_Column,var_Column1,var_Items oList = ole_1.Object 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) 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) OleObject oList,var_Column,var_Columns,var_Items oList = ole_1.Object 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 OleObject oList,var_Column,var_Columns,var_Items oList = ole_1.Object oList.BeginUpdate() oList.HeaderAppearance = 4 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 /begin event CellButtonClick(long ItemIndex,long ColIndex) - Fired after the user clicks the cell's button./ /* OleObject var_Items oList = ole_1.Object var_Items = oList.Items MessageBox("Information",string( String(var_Items.Caption(ItemIndex,0)) )) / /end event CellButtonClick*/ OleObject oList,var_Column,var_Items oList = ole_1.Object oList.BeginUpdate() oList.Columns.Add("Item") var_Column = oList.Columns.Add("...") var_Column.Def(2,true) var_Column.Alignment = 1 var_Column.HeaderAlignment = 1 var_Column.FormatColumn = "` ... `" var_Column.Width = 32 var_Column.AllowSizing = false var_Column.Position = 0 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 /begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse./ /* any i oList = ole_1.Object i = oList.ItemFromPoint(-1,-1,c,hit) MessageBox("Information",string( String(i) )) MessageBox("Information",string( String(oList.Items.ItemData(i)) )) / /end event MouseMove*/ OleObject oList,var_Items oList = ole_1.Object 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") 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 OleObject oList,var_Column,var_Columns,var_Items oList = ole_1.Object 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 OleObject oList,var_Column,var_Items oList = ole_1.Object oList.BeginUpdate() var_Column = oList.Columns.Add("Check") var_Column.Def(0,true) var_Column.SortType = 32 var_Items = oList.Items var_Items.Add() var_Items.CellState(var_Items.Add(),0,1) var_Items.CellState(var_Items.Add(),0,1) var_Items.Add() oList.Columns.Item(0).SortOrder = 1 oList.EndUpdate()
546	Can I sort the column by image OleObject oList,var_Column,var_Items oList = ole_1.Object 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) var_Items.Add() var_Items.CellImage(var_Items.Add(),0,1) var_Items.CellImage(var_Items.Add(),0,2) oList.Columns.Item(0).SortOrder = 1 oList.EndUpdate()
545	How can I display UNICODE characters OleObject oList,var_Items,var_StdFont oList = ole_1.Object 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_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 : `` ") oList.EndUpdate()
544	How do I display the position of the item with 0-padding OleObject oList,var_Items oList = ole_1.Object oList.BeginUpdate() oList.Columns.Add("Items").FormatColumn = "((1 apos ``) lpad `00`) + `. ` + value" 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 OleObject oList,var_Appearance,var_Column,var_Items oList = ole_1.Object oList.BeginUpdate() var_Appearance = oList.VisualAppearance var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQGhsCYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU8lORLUi+M4zSBPcZVTRtGShPDBKTjMKKYgkG4lVpRNa0PC1GTzQ6mazkKQLRADDIDVbAeL3LiMBy9LyLLItQALByua5mWhbcZyBCOPgBTrRb5zO58FjuTK7YLjMB7NrUNYtFaUMy2OpOCADIaecTNcaWLxPF2MY1HWYxVj2Jw3DuRJonKYBgggSRAlIYw6B0ThGFgPAkFUDAhBMfZRiGNAkFECZnm4YQdneJwqnsSQrGAAhWAIJBJBIQgFCQIBiEIAglgqYo0i4V4MEgRI9gSToYFSb4Fk6Y4+BmBZhFOJgTC8TBogQAArgqco4muCZOkOMJtgmYpIjYKg7GKE4uCUK4AAKKg2DwI4DiCZw5k6KJ2D6D4OHiag4DwIxiiQAArAqMosnEPBPAOIhOg+DozjIJ4PGSY4iEwPAkhKLhHUUSQsnKFCnkYU9MjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQg" & +"pDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDhQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARViHH4HQOYmxuCpF2MsecEQVBvGQCcIQvA6i2CAAIARAQ=") var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMwwDhEIwjHCEEhsGIbJAGQBJCjWGodQLOEgzNC0IxNFCQILhEZJADKII8TTOU5UPRESwTE4cKBmKhQCo2NpKR7VUTxCKQahLLivoCjBT8EzHMqtIzrCA6MpaP4pQjKcqwHJ8YyHEi0ZrjazKaj6T5AXDUcaWbbNVx3PK3aioOpLZrqOZZYzYFoABTuJzPMSyIhxXD8cweaZvSpLExVYK9BY3PbKMgxC77QgTIpDaQMNS6PjtF43PAALLFUaNYzoOKzABMHATBIXAYJCwIIR5G7ID4BbQcCQAHL9DBaEEIAEEISgGhMGZQmocgymmIRQkIEQ2BcGgbEIRQci8XaMBqTRVgSAZHG+S5pnOep+D6f4vjec5zn0fpfmgBgAH6TRoBYBoAh+eAmAiAgPFgNArgOQpIESdoEmCOAOAqBYfFGAgaEaBgYHYFYFmIB5UiGCJUgKCgmgeYoHk4BgCmKRQiCwApgHgYgyH8B54lQU4NkMeJlBoDgjkiXBTg0R54iYIR+koeQVBoKpkgkChKhEJBkF4SFEjkDgJhFQoeEmDJlBeehUhWJQJGIXoICWOQ6FeFIlhkfhlDsSJpiQVoamaSY2G6G5nAmRhpCOH5pkwVYdmeCZmHqHpnkmdhzhmaAIFiax8AABAEICA==") oList.BackColorHeader = 16777216 /0x1000000/ oList.ForeColorHeader = RGB(128,128,128) oList.Background(0,33554432 /0x2000000/) oList.Background(26,RGB(255,255,255)) oList.Background(27,RGB(0,0,1)) oList.Background(20,33521664 /0x1ff8000/) oList.Background(21,RGB(240,240,240)) 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) var_Column.Def(53,2) 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) OleObject oList,var_Column,var_Column1,var_Column2,var_Columns,var_Items oList = ole_1.Object 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) var_Column.Def(16,-1) var_Column1 = var_Columns.Add("Word-Wrap (exCaptionWordWrap)") var_Column1.Width = 96 var_Column1.Def(17,1) var_Column1.Def(16,0) var_Column1.FormatColumn = "%0" var_Column2 = var_Columns.Add("Break-Wrap (exCaptionBreakWrap)") var_Column2.Width = 96 var_Column2.Def(17,1) var_Column2.Def(16,1) var_Column2.FormatColumn = "%0" var_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) OleObject oList,var_Items any h oList = ole_1.Object oList.BeginUpdate() oList.DrawGridLines = -1 oList.ColumnAutoResize = false oList.ScrollBySingleLine = true oList.Columns.Add("Default").Width = 128 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) h = var_Items.Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line.") var_Items.CellSingleLine(h,0,0) h = var_Items.Add("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.") var_Items.CaptionFormat(h,0,1) var_Items.CellSingleLine(h,0,0) h = var_Items.Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line.") var_Items.CellSingleLine(h,0,1) h = var_Items.Add("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.") var_Items.CaptionFormat(h,0,1) var_Items.CellSingleLine(h,0,1) oList.EndUpdate()
540	Can I break the cell's caption using the line break <br> or \r\n (Sample 2) OleObject oList,var_Items oList = ole_1.Object oList.BeginUpdate() oList.DrawGridLines = -1 oList.ColumnAutoResize = false oList.ScrollBySingleLine = true oList.Columns.Add("Default").Width = 128 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) 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) OleObject oList,var_Column,var_Items oList = ole_1.Object 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) 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 OleObject oList,var_Column,var_Items oList = ole_1.Object oList.BeginUpdate() oList.BackColorHeader = RGB(1,0,0) oList.ForeColorHeader = RGB(255,255,255) oList.Background(26,oList.BackColorHeader) oList.Background(27,oList.ForeColorHeader) oList.Background(0,RGB(240,240,240)) 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 OleObject oList,var_Column,var_Items oList = ole_1.Object oList.BeginUpdate() oList.ColumnAutoResize = true var_Column = oList.Columns.Add("Default") var_Column.Def(17,1) 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) OleObject oList,var_Column,var_Items oList = ole_1.Object oList.BeginUpdate() oList.ColumnAutoResize = true var_Column = oList.Columns.Add("Default") var_Column.Def(17,1) 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) OleObject oList,var_Column,var_Items oList = ole_1.Object oList.BeginUpdate() oList.ColumnAutoResize = true var_Column = oList.Columns.Add("Default") var_Column.Def(17,1) 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 OleObject oList,var_Column oList = ole_1.Object oList.BeginUpdate() oList.Background(26,RGB(0,0,1)) oList.Background(27,RGB(255,255,255)) oList.Background(12,RGB(255,255,255)) oList.Background(8,oList.Background(26)) oList.Background(11,RGB(128,128,128)) 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 OleObject oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Column6,var_Columns,var_ConditionalFormat,var_ConditionalFormat1,var_ConditionalFormats,var_Items,var_ShellBrowserWindow any sFile oList = ole_1.Object oList.BeginUpdate() oList.BackColorAlternate = RGB(240,240,240) oList.DrawGridLines = -1 oList.HeaderAppearance = 4 oList.Description(11,String(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 = RGB(192,192,192) var_ConditionalFormat = var_ConditionalFormats.Add("%0 like `D`","d") var_ConditionalFormat.ForeColor = RGB(255,128,128) var_ConditionalFormat.ApplyTo = 0 var_ConditionalFormat1 = var_ConditionalFormats.Add("%0 like `b`","b") var_ConditionalFormat1.ForeColor = RGB(0,0,255) var_ConditionalFormat1.Bold = true var_ConditionalFormat1.Italic = true var_ConditionalFormat1.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) var_Column1.Def(5,8421504) var_Column1.Def(8,var_Column1.Def(5)) 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) var_Column5 = var_Columns.Add("Data 2") var_Column5.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`" var_Column5.Def(16,false) var_Column5.Def(17,1) var_Column5.Def(1,true) var_Column6 = var_Columns.Add("Data 3") var_Column6.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`" var_Column6.Def(17,1) 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) var_Items.Add("Item AA") var_Items.Add("Item BB") var_Items.Add("Item CC") var_Items.CellState(5,5,1) var_Items.Add("Item D") var_Items.Add("Item EE") var_Items.Add("Item FFF") oList.EndUpdate() sFile = "c:/temp/export.html" oList.Export(sFile,"vis") var_ShellBrowserWindow = CREATE OLEObject var_ShellBrowserWindow.ConnectToNewObject("InternetExplorer.Application") var_ShellBrowserWindow.Navigate2(sFile)
532	Export Data in CSV format OleObject oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Column6,var_Columns,var_ConditionalFormat,var_ConditionalFormat1,var_ConditionalFormats,var_Items oList = ole_1.Object oList.BeginUpdate() oList.BackColorAlternate = RGB(240,240,240) oList.DrawGridLines = -1 oList.HeaderAppearance = 4 oList.Description(11,String(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 = RGB(192,192,192) var_ConditionalFormat = var_ConditionalFormats.Add("%0 like `D`","d") var_ConditionalFormat.ForeColor = RGB(255,128,128) var_ConditionalFormat.ApplyTo = 0 var_ConditionalFormat1 = var_ConditionalFormats.Add("%0 like `b`","b") var_ConditionalFormat1.ForeColor = RGB(0,0,255) var_ConditionalFormat1.Bold = true var_ConditionalFormat1.Italic = true var_ConditionalFormat1.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) var_Column1.Def(5,8421504) var_Column1.Def(8,var_Column1.Def(5)) 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) var_Column5 = var_Columns.Add("Data 2") var_Column5.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`" var_Column5.Def(16,false) var_Column5.Def(17,1) var_Column5.Def(1,true) var_Column6 = var_Columns.Add("Data 3") var_Column6.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`" var_Column6.Def(17,1) 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) var_Items.Add("Item AA") var_Items.Add("Item BB") var_Items.Add("Item CC") var_Items.CellState(5,5,1) var_Items.Add("Item D") var_Items.Add("Item EE") var_Items.Add("Item FFF") oList.EndUpdate() MessageBox("Information",string( String(oList.Export("","vis")) ))
531	How can I get the icon from the cell when using the Items.CellImages property (icon index) /begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse./ /* any i oList = ole_1.Object i = oList.ItemFromPoint(-1,-1,c,hit) MessageBox("Information",string( String(oList.FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? ( ( (value bitand 0xFFFF0000) bitshift 16 ) array B split `,` ) : `no image`",hit,oList.Items.CellImages(i,c))) )) / /end event MouseMove*/ OleObject oList,var_Items oList = ole_1.Object 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") var_Items.CellImages(var_Items.Add("Item 2"),0,"2,3") var_Items.CellImages(var_Items.Add("Item 3"),0,"2,") oList.EndUpdate()
530	How can I get the icon from the cell when using the Items.CellImages property (icon position within the cell) /begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse./ /* any i oList = ole_1.Object i = oList.ItemFromPoint(-1,-1,c,hit) MessageBox("Information",string( String(oList.FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit)) )) / /end event MouseMove*/ OleObject oList,var_Items oList = ole_1.Object 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") var_Items.CellImages(var_Items.Add("Item 2"),0,"2,3") var_Items.CellImages(var_Items.Add("Item 3"),0,"2") oList.EndUpdate()
529	How can I get the index of icon from the cell, if using the CellImages property /begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse./ /* any i oList = ole_1.Object i = oList.ItemFromPoint(-1,-1,c,hit) MessageBox("Information",string( String(oList.FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit)) )) / /end event MouseMove*/ OleObject oList,var_Items oList = ole_1.Object 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") var_Items.CellImages(var_Items.Add("Item 2"),0,"2,3,1") var_Items.CellImages(var_Items.Add("Item 3"),0,"3,2,1") 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 OleObject oList,var_Appearance,var_Columns oList = ole_1.Object 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.Background(182,33554432 /0x2000000/) oList.EndUpdate()
527	A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do OleObject oList,var_Column,var_ConditionalFormat,var_Items oList = ole_1.Object 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("Position") var_Column.FormatColumn = "1 rindex ``" var_Column.Visible = false var_ConditionalFormat = oList.ConditionalFormats.Add("%C1 mod 2") var_ConditionalFormat.BackColor = 16777216 /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 OleObject oList oList = ole_1.Object oList.Columns.Add("ColumnName").Caption = "NewName" oList.Columns.Add("ColumnName").HTMLCaption = "<b>New</b>Name"
525	FilterBarCaption ALL Keyword ( sample 2, result ) /begin event AddItem(long Item) - Occurs after a new Item is inserted to Items collection./ /* i = FormatABC("value + 1", Items.ItemToIndex(Item)) oList = ole_1.Object oList.Items.CellImage(Item,3,i) / /end event AddItem/ OleObject oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items any h oList = ole_1.Object 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) 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") h = var_Items.Add("Item B") var_Items.Caption(h,1,"Sub-Item B") var_Items.CellState(h,2,1) var_Items.Caption(var_Items.Add("Item C"),1,"Sub-Item C") oList.FilterBarFont = oList.Font oList.Description(11,String(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 = String(1) oList.ApplyFilter() oList.EndUpdate()
524	FilterBarCaption ALL Keyword ( sample 1 ) /begin event AddItem(long Item) - Occurs after a new Item is inserted to Items collection./ /* i = FormatABC("value + 1", Items.ItemToIndex(Item)) oList = ole_1.Object oList.Items.CellImage(Item,3,i) / /end event AddItem/ OleObject oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items any h oList = ole_1.Object 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) 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") h = var_Items.Add("Item B") var_Items.Caption(h,1,"Sub-Item B") var_Items.CellState(h,2,1) var_Items.Caption(var_Items.Add("Item C"),1,"Sub-Item C") oList.FilterBarFont = oList.Font oList.Description(11,String(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 = String(1) oList.ApplyFilter() oList.EndUpdate()
523	FilterBarCaption ALLUI Keyword ( sample 2, result ) /begin event AddItem(long Item) - Occurs after a new Item is inserted to Items collection./ /* i = FormatABC("value + 1", Items.ItemToIndex(Item)) oList = ole_1.Object oList.Items.CellImage(Item,3,i) / /end event AddItem/ OleObject oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items any h oList = ole_1.Object 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) 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") h = var_Items.Add("Item B") var_Items.Caption(h,1,"Sub-Item B") var_Items.CellState(h,2,1) var_Items.Caption(var_Items.Add("Item C"),1,"Sub-Item C") oList.FilterBarFont = oList.Font oList.Description(11,String(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 = String(1) oList.ApplyFilter() oList.EndUpdate()
522	FilterBarCaption ALLUI Keyword ( sample 1 ) /begin event AddItem(long Item) - Occurs after a new Item is inserted to Items collection./ /* i = FormatABC("value + 1", Items.ItemToIndex(Item)) oList = ole_1.Object oList.Items.CellImage(Item,3,i) / /end event AddItem/ OleObject oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items any h oList = ole_1.Object 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) 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") h = var_Items.Add("Item B") var_Items.Caption(h,1,"Sub-Item B") var_Items.CellState(h,2,1) var_Items.Caption(var_Items.Add("Item C"),1,"Sub-Item C") oList.FilterBarFont = oList.Font oList.Description(11,String(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 = String(1) oList.ApplyFilter() oList.EndUpdate()
521	FilterBarCaption AVAILABLE Keyword ( sample 2, result ) /begin event AddItem(long Item) - Occurs after a new Item is inserted to Items collection./ /* i = FormatABC("value + 1", Items.ItemToIndex(Item)) oList = ole_1.Object oList.Items.CellImage(Item,3,i) / /end event AddItem/ OleObject oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items any h oList = ole_1.Object 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) 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") h = var_Items.Add("Item B") var_Items.Caption(h,1,"Sub-Item B") var_Items.CellState(h,2,1) var_Items.Caption(var_Items.Add("Item C"),1,"Sub-Item C") oList.FilterBarFont = oList.Font oList.Description(11,String(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 = String(1) oList.ApplyFilter() oList.EndUpdate()
520	FilterBarCaption AVAILABLE Keyword ( sample 1 ) /begin event AddItem(long Item) - Occurs after a new Item is inserted to Items collection./ /* i = FormatABC("value + 1", Items.ItemToIndex(Item)) oList = ole_1.Object oList.Items.CellImage(Item,3,i) / /end event AddItem/ OleObject oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items any h oList = ole_1.Object 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) 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") h = var_Items.Add("Item B") var_Items.Caption(h,1,"Sub-Item B") var_Items.CellState(h,2,1) var_Items.Caption(var_Items.Add("Item C"),1,"Sub-Item C") oList.FilterBarFont = oList.Font oList.Description(11,String(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 = String(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 ) OleObject oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Items oList = ole_1.Object 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") var_Items.Caption(var_Items.Add("Item B"),1,"Sub-Item B") var_Items.Caption(var_Items.Add("Item C"),1,"Sub-Item C") oList.FilterBarFont = oList.Font oList.Description(11,String(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 ) OleObject oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Items oList = ole_1.Object 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") var_Items.Caption(var_Items.Add("Item B"),1,"Sub-Item B") var_Items.Caption(var_Items.Add("Item C"),1,"Sub-Item C") oList.FilterBarFont = oList.Font oList.Description(11,String(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 ) OleObject oList,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Items oList = ole_1.Object 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") var_Items.Caption(var_Items.Add("Item B"),1,"Sub-Item B") var_Items.Caption(var_Items.Add("Item C"),1,"Sub-Item C") oList.Description(11,String(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 OleObject oList,var_Column,var_Column1,var_Column2,var_Items oList = ole_1.Object 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) OleObject oList,var_Column,var_Column1,var_Items oList = ole_1.Object 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 = String(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) OleObject oList,var_Column,var_Column1,var_Items oList = ole_1.Object oList.BeginUpdate() oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Pos") var_Column.AllowSizing = false var_Column.AllowSort = false var_Column.Width = 32 var_Column.FormatColumn = "1 apos ``" var_Column.Position = 0 var_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_Column1 = oList.Columns.Item(0) var_Column1.FilterType = 240 var_Column1.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) OleObject oList,var_Column,var_Column1,var_Items oList = ole_1.Object oList.BeginUpdate() oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Pos") var_Column.AllowSizing = false var_Column.AllowSort = false var_Column.Width = 32 var_Column.FormatColumn = "1 apos ``" var_Column.Position = 0 var_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_Column1 = oList.Columns.Item(0) var_Column1.FilterType = 240 var_Column1.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) OleObject oList,var_Column,var_Column1,var_Items oList = ole_1.Object oList.BeginUpdate() oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Pos") var_Column.AllowSizing = false var_Column.AllowSort = false var_Column.Width = 32 var_Column.FormatColumn = "1 apos ``" var_Column.Position = 0 var_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_Column1 = oList.Columns.Item(0) var_Column1.FilterType = 240 var_Column1.Filter = "Item A\|Item B" oList.ApplyFilter() oList.EndUpdate()
511	FilterBarCaption Predefined Keywords OleObject oList,var_Column,var_Column1,var_Column2,var_Items oList = ole_1.Object oList.BeginUpdate() oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Check") var_Column.Def(0,true) var_Column.DisplayFilterButton = true var_Column.DisplayFilterPattern = false var_Column.FilterType = 6 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 = "`<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_Column2 = oList.Columns.Item(0) var_Column2.FilterType = 240 var_Column2.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 OleObject oList,var_Column,var_Column1,var_Items oList = ole_1.Object oList.BeginUpdate() oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Pos") var_Column.AllowSizing = false var_Column.AllowSort = false var_Column.Width = 32 var_Column.FormatColumn = "1 apos ``" var_Column.Position = 0 var_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_Column1 = oList.Columns.Item(0) var_Column1.FilterType = 240 var_Column1.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 ) OleObject oList,var_Column,var_Items oList = ole_1.Object oList.BeginUpdate() oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Pos") var_Column.AllowSizing = false var_Column.AllowSort = false var_Column.Width = 32 var_Column.FormatColumn = "1 apos ``" var_Column.Position = 0 var_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 = String(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 ) OleObject oList,var_Column,var_Items oList = ole_1.Object oList.BeginUpdate() oList.RightToLeft = true oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Pos") var_Column.AllowSizing = false var_Column.AllowSort = false var_Column.Width = 32 var_Column.FormatColumn = "1 apos ``" var_Column.Position = 0 var_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) OleObject oList,var_Appearance,var_Column,var_Items oList = ole_1.Object oList.BeginUpdate() var_Appearance = oList.VisualAppearance var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJjyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmSZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OROicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXAiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaKJDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEA" & +"kjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSMRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ") oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Pos") var_Column.AllowSizing = false var_Column.AllowSort = false var_Column.Width = 32 var_Column.FormatColumn = "1 apos ``" var_Column.Position = 0 var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") oList.FilterBarPromptVisible = 257 /exFilterBarToggle \| exFilterBarPromptVisible/ oList.Background(1,16777216 /0x1000000/) oList.EndUpdate()
506	How can I change the visual appearance of the filter bar's close button (solid) OleObject oList,var_Column,var_Items oList = ole_1.Object oList.BeginUpdate() oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Pos") var_Column.AllowSizing = false var_Column.AllowSort = false var_Column.Width = 32 var_Column.FormatColumn = "1 apos ``" var_Column.Position = 0 var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") oList.FilterBarPromptVisible = 1 oList.Background(1,RGB(255,0,0)) oList.EndUpdate()
505	Is it possible to prevent definitely showing the filter bar's close button OleObject oList,var_Column,var_Items oList = ole_1.Object oList.BeginUpdate() oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Pos") var_Column.AllowSizing = false var_Column.AllowSort = false var_Column.Width = 32 var_Column.FormatColumn = "1 apos ``" var_Column.Position = 0 var_Items = oList.Items var_Items.Add("Item A") var_Items.Add("Item B") var_Items.Add("Item C") oList.FilterBarPromptVisible = 1 oList.Background(1,-1) oList.EndUpdate()
504	Is it possible to show the close button only if there is a filter applied OleObject oList,var_Column,var_Items oList = ole_1.Object oList.BeginUpdate() oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Pos") var_Column.AllowSizing = false var_Column.AllowSort = false var_Column.Width = 32 var_Column.FormatColumn = "1 apos ``" var_Column.Position = 0 var_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) OleObject oList,var_Column,var_Column1,var_Items oList = ole_1.Object oList.BeginUpdate() oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Pos") var_Column.AllowSizing = false var_Column.AllowSort = false var_Column.Width = 32 var_Column.FormatColumn = "1 apos ``" var_Column.Position = 0 var_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_Column1 = oList.Columns.Item(0) var_Column1.FilterType = 240 var_Column1.Filter = "Item B" oList.ApplyFilter() oList.EndUpdate()
502	How can I display the control's filter on a single line OleObject oList,var_Column,var_Column1,var_Items oList = ole_1.Object oList.BeginUpdate() oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Pos") var_Column.AllowSizing = false var_Column.AllowSort = false var_Column.Width = 32 var_Column.FormatColumn = "1 apos ``" var_Column.Position = 0 var_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_Column1 = oList.Columns.Item(0) var_Column1.FilterType = 240 var_Column1.Filter = "Item A\|Item B" oList.ApplyFilter() oList.EndUpdate()
501	How can I display the control's filter on a single line (prompt-combined) OleObject oList,var_Column,var_Column1,var_Items oList = ole_1.Object oList.BeginUpdate() oList.Columns.Add("Item").DisplayFilterButton = true var_Column = oList.Columns.Add("Pos") var_Column.AllowSizing = false var_Column.AllowSort = false var_Column.Width = 32 var_Column.FormatColumn = "1 apos ``" var_Column.Position = 0 var_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_Column1 = oList.Columns.Item(0) var_Column1.FilterType = 240 var_Column1.Filter = "Item A\|Item B" oList.ApplyFilter() oList.EndUpdate()