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

with AxExplorerTree1 do
begin
	BeginUpdate();
	Images('gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmDc' + 
	'D/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB');
	with Groups.Add('Group') do
	begin
		Expanded := True;
		AutoHeight := True;
		Columns.Clear();
		with (Columns.Add('ToLeft') as EXPLORERTREELib.Column) do
		begin
			Def[EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
		end;
		with (Columns.Add('ToRight') as EXPLORERTREELib.Column) do
		begin
			Def[EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
			Def[EXPLORERTREELib.DefColumnEnum.exCellDrawPartsOrder] := 'caption,picture,icons,icon,check';
		end;
		DefaultItemHeight := 32;
		DrawGridLines := EXPLORERTREELib.GridLinesEnum.exVLines;
		HeaderAppearance := EXPLORERTREELib.AppearanceEnum.Etched;
		with Items do
		begin
			h := AddItem('Caption');
			CellImage[TObject(h),TObject(0)] := 2;
			CellImages[TObject(h),TObject(0)] := '1,2';
			CellPicture[TObject(h),TObject(0)] := (AxExplorerTree1.ExecuteTemplate('loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsG' + 
	'L2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7F' + 
	'XI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FC' + 
	'jVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4w' + 
	'G8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQ' + 
	'JAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZen' + 
	'EVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFp' + 
	'TheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siq' + 
	'bZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxX' + 
	'hIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DP' + 
	'H8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAm' + 
	'Bgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCME' + 
	'gSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByj' + 
	'JGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0Wg' + 
	'LhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHC' + 
	'BwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1' + 
	'iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL' + 
	'4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0F' + 
	'qGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdg' + 
	'uhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGU' + 
	'SNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhA' + 
	'FaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6' + 
	'BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZ' + 
	'QS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmi' + 
	'XE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAY' + 
	'Aah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5' + 
	'AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARAS' + 
	'A/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AI' + 
	'BdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAd' + 
	'AcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBP' + 
	'hSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAh' + 
	'hLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBv' + 
	'gjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAG' + 
	'hvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/' + 
	'gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sU' + 
	'hMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4Af' + 
	'gZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xM' + 
	'hgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2' + 
	'BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBW' + 
	'hFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagx' + 
	'AkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9Bt' + 
	'nWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBU' + 
	'gphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAj' + 
	'AjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihF' + 
	'h7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAu' + 
	'AXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAF' + 
	'BNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3' + 
	'ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchu' + 
	'g3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQ' + 
	'AcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhT' + 
	'g9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5W' + 
	'gZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAk' + 
	'gqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgq' + 
	'gqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhV' + 
	'gmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBW' + 
	'h3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAG' + 
	'Ashzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOr' + 
	'C0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTW' + 
	'P1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi' + 
	'4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8P' + 
	'iPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLC' + 
	's8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyD' + 
	'QCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOA' + 
	'pDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5' + 
	'Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)') as Object);
			CellCaption[TObject(h),TObject(1)] := CellCaption[TObject(h),TObject(0)];
			CellHAlignment[TObject(h),TObject(1)] := EXPLORERTREELib.AlignmentEnum.RightAlignment;
			CellImage[TObject(h),TObject(1)] := CellImage[TObject(h),TObject(0)];
			CellImages[TObject(h),TObject(1)] := '2,1';
			CellPicture[TObject(h),TObject(1)] := (CellPicture[TObject(h),TObject(0)] as Object);
			h := AddItem('<b>HTML</b> <off 4>Caption');
			CellCaptionFormat[TObject(h),TObject(0)] := EXPLORERTREELib.CaptionFormatEnum.exHTML;
			CellImage[TObject(h),TObject(0)] := 2;
			CellImages[TObject(h),TObject(0)] := '1,2';
			CellPicture[TObject(h),TObject(0)] := (AxExplorerTree1.ExecuteTemplate('loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsG' + 
	'L2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7F' + 
	'XI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FC' + 
	'jVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4w' + 
	'G8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQ' + 
	'JAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZen' + 
	'EVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFp' + 
	'TheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siq' + 
	'bZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxX' + 
	'hIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DP' + 
	'H8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAm' + 
	'Bgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCME' + 
	'gSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByj' + 
	'JGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0Wg' + 
	'LhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHC' + 
	'BwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1' + 
	'iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL' + 
	'4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0F' + 
	'qGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdg' + 
	'uhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGU' + 
	'SNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhA' + 
	'FaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6' + 
	'BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZ' + 
	'QS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmi' + 
	'XE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAY' + 
	'Aah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5' + 
	'AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARAS' + 
	'A/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AI' + 
	'BdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAd' + 
	'AcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBP' + 
	'hSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAh' + 
	'hLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBv' + 
	'gjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAG' + 
	'hvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/' + 
	'gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sU' + 
	'hMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4Af' + 
	'gZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xM' + 
	'hgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2' + 
	'BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBW' + 
	'hFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagx' + 
	'AkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9Bt' + 
	'nWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBU' + 
	'gphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAj' + 
	'AjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihF' + 
	'h7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAu' + 
	'AXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAF' + 
	'BNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3' + 
	'ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchu' + 
	'g3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQ' + 
	'AcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhT' + 
	'g9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5W' + 
	'gZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAk' + 
	'gqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgq' + 
	'gqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhV' + 
	'gmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBW' + 
	'h3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAG' + 
	'Ashzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOr' + 
	'C0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTW' + 
	'P1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi' + 
	'4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8P' + 
	'iPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLC' + 
	's8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyD' + 
	'QCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOA' + 
	'pDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5' + 
	'Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)') as Object);
			CellCaption[TObject(h),TObject(1)] := CellCaption[TObject(h),TObject(0)];
			CellCaptionFormat[TObject(h),TObject(1)] := EXPLORERTREELib.CaptionFormatEnum.exHTML;
			CellHAlignment[TObject(h),TObject(1)] := EXPLORERTREELib.AlignmentEnum.RightAlignment;
			CellImage[TObject(h),TObject(1)] := CellImage[TObject(h),TObject(0)];
			CellImages[TObject(h),TObject(1)] := '2,1';
			CellPicture[TObject(h),TObject(1)] := (CellPicture[TObject(h),TObject(0)] as Object);
		end;
	end;
	EndUpdate();
end
27
ImageSize property on 32 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)

// AddGroup event - Occurs when a new group is added to collection.
procedure TWinForm1.AxExplorerTree1_AddGroup(sender: System.Object; e: AxEXPLORERTREELib._IExplorerTreeEvents_AddGroupEvent);
begin
	with AxExplorerTree1 do
	begin
		with e.group do
		begin
		end;
	end
end;

with AxExplorerTree1 do
begin
	BeginUpdate();
	ShowShortcutBar := True;
	ImageSize := 32;
	GroupHeight := 32;
	Font.Size := 16;
	Images('gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqN' + 
	'UqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwy' + 
	'V21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CM' + 
	'Po9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9F' + 
	'EKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y' + 
	'7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkF' + 
	'gTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtN' + 
	'hCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xio' + 
	'W5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4' + 
	'VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6' + 
	'/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVD' + 
	'NKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT' + 
	'8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlff' + 
	'EkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6' + 
	'I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8Rg' + 
	'H5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWR' + 
	'JNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==');
	with VisualAppearance do
	begin
		Add(1,'gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6' + 
	'CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM' + 
	'RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxR' + 
	'DWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYF' + 
	'oFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4Uk' + 
	'mCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAo' + 
	'chqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0' + 
	'ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8' + 
	'CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2U' + 
	'gJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==');
		Add(2,'gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6' + 
	'CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM' + 
	'RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n' + 
	'GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnSc' + 
	'g1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpA' + 
	'oPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDR' + 
	'DFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lG' + 
	'NAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBg' + 
	'k0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuX' + 
	'pMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2Cy' + 
	'A4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8Rp' + 
	'BzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8T' + 
	'I7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeH' + 
	'GFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuh' + 
	'oiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMs' + 
	'CwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4ga' + 
	'BEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgs' + 
	'wOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtY' + 
	'QGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBh' + 
	'YDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0Mg' + 
	'RBCCQAgQEA==');
		Add(3,'gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6' + 
	'CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM' + 
	'RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n' + 
	'GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSe' + 
	'Q7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjn' + 
	'OIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ' + 
	'9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGS' + 
	'UwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4y' + 
	'mkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkX' + 
	'I/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6' + 
	'BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRA' + 
	'jDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEB' + 
	'wpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQH' + 
	'oFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRh' + 
	'cDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQ' + 
	'AA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjV' + 
	'HiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4z' + 
	'xW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH' + 
	'0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=');
		Add(4,'gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL' + 
	'UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU' + 
	'rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3' + 
	'NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY' + 
	'YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm' + 
	'WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo' + 
	'WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS' + 
	'e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF' + 
	'CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==');
	end;
	set_Background(EXPLORERTREELib.BackgroundPartEnum.exSelBackColorFilter,$4000000);
	set_Background(EXPLORERTREELib.BackgroundPartEnum.exSelForeColorFilter,$0);
	set_Background(EXPLORERTREELib.BackgroundPartEnum.exBackColorFilter,BackColor);
	set_Background(EXPLORERTREELib.BackgroundPartEnum.exForeColorFilter,ForeColor);
	set_Background(EXPLORERTREELib.BackgroundPartEnum.exCursorHoverColumn,$ffffffff);
	set_Background(EXPLORERTREELib.BackgroundPartEnum.exHeaderFilterBarButton,$4000000);
	set_Background(EXPLORERTREELib.BackgroundPartEnum.exHeaderFilterBarActive,$4010101);
	set_Background(EXPLORERTREELib.BackgroundPartEnum.exFooterFilterBarButton,$40000ff);
	with Groups.Add('Classament <b>A</b>') do
	begin
		Columns.Clear();
		Shortcut := '<img>1</img>';
		HasLines := EXPLORERTREELib.HierarchyLineEnum.exNoLine;
		with Columns do
		begin
			Add('Group');
			with (Add('P1') as EXPLORERTREELib.Column) do
			begin
				Width := 32;
				AllowSizing := False;
			end;
			with (Add('P2') as EXPLORERTREELib.Column) do
			begin
				Width := 32;
				AllowSizing := False;
			end;
			with (Add('P3') as EXPLORERTREELib.Column) do
			begin
				Width := 32;
				AllowSizing := False;
			end;
			with (Add('P4') as EXPLORERTREELib.Column) do
			begin
				Width := 32;
				AllowSizing := False;
			end;
		end;
		with Items do
		begin
			h := AddItem('Group 1');
			CellHAlignment[TObject(h),TObject(0)] := EXPLORERTREELib.AlignmentEnum.CenterAlignment;
			ItemDivider[h] := 0;
			ItemDividerLineAlignment[h] := EXPLORERTREELib.DividerAlignmentEnum.DividerCenter;
			ItemHeight[h] := 24;
			SortableItem[h] := False;
			h1 := InsertItem(h,Nil,'Team 1');
			CellCaption[TObject(h1),TObject(1)] := TObject(11);
			CellCaption[TObject(h1),TObject(2)] := TObject(2);
			CellCaption[TObject(h1),TObject(3)] := TObject(3);
			CellCaption[TObject(h1),TObject(4)] := TObject(12);
			h1 := InsertItem(h,Nil,'Team 2');
			CellCaption[TObject(h1),TObject(1)] := TObject(2);
			CellCaption[TObject(h1),TObject(2)] := TObject(3);
			CellCaption[TObject(h1),TObject(3)] := TObject(4);
			CellCaption[TObject(h1),TObject(4)] := TObject(2);
			ExpandItem[h] := True;
			h := AddItem('Group 2');
			CellHAlignment[TObject(h),TObject(0)] := EXPLORERTREELib.AlignmentEnum.CenterAlignment;
			ItemDivider[h] := 0;
			ItemDividerLineAlignment[h] := EXPLORERTREELib.DividerAlignmentEnum.DividerCenter;
			ItemHeight[h] := 24;
			SortableItem[h] := False;
			h1 := InsertItem(h,Nil,'Team 1');
			CellCaption[TObject(h1),TObject(1)] := TObject(1);
			CellCaption[TObject(h1),TObject(2)] := TObject(2);
			CellCaption[TObject(h1),TObject(3)] := TObject(3);
			CellCaption[TObject(h1),TObject(4)] := TObject(4);
			h1 := InsertItem(h,Nil,'Team 2');
			CellCaption[TObject(h1),TObject(1)] := TObject(5);
			CellCaption[TObject(h1),TObject(2)] := TObject(6);
			CellCaption[TObject(h1),TObject(3)] := TObject(6);
			CellCaption[TObject(h1),TObject(4)] := TObject(16);
			ExpandItem[h] := True;
		end;
		Expanded := True;
	end;
	Groups.Add('Classament <b>D').Shortcut := '<img>3</img>';
	with Groups.Add('Classament <b>B') do
	begin
		Shortcut := '<img>1</img>';
		CaptionFormat := EXPLORERTREELib.CaptionFormatEnum.exHTML;
		Columns.Clear();
	end;
	with Groups.Add('Classament <b>C') do
	begin
		Shortcut := '<img>1</img>';
		Columns.Clear();
		with (Columns.Add('Group') as EXPLORERTREELib.Column) do
		begin
			Def[EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
			PartialCheck := True;
		end;
		with (Columns.Add('P1') as EXPLORERTREELib.Column) do
		begin
			Def[EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
			PartialCheck := True;
			Width := 32;
			AllowSizing := False;
			LevelKey := TObject(1);
		end;
		with (Columns.Add('P2') as EXPLORERTREELib.Column) do
		begin
			Def[EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
			PartialCheck := True;
			Width := 32;
			AllowSizing := False;
			LevelKey := TObject(1);
		end;
		with (Columns.Add('P3') as EXPLORERTREELib.Column) do
		begin
			Def[EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
			PartialCheck := True;
			Width := 32;
			AllowSizing := False;
			LevelKey := TObject(2);
		end;
		with (Columns.Add('P4') as EXPLORERTREELib.Column) do
		begin
			Def[EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
			PartialCheck := True;
			Width := 32;
			AllowSizing := False;
			LevelKey := TObject(2);
		end;
		with Items do
		begin
			h := AddItem('Group 1');
			CellMerge[TObject(h),TObject(0)] := TObject(1);
			CellMerge[TObject(h),TObject(0)] := TObject(2);
			CellMerge[TObject(h),TObject(0)] := TObject(3);
			CellMerge[TObject(h),TObject(0)] := TObject(4);
			InsertItem(h,Nil,'Team 1');
			CellState[TObject(InsertItem(h,Nil,'Team 2')),TObject(0)] := 1;
			ExpandItem[h] := True;
			h := AddItem('Group 2');
			CellMerge[TObject(h),TObject(0)] := TObject(1);
			CellMerge[TObject(h),TObject(0)] := TObject(2);
			CellMerge[TObject(h),TObject(0)] := TObject(3);
			CellMerge[TObject(h),TObject(0)] := TObject(4);
			InsertItem(h,Nil,'Team 1');
			InsertItem(h,Nil,'Team 2');
			ExpandItem[h] := True;
		end;
		AutoHeight := True;
		Expanded := True;
	end;
	EndUpdate();
end
26
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)

// AddGroup event - Occurs when a new group is added to collection.
procedure TWinForm1.AxExplorerTree1_AddGroup(sender: System.Object; e: AxEXPLORERTREELib._IExplorerTreeEvents_AddGroupEvent);
begin
	with AxExplorerTree1 do
	begin
		with e.group do
		begin
		end;
	end
end;

with AxExplorerTree1 do
begin
	BeginUpdate();
	ShowShortcutBar := True;
	ImageSize := 16;
	Images('gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqN' + 
	'UqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwy' + 
	'V21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CM' + 
	'Po9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9F' + 
	'EKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y' + 
	'7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkF' + 
	'gTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtN' + 
	'hCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xio' + 
	'W5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4' + 
	'VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6' + 
	'/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVD' + 
	'NKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT' + 
	'8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlff' + 
	'EkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6' + 
	'I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8Rg' + 
	'H5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWR' + 
	'JNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==');
	with VisualAppearance do
	begin
		Add(1,'gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6' + 
	'CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM' + 
	'RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxR' + 
	'DWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYF' + 
	'oFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4Uk' + 
	'mCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAo' + 
	'chqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0' + 
	'ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8' + 
	'CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2U' + 
	'gJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==');
		Add(2,'gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6' + 
	'CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM' + 
	'RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n' + 
	'GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnSc' + 
	'g1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpA' + 
	'oPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDR' + 
	'DFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lG' + 
	'NAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBg' + 
	'k0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuX' + 
	'pMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2Cy' + 
	'A4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8Rp' + 
	'BzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8T' + 
	'I7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeH' + 
	'GFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuh' + 
	'oiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMs' + 
	'CwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4ga' + 
	'BEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgs' + 
	'wOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtY' + 
	'QGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBh' + 
	'YDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0Mg' + 
	'RBCCQAgQEA==');
		Add(3,'gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6' + 
	'CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM' + 
	'RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n' + 
	'GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSe' + 
	'Q7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjn' + 
	'OIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ' + 
	'9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGS' + 
	'UwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4y' + 
	'mkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkX' + 
	'I/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6' + 
	'BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRA' + 
	'jDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEB' + 
	'wpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQH' + 
	'oFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRh' + 
	'cDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQ' + 
	'AA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjV' + 
	'HiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4z' + 
	'xW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH' + 
	'0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=');
		Add(4,'gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL' + 
	'UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU' + 
	'rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3' + 
	'NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY' + 
	'YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm' + 
	'WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo' + 
	'WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS' + 
	'e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF' + 
	'CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==');
	end;
	set_Background(EXPLORERTREELib.BackgroundPartEnum.exSelBackColorFilter,$4000000);
	set_Background(EXPLORERTREELib.BackgroundPartEnum.exSelForeColorFilter,$0);
	set_Background(EXPLORERTREELib.BackgroundPartEnum.exBackColorFilter,BackColor);
	set_Background(EXPLORERTREELib.BackgroundPartEnum.exForeColorFilter,ForeColor);
	set_Background(EXPLORERTREELib.BackgroundPartEnum.exCursorHoverColumn,$ffffffff);
	set_Background(EXPLORERTREELib.BackgroundPartEnum.exHeaderFilterBarButton,$4000000);
	set_Background(EXPLORERTREELib.BackgroundPartEnum.exHeaderFilterBarActive,$4010101);
	set_Background(EXPLORERTREELib.BackgroundPartEnum.exFooterFilterBarButton,$40000ff);
	with Groups.Add('Classament <b>A</b>') do
	begin
		Columns.Clear();
		Shortcut := '<img>1</img>';
		HasLines := EXPLORERTREELib.HierarchyLineEnum.exNoLine;
		with Columns do
		begin
			Add('Group');
			with (Add('P1') as EXPLORERTREELib.Column) do
			begin
				Width := 32;
				AllowSizing := False;
			end;
			with (Add('P2') as EXPLORERTREELib.Column) do
			begin
				Width := 32;
				AllowSizing := False;
			end;
			with (Add('P3') as EXPLORERTREELib.Column) do
			begin
				Width := 32;
				AllowSizing := False;
			end;
			with (Add('P4') as EXPLORERTREELib.Column) do
			begin
				Width := 32;
				AllowSizing := False;
			end;
		end;
		with Items do
		begin
			h := AddItem('Group 1');
			CellHAlignment[TObject(h),TObject(0)] := EXPLORERTREELib.AlignmentEnum.CenterAlignment;
			ItemDivider[h] := 0;
			ItemDividerLineAlignment[h] := EXPLORERTREELib.DividerAlignmentEnum.DividerCenter;
			ItemHeight[h] := 24;
			SortableItem[h] := False;
			h1 := InsertItem(h,Nil,'Team 1');
			CellCaption[TObject(h1),TObject(1)] := TObject(11);
			CellCaption[TObject(h1),TObject(2)] := TObject(2);
			CellCaption[TObject(h1),TObject(3)] := TObject(3);
			CellCaption[TObject(h1),TObject(4)] := TObject(12);
			h1 := InsertItem(h,Nil,'Team 2');
			CellCaption[TObject(h1),TObject(1)] := TObject(2);
			CellCaption[TObject(h1),TObject(2)] := TObject(3);
			CellCaption[TObject(h1),TObject(3)] := TObject(4);
			CellCaption[TObject(h1),TObject(4)] := TObject(2);
			ExpandItem[h] := True;
			h := AddItem('Group 2');
			CellHAlignment[TObject(h),TObject(0)] := EXPLORERTREELib.AlignmentEnum.CenterAlignment;
			ItemDivider[h] := 0;
			ItemDividerLineAlignment[h] := EXPLORERTREELib.DividerAlignmentEnum.DividerCenter;
			ItemHeight[h] := 24;
			SortableItem[h] := False;
			h1 := InsertItem(h,Nil,'Team 1');
			CellCaption[TObject(h1),TObject(1)] := TObject(1);
			CellCaption[TObject(h1),TObject(2)] := TObject(2);
			CellCaption[TObject(h1),TObject(3)] := TObject(3);
			CellCaption[TObject(h1),TObject(4)] := TObject(4);
			h1 := InsertItem(h,Nil,'Team 2');
			CellCaption[TObject(h1),TObject(1)] := TObject(5);
			CellCaption[TObject(h1),TObject(2)] := TObject(6);
			CellCaption[TObject(h1),TObject(3)] := TObject(6);
			CellCaption[TObject(h1),TObject(4)] := TObject(16);
			ExpandItem[h] := True;
		end;
		Expanded := True;
	end;
	Groups.Add('Classament <b>D').Shortcut := '<img>3</img>';
	with Groups.Add('Classament <b>B') do
	begin
		Shortcut := '<img>1</img>';
		CaptionFormat := EXPLORERTREELib.CaptionFormatEnum.exHTML;
		Columns.Clear();
	end;
	with Groups.Add('Classament <b>C') do
	begin
		Shortcut := '<img>1</img>';
		Columns.Clear();
		with (Columns.Add('Group') as EXPLORERTREELib.Column) do
		begin
			Def[EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
			PartialCheck := True;
		end;
		with (Columns.Add('P1') as EXPLORERTREELib.Column) do
		begin
			Def[EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
			PartialCheck := True;
			Width := 32;
			AllowSizing := False;
			LevelKey := TObject(1);
		end;
		with (Columns.Add('P2') as EXPLORERTREELib.Column) do
		begin
			Def[EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
			PartialCheck := True;
			Width := 32;
			AllowSizing := False;
			LevelKey := TObject(1);
		end;
		with (Columns.Add('P3') as EXPLORERTREELib.Column) do
		begin
			Def[EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
			PartialCheck := True;
			Width := 32;
			AllowSizing := False;
			LevelKey := TObject(2);
		end;
		with (Columns.Add('P4') as EXPLORERTREELib.Column) do
		begin
			Def[EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
			PartialCheck := True;
			Width := 32;
			AllowSizing := False;
			LevelKey := TObject(2);
		end;
		with Items do
		begin
			h := AddItem('Group 1');
			CellMerge[TObject(h),TObject(0)] := TObject(1);
			CellMerge[TObject(h),TObject(0)] := TObject(2);
			CellMerge[TObject(h),TObject(0)] := TObject(3);
			CellMerge[TObject(h),TObject(0)] := TObject(4);
			InsertItem(h,Nil,'Team 1');
			CellState[TObject(InsertItem(h,Nil,'Team 2')),TObject(0)] := 1;
			ExpandItem[h] := True;
			h := AddItem('Group 2');
			CellMerge[TObject(h),TObject(0)] := TObject(1);
			CellMerge[TObject(h),TObject(0)] := TObject(2);
			CellMerge[TObject(h),TObject(0)] := TObject(3);
			CellMerge[TObject(h),TObject(0)] := TObject(4);
			InsertItem(h,Nil,'Team 1');
			InsertItem(h,Nil,'Team 2');
			ExpandItem[h] := True;
		end;
		AutoHeight := True;
		Expanded := True;
	end;
	EndUpdate();
end
25
Highlight the item from the cursor

with AxExplorerTree1 do
begin
	hotback := 16748574;
	selback := 16736256;
	BeginUpdate();
	with Groups.Add('Group 1') do
	begin
		LinesAtRoot := EXPLORERTREELib.LinesAtRootEnum.exLinesAtRoot;
		HasLines := EXPLORERTREELib.HierarchyLineEnum.exNoLine;
		ShowFocusRect := False;
		with Items do
		begin
			AddItem('Item A');
			h := AddItem('Item B');
			InsertItem(h,Nil,'Child 1');
			InsertItem(h,Nil,'Child 2');
			AddItem('Item C');
		end;
		SelBackColor := selback;
		HotBackColor := hotback;
		HotForeColor := SelForeColor;
		Expanded := True;
		AutoHeight := True;
	end;
	with Groups.Add('Group 2') do
	begin
		Items.AddItem('Item A');
		Items.AddItem('Item B');
		Items.AddItem('Item C');
		ShowFocusRect := False;
		SelBackColor := selback;
		HotBackColor := hotback;
		HotForeColor := SelForeColor;
		Expanded := True;
		AutoHeight := True;
	end;
	EndUpdate();
end
24
Classament

with AxExplorerTree1 do
begin
	Images('gBJJgBAIEAAGAEGCAAhb/hz/EIAh8Tf5CJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1BAmBhOCwMGwuDw2ExWJxmIx2HyGLv+TlykUCgABmGYzzObzuczWcKujzOa0ug02hz' + 
	'+r1Wtz2qoCA2QAYG1yk02YA3NMy2Yh8Sh202zx4gA4jxADM5XG4vHACy6ESdjM6XUZiZTMS5bwZSm1c83+yQHCYHk81Q8O7qW18u/9NG3vAf/y83u4PQWQA0ZVADq/z6' + 
	'um6rkuw7TqH+5bYJu+z5vE8z2N02cGweoDfwfCrbQfBqkNzBb6QfDLxp6+LlOs5cSOTEzlm7FYACFFwADvGIAGvGjzOu7MbwHHECQSmUOvS8cGwk20gQc2ycQs4MLvLD' + 
	'8MNtDSfyS+cmyZJzywa96axzDsTw6/x1AAL8xRbF8Vm65jkH/AL8QFNTqR6lsfuDIb2uDKTzTo88FTtIk+PK3SNRDKiew5JVDSnK08NnOUGRClkt0PFEDUjMwAENS4AM' + 
	'2zj4udNznujT1PTgjdGQg8c71RPtESvCL1JrO8lozQUj1nP6d1TKtc0U8dS1jCaNRzGhrxnGthWJYdjUrYwc2ZMMx2NB8czZNk4VLPMstzXD6Q6mltVjPNAT0m1CvnDt' + 
	'BxBXlI3PRKNzZDtjQ6cd5TQ/TSU0/r/udC0A1Ez1SUja8/QhWVavrSLfpxWNzXZR2CygmVtXXVl03Lg+BV+lV3UjeDgzEL4AXkcb6Pje5LZNDzhuLfrOX/RtT0TQbc5l' + 
	'ENSvBi2K5xlFdUHhN1ZhJ9F59WybOU7NjWTFkvxhGT9zIIQAWYHIABFqmnABSsT0HUaNYlI1dZmjNuUDRybzvIVWyDoOc54n8Oyxm9Ta9cSUaLbbg44+b4xiO9nY/pt7' + 
	'3u38Tuc52tpdruYxDVyUbBV+gYpu2c7PyGMKTt21cjnW6OvzO8PppUvP/Ljlt/wt/Vvn+v8V1eCdbgaa7fnMi8vyD0TnzGEJXyp/wJ3js98iXe+F3/hwGM3jeQZjTeUz' + 
	'nmOT5bTKJyqYcbm2c5bzXpqvsWw4FUkCO473wgB8cD9/znzO14n1+D4/efcTP4fl5+WKvxbbptmqV+B/ni/68R4514AvxeTAR50B3oPNei/iBhFgfErgeR4kBIiSAAJK' + 
	'SiC7PT5wMKIQ4fwfyHDzg2PwD4/B/jgg2PgA48AfjgB+RkeAARwAPGAA8jI4AADgAOMAAZGTyw6YbDkA7ZDaAHgxDyCxGgBw8EBBmJcS4LjAATDweBGoqjgAGP4jQ/Ac' + 
	'jwAHBsiQex8gPH+MF7pDxxkB');
	VisualAppearance.Add(1,'E:\Exontrol\ExG2antt\sample\EBN\vistasel.ebn');
	BeginUpdate();
	ShowShortcutBar := True;
	with Groups.Add('Classament <b>A</b>') do
	begin
		IndentGroupLeft := 18;
		IndentGroupRight := 18;
		SelBackMode := EXPLORERTREELib.BackModeEnum.exTransparent;
		ShowFocusRect := False;
		SelBackColor := $1000000;
		SelForeColor := $0;
		CaptionFormat := EXPLORERTREELib.CaptionFormatEnum.exHTML;
		Shortcut := '<img>1</img>';
		AutoHeight := True;
		HeaderVisible := True;
		Columns.Clear();
		HasLines := EXPLORERTREELib.HierarchyLineEnum.exNoLine;
		ScrollBySingleLine := True;
		MarkSearchColumn := False;
		with Columns do
		begin
			Add('Group');
			with (Add('P1') as EXPLORERTREELib.Column) do
			begin
				Width := 32;
				AllowSizing := False;
			end;
			with (Add('P2') as EXPLORERTREELib.Column) do
			begin
				Width := 32;
				AllowSizing := False;
			end;
			with (Add('P3') as EXPLORERTREELib.Column) do
			begin
				Width := 32;
				AllowSizing := False;
			end;
			with (Add('P4') as EXPLORERTREELib.Column) do
			begin
				Width := 32;
				AllowSizing := False;
			end;
		end;
		with Items do
		begin
			h := AddItem('Group 1');
			CellHAlignment[TObject(h),TObject(0)] := EXPLORERTREELib.AlignmentEnum.CenterAlignment;
			ItemDivider[h] := 0;
			ItemDividerLineAlignment[h] := EXPLORERTREELib.DividerAlignmentEnum.DividerCenter;
			ItemHeight[h] := 24;
			SortableItem[h] := False;
			h1 := InsertItem(h,Nil,'Team 1');
			CellCaption[TObject(h1),TObject(1)] := TObject(11);
			CellCaption[TObject(h1),TObject(2)] := TObject(2);
			CellCaption[TObject(h1),TObject(3)] := TObject(3);
			CellCaption[TObject(h1),TObject(4)] := TObject(12);
			h1 := InsertItem(h,Nil,'Team 2');
			CellCaption[TObject(h1),TObject(1)] := TObject(2);
			CellCaption[TObject(h1),TObject(2)] := TObject(3);
			CellCaption[TObject(h1),TObject(3)] := TObject(4);
			CellCaption[TObject(h1),TObject(4)] := TObject(2);
			ExpandItem[h] := True;
			h := AddItem('Group 2');
			CellHAlignment[TObject(h),TObject(0)] := EXPLORERTREELib.AlignmentEnum.CenterAlignment;
			ItemDivider[h] := 0;
			ItemDividerLineAlignment[h] := EXPLORERTREELib.DividerAlignmentEnum.DividerCenter;
			ItemHeight[h] := 24;
			SortableItem[h] := False;
			h1 := InsertItem(h,Nil,'Team 1');
			CellCaption[TObject(h1),TObject(1)] := TObject(1);
			CellCaption[TObject(h1),TObject(2)] := TObject(2);
			CellCaption[TObject(h1),TObject(3)] := TObject(3);
			CellCaption[TObject(h1),TObject(4)] := TObject(4);
			h1 := InsertItem(h,Nil,'Team 2');
			CellCaption[TObject(h1),TObject(1)] := TObject(5);
			CellCaption[TObject(h1),TObject(2)] := TObject(6);
			CellCaption[TObject(h1),TObject(3)] := TObject(6);
			CellCaption[TObject(h1),TObject(4)] := TObject(16);
			ExpandItem[h] := True;
		end;
		Expanded := True;
	end;
	Groups.Add('Classament 4').Shortcut := '<img>4</img>';
	with Groups.Add('Classament <b>B') do
	begin
		Shortcut := '<img>1</img>';
		CaptionFormat := EXPLORERTREELib.CaptionFormatEnum.exHTML;
	end;
	with Groups.Add('Classament <b>C') do
	begin
		IndentGroupLeft := 18;
		IndentGroupRight := 18;
		SelBackMode := EXPLORERTREELib.BackModeEnum.exTransparent;
		ShowFocusRect := False;
		SelBackColor := $1000000;
		SelForeColor := $0;
		CaptionFormat := EXPLORERTREELib.CaptionFormatEnum.exHTML;
		Shortcut := '<img>1</img>';
		HeaderVisible := True;
		MarkSearchColumn := False;
		Columns.Clear();
		LinesAtRoot := EXPLORERTREELib.LinesAtRootEnum.exLinesAtRoot;
		with (Columns.Add('Group') as EXPLORERTREELib.Column) do
		begin
			Def[EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
			PartialCheck := True;
		end;
		with (Columns.Add('P1') as EXPLORERTREELib.Column) do
		begin
			Def[EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
			PartialCheck := True;
			Width := 32;
			AllowSizing := False;
			LevelKey := TObject(1);
		end;
		with (Columns.Add('P2') as EXPLORERTREELib.Column) do
		begin
			Def[EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
			PartialCheck := True;
			Width := 32;
			AllowSizing := False;
			LevelKey := TObject(1);
		end;
		with (Columns.Add('P3') as EXPLORERTREELib.Column) do
		begin
			Def[EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
			PartialCheck := True;
			Width := 32;
			AllowSizing := False;
			LevelKey := TObject(2);
		end;
		with (Columns.Add('P4') as EXPLORERTREELib.Column) do
		begin
			Def[EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
			PartialCheck := True;
			Width := 32;
			AllowSizing := False;
			LevelKey := TObject(2);
		end;
		with Items do
		begin
			h := AddItem('Group 1');
			CellMerge[TObject(h),TObject(0)] := TObject(1);
			CellMerge[TObject(h),TObject(0)] := TObject(2);
			CellMerge[TObject(h),TObject(0)] := TObject(3);
			CellMerge[TObject(h),TObject(0)] := TObject(4);
			InsertItem(h,Nil,'Team 1');
			InsertItem(h,Nil,'Team 2');
			ExpandItem[h] := True;
			h := AddItem('Group 2');
			CellMerge[TObject(h),TObject(0)] := TObject(1);
			CellMerge[TObject(h),TObject(0)] := TObject(2);
			CellMerge[TObject(h),TObject(0)] := TObject(3);
			CellMerge[TObject(h),TObject(0)] := TObject(4);
			InsertItem(h,Nil,'Team 1');
			InsertItem(h,Nil,'Team 2');
			ExpandItem[h] := True;
		end;
		AutoHeight := True;
		Expanded := True;
	end;
	EndUpdate();
end
23
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop
with AxExplorerTree1 do
begin
	BeginUpdate();
	with VisualAppearance do
	begin
		Add(1,'gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVI' + 
	'UcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4a' + 
	'DhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBe' + 
	'EMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIB' + 
	'ICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokG' + 
	'KHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=');
		Add(2,'CP:1 0 -36 0 0');
	end;
	set_Background(EXPLORERTREELib.BackgroundPartEnum.exColumnsPositionSign,$2000000);
	with Groups.Add('New') do
	begin
		HeaderVisible := True;
		HeaderHeight := 22;
		with Columns do
		begin
			Clear();
			Add('Column 1');
			Add('Column 2');
			Add('Column 3');
		end;
		Expanded := True;
	end;
	EndUpdate();
end
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

with AxExplorerTree1 do
begin
	BeginUpdate();
	with Groups.Add('Group') do
	begin
		HeaderVisible := True;
		Columns.Clear();
		with (Columns.Add('Date') as EXPLORERTREELib.Column) do
		begin
			SortType := EXPLORERTREELib.SortTypeEnum.SortDate;
			DisplayFilterButton := True;
			DisplayFilterPattern := False;
			DisplayFilterDate := True;
			FilterList := Integer(EXPLORERTREELib.FilterListEnum.exShowFocusItem) Or Integer(EXPLORERTREELib.FilterListEnum.exShowCheckBox) Or Integer(EXPLORERTREELib.FilterListEnum.exSortItemsDesc);
		end;
		with (Columns.Add('DateTime') as EXPLORERTREELib.Column) do
		begin
			SortType := EXPLORERTREELib.SortTypeEnum.SortDateTime;
			DisplayFilterButton := True;
			DisplayFilterPattern := False;
			FilterList := Integer(EXPLORERTREELib.FilterListEnum.exShowFocusItem) Or Integer(EXPLORERTREELib.FilterListEnum.exShowCheckBox) Or Integer(EXPLORERTREELib.FilterListEnum.exSortItemsDesc);
		end;
		with (Columns.Add('Time') as EXPLORERTREELib.Column) do
		begin
			SortType := EXPLORERTREELib.SortTypeEnum.SortTime;
			DisplayFilterButton := True;
			DisplayFilterPattern := False;
			FilterList := Integer(EXPLORERTREELib.FilterListEnum.exShowFocusItem) Or Integer(EXPLORERTREELib.FilterListEnum.exShowCheckBox) Or Integer(EXPLORERTREELib.FilterListEnum.exSortItemsDesc);
			FormatColumn := 'time(value)';
		end;
		with (Columns.Add('Numeric') as EXPLORERTREELib.Column) do
		begin
			SortType := EXPLORERTREELib.SortTypeEnum.SortNumeric;
			DisplayFilterButton := True;
			FilterList := Integer(EXPLORERTREELib.FilterListEnum.exShowFocusItem) Or Integer(EXPLORERTREELib.FilterListEnum.exShowCheckBox) Or Integer(EXPLORERTREELib.FilterListEnum.exSortItemsDesc);
		end;
		with (Columns.Add('String') as EXPLORERTREELib.Column) do
		begin
			DisplayFilterButton := True;
			FilterList := Integer(EXPLORERTREELib.FilterListEnum.exShowFocusItem) Or Integer(EXPLORERTREELib.FilterListEnum.exShowCheckBox) Or Integer(EXPLORERTREELib.FilterListEnum.exSortItemsDesc);
		end;
		with Items do
		begin
			h := AddItem('1/27/2010');
			CellCaption[TObject(h),TObject(1)] := '1/27/2010 10:00:00 AM';
			CellCaption[TObject(h),TObject(2)] := CellCaption[TObject(h),TObject(1)];
			CellCaption[TObject(h),TObject(3)] := TObject(1);
			CellCaption[TObject(h),TObject(4)] := CellCaption[TObject(h),TObject(3)];
			h := AddItem('1/27/2011');
			CellCaption[TObject(h),TObject(1)] := '1/27/2011 9:00:00 AM';
			CellCaption[TObject(h),TObject(2)] := CellCaption[TObject(h),TObject(1)];
			CellCaption[TObject(h),TObject(3)] := TObject(11);
			CellCaption[TObject(h),TObject(4)] := CellCaption[TObject(h),TObject(3)];
			h := AddItem('11/2/2010');
			CellCaption[TObject(h),TObject(1)] := '11/2/2010 9:00:00 AM';
			CellCaption[TObject(h),TObject(2)] := CellCaption[TObject(h),TObject(1)];
			CellCaption[TObject(h),TObject(3)] := TObject(2);
			CellCaption[TObject(h),TObject(4)] := CellCaption[TObject(h),TObject(3)];
		end;
		Columns.Item['DateTime'].DisplayFilterDate := False;
		Expanded := True;
	end;
	EndUpdate();
end
21
How do I get the caption of the cell/item from the point

// MouseMove event - Occurs when the user moves the mouse.
procedure TWinForm1.AxExplorerTree1_MouseMoveEvent(sender: System.Object; e: AxEXPLORERTREELib._IExplorerTreeEvents_MouseMoveEvent);
begin
	with AxExplorerTree1 do
	begin
		with (get_GroupListFromPoint(-1,-1) as Object) do
		begin
		end;
	end
end;

with AxExplorerTree1 do
begin
	BeginUpdate();
	with Groups.Add('Group 1') do
	begin
		HeaderVisible := True;
		Columns.Clear();
		Columns.Add('Number');
		(Columns.Add('Round') as EXPLORERTREELib.Column).ComputedField := 'round(%0)';
		with Items do
		begin
			AddItem('-1.98');
			AddItem('0.99');
			AddItem('1.23');
			AddItem('2.34');
		end;
		Expanded := True;
	end;
	with Groups.Add('Group 2') do
	begin
		HeaderVisible := True;
		Columns.Clear();
		Columns.Add('Number');
		(Columns.Add('Round') as EXPLORERTREELib.Column).ComputedField := 'round(%0)';
		with Items do
		begin
			AddItem('-1.98');
			AddItem('0.99');
			AddItem('1.23');
			AddItem('2.34');
		end;
		Expanded := True;
	end;
	EndUpdate();
end
20
How can I ensure that a specified item is visible

with AxExplorerTree1 do
begin
	BeginUpdate();
	with Groups do
	begin
		with Add('Group') do
		begin
			Expanded := True;
			with Items do
			begin
				AddItem('Item');
				AddItem('Item');
				AddItem('Item');
				AddItem('Item');
			end;
			PutItems(GetItems(TObject(0)),TObject(0));
			PutItems(GetItems(TObject(0)),TObject(0));
			Items.AddItem('Ensure');
		end;
	end;
	with Groups.Item[TObject(0)].Items do
	begin
		h := ItemByIndex[16];
		ItemBackColor[h] := $ffff;
		EnsureVisibleItem(h);
	end;
	EndUpdate();
end
19
is it possible to display icons in the control's shortcut bar

with AxExplorerTree1 do
begin
	BeginUpdate();
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	ShowShortcutBar := True;
	with Groups do
	begin
		Add('Group A.1').Shortcut := '<img>1</img> First Group';
		Add('Group A.2').Shortcut := '<img>1</img> First Group';
		Add('Group B.1').Shortcut := '<img>2</img> Second Group';
		Add('Group B.2').Shortcut := '<img>2</img> Second Group';
		Add('Group B.3').Shortcut := '<img>2</img> Second Group';
	end;
	EndUpdate();
end
18
How can I display the control's shortcut bar

with AxExplorerTree1 do
begin
	BeginUpdate();
	ShowShortcutBar := True;
	with Groups do
	begin
		Add('Group A.1').Shortcut := 'A';
		Add('Group A.2').Shortcut := 'A';
		Add('Group B.1').Shortcut := 'B';
		Add('Group B.2').Shortcut := 'B';
		Add('Group B.3').Shortcut := 'B';
	end;
	EndUpdate();
end
17
Can I display the cell's check box after the text

with AxExplorerTree1 do
begin
	BeginUpdate();
	with Groups.Add('Default') do
	begin
		Expanded := True;
		with Columns.Item[TObject(0)] do
		begin
			Def[EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
			Def[EXPLORERTREELib.DefColumnEnum.exCellDrawPartsOrder] := 'caption,check';
		end;
		with Items do
		begin
			CellHasCheckBox[TObject(AddItem('Caption 1')),TObject(0)] := True;
			CellHasCheckBox[TObject(AddItem('Caption 2')),TObject(0)] := True;
		end;
	end;
	EndUpdate();
end
16
Can I change the order of the parts in the cell, as checkbox after the text, and so on

with AxExplorerTree1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	BeginUpdate();
	with Groups.Add('Default') do
	begin
		Expanded := True;
		Columns.Item[TObject(0)].Def[EXPLORERTREELib.DefColumnEnum.exCellDrawPartsOrder] := 'caption,check,icon,icons,picture';
		with Items do
		begin
			h := AddItem('Text');
			CellImage[TObject(h),TObject(0)] := 1;
			CellHasCheckBox[TObject(h),TObject(0)] := True;
		end;
	end;
	EndUpdate();
end
15
Can I have an image displayed after the text. Can I get that effect without using HTML content

with AxExplorerTree1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	BeginUpdate();
	with Groups.Add('Default') do
	begin
		Expanded := True;
		Columns.Item[TObject(0)].Def[EXPLORERTREELib.DefColumnEnum.exCellDrawPartsOrder] := 'caption,icon,check,icons,picture';
		with Items do
		begin
			h := AddItem('Text');
			CellImage[TObject(h),TObject(0)] := 1;
		end;
	end;
	EndUpdate();
end
14
How do I enable the filter prompt feature

with AxExplorerTree1 do
begin
	BeginUpdate();
	Groups.Add('Group 1');
	with Groups.Add('Group 2') do
	begin
		AutoHeight := True;
		HeaderVisible := True;
		Columns.Clear();
		ColumnAutoResize := True;
		ContinueColumnScroll := False;
		MarkSearchColumn := False;
		SearchColumnIndex := 1;
		FilterBarPromptVisible := True;
		with Columns do
		begin
			(Add('Name') as EXPLORERTREELib.Column).Width := 96;
			(Add('Title') as EXPLORERTREELib.Column).Width := 96;
			Add('City');
		end;
		with Items do
		begin
			h0 := AddItem('Nancy Davolio');
			CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
			CellCaption[TObject(h0),TObject(2)] := 'Seattle';
			h0 := AddItem('Andrew Fuller');
			CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
			CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
			SelectItem[h0] := True;
			h0 := AddItem('Janet Leverling');
			CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
			CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
			h0 := AddItem('Margaret Peacock');
			CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
			CellCaption[TObject(h0),TObject(2)] := 'Redmond';
			h0 := AddItem('Steven Buchanan');
			CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
			CellCaption[TObject(h0),TObject(2)] := 'London';
			h0 := AddItem('Michael Suyama');
			CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
			CellCaption[TObject(h0),TObject(2)] := 'London';
			h0 := AddItem('Robert King');
			CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
			CellCaption[TObject(h0),TObject(2)] := 'London';
			h0 := AddItem('Laura Callahan');
			CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
			CellCaption[TObject(h0),TObject(2)] := 'Seattle';
			h0 := AddItem('Anne Dodsworth');
			CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
			CellCaption[TObject(h0),TObject(2)] := 'London';
		end;
		Expanded := True;
	end;
	Groups.Add('Group 3');
	EndUpdate();
end
13
Can I specify unsortable items

with AxExplorerTree1 do
begin
	BeginUpdate();
	with Groups.Add('Default') do
	begin
		AutoHeight := True;
		HeaderVisible := True;
		Columns.Clear();
		HasLines := EXPLORERTREELib.HierarchyLineEnum.exNoLine;
		ScrollBySingleLine := True;
		MarkSearchColumn := False;
		with Columns do
		begin
			Add('Name');
			Add('A');
			Add('B');
			Add('C');
		end;
		with Items do
		begin
			h := AddItem('Group 1');
			CellHAlignment[TObject(h),TObject(0)] := EXPLORERTREELib.AlignmentEnum.CenterAlignment;
			ItemDivider[h] := 0;
			ItemDividerLineAlignment[h] := EXPLORERTREELib.DividerAlignmentEnum.DividerBoth;
			ItemHeight[h] := 24;
			SortableItem[h] := False;
			h1 := InsertItem(h,Nil,'Child 1');
			CellCaption[TObject(h1),TObject(1)] := TObject(1);
			CellCaption[TObject(h1),TObject(2)] := TObject(2);
			CellCaption[TObject(h1),TObject(3)] := TObject(3);
			h1 := InsertItem(h,Nil,'Child 2');
			CellCaption[TObject(h1),TObject(1)] := TObject(4);
			CellCaption[TObject(h1),TObject(2)] := TObject(5);
			CellCaption[TObject(h1),TObject(3)] := TObject(6);
			ExpandItem[h] := True;
			h := AddItem('Group 2');
			CellHAlignment[TObject(h),TObject(0)] := EXPLORERTREELib.AlignmentEnum.CenterAlignment;
			ItemDivider[h] := 0;
			ItemDividerLineAlignment[h] := EXPLORERTREELib.DividerAlignmentEnum.DividerBoth;
			ItemHeight[h] := 24;
			SortableItem[h] := False;
			h1 := InsertItem(h,Nil,'Child 1');
			CellCaption[TObject(h1),TObject(1)] := TObject(1);
			CellCaption[TObject(h1),TObject(2)] := TObject(2);
			CellCaption[TObject(h1),TObject(3)] := TObject(3);
			h1 := InsertItem(h,Nil,'Child 2');
			CellCaption[TObject(h1),TObject(1)] := TObject(4);
			CellCaption[TObject(h1),TObject(2)] := TObject(5);
			CellCaption[TObject(h1),TObject(3)] := TObject(6);
			ExpandItem[h] := True;
		end;
		Expanded := True;
	end;
	EndUpdate();
end
12
Can I change the style of the line being displayed by a divider item

with AxExplorerTree1 do
begin
	BeginUpdate();
	with Groups.Add('Default') do
	begin
		HeaderVisible := True;
		Columns.Clear();
		MarkSearchColumn := False;
		TreeColumnIndex := -1;
		ScrollBySingleLine := False;
		Columns.Add('C1');
		Columns.Add('C2');
		SelBackMode := EXPLORERTREELib.BackModeEnum.exTransparent;
		with Items do
		begin
			h := AddItem('Cell 1');
			CellCaption[TObject(h),TObject(1)] := 'This is bit of text that''s shown on multiple lines. This is bit of text that''s shown on multiple lines.';
			CellSingleLine[TObject(h),TObject(1)] := EXPLORERTREELib.CellSingleLineEnum.exCaptionWordWrap;
			h := AddItem('This is bit of text that''s displayed on the entire item, divider.');
			ItemDivider[h] := 0;
			ItemDividerLine[h] := EXPLORERTREELib.DividerLineEnum.DoubleDotLine;
			ItemDividerLineAlignment[h] := EXPLORERTREELib.DividerAlignmentEnum.DividerBoth;
			CellHAlignment[TObject(h),TObject(0)] := EXPLORERTREELib.AlignmentEnum.CenterAlignment;
			ItemHeight[h] := 24;
		end;
		Expanded := True;
	end;
	EndUpdate();
end
11
How can I expand all items

with AxExplorerTree1 do
begin
	BeginUpdate();
	with Groups.Add('Default') do
	begin
		HeaderVisible := True;
		Columns.Clear();
		LinesAtRoot := EXPLORERTREELib.LinesAtRootEnum.exLinesAtRoot;
		Columns.Add('Items');
		with Items do
		begin
			h := AddItem('Root 1');
			InsertItem(h,Nil,'Child 1');
			InsertItem(h,Nil,'Child 2');
			h := AddItem('Root 2');
			InsertItem(h,Nil,'Child 1');
			InsertItem(h,Nil,'Child 2');
			ExpandItem[0] := True;
		end;
		Expanded := True;
	end;
	EndUpdate();
end
10
Is it possible display numbers in the same format no matter of regional settings in the control panel

with AxExplorerTree1 do
begin
	with Groups.Add('Default') do
	begin
		HeaderVisible := True;
		Columns.Clear();
		(Columns.Add('Def') as EXPLORERTREELib.Column).Def[EXPLORERTREELib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
		with Items do
		begin
			h := AddItem(TObject(100000.27));
			FormatCell[TObject(h),TObject(0)] := '(value format '''') +  '' <fgcolor=808080>(default positive)''';
			h := AddItem(TObject(100000.27));
			FormatCell[TObject(h),TObject(0)] := '(value format ''2|.|3|,|1|1'')';
			h := AddItem(TObject(-100000.27));
			FormatCell[TObject(h),TObject(0)] := '(value format '''') +  '' <fgcolor=808080>(default negative)''';
			h := AddItem(TObject(-100000.27));
			FormatCell[TObject(h),TObject(0)] := '(value format ''2|.|3|,|1|1'')';
		end;
		Expanded := True;
	end;
end
9
Is it possible to format numbers

with AxExplorerTree1 do
begin
	BeginUpdate();
	with Groups.Add('Default') do
	begin
		HeaderVisible := True;
		MarkSearchColumn := False;
		Columns.Clear();
		with Columns do
		begin
			Add('Name');
			with (Add('A') as EXPLORERTREELib.Column) do
			begin
				SortType := EXPLORERTREELib.SortTypeEnum.SortNumeric;
				AllowSizing := False;
				Width := 36;
				FormatColumn := 'len(value) ? value + '' +''';
			end;
			with (Add('B') as EXPLORERTREELib.Column) do
			begin
				SortType := EXPLORERTREELib.SortTypeEnum.SortNumeric;
				AllowSizing := False;
				Width := 36;
				FormatColumn := 'len(value) ? value + '' +''';
			end;
			with (Add('C') as EXPLORERTREELib.Column) do
			begin
				SortType := EXPLORERTREELib.SortTypeEnum.SortNumeric;
				AllowSizing := False;
				Width := 36;
				FormatColumn := 'len(value) ? value + '' =''';
			end;
			with (Add('A+B+C') as EXPLORERTREELib.Column) do
			begin
				SortType := EXPLORERTREELib.SortTypeEnum.SortNumeric;
				Width := 64;
				ComputedField := 'dbl(%1)+dbl(%2)+dbl(%3)';
				FormatColumn := 'type(value) in (0,1) ? ''null'' : ( dbl(value)<0 ? ''<fgcolor=FF0000>''+ (value format ''2|.|3|,|1'' ) : (dbl(value)>0 ? ''<fgcolor=000' + 
	'0FF>+''+(value format ''2|.|3|,'' ): ''0.00'') )';
				Def[EXPLORERTREELib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
			end;
		end;
		with Items do
		begin
			h := AddItem('Root');
			CellCaptionFormat[TObject(h),TObject(4)] := EXPLORERTREELib.CaptionFormatEnum.exComputedField;
			h1 := InsertItem(h,Nil,'Child 1');
			CellCaption[TObject(h1),TObject(1)] := TObject(7);
			CellCaption[TObject(h1),TObject(2)] := TObject(3);
			CellCaption[TObject(h1),TObject(3)] := TObject(1);
			h1 := InsertItem(h,Nil,'Child 2');
			CellCaption[TObject(h1),TObject(1)] := TObject(-2);
			CellCaption[TObject(h1),TObject(2)] := TObject(-2);
			CellCaption[TObject(h1),TObject(3)] := TObject(-4);
			h1 := InsertItem(h,Nil,'Child 3');
			CellCaption[TObject(h1),TObject(1)] := TObject(2);
			CellCaption[TObject(h1),TObject(2)] := TObject(2);
			CellCaption[TObject(h1),TObject(3)] := TObject(-4);
			ExpandItem[h] := True;
		end;
		Expanded := True;
	end;
	EndUpdate();
end
8
Is there any function to round the values base on the .5 value

with AxExplorerTree1 do
begin
	with Groups.Add('Default') do
	begin
		HeaderVisible := True;
		Columns.Clear();
		Columns.Add('Number');
		(Columns.Add('Round') as EXPLORERTREELib.Column).ComputedField := 'round(%0)';
		with Items do
		begin
			AddItem('-1.98');
			AddItem('0.99');
			AddItem('1.23');
			AddItem('2.34');
		end;
		Expanded := True;
	end;
end
7
How can I show a column that adds values in the cells

with AxExplorerTree1 do
begin
	with Groups.Add('Default') do
	begin
		Columns.Clear();
		HeaderVisible := True;
		Columns.Add('A');
		Columns.Add('B');
		(Columns.Add('A+B') as EXPLORERTREELib.Column).ComputedField := 'dbl(%0) + dbl(%1)';
		with Items do
		begin
			CellCaption[TObject(AddItem(TObject(1))),TObject(1)] := TObject(2);
		end;
		with Items do
		begin
			CellCaption[TObject(AddItem(TObject(10))),TObject(1)] := TObject(20);
		end;
		Expanded := True;
	end;
end
6
How do I change the item's background color for numbers less than a value

with AxExplorerTree1 do
begin
	with Groups.Add('Default') do
	begin
		ConditionalFormats.Add('dbl(%0) < 10',Nil).BackColor := $ff;
		Items.AddItem(TObject(1));
		Items.AddItem(TObject(2));
		Items.AddItem(TObject(10));
		Items.AddItem(TObject(20));
		Expanded := True;
	end;
end
5
How do I highlight in bold the numbers greater than a value

with AxExplorerTree1 do
begin
	with Groups.Add('Default') do
	begin
		ConditionalFormats.Add('dbl(%0) >= 10',Nil).Bold := True;
		Items.AddItem(TObject(1));
		Items.AddItem(TObject(2));
		Items.AddItem(TObject(10));
		Items.AddItem(TObject(20));
		Expanded := True;
	end;
end
4
How do I change the caption being displayed in the control's filter bar

with AxExplorerTree1 do
begin
	with Groups.Add('Default') do
	begin
		FilterBarCaption := 'your filter caption';
		with (Columns.Add('Column') as EXPLORERTREELib.Column) do
		begin
			DisplayFilterButton := True;
			FilterType := EXPLORERTREELib.FilterTypeEnum.exBlanks;
		end;
		ApplyFilter();
		Expanded := True;
	end;
end
3
Is it possible to change the style for the vertical or horizontal grid lines, in the list area

with AxExplorerTree1 do
begin
	BeginUpdate();
	with Groups.Add('Default') do
	begin
		AutoHeight := True;
		DrawGridLines := EXPLORERTREELib.GridLinesEnum.exAllLines;
		GridLineStyle := Integer(EXPLORERTREELib.GridLinesStyleEnum.exGridLinesVSolid) Or Integer(EXPLORERTREELib.GridLinesStyleEnum.exGridLinesHDot4);
		ColumnAutoResize := False;
		with Columns.Item[TObject(0)] do
		begin
			Caption := 'C1';
			Width := 64;
		end;
		Columns.Add('C2');
		Columns.Add('C3');
		ColumnAutoResize := True;
		with Items do
		begin
			h := AddItem('Item 1');
			CellCaption[TObject(h),TObject(1)] := 'SubItem 1.2';
			CellCaption[TObject(h),TObject(2)] := 'SubItem 1.3';
			h := AddItem('Item 2');
			CellCaption[TObject(h),TObject(1)] := 'SubItem 2.2';
			CellCaption[TObject(h),TObject(2)] := 'SubItem 2.3';
			h := AddItem('Item 3');
			CellCaption[TObject(h),TObject(1)] := 'SubItem 3.2';
			CellCaption[TObject(h),TObject(2)] := 'SubItem 3.3';
		end;
		Expanded := True;
	end;
	EndUpdate();
end
2
Is it possible to change the style for the grid lines, for instance to be solid not dotted

with AxExplorerTree1 do
begin
	BeginUpdate();
	with Groups.Add('Default') do
	begin
		DrawGridLines := EXPLORERTREELib.GridLinesEnum.exAllLines;
		GridLineStyle := EXPLORERTREELib.GridLinesStyleEnum.exGridLinesSolid;
		Expanded := True;
	end;
	EndUpdate();
end
1
How can I change the visual appearance for the groups, using your EBN files

with AxExplorerTree1 do
begin
	BeginUpdate();
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	(GetOcx() as EXPLORERTREELib.ExplorerTree).BackColorGroup := $1000000;
	with Groups do
	begin
		Add('Group 1');
		Add('Group 2');
		Add('Group 3');
	end;
	EndUpdate();
end