How-To XBasic (Alpha Five) (explorertree)

28	Re-order the cell's caption, icons and images/pictures Dim h as N Dim oExplorerTree as P Dim var_Column as P Dim var_Column1 as P Dim var_Group as P Dim var_Items as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex oExplorerTree.BeginUpdate() oExplorerTree.Images("gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmDcD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB") var_Group = oExplorerTree.Groups.Add("Group") var_Group.Expanded = .t. var_Group.AutoHeight = .t. var_Group.Columns.Clear() var_Column = var_Group.Columns.Add("ToLeft") ' var_Column.Def(0) = .t. oExplorerTree.TemplateDef = "dim var_Column" oExplorerTree.TemplateDef = var_Column oExplorerTree.Template = "var_Column.Def(0) = True" var_Column1 = var_Group.Columns.Add("ToRight") ' var_Column1.Def(0) = .t. oExplorerTree.TemplateDef = "dim var_Column1" oExplorerTree.TemplateDef = var_Column1 oExplorerTree.Template = "var_Column1.Def(0) = True" ' var_Column1.Def(34) = "caption,picture,icons,icon,check" oExplorerTree.TemplateDef = "dim var_Column1" oExplorerTree.TemplateDef = var_Column1 oExplorerTree.Template = "var_Column1.Def(34) = `caption,picture,icons,icon,check`" var_Group.DefaultItemHeight = 32 var_Group.DrawGridLines = 2 var_Group.HeaderAppearance = 4 var_Items = var_Group.Items h = var_Items.AddItem("Caption") ' var_Items.CellImage(h,0) = 2 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellImage(h,0) = 2" ' var_Items.CellImages(h,0) = "1,2" oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellImages(h,0) = `1,2`" ' var_Items.CellPicture(h,0) = oExplorerTree.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)") oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellPicture(h,0) = Me.ExecuteTemplate(`loadpicture(``gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==``)`)" ' var_Items.CellCaption(h,1) = var_Items.CellCaption(h,0) oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaption(h,1) = CellCaption(h,0)" ' var_Items.CellHAlignment(h,1) = 2 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellHAlignment(h,1) = 2" ' var_Items.CellImage(h,1) = var_Items.CellImage(h,0) oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellImage(h,1) = CellImage(h,0)" ' var_Items.CellImages(h,1) = "2,1" oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellImages(h,1) = `2,1`" ' var_Items.CellPicture(h,1) = var_Items.CellPicture(h,0) oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellPicture(h,1) = CellPicture(h,0)" h = var_Items.AddItem("<b>HTML</b> <off 4>Caption") ' var_Items.CellCaptionFormat(h,0) = 1 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaptionFormat(h,0) = 1" ' var_Items.CellImage(h,0) = 2 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellImage(h,0) = 2" ' var_Items.CellImages(h,0) = "1,2" oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellImages(h,0) = `1,2`" ' var_Items.CellPicture(h,0) = oExplorerTree.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)") oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellPicture(h,0) = Me.ExecuteTemplate(`loadpicture(``gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==``)`)" ' var_Items.CellCaption(h,1) = var_Items.CellCaption(h,0) oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaption(h,1) = CellCaption(h,0)" ' var_Items.CellCaptionFormat(h,1) = 1 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaptionFormat(h,1) = 1" ' var_Items.CellHAlignment(h,1) = 2 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellHAlignment(h,1) = 2" ' var_Items.CellImage(h,1) = var_Items.CellImage(h,0) oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellImage(h,1) = CellImage(h,0)" ' var_Items.CellImages(h,1) = "2,1" oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellImages(h,1) = `2,1`" ' var_Items.CellPicture(h,1) = var_Items.CellPicture(h,0) oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellPicture(h,1) = CellPicture(h,0)" oExplorerTree.EndUpdate()
27	ImageSize property on 32 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons) ' Occurs when a new group is added to collection. function AddGroup as v (Group as OLE::Exontrol.ExplorerTree.1::IGroup) oExplorerTree = topparent:CONTROL_ACTIVEX1.activex end function Dim h as N Dim h1 as N Dim oExplorerTree as P Dim var_Appearance as P Dim var_Column as P Dim var_Column1 as P Dim var_Column2 as P Dim var_Column3 as P Dim var_Column4 as P Dim var_Column5 as P Dim var_Column6 as P Dim var_Column7 as P Dim var_Column8 as P Dim var_Columns as P Dim var_Group as P Dim var_Group1 as local Dim var_Group2 as P Dim var_Group3 as P Dim var_Items as P Dim var_Items1 as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex oExplorerTree.BeginUpdate() oExplorerTree.ShowShortcutBar = .t. oExplorerTree.ImageSize = 32 oExplorerTree.GroupHeight = 32 oExplorerTree.Font.Size = 16 oExplorerTree.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/XioW5rD8ZbrUZuVg6n1dsE/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/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWRJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==") var_Appearance = oExplorerTree.VisualAppearance var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==") var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4gaBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==") var_Appearance.Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjVHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=") var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==") oExplorerTree.Template = "Background(20) = 67108864" // oExplorerTree.Background(20) = 67108864 oExplorerTree.Template = "Background(21) = 0" // oExplorerTree.Background(21) = 0 oExplorerTree.Template = "Background(26) = BackColor" // oExplorerTree.Background(26) = oExplorerTree.BackColor oExplorerTree.Template = "Background(27) = ForeColor" // oExplorerTree.Background(27) = oExplorerTree.ForeColor oExplorerTree.Template = "Background(32) = -1" // oExplorerTree.Background(32) = -1 oExplorerTree.Template = "Background(0) = 67108864" // oExplorerTree.Background(0) = 67108864 oExplorerTree.Template = "Background(41) = 67174657" // oExplorerTree.Background(41) = 67174657 oExplorerTree.Template = "Background(1) = 67109119" // oExplorerTree.Background(1) = 67109119 var_Group = oExplorerTree.Groups.Add("Classament <b>A</b>") var_Group.Columns.Clear() var_Group.Shortcut = "<img>1</img>" var_Group.HasLines = 0 var_Columns = var_Group.Columns var_Columns.Add("Group") var_Column = var_Columns.Add("P1") var_Column.Width = 32 var_Column.AllowSizing = .f. var_Column1 = var_Columns.Add("P2") var_Column1.Width = 32 var_Column1.AllowSizing = .f. var_Column2 = var_Columns.Add("P3") var_Column2.Width = 32 var_Column2.AllowSizing = .f. var_Column3 = var_Columns.Add("P4") var_Column3.Width = 32 var_Column3.AllowSizing = .f. var_Items = var_Group.Items h = var_Items.AddItem("Group 1") ' var_Items.CellHAlignment(h,0) = 1 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellHAlignment(h,0) = 1" ' var_Items.ItemDivider(h) = 0 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemDivider(h) = 0" ' var_Items.ItemDividerLineAlignment(h) = 1 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemDividerLineAlignment(h) = 1" ' var_Items.ItemHeight(h) = 24 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemHeight(h) = 24" ' var_Items.SortableItem(h) = .f. oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.SortableItem(h) = False" h1 = var_Items.InsertItem(h,,"Team 1") ' var_Items.CellCaption(h1,1) = 11 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 11" ' var_Items.CellCaption(h1,2) = 2 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 2" ' var_Items.CellCaption(h1,3) = 3 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,3) = 3" ' var_Items.CellCaption(h1,4) = 12 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,4) = 12" h1 = var_Items.InsertItem(h,,"Team 2") ' var_Items.CellCaption(h1,1) = 2 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 2" ' var_Items.CellCaption(h1,2) = 3 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 3" ' var_Items.CellCaption(h1,3) = 4 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,3) = 4" ' var_Items.CellCaption(h1,4) = 2 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,4) = 2" ' var_Items.ExpandItem(h) = .t. oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ExpandItem(h) = True" h = var_Items.AddItem("Group 2") ' var_Items.CellHAlignment(h,0) = 1 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellHAlignment(h,0) = 1" ' var_Items.ItemDivider(h) = 0 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemDivider(h) = 0" ' var_Items.ItemDividerLineAlignment(h) = 1 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemDividerLineAlignment(h) = 1" ' var_Items.ItemHeight(h) = 24 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemHeight(h) = 24" ' var_Items.SortableItem(h) = .f. oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.SortableItem(h) = False" h1 = var_Items.InsertItem(h,,"Team 1") ' var_Items.CellCaption(h1,1) = 1 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 1" ' var_Items.CellCaption(h1,2) = 2 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 2" ' var_Items.CellCaption(h1,3) = 3 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,3) = 3" ' var_Items.CellCaption(h1,4) = 4 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,4) = 4" h1 = var_Items.InsertItem(h,,"Team 2") ' var_Items.CellCaption(h1,1) = 5 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 5" ' var_Items.CellCaption(h1,2) = 6 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 6" ' var_Items.CellCaption(h1,3) = 6 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,3) = 6" ' var_Items.CellCaption(h1,4) = 16 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,4) = 16" ' var_Items.ExpandItem(h) = .t. oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ExpandItem(h) = True" var_Group.Expanded = .t. ' oExplorerTree.Groups.Add("Classament <b>D").Shortcut = "<img>3</img>" var_Group1 = oExplorerTree.Groups.Add("Classament <b>D") oExplorerTree.TemplateDef = "dim var_Group1" oExplorerTree.TemplateDef = var_Group1 oExplorerTree.Template = "var_Group1.Shortcut = `<img>3</img>`" var_Group2 = oExplorerTree.Groups.Add("Classament <b>B") var_Group2.Shortcut = "<img>1</img>" var_Group2.CaptionFormat = 1 var_Group2.Columns.Clear() var_Group3 = oExplorerTree.Groups.Add("Classament <b>C") var_Group3.Shortcut = "<img>1</img>" var_Group3.Columns.Clear() var_Column4 = var_Group3.Columns.Add("Group") ' var_Column4.Def(0) = .t. oExplorerTree.TemplateDef = "dim var_Column4" oExplorerTree.TemplateDef = var_Column4 oExplorerTree.Template = "var_Column4.Def(0) = True" var_Column4.PartialCheck = .t. var_Column5 = var_Group3.Columns.Add("P1") ' var_Column5.Def(0) = .t. oExplorerTree.TemplateDef = "dim var_Column5" oExplorerTree.TemplateDef = var_Column5 oExplorerTree.Template = "var_Column5.Def(0) = True" var_Column5.PartialCheck = .t. var_Column5.Width = 32 var_Column5.AllowSizing = .f. var_Column5.LevelKey = 1 var_Column6 = var_Group3.Columns.Add("P2") ' var_Column6.Def(0) = .t. oExplorerTree.TemplateDef = "dim var_Column6" oExplorerTree.TemplateDef = var_Column6 oExplorerTree.Template = "var_Column6.Def(0) = True" var_Column6.PartialCheck = .t. var_Column6.Width = 32 var_Column6.AllowSizing = .f. var_Column6.LevelKey = 1 var_Column7 = var_Group3.Columns.Add("P3") ' var_Column7.Def(0) = .t. oExplorerTree.TemplateDef = "dim var_Column7" oExplorerTree.TemplateDef = var_Column7 oExplorerTree.Template = "var_Column7.Def(0) = True" var_Column7.PartialCheck = .t. var_Column7.Width = 32 var_Column7.AllowSizing = .f. var_Column7.LevelKey = 2 var_Column8 = var_Group3.Columns.Add("P4") ' var_Column8.Def(0) = .t. oExplorerTree.TemplateDef = "dim var_Column8" oExplorerTree.TemplateDef = var_Column8 oExplorerTree.Template = "var_Column8.Def(0) = True" var_Column8.PartialCheck = .t. var_Column8.Width = 32 var_Column8.AllowSizing = .f. var_Column8.LevelKey = 2 var_Items1 = var_Group3.Items h = var_Items1.AddItem("Group 1") ' var_Items1.CellMerge(h,0) = 1 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 1" ' var_Items1.CellMerge(h,0) = 2 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 2" ' var_Items1.CellMerge(h,0) = 3 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 3" ' var_Items1.CellMerge(h,0) = 4 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 4" var_Items1.InsertItem(h,,"Team 1") ' var_Items1.CellState(var_Items1.InsertItem(h,,"Team 2"),0) = 1 oExplorerTree.TemplateDef = "dim var_Items1" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.Template = "var_Items1.CellState(InsertItem(h,,`Team 2`),0) = 1" ' var_Items1.ExpandItem(h) = .t. oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.ExpandItem(h) = True" h = var_Items1.AddItem("Group 2") ' var_Items1.CellMerge(h,0) = 1 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 1" ' var_Items1.CellMerge(h,0) = 2 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 2" ' var_Items1.CellMerge(h,0) = 3 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 3" ' var_Items1.CellMerge(h,0) = 4 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 4" var_Items1.InsertItem(h,,"Team 1") var_Items1.InsertItem(h,,"Team 2") ' var_Items1.ExpandItem(h) = .t. oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.ExpandItem(h) = True" var_Group3.AutoHeight = .t. var_Group3.Expanded = .t. oExplorerTree.EndUpdate()
26	ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons) ' Occurs when a new group is added to collection. function AddGroup as v (Group as OLE::Exontrol.ExplorerTree.1::IGroup) oExplorerTree = topparent:CONTROL_ACTIVEX1.activex end function Dim h as N Dim h1 as N Dim oExplorerTree as P Dim var_Appearance as P Dim var_Column as P Dim var_Column1 as P Dim var_Column2 as P Dim var_Column3 as P Dim var_Column4 as P Dim var_Column5 as P Dim var_Column6 as P Dim var_Column7 as P Dim var_Column8 as P Dim var_Columns as P Dim var_Group as P Dim var_Group1 as local Dim var_Group2 as P Dim var_Group3 as P Dim var_Items as P Dim var_Items1 as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex oExplorerTree.BeginUpdate() oExplorerTree.ShowShortcutBar = .t. oExplorerTree.ImageSize = 16 oExplorerTree.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/XioW5rD8ZbrUZuVg6n1dsE/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/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWRJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==") var_Appearance = oExplorerTree.VisualAppearance var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==") var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4gaBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==") var_Appearance.Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjVHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=") var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==") oExplorerTree.Template = "Background(20) = 67108864" // oExplorerTree.Background(20) = 67108864 oExplorerTree.Template = "Background(21) = 0" // oExplorerTree.Background(21) = 0 oExplorerTree.Template = "Background(26) = BackColor" // oExplorerTree.Background(26) = oExplorerTree.BackColor oExplorerTree.Template = "Background(27) = ForeColor" // oExplorerTree.Background(27) = oExplorerTree.ForeColor oExplorerTree.Template = "Background(32) = -1" // oExplorerTree.Background(32) = -1 oExplorerTree.Template = "Background(0) = 67108864" // oExplorerTree.Background(0) = 67108864 oExplorerTree.Template = "Background(41) = 67174657" // oExplorerTree.Background(41) = 67174657 oExplorerTree.Template = "Background(1) = 67109119" // oExplorerTree.Background(1) = 67109119 var_Group = oExplorerTree.Groups.Add("Classament <b>A</b>") var_Group.Columns.Clear() var_Group.Shortcut = "<img>1</img>" var_Group.HasLines = 0 var_Columns = var_Group.Columns var_Columns.Add("Group") var_Column = var_Columns.Add("P1") var_Column.Width = 32 var_Column.AllowSizing = .f. var_Column1 = var_Columns.Add("P2") var_Column1.Width = 32 var_Column1.AllowSizing = .f. var_Column2 = var_Columns.Add("P3") var_Column2.Width = 32 var_Column2.AllowSizing = .f. var_Column3 = var_Columns.Add("P4") var_Column3.Width = 32 var_Column3.AllowSizing = .f. var_Items = var_Group.Items h = var_Items.AddItem("Group 1") ' var_Items.CellHAlignment(h,0) = 1 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellHAlignment(h,0) = 1" ' var_Items.ItemDivider(h) = 0 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemDivider(h) = 0" ' var_Items.ItemDividerLineAlignment(h) = 1 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemDividerLineAlignment(h) = 1" ' var_Items.ItemHeight(h) = 24 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemHeight(h) = 24" ' var_Items.SortableItem(h) = .f. oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.SortableItem(h) = False" h1 = var_Items.InsertItem(h,,"Team 1") ' var_Items.CellCaption(h1,1) = 11 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 11" ' var_Items.CellCaption(h1,2) = 2 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 2" ' var_Items.CellCaption(h1,3) = 3 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,3) = 3" ' var_Items.CellCaption(h1,4) = 12 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,4) = 12" h1 = var_Items.InsertItem(h,,"Team 2") ' var_Items.CellCaption(h1,1) = 2 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 2" ' var_Items.CellCaption(h1,2) = 3 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 3" ' var_Items.CellCaption(h1,3) = 4 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,3) = 4" ' var_Items.CellCaption(h1,4) = 2 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,4) = 2" ' var_Items.ExpandItem(h) = .t. oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ExpandItem(h) = True" h = var_Items.AddItem("Group 2") ' var_Items.CellHAlignment(h,0) = 1 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellHAlignment(h,0) = 1" ' var_Items.ItemDivider(h) = 0 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemDivider(h) = 0" ' var_Items.ItemDividerLineAlignment(h) = 1 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemDividerLineAlignment(h) = 1" ' var_Items.ItemHeight(h) = 24 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemHeight(h) = 24" ' var_Items.SortableItem(h) = .f. oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.SortableItem(h) = False" h1 = var_Items.InsertItem(h,,"Team 1") ' var_Items.CellCaption(h1,1) = 1 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 1" ' var_Items.CellCaption(h1,2) = 2 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 2" ' var_Items.CellCaption(h1,3) = 3 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,3) = 3" ' var_Items.CellCaption(h1,4) = 4 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,4) = 4" h1 = var_Items.InsertItem(h,,"Team 2") ' var_Items.CellCaption(h1,1) = 5 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 5" ' var_Items.CellCaption(h1,2) = 6 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 6" ' var_Items.CellCaption(h1,3) = 6 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,3) = 6" ' var_Items.CellCaption(h1,4) = 16 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,4) = 16" ' var_Items.ExpandItem(h) = .t. oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ExpandItem(h) = True" var_Group.Expanded = .t. ' oExplorerTree.Groups.Add("Classament <b>D").Shortcut = "<img>3</img>" var_Group1 = oExplorerTree.Groups.Add("Classament <b>D") oExplorerTree.TemplateDef = "dim var_Group1" oExplorerTree.TemplateDef = var_Group1 oExplorerTree.Template = "var_Group1.Shortcut = `<img>3</img>`" var_Group2 = oExplorerTree.Groups.Add("Classament <b>B") var_Group2.Shortcut = "<img>1</img>" var_Group2.CaptionFormat = 1 var_Group2.Columns.Clear() var_Group3 = oExplorerTree.Groups.Add("Classament <b>C") var_Group3.Shortcut = "<img>1</img>" var_Group3.Columns.Clear() var_Column4 = var_Group3.Columns.Add("Group") ' var_Column4.Def(0) = .t. oExplorerTree.TemplateDef = "dim var_Column4" oExplorerTree.TemplateDef = var_Column4 oExplorerTree.Template = "var_Column4.Def(0) = True" var_Column4.PartialCheck = .t. var_Column5 = var_Group3.Columns.Add("P1") ' var_Column5.Def(0) = .t. oExplorerTree.TemplateDef = "dim var_Column5" oExplorerTree.TemplateDef = var_Column5 oExplorerTree.Template = "var_Column5.Def(0) = True" var_Column5.PartialCheck = .t. var_Column5.Width = 32 var_Column5.AllowSizing = .f. var_Column5.LevelKey = 1 var_Column6 = var_Group3.Columns.Add("P2") ' var_Column6.Def(0) = .t. oExplorerTree.TemplateDef = "dim var_Column6" oExplorerTree.TemplateDef = var_Column6 oExplorerTree.Template = "var_Column6.Def(0) = True" var_Column6.PartialCheck = .t. var_Column6.Width = 32 var_Column6.AllowSizing = .f. var_Column6.LevelKey = 1 var_Column7 = var_Group3.Columns.Add("P3") ' var_Column7.Def(0) = .t. oExplorerTree.TemplateDef = "dim var_Column7" oExplorerTree.TemplateDef = var_Column7 oExplorerTree.Template = "var_Column7.Def(0) = True" var_Column7.PartialCheck = .t. var_Column7.Width = 32 var_Column7.AllowSizing = .f. var_Column7.LevelKey = 2 var_Column8 = var_Group3.Columns.Add("P4") ' var_Column8.Def(0) = .t. oExplorerTree.TemplateDef = "dim var_Column8" oExplorerTree.TemplateDef = var_Column8 oExplorerTree.Template = "var_Column8.Def(0) = True" var_Column8.PartialCheck = .t. var_Column8.Width = 32 var_Column8.AllowSizing = .f. var_Column8.LevelKey = 2 var_Items1 = var_Group3.Items h = var_Items1.AddItem("Group 1") ' var_Items1.CellMerge(h,0) = 1 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 1" ' var_Items1.CellMerge(h,0) = 2 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 2" ' var_Items1.CellMerge(h,0) = 3 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 3" ' var_Items1.CellMerge(h,0) = 4 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 4" var_Items1.InsertItem(h,,"Team 1") ' var_Items1.CellState(var_Items1.InsertItem(h,,"Team 2"),0) = 1 oExplorerTree.TemplateDef = "dim var_Items1" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.Template = "var_Items1.CellState(InsertItem(h,,`Team 2`),0) = 1" ' var_Items1.ExpandItem(h) = .t. oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.ExpandItem(h) = True" h = var_Items1.AddItem("Group 2") ' var_Items1.CellMerge(h,0) = 1 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 1" ' var_Items1.CellMerge(h,0) = 2 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 2" ' var_Items1.CellMerge(h,0) = 3 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 3" ' var_Items1.CellMerge(h,0) = 4 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 4" var_Items1.InsertItem(h,,"Team 1") var_Items1.InsertItem(h,,"Team 2") ' var_Items1.ExpandItem(h) = .t. oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.ExpandItem(h) = True" var_Group3.AutoHeight = .t. var_Group3.Expanded = .t. oExplorerTree.EndUpdate()
25	Highlight the item from the cursor Dim h as N Dim hotback as Dim oExplorerTree as P Dim selback as Dim var_Group as P Dim var_Group1 as P Dim var_Items as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex hotback = 16748574 selback = 16736256 oExplorerTree.BeginUpdate() var_Group = oExplorerTree.Groups.Add("Group 1") var_Group.LinesAtRoot = -1 var_Group.HasLines = 0 var_Group.ShowFocusRect = .f. var_Items = var_Group.Items var_Items.AddItem("Item A") h = var_Items.AddItem("Item B") var_Items.InsertItem(h,,"Child 1") var_Items.InsertItem(h,,"Child 2") var_Items.AddItem("Item C") var_Group.SelBackColor = selback var_Group.HotBackColor = hotback var_Group.HotForeColor = var_Group.SelForeColor var_Group.Expanded = .t. var_Group.AutoHeight = .t. var_Group1 = oExplorerTree.Groups.Add("Group 2") var_Group1.Items.AddItem("Item A") var_Group1.Items.AddItem("Item B") var_Group1.Items.AddItem("Item C") var_Group1.ShowFocusRect = .f. var_Group1.SelBackColor = selback var_Group1.HotBackColor = hotback var_Group1.HotForeColor = var_Group1.SelForeColor var_Group1.Expanded = .t. var_Group1.AutoHeight = .t. oExplorerTree.EndUpdate()
24	Classament Dim h as N Dim h1 as N Dim oExplorerTree as P Dim var_Column as P Dim var_Column1 as P Dim var_Column2 as P Dim var_Column3 as P Dim var_Column4 as P Dim var_Column5 as P Dim var_Column6 as P Dim var_Column7 as P Dim var_Column8 as P Dim var_Columns as P Dim var_Group as P Dim var_Group1 as local Dim var_Group2 as P Dim var_Group3 as P Dim var_Items as P Dim var_Items1 as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex oExplorerTree.Images("gBJJgBAIEAAGAEGCAAhb/hz/EIAh8Tf5CJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1BAmBhOCwMGwuDw2ExWJxmIx2HyGLv+TlykUCgABmGYzzObzuczWcKujzOa0ug02hz+r1Wtz2qoCA2QAYG1yk02YA3NMy2Yh8Sh202zx4gA4jxADM5XG4vHACy6ESdjM6XUZiZTMS5bwZSm1c83+yQHCYHk81Q8O7qW18u/9NG3vAf/y83u4PQWQA0ZVADq/z6um6rkuw7TqH+5bYJu+z5vE8z2N02cGweoDfwfCrbQfBqkNzBb6QfDLxp6+LlOs5cSOTEzlm7FYACFFwADvGIAGvGjzOu7MbwHHECQSmUOvS8cGwk20gQc2ycQs4MLvLD8MNtDSfyS+cmyZJzywa96axzDsTw6/x1AAL8xRbF8Vm65jkH/AL8QFNTqR6lsfuDIb2uDKTzTo88FTtIk+PK3SNRDKiew5JVDSnK08NnOUGRClkt0PFEDUjMwAENS4AM2zj4udNznujT1PTgjdGQg8c71RPtESvCL1JrO8lozQUj1nP6d1TKtc0U8dS1jCaNRzGhrxnGthWJYdjUrYwc2ZMMx2NB8czZNk4VLPMstzXD6Q6mltVjPNAT0m1CvnDtBxBXlI3PRKNzZDtjQ6cd5TQ/TSU0/r/udC0A1Ez1SUja8/QhWVavrSLfpxWNzXZR2CygmVtXXVl03Lg+BV+lV3UjeDgzEL4AXkcb6Pje5LZNDzhuLfrOX/RtT0TQbc5lENSvBi2K5xlFdUHhN1ZhJ9F59WybOU7NjWTFkvxhGT9zIIQAWYHIABFqmnABSsT0HUaNYlI1dZmjNuUDRybzvIVWyDoOc54n8Oyxm9Ta9cSUaLbbg44+b4xiO9nY/pt73u38Tuc52tpdruYxDVyUbBV+gYpu2c7PyGMKTt21cjnW6OvzO8PppUvP/Ljlt/wt/Vvn+v8V1eCdbgaa7fnMi8vyD0TnzGEJXyp/wJ3js98iXe+F3/hwGM3jeQZjTeUznmOT5bTKJyqYcbm2c5bzXpqvsWw4FUkCO473wgB8cD9/znzO14n1+D4/efcTP4fl5+WKvxbbptmqV+B/ni/68R4514AvxeTAR50B3oPNei/iBhFgfErgeR4kBIiSAAJKSiC7PT5wMKIQ4fwfyHDzg2PwD4/B/jgg2PgA48AfjgB+RkeAARwAPGAA8jI4AADgAOMAAZGTyw6YbDkA7ZDaAHgxDyCxGgBw8EBBmJcS4LjAATDweBGoqjgAGP4jQ/AcjwAHBsiQex8gPH+MF7pDxxkB") oExplorerTree.VisualAppearance.Add(1,"E:\Exontrol\ExG2antt\sample\EBN\vistasel.ebn") oExplorerTree.BeginUpdate() oExplorerTree.ShowShortcutBar = .t. var_Group = oExplorerTree.Groups.Add("Classament <b>A</b>") var_Group.IndentGroupLeft = 18 var_Group.IndentGroupRight = 18 var_Group.SelBackMode = 1 var_Group.ShowFocusRect = .f. var_Group.SelBackColor = 16777216 var_Group.SelForeColor = 0 var_Group.CaptionFormat = 1 var_Group.Shortcut = "<img>1</img>" var_Group.AutoHeight = .t. var_Group.HeaderVisible = .t. var_Group.Columns.Clear() var_Group.HasLines = 0 var_Group.ScrollBySingleLine = .t. var_Group.MarkSearchColumn = .f. var_Columns = var_Group.Columns var_Columns.Add("Group") var_Column = var_Columns.Add("P1") var_Column.Width = 32 var_Column.AllowSizing = .f. var_Column1 = var_Columns.Add("P2") var_Column1.Width = 32 var_Column1.AllowSizing = .f. var_Column2 = var_Columns.Add("P3") var_Column2.Width = 32 var_Column2.AllowSizing = .f. var_Column3 = var_Columns.Add("P4") var_Column3.Width = 32 var_Column3.AllowSizing = .f. var_Items = var_Group.Items h = var_Items.AddItem("Group 1") ' var_Items.CellHAlignment(h,0) = 1 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellHAlignment(h,0) = 1" ' var_Items.ItemDivider(h) = 0 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemDivider(h) = 0" ' var_Items.ItemDividerLineAlignment(h) = 1 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemDividerLineAlignment(h) = 1" ' var_Items.ItemHeight(h) = 24 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemHeight(h) = 24" ' var_Items.SortableItem(h) = .f. oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.SortableItem(h) = False" h1 = var_Items.InsertItem(h,,"Team 1") ' var_Items.CellCaption(h1,1) = 11 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 11" ' var_Items.CellCaption(h1,2) = 2 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 2" ' var_Items.CellCaption(h1,3) = 3 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,3) = 3" ' var_Items.CellCaption(h1,4) = 12 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,4) = 12" h1 = var_Items.InsertItem(h,,"Team 2") ' var_Items.CellCaption(h1,1) = 2 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 2" ' var_Items.CellCaption(h1,2) = 3 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 3" ' var_Items.CellCaption(h1,3) = 4 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,3) = 4" ' var_Items.CellCaption(h1,4) = 2 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,4) = 2" ' var_Items.ExpandItem(h) = .t. oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ExpandItem(h) = True" h = var_Items.AddItem("Group 2") ' var_Items.CellHAlignment(h,0) = 1 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellHAlignment(h,0) = 1" ' var_Items.ItemDivider(h) = 0 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemDivider(h) = 0" ' var_Items.ItemDividerLineAlignment(h) = 1 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemDividerLineAlignment(h) = 1" ' var_Items.ItemHeight(h) = 24 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemHeight(h) = 24" ' var_Items.SortableItem(h) = .f. oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.SortableItem(h) = False" h1 = var_Items.InsertItem(h,,"Team 1") ' var_Items.CellCaption(h1,1) = 1 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 1" ' var_Items.CellCaption(h1,2) = 2 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 2" ' var_Items.CellCaption(h1,3) = 3 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,3) = 3" ' var_Items.CellCaption(h1,4) = 4 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,4) = 4" h1 = var_Items.InsertItem(h,,"Team 2") ' var_Items.CellCaption(h1,1) = 5 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 5" ' var_Items.CellCaption(h1,2) = 6 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 6" ' var_Items.CellCaption(h1,3) = 6 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,3) = 6" ' var_Items.CellCaption(h1,4) = 16 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,4) = 16" ' var_Items.ExpandItem(h) = .t. oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ExpandItem(h) = True" var_Group.Expanded = .t. ' oExplorerTree.Groups.Add("Classament 4").Shortcut = "<img>4</img>" var_Group1 = oExplorerTree.Groups.Add("Classament 4") oExplorerTree.TemplateDef = "dim var_Group1" oExplorerTree.TemplateDef = var_Group1 oExplorerTree.Template = "var_Group1.Shortcut = `<img>4</img>`" var_Group2 = oExplorerTree.Groups.Add("Classament <b>B") var_Group2.Shortcut = "<img>1</img>" var_Group2.CaptionFormat = 1 var_Group3 = oExplorerTree.Groups.Add("Classament <b>C") var_Group3.IndentGroupLeft = 18 var_Group3.IndentGroupRight = 18 var_Group3.SelBackMode = 1 var_Group3.ShowFocusRect = .f. var_Group3.SelBackColor = 16777216 var_Group3.SelForeColor = 0 var_Group3.CaptionFormat = 1 var_Group3.Shortcut = "<img>1</img>" var_Group3.HeaderVisible = .t. var_Group3.MarkSearchColumn = .f. var_Group3.Columns.Clear() var_Group3.LinesAtRoot = -1 var_Column4 = var_Group3.Columns.Add("Group") ' var_Column4.Def(0) = .t. oExplorerTree.TemplateDef = "dim var_Column4" oExplorerTree.TemplateDef = var_Column4 oExplorerTree.Template = "var_Column4.Def(0) = True" var_Column4.PartialCheck = .t. var_Column5 = var_Group3.Columns.Add("P1") ' var_Column5.Def(0) = .t. oExplorerTree.TemplateDef = "dim var_Column5" oExplorerTree.TemplateDef = var_Column5 oExplorerTree.Template = "var_Column5.Def(0) = True" var_Column5.PartialCheck = .t. var_Column5.Width = 32 var_Column5.AllowSizing = .f. var_Column5.LevelKey = 1 var_Column6 = var_Group3.Columns.Add("P2") ' var_Column6.Def(0) = .t. oExplorerTree.TemplateDef = "dim var_Column6" oExplorerTree.TemplateDef = var_Column6 oExplorerTree.Template = "var_Column6.Def(0) = True" var_Column6.PartialCheck = .t. var_Column6.Width = 32 var_Column6.AllowSizing = .f. var_Column6.LevelKey = 1 var_Column7 = var_Group3.Columns.Add("P3") ' var_Column7.Def(0) = .t. oExplorerTree.TemplateDef = "dim var_Column7" oExplorerTree.TemplateDef = var_Column7 oExplorerTree.Template = "var_Column7.Def(0) = True" var_Column7.PartialCheck = .t. var_Column7.Width = 32 var_Column7.AllowSizing = .f. var_Column7.LevelKey = 2 var_Column8 = var_Group3.Columns.Add("P4") ' var_Column8.Def(0) = .t. oExplorerTree.TemplateDef = "dim var_Column8" oExplorerTree.TemplateDef = var_Column8 oExplorerTree.Template = "var_Column8.Def(0) = True" var_Column8.PartialCheck = .t. var_Column8.Width = 32 var_Column8.AllowSizing = .f. var_Column8.LevelKey = 2 var_Items1 = var_Group3.Items h = var_Items1.AddItem("Group 1") ' var_Items1.CellMerge(h,0) = 1 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 1" ' var_Items1.CellMerge(h,0) = 2 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 2" ' var_Items1.CellMerge(h,0) = 3 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 3" ' var_Items1.CellMerge(h,0) = 4 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 4" var_Items1.InsertItem(h,,"Team 1") var_Items1.InsertItem(h,,"Team 2") ' var_Items1.ExpandItem(h) = .t. oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.ExpandItem(h) = True" h = var_Items1.AddItem("Group 2") ' var_Items1.CellMerge(h,0) = 1 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 1" ' var_Items1.CellMerge(h,0) = 2 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 2" ' var_Items1.CellMerge(h,0) = 3 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 3" ' var_Items1.CellMerge(h,0) = 4 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.CellMerge(h,0) = 4" var_Items1.InsertItem(h,,"Team 1") var_Items1.InsertItem(h,,"Team 2") ' var_Items1.ExpandItem(h) = .t. oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.ExpandItem(h) = True" var_Group3.AutoHeight = .t. var_Group3.Expanded = .t. oExplorerTree.EndUpdate()
23	Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop Dim oExplorerTree as P Dim var_Appearance as P Dim var_Columns as P Dim var_Group as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex oExplorerTree.BeginUpdate() var_Appearance = oExplorerTree.VisualAppearance var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVIUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBeEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIBICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokGKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=") var_Appearance.Add(2,"CP:1 0 -36 0 0") oExplorerTree.Template = "Background(182) = 33554432" // oExplorerTree.Background(182) = 33554432 var_Group = oExplorerTree.Groups.Add("New") var_Group.HeaderVisible = .t. var_Group.HeaderHeight = 22 var_Columns = var_Group.Columns var_Columns.Clear() var_Columns.Add("Column 1") var_Columns.Add("Column 2") var_Columns.Add("Column 3") var_Group.Expanded = .t. oExplorerTree.EndUpdate()
22	How do I get sorted the column as string, numeric, date, date and time. Also how can it be applied to drop down filter panel Dim h as N Dim oExplorerTree as P Dim var_Column as P Dim var_Column1 as P Dim var_Column2 as P Dim var_Column3 as P Dim var_Column4 as P Dim var_Group as P Dim var_Items as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex oExplorerTree.BeginUpdate() var_Group = oExplorerTree.Groups.Add("Group") var_Group.HeaderVisible = .t. var_Group.Columns.Clear() var_Column = var_Group.Columns.Add("Date") var_Column.SortType = 2 var_Column.DisplayFilterButton = .t. var_Column.DisplayFilterPattern = .f. var_Column.DisplayFilterDate = .t. var_Column.FilterList = 1296 'exShowFocusItem + exShowCheckBox + exSortItemsDesc var_Column1 = var_Group.Columns.Add("DateTime") var_Column1.SortType = 3 var_Column1.DisplayFilterButton = .t. var_Column1.DisplayFilterPattern = .f. var_Column1.FilterList = 1296 'exShowFocusItem + exShowCheckBox + exSortItemsDesc var_Column2 = var_Group.Columns.Add("Time") var_Column2.SortType = 4 var_Column2.DisplayFilterButton = .t. var_Column2.DisplayFilterPattern = .f. var_Column2.FilterList = 1296 'exShowFocusItem + exShowCheckBox + exSortItemsDesc var_Column2.FormatColumn = "time(value)" var_Column3 = var_Group.Columns.Add("Numeric") var_Column3.SortType = 1 var_Column3.DisplayFilterButton = .t. var_Column3.FilterList = 1296 'exShowFocusItem + exShowCheckBox + exSortItemsDesc var_Column4 = var_Group.Columns.Add("String") var_Column4.DisplayFilterButton = .t. var_Column4.FilterList = 1296 'exShowFocusItem + exShowCheckBox + exSortItemsDesc var_Items = var_Group.Items h = var_Items.AddItem({01/27/2010}) ' var_Items.CellCaption(h,1) = {01/27/2010 10:00:00} oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaption(h,1) = #1/27/2010 10:00:00 AM#" ' var_Items.CellCaption(h,2) = var_Items.CellCaption(h,1) oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaption(h,2) = CellCaption(h,1)" ' var_Items.CellCaption(h,3) = 1 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaption(h,3) = 1" ' var_Items.CellCaption(h,4) = var_Items.CellCaption(h,3) oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaption(h,4) = CellCaption(h,3)" h = var_Items.AddItem({01/27/2011}) ' var_Items.CellCaption(h,1) = {01/27/2011 09:00:00} oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaption(h,1) = #1/27/2011 9:00:00 AM#" ' var_Items.CellCaption(h,2) = var_Items.CellCaption(h,1) oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaption(h,2) = CellCaption(h,1)" ' var_Items.CellCaption(h,3) = 11 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaption(h,3) = 11" ' var_Items.CellCaption(h,4) = var_Items.CellCaption(h,3) oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaption(h,4) = CellCaption(h,3)" h = var_Items.AddItem({11/02/2010}) ' var_Items.CellCaption(h,1) = {11/02/2010 09:00:00} oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaption(h,1) = #11/2/2010 9:00:00 AM#" ' var_Items.CellCaption(h,2) = var_Items.CellCaption(h,1) oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaption(h,2) = CellCaption(h,1)" ' var_Items.CellCaption(h,3) = 2 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaption(h,3) = 2" ' var_Items.CellCaption(h,4) = var_Items.CellCaption(h,3) oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaption(h,4) = CellCaption(h,3)" var_Group.Columns.Item("DateTime").DisplayFilterDate = .f. var_Group.Expanded = .t. oExplorerTree.EndUpdate()
21	How do I get the caption of the cell/item from the point ' Occurs when the user moves the mouse. function MouseMove as v (Button as N,Shift as N,X as OLE::Exontrol.ExplorerTree.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.ExplorerTree.1::OLE_YPOS_PIXELS) Dim var_Object as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex var_Object = oExplorerTree.GroupListFromPoint(-1,-1) end function Dim oExplorerTree as P Dim var_Column as local Dim var_Column1 as local Dim var_Group as P Dim var_Group1 as P Dim var_Items as P Dim var_Items1 as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex oExplorerTree.BeginUpdate() var_Group = oExplorerTree.Groups.Add("Group 1") var_Group.HeaderVisible = .t. var_Group.Columns.Clear() var_Group.Columns.Add("Number") ' var_Group.Columns.Add("Round").ComputedField = "round(%0)" var_Column = var_Group.Columns.Add("Round") oExplorerTree.TemplateDef = "dim var_Column" oExplorerTree.TemplateDef = var_Column oExplorerTree.Template = "var_Column.ComputedField = `round(%0)`" var_Items = var_Group.Items var_Items.AddItem("-1.98") var_Items.AddItem("0.99") var_Items.AddItem("1.23") var_Items.AddItem("2.34") var_Group.Expanded = .t. var_Group1 = oExplorerTree.Groups.Add("Group 2") var_Group1.HeaderVisible = .t. var_Group1.Columns.Clear() var_Group1.Columns.Add("Number") ' var_Group1.Columns.Add("Round").ComputedField = "round(%0)" var_Column1 = var_Group1.Columns.Add("Round") oExplorerTree.TemplateDef = "dim var_Column1" oExplorerTree.TemplateDef = var_Column1 oExplorerTree.Template = "var_Column1.ComputedField = `round(%0)`" var_Items1 = var_Group1.Items var_Items1.AddItem("-1.98") var_Items1.AddItem("0.99") var_Items1.AddItem("1.23") var_Items1.AddItem("2.34") var_Group1.Expanded = .t. oExplorerTree.EndUpdate()
20	How can I ensure that a specified item is visible Dim h as N Dim oExplorerTree as P Dim var_Group as P Dim var_Groups as P Dim var_Items as P Dim var_Items1 as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex oExplorerTree.BeginUpdate() var_Groups = oExplorerTree.Groups var_Group = var_Groups.Add("Group") var_Group.Expanded = .t. var_Items = var_Group.Items var_Items.AddItem("Item") var_Items.AddItem("Item") var_Items.AddItem("Item") var_Items.AddItem("Item") var_Group.PutItems(var_Group.GetItems(0),0) var_Group.PutItems(var_Group.GetItems(0),0) var_Group.Items.AddItem("Ensure") var_Items1 = oExplorerTree.Groups.Item(0).Items h = var_Items1.ItemByIndex(16) ' var_Items1.ItemBackColor(h) = 65535 oExplorerTree.TemplateDef = "dim var_Items1,h" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items1.ItemBackColor(h) = 65535" var_Items1.EnsureVisibleItem(h) oExplorerTree.EndUpdate()
19	is it possible to display icons in the control's shortcut bar Dim oExplorerTree as P Dim var_Group as local Dim var_Group1 as local Dim var_Group2 as local Dim var_Group3 as local Dim var_Group4 as local Dim var_Groups as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex oExplorerTree.BeginUpdate() oExplorerTree.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") oExplorerTree.ShowShortcutBar = .t. var_Groups = oExplorerTree.Groups ' var_Groups.Add("Group A.1").Shortcut = "<img>1</img> First Group" var_Group = var_Groups.Add("Group A.1") oExplorerTree.TemplateDef = "dim var_Group" oExplorerTree.TemplateDef = var_Group oExplorerTree.Template = "var_Group.Shortcut = `<img>1</img> First Group`" ' var_Groups.Add("Group A.2").Shortcut = "<img>1</img> First Group" var_Group1 = var_Groups.Add("Group A.2") oExplorerTree.TemplateDef = "dim var_Group1" oExplorerTree.TemplateDef = var_Group1 oExplorerTree.Template = "var_Group1.Shortcut = `<img>1</img> First Group`" ' var_Groups.Add("Group B.1").Shortcut = "<img>2</img> Second Group" var_Group2 = var_Groups.Add("Group B.1") oExplorerTree.TemplateDef = "dim var_Group2" oExplorerTree.TemplateDef = var_Group2 oExplorerTree.Template = "var_Group2.Shortcut = `<img>2</img> Second Group`" ' var_Groups.Add("Group B.2").Shortcut = "<img>2</img> Second Group" var_Group3 = var_Groups.Add("Group B.2") oExplorerTree.TemplateDef = "dim var_Group3" oExplorerTree.TemplateDef = var_Group3 oExplorerTree.Template = "var_Group3.Shortcut = `<img>2</img> Second Group`" ' var_Groups.Add("Group B.3").Shortcut = "<img>2</img> Second Group" var_Group4 = var_Groups.Add("Group B.3") oExplorerTree.TemplateDef = "dim var_Group4" oExplorerTree.TemplateDef = var_Group4 oExplorerTree.Template = "var_Group4.Shortcut = `<img>2</img> Second Group`" oExplorerTree.EndUpdate()
18	How can I display the control's shortcut bar Dim oExplorerTree as P Dim var_Group as local Dim var_Group1 as local Dim var_Group2 as local Dim var_Group3 as local Dim var_Group4 as local Dim var_Groups as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex oExplorerTree.BeginUpdate() oExplorerTree.ShowShortcutBar = .t. var_Groups = oExplorerTree.Groups ' var_Groups.Add("Group A.1").Shortcut = "A" var_Group = var_Groups.Add("Group A.1") oExplorerTree.TemplateDef = "dim var_Group" oExplorerTree.TemplateDef = var_Group oExplorerTree.Template = "var_Group.Shortcut = `A`" ' var_Groups.Add("Group A.2").Shortcut = "A" var_Group1 = var_Groups.Add("Group A.2") oExplorerTree.TemplateDef = "dim var_Group1" oExplorerTree.TemplateDef = var_Group1 oExplorerTree.Template = "var_Group1.Shortcut = `A`" ' var_Groups.Add("Group B.1").Shortcut = "B" var_Group2 = var_Groups.Add("Group B.1") oExplorerTree.TemplateDef = "dim var_Group2" oExplorerTree.TemplateDef = var_Group2 oExplorerTree.Template = "var_Group2.Shortcut = `B`" ' var_Groups.Add("Group B.2").Shortcut = "B" var_Group3 = var_Groups.Add("Group B.2") oExplorerTree.TemplateDef = "dim var_Group3" oExplorerTree.TemplateDef = var_Group3 oExplorerTree.Template = "var_Group3.Shortcut = `B`" ' var_Groups.Add("Group B.3").Shortcut = "B" var_Group4 = var_Groups.Add("Group B.3") oExplorerTree.TemplateDef = "dim var_Group4" oExplorerTree.TemplateDef = var_Group4 oExplorerTree.Template = "var_Group4.Shortcut = `B`" oExplorerTree.EndUpdate()
17	Can I display the cell's check box after the text Dim oExplorerTree as P Dim var_Column as P Dim var_Group as P Dim var_Items as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex oExplorerTree.BeginUpdate() var_Group = oExplorerTree.Groups.Add("Default") var_Group.Expanded = .t. var_Column = var_Group.Columns.Item(0) ' var_Column.Def(0) = .t. oExplorerTree.TemplateDef = "dim var_Column" oExplorerTree.TemplateDef = var_Column oExplorerTree.Template = "var_Column.Def(0) = True" ' var_Column.Def(34) = "caption,check" oExplorerTree.TemplateDef = "dim var_Column" oExplorerTree.TemplateDef = var_Column oExplorerTree.Template = "var_Column.Def(34) = `caption,check`" var_Items = var_Group.Items ' var_Items.CellHasCheckBox(var_Items.AddItem("Caption 1"),0) = .t. oExplorerTree.TemplateDef = "dim var_Items" oExplorerTree.TemplateDef = var_Items oExplorerTree.Template = "var_Items.CellHasCheckBox(AddItem(`Caption 1`),0) = True" ' var_Items.CellHasCheckBox(var_Items.AddItem("Caption 2"),0) = .t. oExplorerTree.TemplateDef = "dim var_Items" oExplorerTree.TemplateDef = var_Items oExplorerTree.Template = "var_Items.CellHasCheckBox(AddItem(`Caption 2`),0) = True" oExplorerTree.EndUpdate()
16	Can I change the order of the parts in the cell, as checkbox after the text, and so on Dim h as N Dim oExplorerTree as P Dim var_Columns as local Dim var_Group as P Dim var_Items as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex oExplorerTree.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") oExplorerTree.BeginUpdate() var_Group = oExplorerTree.Groups.Add("Default") var_Group.Expanded = .t. ' var_Group.Columns.Item(0).Def(34) = "caption,check,icon,icons,picture" var_Columns = var_Group.Columns.Item(0) oExplorerTree.TemplateDef = "dim var_Columns" oExplorerTree.TemplateDef = var_Columns oExplorerTree.Template = "var_Columns.Def(34) = `caption,check,icon,icons,picture`" var_Items = var_Group.Items h = var_Items.AddItem("Text") ' var_Items.CellImage(h,0) = 1 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellImage(h,0) = 1" ' var_Items.CellHasCheckBox(h,0) = .t. oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellHasCheckBox(h,0) = True" oExplorerTree.EndUpdate()
15	Can I have an image displayed after the text. Can I get that effect without using HTML content Dim h as N Dim oExplorerTree as P Dim var_Columns as local Dim var_Group as P Dim var_Items as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex oExplorerTree.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") oExplorerTree.BeginUpdate() var_Group = oExplorerTree.Groups.Add("Default") var_Group.Expanded = .t. ' var_Group.Columns.Item(0).Def(34) = "caption,icon,check,icons,picture" var_Columns = var_Group.Columns.Item(0) oExplorerTree.TemplateDef = "dim var_Columns" oExplorerTree.TemplateDef = var_Columns oExplorerTree.Template = "var_Columns.Def(34) = `caption,icon,check,icons,picture`" var_Items = var_Group.Items h = var_Items.AddItem("Text") ' var_Items.CellImage(h,0) = 1 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellImage(h,0) = 1" oExplorerTree.EndUpdate()
14	How do I enable the filter prompt feature Dim h0 as N Dim oExplorerTree as P Dim var_Column as local Dim var_Column1 as local Dim var_Columns as P Dim var_Group as P Dim var_Items as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex oExplorerTree.BeginUpdate() oExplorerTree.Groups.Add("Group 1") var_Group = oExplorerTree.Groups.Add("Group 2") var_Group.AutoHeight = .t. var_Group.HeaderVisible = .t. var_Group.Columns.Clear() var_Group.ColumnAutoResize = .t. var_Group.ContinueColumnScroll = .f. var_Group.MarkSearchColumn = .f. var_Group.SearchColumnIndex = 1 var_Group.FilterBarPromptVisible = .t. var_Columns = var_Group.Columns ' var_Columns.Add("Name").Width = 96 var_Column = var_Columns.Add("Name") oExplorerTree.TemplateDef = "dim var_Column" oExplorerTree.TemplateDef = var_Column oExplorerTree.Template = "var_Column.Width = 96" ' var_Columns.Add("Title").Width = 96 var_Column1 = var_Columns.Add("Title") oExplorerTree.TemplateDef = "dim var_Column1" oExplorerTree.TemplateDef = var_Column1 oExplorerTree.Template = "var_Column1.Width = 96" var_Columns.Add("City") var_Items = var_Group.Items h0 = var_Items.AddItem("Nancy Davolio") ' var_Items.CellCaption(h0,1) = "Sales Representative" oExplorerTree.TemplateDef = "dim var_Items,h0" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h0 oExplorerTree.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`" ' var_Items.CellCaption(h0,2) = "Seattle" oExplorerTree.TemplateDef = "dim var_Items,h0" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h0 oExplorerTree.Template = "var_Items.CellCaption(h0,2) = `Seattle`" h0 = var_Items.AddItem("Andrew Fuller") ' var_Items.CellCaption(h0,1) = "Vice President, Sales" oExplorerTree.TemplateDef = "dim var_Items,h0" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h0 oExplorerTree.Template = "var_Items.CellCaption(h0,1) = `Vice President, Sales`" ' var_Items.CellCaption(h0,2) = "Tacoma" oExplorerTree.TemplateDef = "dim var_Items,h0" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h0 oExplorerTree.Template = "var_Items.CellCaption(h0,2) = `Tacoma`" ' var_Items.SelectItem(h0) = .t. oExplorerTree.TemplateDef = "dim var_Items,h0" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h0 oExplorerTree.Template = "var_Items.SelectItem(h0) = True" h0 = var_Items.AddItem("Janet Leverling") ' var_Items.CellCaption(h0,1) = "Sales Representative" oExplorerTree.TemplateDef = "dim var_Items,h0" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h0 oExplorerTree.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`" ' var_Items.CellCaption(h0,2) = "Kirkland" oExplorerTree.TemplateDef = "dim var_Items,h0" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h0 oExplorerTree.Template = "var_Items.CellCaption(h0,2) = `Kirkland`" h0 = var_Items.AddItem("Margaret Peacock") ' var_Items.CellCaption(h0,1) = "Sales Representative" oExplorerTree.TemplateDef = "dim var_Items,h0" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h0 oExplorerTree.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`" ' var_Items.CellCaption(h0,2) = "Redmond" oExplorerTree.TemplateDef = "dim var_Items,h0" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h0 oExplorerTree.Template = "var_Items.CellCaption(h0,2) = `Redmond`" h0 = var_Items.AddItem("Steven Buchanan") ' var_Items.CellCaption(h0,1) = "Sales Manager" oExplorerTree.TemplateDef = "dim var_Items,h0" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h0 oExplorerTree.Template = "var_Items.CellCaption(h0,1) = `Sales Manager`" ' var_Items.CellCaption(h0,2) = "London" oExplorerTree.TemplateDef = "dim var_Items,h0" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h0 oExplorerTree.Template = "var_Items.CellCaption(h0,2) = `London`" h0 = var_Items.AddItem("Michael Suyama") ' var_Items.CellCaption(h0,1) = "Sales Representative" oExplorerTree.TemplateDef = "dim var_Items,h0" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h0 oExplorerTree.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`" ' var_Items.CellCaption(h0,2) = "London" oExplorerTree.TemplateDef = "dim var_Items,h0" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h0 oExplorerTree.Template = "var_Items.CellCaption(h0,2) = `London`" h0 = var_Items.AddItem("Robert King") ' var_Items.CellCaption(h0,1) = "Sales Representative" oExplorerTree.TemplateDef = "dim var_Items,h0" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h0 oExplorerTree.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`" ' var_Items.CellCaption(h0,2) = "London" oExplorerTree.TemplateDef = "dim var_Items,h0" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h0 oExplorerTree.Template = "var_Items.CellCaption(h0,2) = `London`" h0 = var_Items.AddItem("Laura Callahan") ' var_Items.CellCaption(h0,1) = "Inside Sales Coordinator" oExplorerTree.TemplateDef = "dim var_Items,h0" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h0 oExplorerTree.Template = "var_Items.CellCaption(h0,1) = `Inside Sales Coordinator`" ' var_Items.CellCaption(h0,2) = "Seattle" oExplorerTree.TemplateDef = "dim var_Items,h0" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h0 oExplorerTree.Template = "var_Items.CellCaption(h0,2) = `Seattle`" h0 = var_Items.AddItem("Anne Dodsworth") ' var_Items.CellCaption(h0,1) = "Sales Representative" oExplorerTree.TemplateDef = "dim var_Items,h0" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h0 oExplorerTree.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`" ' var_Items.CellCaption(h0,2) = "London" oExplorerTree.TemplateDef = "dim var_Items,h0" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h0 oExplorerTree.Template = "var_Items.CellCaption(h0,2) = `London`" var_Group.Expanded = .t. oExplorerTree.Groups.Add("Group 3") oExplorerTree.EndUpdate()
13	Can I specify unsortable items Dim h as N Dim h1 as N Dim oExplorerTree as P Dim var_Columns as P Dim var_Group as P Dim var_Items as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex oExplorerTree.BeginUpdate() var_Group = oExplorerTree.Groups.Add("Default") var_Group.AutoHeight = .t. var_Group.HeaderVisible = .t. var_Group.Columns.Clear() var_Group.HasLines = 0 var_Group.ScrollBySingleLine = .t. var_Group.MarkSearchColumn = .f. var_Columns = var_Group.Columns var_Columns.Add("Name") var_Columns.Add("A") var_Columns.Add("B") var_Columns.Add("C") var_Items = var_Group.Items h = var_Items.AddItem("Group 1") ' var_Items.CellHAlignment(h,0) = 1 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellHAlignment(h,0) = 1" ' var_Items.ItemDivider(h) = 0 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemDivider(h) = 0" ' var_Items.ItemDividerLineAlignment(h) = 3 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemDividerLineAlignment(h) = 3" ' var_Items.ItemHeight(h) = 24 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemHeight(h) = 24" ' var_Items.SortableItem(h) = .f. oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.SortableItem(h) = False" h1 = var_Items.InsertItem(h,,"Child 1") ' var_Items.CellCaption(h1,1) = 1 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 1" ' var_Items.CellCaption(h1,2) = 2 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 2" ' var_Items.CellCaption(h1,3) = 3 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,3) = 3" h1 = var_Items.InsertItem(h,,"Child 2") ' var_Items.CellCaption(h1,1) = 4 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 4" ' var_Items.CellCaption(h1,2) = 5 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 5" ' var_Items.CellCaption(h1,3) = 6 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,3) = 6" ' var_Items.ExpandItem(h) = .t. oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ExpandItem(h) = True" h = var_Items.AddItem("Group 2") ' var_Items.CellHAlignment(h,0) = 1 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellHAlignment(h,0) = 1" ' var_Items.ItemDivider(h) = 0 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemDivider(h) = 0" ' var_Items.ItemDividerLineAlignment(h) = 3 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemDividerLineAlignment(h) = 3" ' var_Items.ItemHeight(h) = 24 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemHeight(h) = 24" ' var_Items.SortableItem(h) = .f. oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.SortableItem(h) = False" h1 = var_Items.InsertItem(h,,"Child 1") ' var_Items.CellCaption(h1,1) = 1 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 1" ' var_Items.CellCaption(h1,2) = 2 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 2" ' var_Items.CellCaption(h1,3) = 3 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,3) = 3" h1 = var_Items.InsertItem(h,,"Child 2") ' var_Items.CellCaption(h1,1) = 4 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 4" ' var_Items.CellCaption(h1,2) = 5 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 5" ' var_Items.CellCaption(h1,3) = 6 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,3) = 6" ' var_Items.ExpandItem(h) = .t. oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ExpandItem(h) = True" var_Group.Expanded = .t. oExplorerTree.EndUpdate()
12	Can I change the style of the line being displayed by a divider item Dim h as N Dim oExplorerTree as P Dim var_Group as P Dim var_Items as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex oExplorerTree.BeginUpdate() var_Group = oExplorerTree.Groups.Add("Default") var_Group.HeaderVisible = .t. var_Group.Columns.Clear() var_Group.MarkSearchColumn = .f. var_Group.TreeColumnIndex = -1 var_Group.ScrollBySingleLine = .f. var_Group.Columns.Add("C1") var_Group.Columns.Add("C2") var_Group.SelBackMode = 1 var_Items = var_Group.Items h = var_Items.AddItem("Cell 1") ' var_Items.CellCaption(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines." oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaption(h,1) = `This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.`" ' var_Items.CellSingleLine(h,1) = .f. oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellSingleLine(h,1) = False" h = var_Items.AddItem("This is bit of text that's displayed on the entire item, divider.") ' var_Items.ItemDivider(h) = 0 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemDivider(h) = 0" ' var_Items.ItemDividerLine(h) = 4 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemDividerLine(h) = 4" ' var_Items.ItemDividerLineAlignment(h) = 3 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemDividerLineAlignment(h) = 3" ' var_Items.CellHAlignment(h,0) = 1 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellHAlignment(h,0) = 1" ' var_Items.ItemHeight(h) = 24 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ItemHeight(h) = 24" var_Group.Expanded = .t. oExplorerTree.EndUpdate()
11	How can I expand all items Dim h as N Dim oExplorerTree as P Dim var_Group as P Dim var_Items as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex oExplorerTree.BeginUpdate() var_Group = oExplorerTree.Groups.Add("Default") var_Group.HeaderVisible = .t. var_Group.Columns.Clear() var_Group.LinesAtRoot = -1 var_Group.Columns.Add("Items") var_Items = var_Group.Items h = var_Items.AddItem("Root 1") var_Items.InsertItem(h,,"Child 1") var_Items.InsertItem(h,,"Child 2") h = var_Items.AddItem("Root 2") var_Items.InsertItem(h,,"Child 1") var_Items.InsertItem(h,,"Child 2") ' var_Items.ExpandItem(0) = .t. oExplorerTree.TemplateDef = "dim var_Items" oExplorerTree.TemplateDef = var_Items oExplorerTree.Template = "var_Items.ExpandItem(0) = True" var_Group.Expanded = .t. oExplorerTree.EndUpdate()
10	Is it possible display numbers in the same format no matter of regional settings in the control panel Dim h as N Dim oExplorerTree as P Dim var_Column as local Dim var_Group as P Dim var_Items as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex var_Group = oExplorerTree.Groups.Add("Default") var_Group.HeaderVisible = .t. var_Group.Columns.Clear() ' var_Group.Columns.Add("Def").Def(17) = 1 var_Column = var_Group.Columns.Add("Def") oExplorerTree.TemplateDef = "dim var_Column" oExplorerTree.TemplateDef = var_Column oExplorerTree.Template = "var_Column.Def(17) = 1" var_Items = var_Group.Items h = var_Items.AddItem(100000.27) ' var_Items.FormatCell(h,0) = "(value format '') + ' <fgcolor=808080>(default positive)'" oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.FormatCell(h,0) = `(value format '') + ' <fgcolor=808080>(default positive)'`" h = var_Items.AddItem(100000.27) ' var_Items.FormatCell(h,0) = "(value format '2\|.\|3\|,\|1\|1')" oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.FormatCell(h,0) = `(value format '2\|.\|3\|,\|1\|1')`" h = var_Items.AddItem(-100000.27) ' var_Items.FormatCell(h,0) = "(value format '') + ' <fgcolor=808080>(default negative)'" oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.FormatCell(h,0) = `(value format '') + ' <fgcolor=808080>(default negative)'`" h = var_Items.AddItem(-100000.27) ' var_Items.FormatCell(h,0) = "(value format '2\|.\|3\|,\|1\|1')" oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.FormatCell(h,0) = `(value format '2\|.\|3\|,\|1\|1')`" var_Group.Expanded = .t.
9	Is it possible to format numbers Dim h as N Dim h1 as N Dim oExplorerTree as P Dim var_Column as P Dim var_Column1 as P Dim var_Column2 as P Dim var_Column3 as P Dim var_Columns as P Dim var_Group as P Dim var_Items as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex oExplorerTree.BeginUpdate() var_Group = oExplorerTree.Groups.Add("Default") var_Group.HeaderVisible = .t. var_Group.MarkSearchColumn = .f. var_Group.Columns.Clear() var_Columns = var_Group.Columns var_Columns.Add("Name") var_Column = var_Columns.Add("A") var_Column.SortType = 1 var_Column.AllowSizing = .f. var_Column.Width = 36 var_Column.FormatColumn = "len(value) ? value + ' +'" var_Column1 = var_Columns.Add("B") var_Column1.SortType = 1 var_Column1.AllowSizing = .f. var_Column1.Width = 36 var_Column1.FormatColumn = "len(value) ? value + ' +'" var_Column2 = var_Columns.Add("C") var_Column2.SortType = 1 var_Column2.AllowSizing = .f. var_Column2.Width = 36 var_Column2.FormatColumn = "len(value) ? value + ' ='" var_Column3 = var_Columns.Add("A+B+C") var_Column3.SortType = 1 var_Column3.Width = 64 var_Column3.ComputedField = "dbl(%1)+dbl(%2)+dbl(%3)" var_Column3.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2\|.\|3\|,\|1' ) : (dbl(value)>0 ? '<fgcolor=0000FF>+'+(value format '2\|.\|3\|,' ): '0.00') )" ' var_Column3.Def(17) = 1 oExplorerTree.TemplateDef = "dim var_Column3" oExplorerTree.TemplateDef = var_Column3 oExplorerTree.Template = "var_Column3.Def(17) = 1" var_Items = var_Group.Items h = var_Items.AddItem("Root") ' var_Items.CellCaptionFormat(h,4) = 2 oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaptionFormat(h,4) = 2" h1 = var_Items.InsertItem(h,,"Child 1") ' var_Items.CellCaption(h1,1) = 7 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 7" ' var_Items.CellCaption(h1,2) = 3 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 3" ' var_Items.CellCaption(h1,3) = 1 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,3) = 1" h1 = var_Items.InsertItem(h,,"Child 2") ' var_Items.CellCaption(h1,1) = -2 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,1) = -2" ' var_Items.CellCaption(h1,2) = -2 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,2) = -2" ' var_Items.CellCaption(h1,3) = -4 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,3) = -4" h1 = var_Items.InsertItem(h,,"Child 3") ' var_Items.CellCaption(h1,1) = 2 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 2" ' var_Items.CellCaption(h1,2) = 2 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 2" ' var_Items.CellCaption(h1,3) = -4 oExplorerTree.TemplateDef = "dim var_Items,h1" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h1 oExplorerTree.Template = "var_Items.CellCaption(h1,3) = -4" ' var_Items.ExpandItem(h) = .t. oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.ExpandItem(h) = True" var_Group.Expanded = .t. oExplorerTree.EndUpdate()
8	Is there any function to round the values base on the .5 value Dim oExplorerTree as P Dim var_Column as local Dim var_Group as P Dim var_Items as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex var_Group = oExplorerTree.Groups.Add("Default") var_Group.HeaderVisible = .t. var_Group.Columns.Clear() var_Group.Columns.Add("Number") ' var_Group.Columns.Add("Round").ComputedField = "round(%0)" var_Column = var_Group.Columns.Add("Round") oExplorerTree.TemplateDef = "dim var_Column" oExplorerTree.TemplateDef = var_Column oExplorerTree.Template = "var_Column.ComputedField = `round(%0)`" var_Items = var_Group.Items var_Items.AddItem("-1.98") var_Items.AddItem("0.99") var_Items.AddItem("1.23") var_Items.AddItem("2.34") var_Group.Expanded = .t.
7	How can I show a column that adds values in the cells Dim oExplorerTree as P Dim var_Column as local Dim var_Group as P Dim var_Items as P Dim var_Items1 as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex var_Group = oExplorerTree.Groups.Add("Default") var_Group.Columns.Clear() var_Group.HeaderVisible = .t. var_Group.Columns.Add("A") var_Group.Columns.Add("B") ' var_Group.Columns.Add("A+B").ComputedField = "dbl(%0) + dbl(%1)" var_Column = var_Group.Columns.Add("A+B") oExplorerTree.TemplateDef = "dim var_Column" oExplorerTree.TemplateDef = var_Column oExplorerTree.Template = "var_Column.ComputedField = `dbl(%0) + dbl(%1)`" var_Items = var_Group.Items ' var_Items.CellCaption(var_Items.AddItem(1),1) = 2 oExplorerTree.TemplateDef = "dim var_Items" oExplorerTree.TemplateDef = var_Items oExplorerTree.Template = "var_Items.CellCaption(AddItem(1),1) = 2" var_Items1 = var_Group.Items ' var_Items1.CellCaption(var_Items1.AddItem(10),1) = 20 oExplorerTree.TemplateDef = "dim var_Items1" oExplorerTree.TemplateDef = var_Items1 oExplorerTree.Template = "var_Items1.CellCaption(AddItem(10),1) = 20" var_Group.Expanded = .t.
6	How do I change the item's background color for numbers less than a value Dim oExplorerTree as P Dim var_ConditionalFormat as local Dim var_Group as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex var_Group = oExplorerTree.Groups.Add("Default") ' var_Group.ConditionalFormats.Add("dbl(%0) < 10").BackColor = 255 var_ConditionalFormat = var_Group.ConditionalFormats.Add("dbl(%0) < 10") oExplorerTree.TemplateDef = "dim var_ConditionalFormat" oExplorerTree.TemplateDef = var_ConditionalFormat oExplorerTree.Template = "var_ConditionalFormat.BackColor = 255" var_Group.Items.AddItem(1) var_Group.Items.AddItem(2) var_Group.Items.AddItem(10) var_Group.Items.AddItem(20) var_Group.Expanded = .t.
5	How do I highlight in bold the numbers greater than a value Dim oExplorerTree as P Dim var_ConditionalFormat as local Dim var_Group as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex var_Group = oExplorerTree.Groups.Add("Default") ' var_Group.ConditionalFormats.Add("dbl(%0) >= 10").Bold = .t. var_ConditionalFormat = var_Group.ConditionalFormats.Add("dbl(%0) >= 10") oExplorerTree.TemplateDef = "dim var_ConditionalFormat" oExplorerTree.TemplateDef = var_ConditionalFormat oExplorerTree.Template = "var_ConditionalFormat.Bold = True" var_Group.Items.AddItem(1) var_Group.Items.AddItem(2) var_Group.Items.AddItem(10) var_Group.Items.AddItem(20) var_Group.Expanded = .t.
4	How do I change the caption being displayed in the control's filter bar Dim oExplorerTree as P Dim var_Column as P Dim var_Group as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex var_Group = oExplorerTree.Groups.Add("Default") var_Group.FilterBarCaption = "your filter caption" var_Column = var_Group.Columns.Add("Column") var_Column.DisplayFilterButton = .t. var_Column.FilterType = 1 var_Group.ApplyFilter() var_Group.Expanded = .t.
3	Is it possible to change the style for the vertical or horizontal grid lines, in the list area Dim h as N Dim oExplorerTree as P Dim var_Column as P Dim var_Group as P Dim var_Items as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex oExplorerTree.BeginUpdate() var_Group = oExplorerTree.Groups.Add("Default") var_Group.AutoHeight = .t. var_Group.DrawGridLines = -1 var_Group.GridLineStyle = 33 'exGridLinesVSolid + exGridLinesHDot4 var_Group.ColumnAutoResize = .f. var_Column = var_Group.Columns.Item(0) var_Column.Caption = "C1" var_Column.Width = 64 var_Group.Columns.Add("C2") var_Group.Columns.Add("C3") var_Group.ColumnAutoResize = .t. var_Items = var_Group.Items h = var_Items.AddItem("Item 1") ' var_Items.CellCaption(h,1) = "SubItem 1.2" oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaption(h,1) = `SubItem 1.2`" ' var_Items.CellCaption(h,2) = "SubItem 1.3" oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaption(h,2) = `SubItem 1.3`" h = var_Items.AddItem("Item 2") ' var_Items.CellCaption(h,1) = "SubItem 2.2" oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaption(h,1) = `SubItem 2.2`" ' var_Items.CellCaption(h,2) = "SubItem 2.3" oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaption(h,2) = `SubItem 2.3`" h = var_Items.AddItem("Item 3") ' var_Items.CellCaption(h,1) = "SubItem 3.2" oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaption(h,1) = `SubItem 3.2`" ' var_Items.CellCaption(h,2) = "SubItem 3.3" oExplorerTree.TemplateDef = "dim var_Items,h" oExplorerTree.TemplateDef = var_Items oExplorerTree.TemplateDef = h oExplorerTree.Template = "var_Items.CellCaption(h,2) = `SubItem 3.3`" var_Group.Expanded = .t. oExplorerTree.EndUpdate()
2	Is it possible to change the style for the grid lines, for instance to be solid not dotted Dim oExplorerTree as P Dim var_Group as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex oExplorerTree.BeginUpdate() var_Group = oExplorerTree.Groups.Add("Default") var_Group.DrawGridLines = -1 var_Group.GridLineStyle = 48 var_Group.Expanded = .t. oExplorerTree.EndUpdate()
1	How can I change the visual appearance for the groups, using your EBN files Dim oExplorerTree as P Dim var_Groups as P oExplorerTree = topparent:CONTROL_ACTIVEX1.activex oExplorerTree.BeginUpdate() oExplorerTree.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") oExplorerTree.BackColorGroup = 16777216 var_Groups = oExplorerTree.Groups var_Groups.Add("Group 1") var_Groups.Add("Group 2") var_Groups.Add("Group 3") oExplorerTree.EndUpdate()