How-To Cicode (explorertree)

38	How can I replace or add an icon at runtime OBJECT explorertree,group; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "BeginUpdate"); _ObjectCallMethod( explorertree , "ReplaceIcon", "gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O" + "kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA=="); _ObjectCallMethod( explorertree , "ReplaceIcon", "C:\images\favicon.ico",0); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Select"); _ObjectSetProperty( group , "Expanded", -1); _ObjectSetProperty( group , "ColumnAutoResize", -1); _ObjectCallMethod(explorertree, "TemplatePut", "Dim groObj") _ObjectCallMethod(explorertree, "TemplatePut", group) _ObjectCallMethod(explorertree, "ExecuteTemplate", "groObj.Columns.Item(0).Def(17) = 1"); _ObjectCallMethod( _ObjectGetProperty( group , "Items") , "AddItem", "Item <img>1</img>"); _ObjectCallMethod( explorertree , "EndUpdate");
37	Can I set a filter that automatically adds a * before and after the word, so the user can just search for 'cat' and it becomes 'cat' automatically OBJECT column,explorertree,group,items; explorertree = ObjectByName("AN1") ; group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Tree"); _ObjectSetProperty( group , "Expanded", -1); _ObjectCallMethod( group , "BeginUpdate"); _ObjectSetProperty( group , "HeaderAppearance", 4); _ObjectSetProperty( group , "HeaderHeight", 24); _ObjectSetProperty( group , "LinesAtRoot", -1); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Clear"); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "Items"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "DisplayFilterPattern", -1); _ObjectCallMethod(explorertree, "TemplatePut", "Dim colObj") _ObjectCallMethod(explorertree, "TemplatePut", column) _ObjectCallMethod(explorertree, *"ExecuteTemplate", "colObj.Def(21) = `<%filter%>`"); _ObjectSetProperty( column , "FilterType", 3); _ObjectSetProperty( column , "Filter"*, "1"); items = _ObjectGetProperty( group , "Items"); h = _ObjectCallMethod( items , "AddItem", "Root 1"); _ObjectCallMethod( items , "InsertItem", h,"","Child 1"); _ObjectCallMethod( items , "InsertItem", h,"","Child 2"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ExpandItem(h) = True"); h = _ObjectCallMethod( items , "AddItem", "Root 2"); _ObjectCallMethod( items , "InsertItem", h,"","Child 1"); _ObjectCallMethod( items , "InsertItem", h,"","Child 2"); _ObjectCallMethod( group , "ApplyFilter"); _ObjectCallMethod( group , "EndUpdate");
36	Load data as a tree using a parent-id relationship OBJECT explorertree,group,rs; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "BeginUpdate"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Tree"); _ObjectSetProperty( group , "Expanded", -1); _ObjectSetProperty( group , "Height", 196); _ObjectCallMethod( group , "BeginUpdate"); _ObjectSetProperty( group , "ColumnAutoResize", 0); _ObjectSetProperty( group , "DrawGridLines", 2); _ObjectSetProperty( group , "LinesAtRoot", -1); rs = CreateObject("ADODB.Recordset"); _ObjectCallMethod( rs , "Open", "Select * FROM Employees WHERE 1=0","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb",3,3); _ObjectSetProperty( group , "DataSource", rs); _ObjectCallMethod(explorertree, "TemplatePut", "Dim groObj") _ObjectCallMethod(explorertree, "TemplatePut", group) _ObjectCallMethod(explorertree, "ExecuteTemplate", "groObj.Columns.Item(0).Width = 128"); rs = CreateObject("ADODB.Recordset"); _ObjectCallMethod( rs , "Open", "Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb",3,3); _ObjectCallMethod( group , "PutItems", _ObjectCallMethod( rs , "GetRows", ),";0;15"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "groObj.Items.ExpandItem(0) = True"); _ObjectCallMethod( group , "EndUpdate"); _ObjectCallMethod( explorertree , "EndUpdate");
35	Highlight the leaf items OBJECT columns,explorertree,group,items; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "BeginUpdate"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Tree"); _ObjectSetProperty( group , "Expanded", -1); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( group , "ConditionalFormats") , "Add", "%CC0=0") , "ForeColor", 8421504); _ObjectSetProperty( group , "HeaderAppearance", 4); _ObjectSetProperty( group , "HeaderHeight", 24); _ObjectSetProperty( group , "LinesAtRoot", -1); columns = _ObjectGetProperty( group , "Columns"); _ObjectCallMethod( columns , "Clear"); _ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Item") , "Width", 16); _ObjectCallMethod( columns , "Add", "Desc"); items = _ObjectGetProperty( group , "Items"); hR = _ObjectCallMethod( items , "AddItem", "Root"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,hR") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", hR) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(hR,1) = `The root directory /`"); h = _ObjectCallMethod( items , "InsertItem", hR,"","Home"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,1) = `The home directory with user directories Alice and Bob`"); _ObjectCallMethod( items , "InsertItem", h,"","Alice"); _ObjectCallMethod( items , "InsertItem", h,"","Bob"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ExpandItem(h) = True"); h = _ObjectCallMethod( items , "InsertItem", hR,"","Etc"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,1) = `The etc directory with one configuration file`"); h = _ObjectCallMethod( items , "InsertItem", h,"","nginx.conf"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,hR") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", hR) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(InsertItem(hR,,`Var`),1) = `The var directory`"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ExpandItem(hR) = True"); _ObjectCallMethod( explorertree , "EndUpdate");
34	Highlight the parent items OBJECT columns,explorertree,group,items; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "BeginUpdate"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Tree"); _ObjectSetProperty( group , "Expanded", -1); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( group , "ConditionalFormats") , "Add", "%CC0") , "ForeColor", 255); _ObjectSetProperty( group , "HeaderAppearance", 4); _ObjectSetProperty( group , "HeaderHeight", 24); _ObjectSetProperty( group , "LinesAtRoot", -1); columns = _ObjectGetProperty( group , "Columns"); _ObjectCallMethod( columns , "Clear"); _ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Item") , "Width", 16); _ObjectCallMethod( columns , "Add", "Desc"); items = _ObjectGetProperty( group , "Items"); hR = _ObjectCallMethod( items , "AddItem", "Root"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,hR") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", hR) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(hR,1) = `The root directory /`"); h = _ObjectCallMethod( items , "InsertItem", hR,"","Home"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,1) = `The home directory with user directories Alice and Bob`"); _ObjectCallMethod( items , "InsertItem", h,"","Alice"); _ObjectCallMethod( items , "InsertItem", h,"","Bob"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ExpandItem(h) = True"); h = _ObjectCallMethod( items , "InsertItem", hR,"","Etc"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,1) = `The etc directory with one configuration file`"); h = _ObjectCallMethod( items , "InsertItem", h,"","nginx.conf"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,hR") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", hR) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(InsertItem(hR,,`Var`),1) = `The var directory`"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ExpandItem(hR) = True"); _ObjectCallMethod( explorertree , "EndUpdate");
33	Highlight the item being expanded or collapsed OBJECT columns,explorertree,group,items; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "BeginUpdate"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Tree"); _ObjectSetProperty( group , "Expanded", -1); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( group , "ConditionalFormats") , "Add", "%CX0") , "Bold", -1); _ObjectSetProperty( group , "LinesAtRoot", -1); columns = _ObjectGetProperty( group , "Columns"); _ObjectCallMethod( columns , "Clear"); _ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Item") , "Width", 16); _ObjectCallMethod( columns , "Add", "Desc"); items = _ObjectGetProperty( group , "Items"); hR = _ObjectCallMethod( items , "AddItem", "Root"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,hR") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", hR) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(hR,1) = `The root directory /`"); h = _ObjectCallMethod( items , "InsertItem", hR,"","Home"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,1) = `The home directory with user directories Alice and Bob`"); _ObjectCallMethod( items , "InsertItem", h,"","Alice"); _ObjectCallMethod( items , "InsertItem", h,"","Bob"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ExpandItem(h) = True"); h = _ObjectCallMethod( items , "InsertItem", hR,"","Etc"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,1) = `The etc directory with one configuration file`"); h = _ObjectCallMethod( items , "InsertItem", h,"","nginx.conf"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,hR") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", hR) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(InsertItem(hR,,`Var`),1) = `The var directory`"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ExpandItem(hR) = True"); _ObjectCallMethod( explorertree , "EndUpdate");
32	Expandable-caption // AnchorClick event - Occurs when an anchor element is clicked. FUNCTION explorertreeEvents_AnchorClick(OBJECT explorertree, STRING AnchorID, STRING Options) Message( AnchorID ); END OBJECT explorertree,group,items; explorertree = ObjectByName("AN1") ; ObjectAssociateEvents("explorertreeEvents", explorertree); _ObjectCallMethod( explorertree , "BeginUpdate"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Items"); _ObjectSetProperty( group , "ColumnAutoResize", -1); _ObjectSetProperty( group , "TreeColumnIndex", -1); _ObjectSetProperty( group , "DrawGridLines", -1); _ObjectSetProperty( group , "GridLineStyle", 512); _ObjectSetProperty( group , "BackColorAlternate", 15790320); _ObjectSetProperty( group , "ShowFocusRect", 0); items = _ObjectGetProperty( group , "Items"); _ObjectCallMethod( items , "AddItem", "before item"); h = _ObjectCallMethod( items , "AddItem", "<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4Aj" + "MGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEB" + "A==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DAB" + "vABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==> " + "650;</a><br>+ withdraw(amount: Currency)"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaptionFormat(h,0) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = False"); _ObjectCallMethod( items , "AddItem", "after item"); _ObjectSetProperty( group , "Expanded", -1); _ObjectCallMethod( explorertree , "EndUpdate");
31	Expandable-caption OBJECT explorertree,group,items; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "BeginUpdate"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Items"); _ObjectSetProperty( group , "TreeColumnIndex", -1); _ObjectSetProperty( group , "DrawGridLines", -1); _ObjectSetProperty( group , "GridLineStyle", 512); _ObjectSetProperty( group , "BackColorAlternate", 15790320); _ObjectSetProperty( group , "ShowFocusRect", 0); items = _ObjectGetProperty( group , "Items"); _ObjectCallMethod( items , "AddItem", "before item"); h = _ObjectCallMethod( items , "AddItem", "<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaptionFormat(h,0) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = False"); _ObjectCallMethod( items , "AddItem", "after item"); _ObjectSetProperty( group , "Expanded", -1); _ObjectCallMethod( explorertree , "EndUpdate");
30	Display a custom tooltip // MouseMove event - Occurs when the user moves the mouse. FUNCTION explorertreeEvents_MouseMove(OBJECT explorertree, INT Button, INT Shift, INT X, INT Y) _ObjectCallMethod( explorertree , "ShowToolTip", "new content","","","+8","+8"); END
29	Shows the tooltip of the object moved relative to its default position // MouseMove event - Occurs when the user moves the mouse. FUNCTION explorertreeEvents_MouseMove(OBJECT explorertree, INT Button, INT Shift, INT X, INT Y) _ObjectCallMethod( explorertree , "ShowToolTip", "<null>","<null>","","+8","+8"); END OBJECT explorertree; explorertree = ObjectByName("AN1") ; ObjectAssociateEvents("explorertreeEvents", explorertree); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Group") , "ToolTip", "just a tooltip");
28	Re-order the cell's caption, icons and images/pictures OBJECT column,explorertree,group,items; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "BeginUpdate"); _ObjectCallMethod( explorertree , "Images", "gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" + "lVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmD" + "cD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Group"); _ObjectSetProperty( group , "Expanded", -1); _ObjectSetProperty( group , "AutoHeight", -1); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Clear"); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "ToLeft"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim colObj") _ObjectCallMethod(explorertree, "TemplatePut", column) _ObjectCallMethod(explorertree, "ExecuteTemplate", "colObj.Def(0) = True"); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "ToRight"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "colObj.Def(34) = `caption,picture,icons,icon,check`"); _ObjectSetProperty( group , "DefaultItemHeight", 32); _ObjectSetProperty( group , "DrawGridLines", 2); _ObjectSetProperty( group , "HeaderAppearance", 4); items = _ObjectGetProperty( group , "Items"); h = _ObjectCallMethod( items , "AddItem", "Caption"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellImage(h,0) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellImages(h,0) = `1,2`"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.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==`)`)"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,1) = CellCaption(h,0)"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellHAlignment(h,1) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellImage(h,1) = CellImage(h,0)"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellImages(h,1) = `2,1`"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellPicture(h,1) = CellPicture(h,0)"); h = _ObjectCallMethod( items , "AddItem", "<b>HTML</b> <off 4>Caption"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaptionFormat(h,0) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellImage(h,0) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellImages(h,0) = `1,2`"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.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==`)`)"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,1) = CellCaption(h,0)"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaptionFormat(h,1) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellHAlignment(h,1) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellImage(h,1) = CellImage(h,0)"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellImages(h,1) = `2,1`"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellPicture(h,1) = CellPicture(h,0)"); _ObjectCallMethod( explorertree , "EndUpdate");
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. FUNCTION explorertreeEvents_AddGroup(OBJECT explorertree, OBJECT Group) OBJECT group; group = Group; END OBJECT appearance,column,columns,explorertree,group,items; explorertree = ObjectByName("AN1") ; ObjectAssociateEvents("explorertreeEvents", explorertree); _ObjectCallMethod( explorertree , "BeginUpdate"); _ObjectSetProperty( explorertree , "ShowShortcutBar", -1); _ObjectSetProperty( explorertree , "ImageSize", 32); _ObjectSetProperty( explorertree , "GroupHeight", 32); _ObjectSetProperty( _ObjectGetProperty( explorertree , "Font") , "Size", 16); _ObjectCallMethod( explorertree , "Images", "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" + "NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" + "yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" + "MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" + "FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" + "y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" + "FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" + "NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" + "oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" + "4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" + "6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" + "DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" + "T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" + "fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" + "6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" + "gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" + "RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA=="); appearance = _ObjectGetProperty( explorertree , "VisualAppearance"); _ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" + "6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" + "MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" + "RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" + "FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" + "kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" + "ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" + "0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" + "8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" + "UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="); _ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" + "6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" + "MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" + "nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" + "cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" + "AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" + "RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" + "GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" + "gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" + "XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" + "yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" + "pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" + "TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" + "HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" + "hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" + "sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" + "aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" + "swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" + "YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" + "hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" + "gRBCCQAgQEA=="); _ObjectCallMethod( appearance , "Add", 3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" + "6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" + "MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" + "nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" + "eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" + "nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" + "J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" + "SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" + "ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" + "XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" + "6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" + "AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" + "BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" + "HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" + "hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" + "QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" + "VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" + "zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" + "H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI="); _ObjectCallMethod( appearance , "Add", 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" + "LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" + "UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" + "3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" + "YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" + "mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" + "oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" + "Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" + "FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="); _ObjectCallMethod(explorertree, "ExecuteTemplate", "Background(20) = 67108864"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "Background(21) = 0"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "Background(26) = BackColor"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "Background(27) = ForeColor"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "Background(32) = -1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "Background(0) = 67108864"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "Background(41) = 67174657"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "Background(1) = 67109119"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Classament <b>A</b>"); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Clear"); _ObjectSetProperty( group , "Shortcut", "<img>1</img>"); _ObjectSetProperty( group , "HasLines", 0); columns = _ObjectGetProperty( group , "Columns"); _ObjectCallMethod( columns , "Add", "Group"); column = _ObjectCallMethod( columns , "Add", "P1"); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); column = _ObjectCallMethod( columns , "Add", "P2"); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); column = _ObjectCallMethod( columns , "Add", "P3"); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); column = _ObjectCallMethod( columns , "Add", "P4"); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); items = _ObjectGetProperty( group , "Items"); h = _ObjectCallMethod( items , "AddItem", "Group 1"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellHAlignment(h,0) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemDividerLineAlignment(h) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemHeight(h) = 24"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.SortableItem(h) = False"); h1 = _ObjectCallMethod( items , "InsertItem", h,"","Team 1"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h1") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h1) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 11"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = 3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,4) = 12"); h1 = _ObjectCallMethod( items , "InsertItem", h,"","Team 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = 4"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,4) = 2"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ExpandItem(h) = True"); h = _ObjectCallMethod( items , "AddItem", "Group 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellHAlignment(h,0) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemDividerLineAlignment(h) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemHeight(h) = 24"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.SortableItem(h) = False"); h1 = _ObjectCallMethod( items , "InsertItem", h,"","Team 1"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h1") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h1) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = 3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,4) = 4"); h1 = _ObjectCallMethod( items , "InsertItem", h,"","Team 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 5"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 6"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = 6"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,4) = 16"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ExpandItem(h) = True"); _ObjectSetProperty( group , "Expanded", -1); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Classament <b>D") , "Shortcut", "<img>3</img>"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Classament <b>B"); _ObjectSetProperty( group , "Shortcut", "<img>1</img>"); _ObjectSetProperty( group , "CaptionFormat", 1); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Clear"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Classament <b>C"); _ObjectSetProperty( group , "Shortcut", "<img>1</img>"); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Clear"); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "Group"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim colObj") _ObjectCallMethod(explorertree, "TemplatePut", column) _ObjectCallMethod(explorertree, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "PartialCheck", -1); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "P1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "PartialCheck", -1); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "LevelKey", 1); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "P2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "PartialCheck", -1); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "LevelKey", 1); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "P3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "PartialCheck", -1); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "LevelKey", 2); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "P4"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "PartialCheck", -1); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "LevelKey", 2); items = _ObjectGetProperty( group , "Items"); h = _ObjectCallMethod( items , "AddItem", "Group 1"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 4"); _ObjectCallMethod( items , "InsertItem", h,"","Team 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellState(InsertItem(h,,`Team 2`),0) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ExpandItem(h) = True"); h = _ObjectCallMethod( items , "AddItem", "Group 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 4"); _ObjectCallMethod( items , "InsertItem", h,"","Team 1"); _ObjectCallMethod( items , "InsertItem", h,"","Team 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ExpandItem(h) = True"); _ObjectSetProperty( group , "AutoHeight", -1); _ObjectSetProperty( group , "Expanded", -1); _ObjectCallMethod( explorertree , "EndUpdate");
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. FUNCTION explorertreeEvents_AddGroup(OBJECT explorertree, OBJECT Group) OBJECT group; group = Group; END OBJECT appearance,column,columns,explorertree,group,items; explorertree = ObjectByName("AN1") ; ObjectAssociateEvents("explorertreeEvents", explorertree); _ObjectCallMethod( explorertree , "BeginUpdate"); _ObjectSetProperty( explorertree , "ShowShortcutBar", -1); _ObjectSetProperty( explorertree , "ImageSize", 16); _ObjectCallMethod( explorertree , "Images", "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" + "NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" + "yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" + "MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" + "FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" + "y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" + "FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" + "NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" + "oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" + "4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" + "6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" + "DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" + "T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" + "fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" + "6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" + "gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" + "RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA=="); appearance = _ObjectGetProperty( explorertree , "VisualAppearance"); _ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" + "6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" + "MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" + "RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" + "FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" + "kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" + "ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" + "0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" + "8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" + "UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="); _ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" + "6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" + "MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" + "nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" + "cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" + "AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" + "RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" + "GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" + "gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" + "XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" + "yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" + "pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" + "TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" + "HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" + "hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" + "sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" + "aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" + "swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" + "YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" + "hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" + "gRBCCQAgQEA=="); _ObjectCallMethod( appearance , "Add", 3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" + "6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" + "MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" + "nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" + "eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" + "nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" + "J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" + "SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" + "ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" + "XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" + "6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" + "AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" + "BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" + "HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" + "hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" + "QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" + "VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" + "zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" + "H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI="); _ObjectCallMethod( appearance , "Add", 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" + "LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" + "UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" + "3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" + "YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" + "mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" + "oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" + "Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" + "FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="); _ObjectCallMethod(explorertree, "ExecuteTemplate", "Background(20) = 67108864"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "Background(21) = 0"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "Background(26) = BackColor"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "Background(27) = ForeColor"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "Background(32) = -1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "Background(0) = 67108864"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "Background(41) = 67174657"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "Background(1) = 67109119"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Classament <b>A</b>"); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Clear"); _ObjectSetProperty( group , "Shortcut", "<img>1</img>"); _ObjectSetProperty( group , "HasLines", 0); columns = _ObjectGetProperty( group , "Columns"); _ObjectCallMethod( columns , "Add", "Group"); column = _ObjectCallMethod( columns , "Add", "P1"); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); column = _ObjectCallMethod( columns , "Add", "P2"); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); column = _ObjectCallMethod( columns , "Add", "P3"); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); column = _ObjectCallMethod( columns , "Add", "P4"); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); items = _ObjectGetProperty( group , "Items"); h = _ObjectCallMethod( items , "AddItem", "Group 1"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellHAlignment(h,0) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemDividerLineAlignment(h) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemHeight(h) = 24"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.SortableItem(h) = False"); h1 = _ObjectCallMethod( items , "InsertItem", h,"","Team 1"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h1") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h1) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 11"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = 3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,4) = 12"); h1 = _ObjectCallMethod( items , "InsertItem", h,"","Team 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = 4"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,4) = 2"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ExpandItem(h) = True"); h = _ObjectCallMethod( items , "AddItem", "Group 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellHAlignment(h,0) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemDividerLineAlignment(h) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemHeight(h) = 24"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.SortableItem(h) = False"); h1 = _ObjectCallMethod( items , "InsertItem", h,"","Team 1"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h1") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h1) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = 3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,4) = 4"); h1 = _ObjectCallMethod( items , "InsertItem", h,"","Team 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 5"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 6"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = 6"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,4) = 16"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ExpandItem(h) = True"); _ObjectSetProperty( group , "Expanded", -1); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Classament <b>D") , "Shortcut", "<img>3</img>"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Classament <b>B"); _ObjectSetProperty( group , "Shortcut", "<img>1</img>"); _ObjectSetProperty( group , "CaptionFormat", 1); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Clear"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Classament <b>C"); _ObjectSetProperty( group , "Shortcut", "<img>1</img>"); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Clear"); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "Group"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim colObj") _ObjectCallMethod(explorertree, "TemplatePut", column) _ObjectCallMethod(explorertree, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "PartialCheck", -1); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "P1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "PartialCheck", -1); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "LevelKey", 1); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "P2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "PartialCheck", -1); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "LevelKey", 1); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "P3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "PartialCheck", -1); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "LevelKey", 2); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "P4"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "PartialCheck", -1); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "LevelKey", 2); items = _ObjectGetProperty( group , "Items"); h = _ObjectCallMethod( items , "AddItem", "Group 1"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 4"); _ObjectCallMethod( items , "InsertItem", h,"","Team 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellState(InsertItem(h,,`Team 2`),0) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ExpandItem(h) = True"); h = _ObjectCallMethod( items , "AddItem", "Group 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 4"); _ObjectCallMethod( items , "InsertItem", h,"","Team 1"); _ObjectCallMethod( items , "InsertItem", h,"","Team 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ExpandItem(h) = True"); _ObjectSetProperty( group , "AutoHeight", -1); _ObjectSetProperty( group , "Expanded", -1); _ObjectCallMethod( explorertree , "EndUpdate");
25	Highlight the item from the cursor OBJECT explorertree,group,items; explorertree = ObjectByName("AN1") ; hotback = 16748574; selback = 16736256; _ObjectCallMethod( explorertree , "BeginUpdate"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Group 1"); _ObjectSetProperty( group , "LinesAtRoot", -1); _ObjectSetProperty( group , "HasLines", 0); _ObjectSetProperty( group , "ShowFocusRect", 0); items = _ObjectGetProperty( group , "Items"); _ObjectCallMethod( items , "AddItem", "Item A"); h = _ObjectCallMethod( items , "AddItem", "Item B"); _ObjectCallMethod( items , "InsertItem", h,"","Child 1"); _ObjectCallMethod( items , "InsertItem", h,"","Child 2"); _ObjectCallMethod( items , "AddItem", "Item C"); _ObjectSetProperty( group , "SelBackColor", selback); _ObjectSetProperty( group , "HotBackColor", hotback); _ObjectSetProperty( group , "HotForeColor", _ObjectGetProperty( group , "SelForeColor")); _ObjectSetProperty( group , "Expanded", -1); _ObjectSetProperty( group , "AutoHeight", -1); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Group 2"); _ObjectCallMethod( _ObjectGetProperty( group , "Items") , "AddItem", "Item A"); _ObjectCallMethod( _ObjectGetProperty( group , "Items") , "AddItem", "Item B"); _ObjectCallMethod( _ObjectGetProperty( group , "Items") , "AddItem", "Item C"); _ObjectSetProperty( group , "ShowFocusRect", 0); _ObjectSetProperty( group , "SelBackColor", selback); _ObjectSetProperty( group , "HotBackColor", hotback); _ObjectSetProperty( group , "HotForeColor", _ObjectGetProperty( group , "SelForeColor")); _ObjectSetProperty( group , "Expanded", -1); _ObjectSetProperty( group , "AutoHeight", -1); _ObjectCallMethod( explorertree , "EndUpdate");
24	Classament OBJECT column,columns,explorertree,group,items; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "Images", "gBJJgBAIEAAGAEGCAAhb/hz/EIAh8Tf5CJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" + "lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1BAmBhOCwMGwuDw2ExWJxmIx2HyGLv+TlykUCgABmGYzzObzuczWcKujzOa0ug02h" + "z+r1Wtz2qoCA2QAYG1yk02YA3NMy2Yh8Sh202zx4gA4jxADM5XG4vHACy6ESdjM6XUZiZTMS5bwZSm1c83+yQHCYHk81Q8O7qW18u/9NG3vAf/y83u4PQWQA0ZVADq/z" + "6um6rkuw7TqH+5bYJu+z5vE8z2N02cGweoDfwfCrbQfBqkNzBb6QfDLxp6+LlOs5cSOTEzlm7FYACFFwADvGIAGvGjzOu7MbwHHECQSmUOvS8cGwk20gQc2ycQs4MLvL" + "D8MNtDSfyS+cmyZJzywa96axzDsTw6/x1AAL8xRbF8Vm65jkH/AL8QFNTqR6lsfuDIb2uDKTzTo88FTtIk+PK3SNRDKiew5JVDSnK08NnOUGRClkt0PFEDUjMwAENS4A" + "M2zj4udNznujT1PTgjdGQg8c71RPtESvCL1JrO8lozQUj1nP6d1TKtc0U8dS1jCaNRzGhrxnGthWJYdjUrYwc2ZMMx2NB8czZNk4VLPMstzXD6Q6mltVjPNAT0m1CvnD" + "tBxBXlI3PRKNzZDtjQ6cd5TQ/TSU0/r/udC0A1Ez1SUja8/QhWVavrSLfpxWNzXZR2CygmVtXXVl03Lg+BV+lV3UjeDgzEL4AXkcb6Pje5LZNDzhuLfrOX/RtT0TQbc5" + "lENSvBi2K5xlFdUHhN1ZhJ9F59WybOU7NjWTFkvxhGT9zIIQAWYHIABFqmnABSsT0HUaNYlI1dZmjNuUDRybzvIVWyDoOc54n8Oyxm9Ta9cSUaLbbg44+b4xiO9nY/pt" + "73u38Tuc52tpdruYxDVyUbBV+gYpu2c7PyGMKTt21cjnW6OvzO8PppUvP/Ljlt/wt/Vvn+v8V1eCdbgaa7fnMi8vyD0TnzGEJXyp/wJ3js98iXe+F3/hwGM3jeQZjTeU" + "znmOT5bTKJyqYcbm2c5bzXpqvsWw4FUkCO473wgB8cD9/znzO14n1+D4/efcTP4fl5+WKvxbbptmqV+B/ni/68R4514AvxeTAR50B3oPNei/iBhFgfErgeR4kBIiSAAJ" + "KSiC7PT5wMKIQ4fwfyHDzg2PwD4/B/jgg2PgA48AfjgB+RkeAARwAPGAA8jI4AADgAOMAAZGTyw6YbDkA7ZDaAHgxDyCxGgBw8EBBmJcS4LjAATDweBGoqjgAGP4jQ/A" + "cjwAHBsiQex8gPH+MF7pDxxkB"); _ObjectCallMethod( _ObjectGetProperty( explorertree , "VisualAppearance") , "Add", 1,"E:\Exontrol\ExG2antt\sample\EBN\vistasel.ebn"); _ObjectCallMethod( explorertree , "BeginUpdate"); _ObjectSetProperty( explorertree , "ShowShortcutBar", -1); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Classament <b>A</b>"); _ObjectSetProperty( group , "IndentGroupLeft", 18); _ObjectSetProperty( group , "IndentGroupRight", 18); _ObjectSetProperty( group , "SelBackMode", 1); _ObjectSetProperty( group , "ShowFocusRect", 0); _ObjectSetProperty( group , "SelBackColor", 16777216); _ObjectSetProperty( group , "SelForeColor", 0); _ObjectSetProperty( group , "CaptionFormat", 1); _ObjectSetProperty( group , "Shortcut", "<img>1</img>"); _ObjectSetProperty( group , "AutoHeight", -1); _ObjectSetProperty( group , "HeaderVisible", -1); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Clear"); _ObjectSetProperty( group , "HasLines", 0); _ObjectSetProperty( group , "ScrollBySingleLine", -1); _ObjectSetProperty( group , "MarkSearchColumn", 0); columns = _ObjectGetProperty( group , "Columns"); _ObjectCallMethod( columns , "Add", "Group"); column = _ObjectCallMethod( columns , "Add", "P1"); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); column = _ObjectCallMethod( columns , "Add", "P2"); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); column = _ObjectCallMethod( columns , "Add", "P3"); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); column = _ObjectCallMethod( columns , "Add", "P4"); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); items = _ObjectGetProperty( group , "Items"); h = _ObjectCallMethod( items , "AddItem", "Group 1"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellHAlignment(h,0) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemDividerLineAlignment(h) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemHeight(h) = 24"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.SortableItem(h) = False"); h1 = _ObjectCallMethod( items , "InsertItem", h,"","Team 1"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h1") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h1) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 11"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = 3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,4) = 12"); h1 = _ObjectCallMethod( items , "InsertItem", h,"","Team 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = 4"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,4) = 2"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ExpandItem(h) = True"); h = _ObjectCallMethod( items , "AddItem", "Group 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellHAlignment(h,0) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemDividerLineAlignment(h) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemHeight(h) = 24"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.SortableItem(h) = False"); h1 = _ObjectCallMethod( items , "InsertItem", h,"","Team 1"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h1") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h1) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = 3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,4) = 4"); h1 = _ObjectCallMethod( items , "InsertItem", h,"","Team 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 5"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 6"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = 6"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,4) = 16"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ExpandItem(h) = True"); _ObjectSetProperty( group , "Expanded", -1); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Classament 4") , "Shortcut", "<img>4</img>"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Classament <b>B"); _ObjectSetProperty( group , "Shortcut", "<img>1</img>"); _ObjectSetProperty( group , "CaptionFormat", 1); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Classament <b>C"); _ObjectSetProperty( group , "IndentGroupLeft", 18); _ObjectSetProperty( group , "IndentGroupRight", 18); _ObjectSetProperty( group , "SelBackMode", 1); _ObjectSetProperty( group , "ShowFocusRect", 0); _ObjectSetProperty( group , "SelBackColor", 16777216); _ObjectSetProperty( group , "SelForeColor", 0); _ObjectSetProperty( group , "CaptionFormat", 1); _ObjectSetProperty( group , "Shortcut", "<img>1</img>"); _ObjectSetProperty( group , "HeaderVisible", -1); _ObjectSetProperty( group , "MarkSearchColumn", 0); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Clear"); _ObjectSetProperty( group , "LinesAtRoot", -1); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "Group"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim colObj") _ObjectCallMethod(explorertree, "TemplatePut", column) _ObjectCallMethod(explorertree, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "PartialCheck", -1); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "P1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "PartialCheck", -1); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "LevelKey", 1); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "P2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "PartialCheck", -1); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "LevelKey", 1); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "P3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "PartialCheck", -1); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "LevelKey", 2); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "P4"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "PartialCheck", -1); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "LevelKey", 2); items = _ObjectGetProperty( group , "Items"); h = _ObjectCallMethod( items , "AddItem", "Group 1"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 4"); _ObjectCallMethod( items , "InsertItem", h,"","Team 1"); _ObjectCallMethod( items , "InsertItem", h,"","Team 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ExpandItem(h) = True"); h = _ObjectCallMethod( items , "AddItem", "Group 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 4"); _ObjectCallMethod( items , "InsertItem", h,"","Team 1"); _ObjectCallMethod( items , "InsertItem", h,"","Team 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ExpandItem(h) = True"); _ObjectSetProperty( group , "AutoHeight", -1); _ObjectSetProperty( group , "Expanded", -1); _ObjectCallMethod( explorertree , "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 OBJECT appearance,columns,explorertree,group; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "BeginUpdate"); appearance = _ObjectGetProperty( explorertree , "VisualAppearance"); _ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV" + "IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" + "aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" + "eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" + "BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" + "GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI="); _ObjectCallMethod( appearance , "Add", 2,"CP:1 0 -36 0 0"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "Background(182) = 33554432"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "New"); _ObjectSetProperty( group , "HeaderVisible", -1); _ObjectSetProperty( group , "HeaderHeight", 22); columns = _ObjectGetProperty( group , "Columns"); _ObjectCallMethod( columns , "Clear"); _ObjectCallMethod( columns , "Add", "Column 1"); _ObjectCallMethod( columns , "Add", "Column 2"); _ObjectCallMethod( columns , "Add", "Column 3"); _ObjectSetProperty( group , "Expanded", -1); _ObjectCallMethod( explorertree , "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 OBJECT column,explorertree,group,items; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "BeginUpdate"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Group"); _ObjectSetProperty( group , "HeaderVisible", -1); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Clear"); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "Date"); _ObjectSetProperty( column , "SortType", 2); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "DisplayFilterPattern", 0); _ObjectSetProperty( column , "DisplayFilterDate", -1); _ObjectSetProperty( column , "FilterList", 1296); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "DateTime"); _ObjectSetProperty( column , "SortType", 3); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "DisplayFilterPattern", 0); _ObjectSetProperty( column , "FilterList", 1296); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "Time"); _ObjectSetProperty( column , "SortType", 4); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "DisplayFilterPattern", 0); _ObjectSetProperty( column , "FilterList", 1296); _ObjectSetProperty( column , "FormatColumn", "time(value)"); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "Numeric"); _ObjectSetProperty( column , "SortType", 1); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 1296); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "String"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 1296); items = _ObjectGetProperty( group , "Items"); h = _ObjectCallMethod( items , "AddItem", "1/27/2010"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,1) = #1/27/2010 10:00:00 AM#"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,2) = CellCaption(h,1)"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,3) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,4) = CellCaption(h,3)"); h = _ObjectCallMethod( items , "AddItem", "1/27/2011"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,1) = #1/27/2011 9:00:00 AM#"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,2) = CellCaption(h,1)"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,3) = 11"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,4) = CellCaption(h,3)"); h = _ObjectCallMethod( items , "AddItem", "11/2/2010"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,1) = #11/2/2010 9:00:00 AM#"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,2) = CellCaption(h,1)"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,3) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,4) = CellCaption(h,3)"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim groObj") _ObjectCallMethod(explorertree, "TemplatePut", group) _ObjectCallMethod(explorertree, "ExecuteTemplate", "groObj.Columns.Item(`DateTime`).DisplayFilterDate = False"); _ObjectSetProperty( group , "Expanded", -1); _ObjectCallMethod( explorertree , "EndUpdate");
21	How do I get the caption of the cell/item from the point // MouseMove event - Occurs when the user moves the mouse. FUNCTION explorertreeEvents_MouseMove(OBJECT explorertree, INT Button, INT Shift, INT X, INT Y) OBJECT object; object = _ObjectCallMethod(explorertree, "ExecuteTemplate", "GroupListFromPoint(-1,-1)"); END OBJECT explorertree,group,items; explorertree = ObjectByName("AN1") ; ObjectAssociateEvents("explorertreeEvents", explorertree); _ObjectCallMethod( explorertree , "BeginUpdate"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Group 1"); _ObjectSetProperty( group , "HeaderVisible", -1); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Clear"); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "Number"); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "Round") , "ComputedField", "round(%0)"); items = _ObjectGetProperty( group , "Items"); _ObjectCallMethod( items , "AddItem", "-1.98"); _ObjectCallMethod( items , "AddItem", "0.99"); _ObjectCallMethod( items , "AddItem", "1.23"); _ObjectCallMethod( items , "AddItem", "2.34"); _ObjectSetProperty( group , "Expanded", -1); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Group 2"); _ObjectSetProperty( group , "HeaderVisible", -1); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Clear"); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "Number"); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "Round") , "ComputedField", "round(%0)"); items = _ObjectGetProperty( group , "Items"); _ObjectCallMethod( items , "AddItem", "-1.98"); _ObjectCallMethod( items , "AddItem", "0.99"); _ObjectCallMethod( items , "AddItem", "1.23"); _ObjectCallMethod( items , "AddItem", "2.34"); _ObjectSetProperty( group , "Expanded", -1); _ObjectCallMethod( explorertree , "EndUpdate");
20	How can I ensure that a specified item is visible OBJECT explorertree,group,groups,items; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "BeginUpdate"); groups = _ObjectGetProperty( explorertree , "Groups"); group = _ObjectCallMethod( groups , "Add", "Group"); _ObjectSetProperty( group , "Expanded", -1); items = _ObjectGetProperty( group , "Items"); _ObjectCallMethod( items , "AddItem", "Item"); _ObjectCallMethod( items , "AddItem", "Item"); _ObjectCallMethod( items , "AddItem", "Item"); _ObjectCallMethod( items , "AddItem", "Item"); _ObjectCallMethod( group , "PutItems", _ObjectCallMethod( group , "GetItems", 0),0); _ObjectCallMethod( group , "PutItems", _ObjectCallMethod( group , "GetItems", 0),0); _ObjectCallMethod( _ObjectGetProperty( group , "Items") , "AddItem", "Ensure"); items = _ObjectCallMethod(explorertree, "ExecuteTemplate", "Groups.Item(0).Items"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj") _ObjectCallMethod(explorertree, "TemplatePut", items) h = _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemByIndex(16)"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemBackColor(h) = 65535"); _ObjectCallMethod( items , "EnsureVisibleItem", h); _ObjectCallMethod( explorertree , "EndUpdate");
19	is it possible to display icons in the control's shortcut bar OBJECT explorertree,groups; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "BeginUpdate"); _ObjectCallMethod( explorertree , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" + "lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" + "0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" + "NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="); _ObjectSetProperty( explorertree , "ShowShortcutBar", -1); groups = _ObjectGetProperty( explorertree , "Groups"); _ObjectSetProperty( _ObjectCallMethod( groups , "Add", "Group A.1") , "Shortcut", "<img>1</img> First Group"); _ObjectSetProperty( _ObjectCallMethod( groups , "Add", "Group A.2") , "Shortcut", "<img>1</img> First Group"); _ObjectSetProperty( _ObjectCallMethod( groups , "Add", "Group B.1") , "Shortcut", "<img>2</img> Second Group"); _ObjectSetProperty( _ObjectCallMethod( groups , "Add", "Group B.2") , "Shortcut", "<img>2</img> Second Group"); _ObjectSetProperty( _ObjectCallMethod( groups , "Add", "Group B.3") , "Shortcut", "<img>2</img> Second Group"); _ObjectCallMethod( explorertree , "EndUpdate");
18	How can I display the control's shortcut bar OBJECT explorertree,groups; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "BeginUpdate"); _ObjectSetProperty( explorertree , "ShowShortcutBar", -1); groups = _ObjectGetProperty( explorertree , "Groups"); _ObjectSetProperty( _ObjectCallMethod( groups , "Add", "Group A.1") , "Shortcut", "A"); _ObjectSetProperty( _ObjectCallMethod( groups , "Add", "Group A.2") , "Shortcut", "A"); _ObjectSetProperty( _ObjectCallMethod( groups , "Add", "Group B.1") , "Shortcut", "B"); _ObjectSetProperty( _ObjectCallMethod( groups , "Add", "Group B.2") , "Shortcut", "B"); _ObjectSetProperty( _ObjectCallMethod( groups , "Add", "Group B.3") , "Shortcut", "B"); _ObjectCallMethod( explorertree , "EndUpdate");
17	Can I display the cell's check box after the text OBJECT column,explorertree,group,items; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "BeginUpdate"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Default"); _ObjectSetProperty( group , "Expanded", -1); column = _ObjectCallMethod(explorertree, "ExecuteTemplate", "groObj.Columns.Item(0)"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim colObj") _ObjectCallMethod(explorertree, "TemplatePut", column) _ObjectCallMethod(explorertree, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "colObj.Def(34) = `caption,check`"); items = _ObjectGetProperty( group , "Items"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellHasCheckBox(AddItem(`Caption 1`),0) = True"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellHasCheckBox(AddItem(`Caption 2`),0) = True"); _ObjectCallMethod( explorertree , "EndUpdate");
16	Can I change the order of the parts in the cell, as checkbox after the text, and so on OBJECT explorertree,group,items; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" + "lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" + "0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" + "NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="); _ObjectCallMethod( explorertree , "BeginUpdate"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Default"); _ObjectSetProperty( group , "Expanded", -1); _ObjectCallMethod(explorertree, "TemplatePut", "Dim groObj") _ObjectCallMethod(explorertree, "TemplatePut", group) _ObjectCallMethod(explorertree, "ExecuteTemplate", "groObj.Columns.Item(0).Def(34) = `caption,check,icon,icons,picture`"); items = _ObjectGetProperty( group , "Items"); h = _ObjectCallMethod( items , "AddItem", "Text"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellImage(h,0) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellHasCheckBox(h,0) = True"); _ObjectCallMethod( explorertree , "EndUpdate");
15	Can I have an image displayed after the text. Can I get that effect without using HTML content OBJECT explorertree,group,items; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" + "lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" + "0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" + "NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="); _ObjectCallMethod( explorertree , "BeginUpdate"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Default"); _ObjectSetProperty( group , "Expanded", -1); _ObjectCallMethod(explorertree, "TemplatePut", "Dim groObj") _ObjectCallMethod(explorertree, "TemplatePut", group) _ObjectCallMethod(explorertree, "ExecuteTemplate", "groObj.Columns.Item(0).Def(34) = `caption,icon,check,icons,picture`"); items = _ObjectGetProperty( group , "Items"); h = _ObjectCallMethod( items , "AddItem", "Text"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellImage(h,0) = 1"); _ObjectCallMethod( explorertree , "EndUpdate");
14	How do I enable the filter prompt feature OBJECT columns,explorertree,group,items; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "BeginUpdate"); _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Group 1"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Group 2"); _ObjectSetProperty( group , "AutoHeight", -1); _ObjectSetProperty( group , "HeaderVisible", -1); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Clear"); _ObjectSetProperty( group , "ColumnAutoResize", -1); _ObjectSetProperty( group , "ContinueColumnScroll", 0); _ObjectSetProperty( group , "MarkSearchColumn", 0); _ObjectSetProperty( group , "SearchColumnIndex", 1); _ObjectSetProperty( group , "FilterBarPromptVisible", -1); columns = _ObjectGetProperty( group , "Columns"); _ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96); _ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96); _ObjectCallMethod( columns , "Add", "City"); items = _ObjectGetProperty( group , "Items"); h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h0") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h0) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`"); h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Vice President, Sales`"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Tacoma`"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.SelectItem(h0) = True"); h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Kirkland`"); h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Redmond`"); h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Manager`"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`"); h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`"); h0 = _ObjectCallMethod( items , "AddItem", "Robert King"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`"); h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Inside Sales Coordinator`"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`"); h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`"); _ObjectSetProperty( group , "Expanded", -1); _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Group 3"); _ObjectCallMethod( explorertree , "EndUpdate");
13	Can I specify unsortable items OBJECT columns,explorertree,group,items; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "BeginUpdate"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Default"); _ObjectSetProperty( group , "AutoHeight", -1); _ObjectSetProperty( group , "HeaderVisible", -1); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Clear"); _ObjectSetProperty( group , "HasLines", 0); _ObjectSetProperty( group , "ScrollBySingleLine", -1); _ObjectSetProperty( group , "MarkSearchColumn", 0); columns = _ObjectGetProperty( group , "Columns"); _ObjectCallMethod( columns , "Add", "Name"); _ObjectCallMethod( columns , "Add", "A"); _ObjectCallMethod( columns , "Add", "B"); _ObjectCallMethod( columns , "Add", "C"); items = _ObjectGetProperty( group , "Items"); h = _ObjectCallMethod( items , "AddItem", "Group 1"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellHAlignment(h,0) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemDividerLineAlignment(h) = 3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemHeight(h) = 24"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.SortableItem(h) = False"); h1 = _ObjectCallMethod( items , "InsertItem", h,"","Child 1"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h1") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h1) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = 3"); h1 = _ObjectCallMethod( items , "InsertItem", h,"","Child 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 4"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 5"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = 6"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ExpandItem(h) = True"); h = _ObjectCallMethod( items , "AddItem", "Group 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellHAlignment(h,0) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemDividerLineAlignment(h) = 3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemHeight(h) = 24"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.SortableItem(h) = False"); h1 = _ObjectCallMethod( items , "InsertItem", h,"","Child 1"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h1") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h1) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = 3"); h1 = _ObjectCallMethod( items , "InsertItem", h,"","Child 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 4"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 5"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = 6"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ExpandItem(h) = True"); _ObjectSetProperty( group , "Expanded", -1); _ObjectCallMethod( explorertree , "EndUpdate");
12	Can I change the style of the line being displayed by a divider item OBJECT explorertree,group,items; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "BeginUpdate"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Default"); _ObjectSetProperty( group , "HeaderVisible", -1); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Clear"); _ObjectSetProperty( group , "MarkSearchColumn", 0); _ObjectSetProperty( group , "TreeColumnIndex", -1); _ObjectSetProperty( group , "ScrollBySingleLine", 0); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "C1"); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "C2"); _ObjectSetProperty( group , "SelBackMode", 1); items = _ObjectGetProperty( group , "Items"); h = _ObjectCallMethod( items , "AddItem", "Cell 1"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.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.`"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellSingleLine(h,1) = False"); h = _ObjectCallMethod( items , "AddItem", "This is bit of text that's displayed on the entire item, divider."); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemDividerLine(h) = 4"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemDividerLineAlignment(h) = 3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellHAlignment(h,0) = 1"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ItemHeight(h) = 24"); _ObjectSetProperty( group , "Expanded", -1); _ObjectCallMethod( explorertree , "EndUpdate");
11	How can I expand all items OBJECT explorertree,group,items; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "BeginUpdate"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Default"); _ObjectSetProperty( group , "HeaderVisible", -1); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Clear"); _ObjectSetProperty( group , "LinesAtRoot", -1); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "Items"); items = _ObjectGetProperty( group , "Items"); h = _ObjectCallMethod( items , "AddItem", "Root 1"); _ObjectCallMethod( items , "InsertItem", h,"","Child 1"); _ObjectCallMethod( items , "InsertItem", h,"","Child 2"); h = _ObjectCallMethod( items , "AddItem", "Root 2"); _ObjectCallMethod( items , "InsertItem", h,"","Child 1"); _ObjectCallMethod( items , "InsertItem", h,"","Child 2"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ExpandItem(0) = True"); _ObjectSetProperty( group , "Expanded", -1); _ObjectCallMethod( explorertree , "EndUpdate");
10	Is it possible display numbers in the same format no matter of regional settings in the control panel OBJECT explorertree,group,items; explorertree = ObjectByName("AN1") ; group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Default"); _ObjectSetProperty( group , "HeaderVisible", -1); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Clear"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim groObj") _ObjectCallMethod(explorertree, "TemplatePut", group) _ObjectCallMethod(explorertree, "ExecuteTemplate", "groObj.Columns.Add(`Def`).Def(17) = 1"); items = _ObjectGetProperty( group , "Items"); h = _ObjectCallMethod( items , "AddItem", 100000.27); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '') + ' <fgcolor=808080>(default positive)'`"); h = _ObjectCallMethod( items , "AddItem", 100000.27); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '2\|.\|3\|,\|1\|1')`"); h = _ObjectCallMethod( items , "AddItem", -100000.27); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '') + ' <fgcolor=808080>(default negative)'`"); h = _ObjectCallMethod( items , "AddItem", -100000.27); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '2\|.\|3\|,\|1\|1')`"); _ObjectSetProperty( group , "Expanded", -1);
9	Is it possible to format numbers OBJECT column,columns,explorertree,group,items; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "BeginUpdate"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Default"); _ObjectSetProperty( group , "HeaderVisible", -1); _ObjectSetProperty( group , "MarkSearchColumn", 0); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Clear"); columns = _ObjectGetProperty( group , "Columns"); _ObjectCallMethod( columns , "Add", "Name"); column = _ObjectCallMethod( columns , "Add", "A"); _ObjectSetProperty( column , "SortType", 1); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "Width", 36); _ObjectSetProperty( column , "FormatColumn", "len(value) ? value + ' +'"); column = _ObjectCallMethod( columns , "Add", "B"); _ObjectSetProperty( column , "SortType", 1); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "Width", 36); _ObjectSetProperty( column , "FormatColumn", "len(value) ? value + ' +'"); column = _ObjectCallMethod( columns , "Add", "C"); _ObjectSetProperty( column , "SortType", 1); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "Width", 36); _ObjectSetProperty( column , "FormatColumn", "len(value) ? value + ' ='"); column = _ObjectCallMethod( columns , "Add", "A+B+C"); _ObjectSetProperty( column , "SortType", 1); _ObjectSetProperty( column , "Width", 64); _ObjectSetProperty( column , "ComputedField", "dbl(%1)+dbl(%2)+dbl(%3)"); _ObjectSetProperty( column , "FormatColumn", "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2\|.\|3\|,\|1' ) : (dbl(value)>0 ? '<fgcolor=00" + "00FF>+'+(value format '2\|.\|3\|,' ): '0.00') )"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim colObj") _ObjectCallMethod(explorertree, "TemplatePut", column) _ObjectCallMethod(explorertree, "ExecuteTemplate", "colObj.Def(17) = 1"); items = _ObjectGetProperty( group , "Items"); h = _ObjectCallMethod( items , "AddItem", "Root"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaptionFormat(h,4) = 2"); h1 = _ObjectCallMethod( items , "InsertItem", h,"","Child 1"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h1") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h1) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 7"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = 1"); h1 = _ObjectCallMethod( items , "InsertItem", h,"","Child 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = -2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = -2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = -4"); h1 = _ObjectCallMethod( items , "InsertItem", h,"","Child 3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = -4"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.ExpandItem(h) = True"); _ObjectSetProperty( group , "Expanded", -1); _ObjectCallMethod( explorertree , "EndUpdate");
8	Is there any function to round the values base on the .5 value OBJECT explorertree,group,items; explorertree = ObjectByName("AN1") ; group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Default"); _ObjectSetProperty( group , "HeaderVisible", -1); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Clear"); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "Number"); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "Round") , "ComputedField", "round(%0)"); items = _ObjectGetProperty( group , "Items"); _ObjectCallMethod( items , "AddItem", "-1.98"); _ObjectCallMethod( items , "AddItem", "0.99"); _ObjectCallMethod( items , "AddItem", "1.23"); _ObjectCallMethod( items , "AddItem", "2.34"); _ObjectSetProperty( group , "Expanded", -1);
7	How can I show a column that adds values in the cells OBJECT explorertree,group,items; explorertree = ObjectByName("AN1") ; group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Default"); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Clear"); _ObjectSetProperty( group , "HeaderVisible", -1); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "A"); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "B"); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "A+B") , "ComputedField", "dbl(%0) + dbl(%1)"); items = _ObjectGetProperty( group , "Items"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(AddItem(1),1) = 2"); items = _ObjectGetProperty( group , "Items"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(AddItem(10),1) = 20"); _ObjectSetProperty( group , "Expanded", -1);
6	How do I change the item's background color for numbers less than a value OBJECT explorertree,group; explorertree = ObjectByName("AN1") ; group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Default"); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( group , "ConditionalFormats") , "Add", "dbl(%0) < 10") , "BackColor", 255); _ObjectCallMethod( _ObjectGetProperty( group , "Items") , "AddItem", 1); _ObjectCallMethod( _ObjectGetProperty( group , "Items") , "AddItem", 2); _ObjectCallMethod( _ObjectGetProperty( group , "Items") , "AddItem", 10); _ObjectCallMethod( _ObjectGetProperty( group , "Items") , "AddItem", 20); _ObjectSetProperty( group , "Expanded", -1);
5	How do I highlight in bold the numbers greater than a value OBJECT explorertree,group; explorertree = ObjectByName("AN1") ; group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Default"); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( group , "ConditionalFormats") , "Add", "dbl(%0) >= 10") , "Bold", -1); _ObjectCallMethod( _ObjectGetProperty( group , "Items") , "AddItem", 1); _ObjectCallMethod( _ObjectGetProperty( group , "Items") , "AddItem", 2); _ObjectCallMethod( _ObjectGetProperty( group , "Items") , "AddItem", 10); _ObjectCallMethod( _ObjectGetProperty( group , "Items") , "AddItem", 20); _ObjectSetProperty( group , "Expanded", -1);
4	How do I change the caption being displayed in the control's filter bar OBJECT column,explorertree,group; explorertree = ObjectByName("AN1") ; group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Default"); _ObjectSetProperty( group , "FilterBarCaption", "your filter caption"); column = _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "Column"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterType", 1); _ObjectCallMethod( group , "ApplyFilter"); _ObjectSetProperty( group , "Expanded", -1);
3	Is it possible to change the style for the vertical or horizontal grid lines, in the list area OBJECT column,explorertree,group,items; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "BeginUpdate"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Default"); _ObjectSetProperty( group , "AutoHeight", -1); _ObjectSetProperty( group , "DrawGridLines", -1); _ObjectSetProperty( group , "GridLineStyle", 33); _ObjectSetProperty( group , "ColumnAutoResize", 0); column = _ObjectCallMethod(explorertree, "ExecuteTemplate", "groObj.Columns.Item(0)"); _ObjectSetProperty( column , "Caption", "C1"); _ObjectSetProperty( column , "Width", 64); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "C2"); _ObjectCallMethod( _ObjectGetProperty( group , "Columns") , "Add", "C3"); _ObjectSetProperty( group , "ColumnAutoResize", -1); items = _ObjectGetProperty( group , "Items"); h = _ObjectCallMethod( items , "AddItem", "Item 1"); _ObjectCallMethod(explorertree, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(explorertree, "TemplatePut", items) _ObjectCallMethod(explorertree, "TemplatePut", h) _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,1) = `SubItem 1.2`"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,2) = `SubItem 1.3`"); h = _ObjectCallMethod( items , "AddItem", "Item 2"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,1) = `SubItem 2.2`"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,2) = `SubItem 2.3`"); h = _ObjectCallMethod( items , "AddItem", "Item 3"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,1) = `SubItem 3.2`"); _ObjectCallMethod(explorertree, "ExecuteTemplate", "iteObj.CellCaption(h,2) = `SubItem 3.3`"); _ObjectSetProperty( group , "Expanded", -1); _ObjectCallMethod( explorertree , "EndUpdate");
2	Is it possible to change the style for the grid lines, for instance to be solid not dotted OBJECT explorertree,group; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "BeginUpdate"); group = _ObjectCallMethod( _ObjectGetProperty( explorertree , "Groups") , "Add", "Default"); _ObjectSetProperty( group , "DrawGridLines", -1); _ObjectSetProperty( group , "GridLineStyle", 48); _ObjectSetProperty( group , "Expanded", -1); _ObjectCallMethod( explorertree , "EndUpdate");
1	How can I change the visual appearance for the groups, using your EBN files OBJECT explorertree,groups; explorertree = ObjectByName("AN1") ; _ObjectCallMethod( explorertree , "BeginUpdate"); _ObjectCallMethod( _ObjectGetProperty( explorertree , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn"); _ObjectSetProperty( explorertree , "BackColorGroup", 16777216); groups = _ObjectGetProperty( explorertree , "Groups"); _ObjectCallMethod( groups , "Add", "Group 1"); _ObjectCallMethod( groups , "Add", "Group 2"); _ObjectCallMethod( groups , "Add", "Group 3"); _ObjectCallMethod( explorertree , "EndUpdate");