How-To Cicode (exlist) | Exontrol Docs

576	Can I get the state of the cell in expressions OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Check"); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "SortType", 32); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Computed") , "ComputedField", "%CS0"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", ); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(Add(),0) = 1"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(Add(),0) = 1"); _ObjectCallMethod( items , "Add", ); _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0).SortOrder = 1"); _ObjectCallMethod( list , "EndUpdate");
575	Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (ditto mark) OBJECT items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "HeaderAppearance", 4); _ObjectSetProperty( list , "HeaderHeight", 24); _ObjectSetProperty( list , "DrawGridLines", -1); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Country") , "ShowIdem", "<fgcolor gray>〃"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Spain"); _ObjectCallMethod( items , "Add", "Spain"); _ObjectCallMethod( items , "Add", "Spain"); _ObjectCallMethod( items , "Add", "Spain"); _ObjectCallMethod( items , "Add", "Germany"); _ObjectCallMethod( items , "Add", "Germany"); _ObjectCallMethod( items , "Add", "Germany"); _ObjectCallMethod( items , "Add", "Germany"); _ObjectCallMethod( list , "EndUpdate");
574	Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (space) OBJECT items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "HeaderAppearance", 4); _ObjectSetProperty( list , "HeaderHeight", 24); _ObjectSetProperty( list , "DrawGridLines", -1); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Country") , "ShowIdem", " "); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Spain"); _ObjectCallMethod( items , "Add", "Spain"); _ObjectCallMethod( items , "Add", "Spain"); _ObjectCallMethod( items , "Add", "Spain"); _ObjectCallMethod( items , "Add", "Germany"); _ObjectCallMethod( items , "Add", "Germany"); _ObjectCallMethod( items , "Add", "Germany"); _ObjectCallMethod( items , "Add", "Germany"); _ObjectCallMethod( list , "EndUpdate");
573	Displays a glitch funnel for drop-down filter buttons (empty or active) OBJECT appearance,column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); appearance = _ObjectGetProperty( list , "VisualAppearance"); _ObjectSetProperty( appearance , "RenderType", -1); _ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABa8IQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFMbxCKQahLEiTIhGUYJHgmK4tRiAUgxVDkBxrECZYqjcBZO" + "iwLQ2TxDM7DNKUCBnIoABhGOaYDh+IQNQjUFKwTRFGRxK4EIRKAyTDLQdRyGSMMbjdQpBCbMiMRqhESKRq2UwYRYCFS1NalaztO6BUAvK67YrWez/YBfF+SfwGeqDYRe" + "WAPfgWERnQrGMLxbD8KwZAKTRjkGJ4XhuB41TbQMqufL9ByXHKSSDpGjaXjeO5VVjYNAvS69UzXNq3bhtQAOXCMEwCgI="); _ObjectCallMethod( appearance , "Add", 2,"CP:1 -2 0 0 0"); _ObjectSetProperty( list , "DrawGridLines", -1); _ObjectSetProperty( list , "GridLineStyle", 512); _ObjectSetProperty( list , "ShowFocusRect", 0); _ObjectCallMethod(list, "ExecuteTemplate", "Background(0) = 33554432"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(41) = 33554433"); _ObjectSetProperty( list , "HeaderAppearance", 4); _ObjectSetProperty( list , "BackColorHeader", 16777215); _ObjectSetProperty( list , "HeaderHeight", 24); _ObjectSetProperty( list , "HeaderVisible", 1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "1st col"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "DisplayFilterPattern", 0); _ObjectSetProperty( column , "Filter", "Item B"); _ObjectSetProperty( column , "FilterType", 240); _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "2nd col"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod( items , "Add", "Item C"); _ObjectCallMethod( list , "ApplyFilter"); _ObjectCallMethod( list , "EndUpdate");
572	How can I replace or add an icon at runtime OBJECT list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectCallMethod( list , "ReplaceIcon", "gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O" + "kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA=="); _ObjectCallMethod( list , "ReplaceIcon", "C:\images\favicon.ico",0); _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Add(`Items`).Def(17) = 1"); _ObjectCallMethod( _ObjectGetProperty( list , "Items") , "Add", "Item <img>1</img>"); _ObjectCallMethod( list , "EndUpdate");
571	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,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "HeaderAppearance", 4); _ObjectSetProperty( list , "HeaderHeight", 24); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Items"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "DisplayFilterPattern", -1); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, *"ExecuteTemplate", "colObj.Def(21) = `<%filter%>`"); _ObjectSetProperty( column , "FilterType", 3); _ObjectSetProperty( column , "Filter"*, "1"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item 1"); _ObjectCallMethod( items , "Add", "Item 2"); _ObjectCallMethod( items , "Add", "Item 3"); _ObjectCallMethod( items , "Add", "Item 1"); _ObjectCallMethod( items , "Add", "Item 2"); _ObjectCallMethod( items , "Add", "Item 3"); _ObjectCallMethod( list , "ApplyFilter"); _ObjectCallMethod( list , "EndUpdate");
570	Disable temporarily the column's sort, resize and drag and drop OBJECT list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "SortBarVisible", -1); _ObjectSetProperty( list , "SortBarCaption", "<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)"); _ObjectSetProperty( list , "HeaderEnabled", 0); _ObjectSetProperty( list , "HeaderAppearance", 4); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Index") , "FormatColumn", "1 index ``"); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos") , "FormatColumn", "1 apos ``"); _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Edit"); _ObjectSetProperty( list , "GridLineStyle", 512); _ObjectSetProperty( list , "DrawGridLines", 2); _ObjectSetProperty( list , "GridLineColor", 14737632); _ObjectCallMethod( list , "EndUpdate");
569	Expandable-caption // AnchorClick event - Occurs when an anchor element is clicked. FUNCTION listEvents_AnchorClick(OBJECT list, STRING AnchorID, STRING Options) Message( AnchorID ); END OBJECT items,list; list = ObjectByName("AN1") ; ObjectAssociateEvents("listEvents", list); _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "ColumnAutoResize", -1); _ObjectSetProperty( list , "DrawGridLines", -1); _ObjectSetProperty( list , "GridLineStyle", 512); _ObjectSetProperty( list , "BackColorAlternate", 15790320); _ObjectSetProperty( list , "ShowFocusRect", 0); _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Default"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "before item"); h = _ObjectCallMethod( items , "Add", "<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(list, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "TemplatePut", h) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CaptionFormat(h,0) = 1"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = False"); _ObjectCallMethod( items , "Add", "after item"); _ObjectCallMethod( list , "EndUpdate");
568	Expandable-caption OBJECT items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "ColumnAutoResize", -1); _ObjectSetProperty( list , "DrawGridLines", -1); _ObjectSetProperty( list , "GridLineStyle", 512); _ObjectSetProperty( list , "BackColorAlternate", 15790320); _ObjectSetProperty( list , "ShowFocusRect", 0); _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Default"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "before item"); h = _ObjectCallMethod( items , "Add", "<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "TemplatePut", h) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CaptionFormat(h,0) = 1"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = False"); _ObjectCallMethod( items , "Add", "after item"); _ObjectCallMethod( list , "EndUpdate");
567	Force hover-all feature OBJECT list; list = ObjectByName("AN1") ; _ObjectCallMethod(list, "ExecuteTemplate", "Background(500) = -1");
566	Disable hover-all feature (Windows 11 or greater) OBJECT list; list = ObjectByName("AN1") ; _ObjectCallMethod(list, "ExecuteTemplate", "Background(500) = 1");
565	Display a custom tooltip // MouseMove event - Occurs when the user moves the mouse. FUNCTION listEvents_MouseMove(OBJECT list, INT Button, INT Shift, INT X, INT Y) _ObjectCallMethod( list , "ShowToolTip", "new content","","","+8","+8"); END
564	Shows the tooltip of the object moved relative to its default position // MouseMove event - Occurs when the user moves the mouse. FUNCTION listEvents_MouseMove(OBJECT list, INT Button, INT Shift, INT X, INT Y) _ObjectCallMethod( list , "ShowToolTip", "<null>","<null>","","+8","+8"); END OBJECT list; list = ObjectByName("AN1") ; ObjectAssociateEvents("listEvents", list); _ObjectSetProperty( list , "ColumnAutoResize", 0); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "tootip") , "ToolTip", "this is a tooltip assigned to a column");
563	How do I prevent changing the cell's state ( check-box state ) // CellStateChanging event - Fired before cell's state is about to be changed. FUNCTION listEvents_CellStateChanging(OBJECT list, INT ItemIndex, INT ColIndex, INT NewState) OBJECT items; items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj,ColIndex,ItemIndex") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "TemplatePut", ColIndex) _ObjectCallMethod(list, "TemplatePut", ItemIndex) NewState = _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(ItemIndex,ColIndex)"); END OBJECT items,list; list = ObjectByName("AN1") ; ObjectAssociateEvents("listEvents", list); _ObjectCallMethod( list , "BeginUpdate"); _ObjectCallMethod( list , "FreezeEvents", -1); _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Add(`P1`).Def(0) = True"); _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Add(`P2`).Def(0) = True"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "C1"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(Add(`C2`),0) = 1"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(Add(`C3`),0) = 1"); _ObjectCallMethod( items , "Add", "C4"); _ObjectCallMethod( list , "FreezeEvents", 0); _ObjectCallMethod( list , "EndUpdate");
562	ADOR, MDB (JET) OBJECT list,rs; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "ColumnAutoResize", 0); rs = CreateObject("ADOR.Recordset"); _ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\Access\sample.mdb",3,3); _ObjectSetProperty( list , "DataSource", rs); _ObjectCallMethod( list , "EndUpdate");
561	Highlight the match once the filter is applied // FilterChange event - Occurs when filter was changed. FUNCTION listEvents_FilterChange() format = _ObjectCallMethod( list , "FormatABC", "`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value + `</fgcolor></bgcolor>'`",_ObjectGetProperty( list , "FilterBarPromptPattern")); _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0).FormatColumn = format"); _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(1).FormatColumn = format"); _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(2).FormatColumn = format"); END OBJECT column,columns,items,list; list = ObjectByName("AN1") ; ObjectAssociateEvents("listEvents", list); _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "SelBackColor", _ObjectGetProperty( list , "BackColor")); _ObjectSetProperty( list , "SelForeColor", _ObjectGetProperty( list , "ForeColor")); _ObjectSetProperty( list , "ColumnAutoResize", -1); _ObjectSetProperty( list , "ContinueColumnScroll", 0); _ObjectSetProperty( list , "MarkSearchColumn", 0); _ObjectSetProperty( list , "SearchColumnIndex", 1); _ObjectSetProperty( list , "HeaderAppearance", 4); _ObjectSetProperty( list , "HeaderHeight", 23); _ObjectSetProperty( list , "BackColorLevelHeader", _ObjectGetProperty( list , "BackColor")); _ObjectSetProperty( list , "FilterBarCaption", "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"); _ObjectSetProperty( list , "FilterBarPromptVisible", 2055); _ObjectSetProperty( list , "FilterBarBackColor", _ObjectGetProperty( list , "BackColor")); _ObjectSetProperty( list , "FilterBarPromptPattern", "and"); columns = _ObjectGetProperty( list , "Columns"); column = _ObjectCallMethod( columns , "Add", "Name"); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(17) = 1"); _ObjectSetProperty( column , "FormatColumn", "lower(value)"); column = _ObjectCallMethod( columns , "Add", "Title"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(17) = 1"); _ObjectSetProperty( column , "FormatColumn", "lower(value)"); column = _ObjectCallMethod( columns , "Add", "City"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(17) = 1"); _ObjectSetProperty( column , "FormatColumn", "lower(value)"); items = _ObjectGetProperty( list , "Items"); h0 = _ObjectCallMethod( items , "Add", "Nancy Davolio"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h0") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "TemplatePut", h0) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,1) = `Sales Representative`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,2) = `Seattle`"); h0 = _ObjectCallMethod( items , "Add", "Andrew Fuller"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,1) = `Vice President, Sales`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,2) = `Tacoma`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.SelectItem(h0) = 1"); h0 = _ObjectCallMethod( items , "Add", "Janet Leverling"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,1) = `Sales Representative`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,2) = `Kirkland`"); h0 = _ObjectCallMethod( items , "Add", "Margaret Peacock"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,1) = `Sales Representative`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,2) = `Redmond`"); h0 = _ObjectCallMethod( items , "Add", "Steven Buchanan"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,1) = `Sales Manager`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,2) = `London`"); h0 = _ObjectCallMethod( items , "Add", "Michael Suyama"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,1) = `Sales Representative`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,2) = `London`"); h0 = _ObjectCallMethod( items , "Add", "Robert King"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,1) = `Sales Representative`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,2) = `London`"); h0 = _ObjectCallMethod( items , "Add", "Laura Callahan"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,1) = `Inside Sales Coordinator`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,2) = `Seattle`"); h0 = _ObjectCallMethod( items , "Add", "Anne Dodsworth"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,1) = `Sales Representative`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,2) = `London`"); _ObjectCallMethod( list , "EndUpdate");
560	Re-order the cell's caption, icons and images/pictures OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "ColumnAutoResize", -1); _ObjectCallMethod( list , "Images", "gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" + "lVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmD" + "cD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB"); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "ToLeft"); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True"); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "ToRight"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(34) = `caption,picture,icons,icon,check`"); _ObjectSetProperty( list , "DefaultItemHeight", 32); _ObjectSetProperty( list , "DrawGridLines", 2); _ObjectSetProperty( list , "HeaderAppearance", 4); items = _ObjectGetProperty( list , "Items"); h = _ObjectCallMethod( items , "Add", "Caption"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "TemplatePut", h) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImage(h,0) = 2"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImages(h,0) = `1,2`"); _ObjectCallMethod(list, "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(list, "ExecuteTemplate", "iteObj.Caption(h,1) = Caption(h,0)"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellHAlignment(h,1) = 2"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImage(h,1) = CellImage(h,0)"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImages(h,1) = `2,1`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellPicture(h,1) = CellPicture(h,0)"); h = _ObjectCallMethod( items , "Add", "<b>HTML</b> <off 4>Caption"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CaptionFormat(h,0) = 1"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImage(h,0) = 2"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImages(h,0) = `1,2`"); _ObjectCallMethod(list, "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(list, "ExecuteTemplate", "iteObj.Caption(h,1) = Caption(h,0)"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CaptionFormat(h,1) = 1"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellHAlignment(h,1) = 2"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImage(h,1) = CellImage(h,0)"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImages(h,1) = `2,1`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellPicture(h,1) = CellPicture(h,0)"); _ObjectCallMethod( list , "EndUpdate");
559	ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons) // AddColumn event - Fired after a new column is added. FUNCTION listEvents_AddColumn(OBJECT list, OBJECT Column) ' Column.Def(48) = 2 ' Column.Def(49) = 2 END OBJECT appearance,column,items,list; list = ObjectByName("AN1") ; ObjectAssociateEvents("listEvents", list); _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "ImageSize", 32); _ObjectSetProperty( list , "DefaultItemHeight", 36); _ObjectSetProperty( list , "HeaderHeight", _ObjectGetProperty( list , "DefaultItemHeight")); _ObjectSetProperty( list , "SortBarHeight", _ObjectGetProperty( list , "DefaultItemHeight")); _ObjectSetProperty( _ObjectGetProperty( list , "Font") , "Size", 16); _ObjectSetProperty( _ObjectGetProperty( list , "FilterBarFont") , "Size", _ObjectGetProperty( _ObjectGetProperty( list , "Font") , "Size")); _ObjectSetProperty( _ObjectGetProperty( list , "ToolTipFont") , "Size", _ObjectGetProperty( _ObjectGetProperty( list , "Font") , "Size")); _ObjectCallMethod( list , "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( list , "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=="); _ObjectSetProperty( list , "BackColorHeader", 80135878); _ObjectSetProperty( list , "SelBackColor", 67108864); _ObjectSetProperty( list , "SelForeColor", 65536); _ObjectCallMethod(list, "ExecuteTemplate", "CheckImage(0) = 16777216"); _ObjectCallMethod(list, "ExecuteTemplate", "CheckImage(1) = 33554432"); _ObjectCallMethod(list, "ExecuteTemplate", "CheckImage(2) = 50331648"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(20) = SelBackColor"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(21) = SelForeColor"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(26) = BackColor"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(27) = ForeColor"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(32) = -1"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(0) = 67108864"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(41) = 67174657"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(1) = 67109119"); _ObjectSetProperty( list , "HeaderAppearance", 4); _ObjectSetProperty( list , "ShowFocusRect", 0); _ObjectSetProperty( list , "SortBarVisible", -1); _ObjectSetProperty( list , "BackColorSortBar", _ObjectGetProperty( list , "BackColor")); _ObjectSetProperty( list , "BackColorLevelHeader", _ObjectGetProperty( list , "BackColor")); _ObjectSetProperty( list , "FilterBarDropDownHeight", 1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Check"); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "Width", 128); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 256); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "FormatColumn", "1 pos ``"); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 48); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "Alignment", 1); _ObjectSetProperty( column , "HeaderAlignment", 1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Image"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 8480); _ObjectSetProperty( column , "FilterType", 10); _ObjectSetProperty( column , "Width", 128); _ObjectSetProperty( column , "HeaderImage", 1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Images"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "Width", 196); _ObjectSetProperty( column , "HTMLCaption", "<img>1</img><img>2</img><img>3</img> Images"); _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(`Pos`).Position = 3"); items = _ObjectGetProperty( list , "Items"); h = _ObjectCallMethod( items , "Add", "Child A"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "TemplatePut", h) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImage(h,2) = 1"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImages(h,3) = `1,2,3`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,3) = `123`"); h = _ObjectCallMethod( items , "Add", "Child B"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(h,0) = 1"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImage(h,2) = 3"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImages(h,3) = `2,3,1`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,3) = `231`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.SelectItem(h) = True"); h = _ObjectCallMethod( items , "Add", "Child C"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImage(h,2) = 2"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(h,3) = 1"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,3) = `312`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImages(h,3) = `3,1,2`"); _ObjectCallMethod( list , "EndUpdate");
558	ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons) // AddColumn event - Fired after a new column is added. FUNCTION listEvents_AddColumn(OBJECT list, OBJECT Column) ' Column.Def(48) = 2 ' Column.Def(49) = 2 END OBJECT appearance,column,items,list; list = ObjectByName("AN1") ; ObjectAssociateEvents("listEvents", list); _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "ImageSize", 16); _ObjectCallMethod( list , "Images", "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" + "dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" + "tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" + "cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" + "GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" + "nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="); appearance = _ObjectGetProperty( list , "VisualAppearance"); _ObjectCallMethod( appearance , "Add", 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" + "LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" + "UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" + "3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" + "YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" + "mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" + "oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" + "Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" + "FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="); _ObjectSetProperty( list , "BackColorHeader", 80135878); _ObjectSetProperty( list , "SelBackColor", 67108864); _ObjectSetProperty( list , "SelForeColor", 65536); _ObjectCallMethod(list, "ExecuteTemplate", "Background(20) = SelBackColor"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(21) = SelForeColor"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(26) = BackColor"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(27) = ForeColor"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(32) = -1"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(0) = 67108864"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(41) = 67174657"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(1) = 67109119"); _ObjectSetProperty( list , "HeaderAppearance", 4); _ObjectSetProperty( list , "ShowFocusRect", 0); _ObjectSetProperty( list , "SortBarVisible", -1); _ObjectSetProperty( list , "BackColorSortBar", _ObjectGetProperty( list , "BackColor")); _ObjectSetProperty( list , "BackColorLevelHeader", _ObjectGetProperty( list , "BackColor")); _ObjectSetProperty( list , "FilterBarDropDownHeight", 1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Check"); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "Width", 128); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 256); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "FormatColumn", "1 pos ``"); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 48); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "Alignment", 1); _ObjectSetProperty( column , "HeaderAlignment", 1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Image"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 8480); _ObjectSetProperty( column , "FilterType", 10); _ObjectSetProperty( column , "Width", 128); _ObjectSetProperty( column , "HeaderImage", 1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Images"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "Width", 196); _ObjectSetProperty( column , "HTMLCaption", "<img>1</img><img>2</img><img>3</img> Images"); _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(`Pos`).Position = 3"); items = _ObjectGetProperty( list , "Items"); h = _ObjectCallMethod( items , "Add", "Child A"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "TemplatePut", h) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImage(h,2) = 1"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImages(h,3) = `1,2,3`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,3) = `123`"); h = _ObjectCallMethod( items , "Add", "Child B"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(h,0) = 1"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImage(h,2) = 3"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImages(h,3) = `2,3,1`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,3) = `231`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.SelectItem(h) = True"); h = _ObjectCallMethod( items , "Add", "Child C"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImage(h,2) = 2"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(h,3) = 1"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,3) = `312`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImages(h,3) = `3,1,2`"); _ObjectCallMethod( list , "EndUpdate");
557	The user clicks the drop-down filter, select a value and the control's list filters for the selected item(s). Is there a way for when the user then goes to the next column to add another filter and the drop down arrow is clicked for the list of values they can filter by to be limited to what is being displayed in the list due to the first filter they set // AddColumn event - Fired after a new column is added. FUNCTION listEvents_AddColumn(OBJECT list, OBJECT Column) OBJECT column; column = Column; END OBJECT list,rs; list = ObjectByName("AN1") ; ObjectAssociateEvents("listEvents", list); _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "ColumnAutoResize", 0); rs = CreateObject("ADOR.Recordset"); _ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\Access\sample.accdb",3,3); _ObjectSetProperty( list , "DataSource", rs); _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(`ShipVia`).Position = 2"); _ObjectCallMethod( list , "EndUpdate");
556	Is it possible to set from code, a column sort without being inserted in the sortbar OBJECT list,rs; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "ColumnAutoResize", 0); rs = CreateObject("ADOR.Recordset"); _ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\Access\SAMPLE.ACCDB",3,3); _ObjectSetProperty( list , "DataSource", rs); _ObjectSetProperty( list , "SortBarVisible", -1); _ObjectSetProperty( list , "Layout", "singlesort=^"C1:1^""); _ObjectCallMethod( list , "EndUpdate");
555	Is it possible to highligth the match while a filter is applied // AddColumn event - Fired after a new column is added. FUNCTION listEvents_AddColumn(OBJECT list, OBJECT Column) ' Column.Def(17) = 1 END // FilterChange event - Occurs when filter was changed. FUNCTION listEvents_FilterChange() format = _ObjectCallMethod( list , "FormatABC", "`value replace '` + value + `' with '<bgcolor 000000><fgcolor FFFFFF>` + value + `</fgcolor></bgcolor>'`",_ObjectGetProperty( list , "FilterBarPromptPattern")); _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0).FormatColumn = format"); _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(1).FormatColumn = format"); END OBJECT items,list; list = ObjectByName("AN1") ; ObjectAssociateEvents("listEvents", list); _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "DrawGridLines", 2); _ObjectSetProperty( list , "HeaderAppearance", 4); _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Col 1"); _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Col 2"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`219 Smith`),1) = `Ignacio 1234`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`1666 County Road 309A`),1) = `897 Manassa`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`38 Lone Pine`),1) = `Durango 11`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`612 Jachim Street`),1) = `Lamar 222`"); _ObjectSetProperty( list , "FilterBarPromptPattern", "1"); _ObjectSetProperty( list , "FilterBarPromptVisible", 2067); _ObjectSetProperty( list , "FilterBarPromptType", 257); _ObjectCallMethod( list , "EndUpdate");
554	Is it possible to highlight the column's header once a filter is applied OBJECT appearance,column,columns,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); appearance = _ObjectGetProperty( list , "VisualAppearance"); _ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" + "J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" + "NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" + "hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" + "bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" + "BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI="); _ObjectCallMethod( appearance , "Add", 1,"CP:2 -8 -4 2 4"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(0) = 33488638"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(41) = 16843009"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(32) = -1"); _ObjectSetProperty( list , "HeaderHeight", 28); _ObjectSetProperty( list , "BackColorHeader", 16777215); _ObjectSetProperty( list , "DrawGridLines", -1); _ObjectSetProperty( list , "HeaderVisible", 1); columns = _ObjectGetProperty( list , "Columns"); _ObjectSetProperty( _ObjectCallMethod( columns , "Add", "C1") , "DisplayFilterButton", -1); column = _ObjectCallMethod( columns , "Add", "C2"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "Filter", "Item 2"); _ObjectSetProperty( column , "FilterType", 240); _ObjectSetProperty( _ObjectCallMethod( columns , "Add", "C3") , "DisplayFilterButton", -1); items = _ObjectGetProperty( list , "Items"); h = _ObjectCallMethod( items , "Add", "Item 1"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "TemplatePut", h) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,1) = `Item 2`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,2) = `Item 3`"); h = _ObjectCallMethod( items , "Add", "Item 4"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,1) = `Item 5`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,2) = `Item 6`"); _ObjectCallMethod( list , "ApplyFilter"); _ObjectCallMethod( list , "EndUpdate");
553	Is it possible to show the filterbar on top of the rows OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "FilterBarPromptVisible", 8192); _ObjectSetProperty( list , "HeaderHeight", 24); _ObjectSetProperty( list , "FilterBarHeight", _ObjectGetProperty( list , "HeaderHeight")); _ObjectSetProperty( list , "HeaderAppearance", 1); _ObjectSetProperty( list , "DrawGridLines", -1); _ObjectSetProperty( list , "GridLineStyle", 512); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Column"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterType", 3); _ObjectSetProperty( column , "Filter", "B*"); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Index"); _ObjectSetProperty( column , "FormatColumn", "1 index ``"); _ObjectSetProperty( column , "Position", 0); _ObjectSetProperty( column , "Width", 48); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "SortType", 1); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "A.1"); _ObjectCallMethod( items , "Add", "A.2"); _ObjectCallMethod( items , "Add", "B.1"); _ObjectCallMethod( items , "Add", "B.2"); _ObjectCallMethod( items , "Add", "B.3"); _ObjectCallMethod( items , "Add", "C"); _ObjectCallMethod( list , "ApplyFilter"); _ObjectCallMethod( list , "EndUpdate");
552	Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header (non-clickable) OBJECT column,columns,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "HeaderAppearance", 4); columns = _ObjectGetProperty( list , "Columns"); _ObjectCallMethod( columns , "Add", "Item"); column = _ObjectCallMethod( columns , "Add", "Pos"); _ObjectSetProperty( column , "Position", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "FormatColumn", "1 index ``"); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "AllowDragging", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod( items , "Add", "Item C"); _ObjectCallMethod( list , "EndUpdate");
551	Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header OBJECT column,columns,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "HeaderAppearance", 4); _ObjectCallMethod(list, "ExecuteTemplate", "Background(32) = -1"); columns = _ObjectGetProperty( list , "Columns"); _ObjectCallMethod( columns , "Add", "Item"); column = _ObjectCallMethod( columns , "Add", "Pos"); _ObjectSetProperty( column , "Position", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "FormatColumn", "1 index ``"); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "AllowDragging", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod( items , "Add", "Item C"); _ObjectCallMethod( list , "EndUpdate");
550	How do I get notified once the user clicks the cell's button // CellButtonClick event - Fired after the user clicks the cell's button. FUNCTION listEvents_CellButtonClick(OBJECT list, INT ItemIndex, INT ColIndex) OBJECT items; items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj,ItemIndex") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "TemplatePut", ItemIndex) Message( _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(ItemIndex,0)") ); END OBJECT column,items,list; list = ObjectByName("AN1") ; ObjectAssociateEvents("listEvents", list); _ObjectCallMethod( list , "BeginUpdate"); _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Item"); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "..."); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(2) = True"); _ObjectSetProperty( column , "Alignment", 1); _ObjectSetProperty( column , "HeaderAlignment", 1); _ObjectSetProperty( column , "FormatColumn", "` ... `"); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "Position", 0); _ObjectSetProperty( list , "SelBackMode", 1); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item 1"); _ObjectCallMethod( items , "Add", "Item 2"); _ObjectCallMethod( items , "Add", "Item 3"); _ObjectCallMethod( list , "EndUpdate");
549	How do I set an extra data for each item // MouseMove event - Occurs when the user moves the mouse. FUNCTION listEvents_MouseMove(OBJECT list, INT Button, INT Shift, INT X, INT Y) _ObjectCallMethod(list, "TemplatePut", "Dim c,hit") _ObjectCallMethod(list, "TemplatePut", c) _ObjectCallMethod(list, "TemplatePut", hit) i = _ObjectCallMethod(list, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)"); _ObjectCallMethod(list, "TemplatePut", "Dim _ObObj,i") _ObjectCallMethod(list, "TemplatePut", _ObjectGetProperty( list , "Items")) _ObjectCallMethod(list, "TemplatePut", i) Message( i ); Message( _ObjectCallMethod(list, "ExecuteTemplate", "_ObObj.ItemData(i)") ); END OBJECT items,list; list = ObjectByName("AN1") ; ObjectAssociateEvents("listEvents", list); _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "ColumnAutoResize", -1); _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Default"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.ItemData(Add(`method`)) = `your extra data of method`"); _ObjectCallMethod( list , "EndUpdate");
548	I do not like to specify the item padding for every column I add. The question is how can I do it automatically OBJECT column,columns,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectCallMethod( list , "AttachTemplate", "handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}"); _ObjectSetProperty( list , "HeaderAppearance", 4); _ObjectSetProperty( list , "DrawGridLines", -1); _ObjectSetProperty( list , "GridLineStyle", 32); columns = _ObjectGetProperty( list , "Columns"); _ObjectCallMethod( columns , "Add", "Item"); column = _ObjectCallMethod( columns , "Add", "Pos"); _ObjectSetProperty( column , "Position", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "FormatColumn", "1 index ``"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod( items , "Add", "Item C"); _ObjectCallMethod( list , "EndUpdate");
547	Can I sort the column by check-state OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Check"); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "SortType", 32); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", ); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(Add(),0) = 1"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(Add(),0) = 1"); _ObjectCallMethod( items , "Add", ); _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0).SortOrder = 1"); _ObjectCallMethod( list , "EndUpdate");
546	Can I sort the column by image OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectCallMethod( list , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" + "lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" + "0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" + "NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Image"); _ObjectSetProperty( column , "SortType", 48); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImage(Add(),0) = 3"); _ObjectCallMethod( items , "Add", ); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImage(Add(),0) = 1"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImage(Add(),0) = 2"); _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0).SortOrder = 1"); _ObjectCallMethod( list , "EndUpdate");
545	How can I display UNICODE characters OBJECT items,list,stdfont; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); stdfont = _ObjectGetProperty( list , "Font"); _ObjectSetProperty( stdfont , "Name", "Arial Unicode"); _ObjectSetProperty( stdfont , "Size", 22); _ObjectSetProperty( list , "HeaderVisible", 0); _ObjectSetProperty( list , "DefaultItemHeight", 48); _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Add(``).Def(17) = 1"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Ӓӓ"); _ObjectCallMethod( items , "Add", "ᦜᦝ;ᦞ"); _ObjectCallMethod( items , "Add", "ɮɭ;ɯ"); _ObjectCallMethod( items , "Add", "勳勴勵勶"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.FormatCell(Add(Me.Version),0) = `(value lfind `UNICODE`) < 0 ? `<fgcolor=FF0000><b>!UNICODE!</b> version</fgcolor> required: ` + value : `` `"); _ObjectCallMethod( list , "EndUpdate");
544	How do I display the position of the item with 0-padding OBJECT items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Items") , "FormatColumn", "((1 apos ``) lpad `00`) + `. ` + value"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod( items , "Add", "Item C"); _ObjectCallMethod( items , "Add", "Item D"); _ObjectCallMethod( list , "EndUpdate");
543	I am skinning the control's header-bar, but the background of the header-bar is shown on each item in the filter-bar drop down panel. What can I do OBJECT appearance,column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); appearance = _ObjectGetProperty( list , "VisualAppearance"); _ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" + "LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQGhsCYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU8lORLUi+M4zSBPcZVTRtGShPDB" + "KTjMKKYgkG4lVpRNa0PC1GTzQ6mazkKQLRADDIDVbAeL3LiMBy9LyLLItQALByua5mWhbcZyBCOPgBTrRb5zO58FjuTK7YLjMB7NrUNYtFaUMy2OpOCADIaecTNcaWLx" + "PF2MY1HWYxVj2Jw3DuRJonKYBgggSRAlIYw6B0ThGFgPAkFUDAhBMfZRiGNAkFECZnm4YQdneJwqnsSQrGAAhWAIJBJBIQgFCQIBiEIAglgqYo0i4V4MEgRI9gSToYFS" + "b4Fk6Y4+BmBZhFOJgTC8TBogQAArgqco4muCZOkOMJtgmYpIjYKg7GKE4uCUK4AAKKg2DwI4DiCZw5k6KJ2D6D4OHiag4DwIxiiQAArAqMosnEPBPAOIhOg+DozjIJ4P" + "GSY4iEwPAkhKLhHUUSQsnKFCnkYU9MjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDya" + "ICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tE" + "sHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQg" + "pDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAA" + "MR1EOZxWi+bx7HcWQ8msfRYnnDhQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARViHH" + "4HQOYmxuCpF2MsecEQVBvGQCcIQvA6i2CAAIARAQ="); _ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMwwDhEIwjHCEEhsGIbJAGQBJCjWGodQLOEgzN" + "C0IxNFCQILhEZJADKII8TTOU5UPRESwTE4cKBmKhQCo2NpKR7VUTxCKQahLLivoCjBT8EzHMqtIzrCA6MpaP4pQjKcqwHJ8YyHEi0ZrjazKaj6T5AXDUcaWbbNVx3PK3" + "aioOpLZrqOZZYzYFoABTuJzPMSyIhxXD8cweaZvSpLExVYK9BY3PbKMgxC77QgTIpDaQMNS6PjtF43PAALLFUaNYzoOKzABMHATBIXAYJCwIIR5G7ID4BbQcCQAHL9DB" + "aEEIAEEISgGhMGZQmocgymmIRQkIEQ2BcGgbEIRQci8XaMBqTRVgSAZHG+S5pnOep+D6f4vjec5zn0fpfmgBgAH6TRoBYBoAh+eAmAiAgPFgNArgOQpIESdoEmCOAOAq" + "BYfFGAgaEaBgYHYFYFmIB5UiGCJUgKCgmgeYoHk4BgCmKRQiCwApgHgYgyH8B54lQU4NkMeJlBoDgjkiXBTg0R54iYIR+koeQVBoKpkgkChKhEJBkF4SFEjkDgJhFQoe" + "EmDJlBeehUhWJQJGIXoICWOQ6FeFIlhkfhlDsSJpiQVoamaSY2G6G5nAmRhpCOH5pkwVYdmeCZmHqHpnkmdhzhmaAIFiax8AABAEICA=="); _ObjectSetProperty( list , "BackColorHeader", 16777216); _ObjectSetProperty( list , "ForeColorHeader", 8421504); _ObjectCallMethod(list, "ExecuteTemplate", "Background(0) = 33554432"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(26) = 16777215"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(27) = 65536"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(20) = 33521664"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(21) = 15790320"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(32) = -1"); _ObjectSetProperty( list , "HeaderHeight", 24); _ObjectSetProperty( list , "BackColorLevelHeader", _ObjectGetProperty( list , "BackColor")); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Filter"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "DisplayFilterPattern", 0); _ObjectSetProperty( column , "FilterList", 9504); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(52) = 2"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(53) = 2"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "A"); _ObjectCallMethod( items , "Add", "B"); _ObjectCallMethod( items , "Add", "C"); _ObjectCallMethod( items , "Add", "D"); _ObjectCallMethod( list , "EndUpdate");
542	Type of wraps the cell's caption support (Sample 2) OBJECT column,columns,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "HeaderSingleLine", 0); _ObjectSetProperty( list , "HeaderHeight", 36); _ObjectSetProperty( list , "DrawGridLines", -1); _ObjectSetProperty( list , "ColumnAutoResize", 0); _ObjectSetProperty( list , "ScrollBySingleLine", -1); columns = _ObjectGetProperty( list , "Columns"); column = _ObjectCallMethod( columns , "Add", "Single-Line (exCaptionSingleLine)"); _ObjectSetProperty( column , "Width", 96); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(17) = 1"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(16) = -1"); column = _ObjectCallMethod( columns , "Add", "Word-Wrap (exCaptionWordWrap)"); _ObjectSetProperty( column , "Width", 96); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(17) = 1"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(16) = 0"); _ObjectSetProperty( column , "FormatColumn", "%0"); column = _ObjectCallMethod( columns , "Add", "Break-Wrap (exCaptionBreakWrap)"); _ObjectSetProperty( column , "Width", 96); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(17) = 1"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(16) = 1"); _ObjectSetProperty( column , "FormatColumn", "%0"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line."); _ObjectCallMethod( items , "Add", "This is the <b>first</b> line.\r\nThis is the <b>second</b> line.\r\nThis is the <b>third</b> line."); _ObjectCallMethod( list , "EndUpdate");
541	Type of wraps the cell's caption support (Sample 1) OBJECT items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "DrawGridLines", -1); _ObjectSetProperty( list , "ColumnAutoResize", 0); _ObjectSetProperty( list , "ScrollBySingleLine", -1); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Default") , "Width", 128); items = _ObjectGetProperty( list , "Items"); h = _ObjectCallMethod( items , "Add", "This is the first line.\r\nThis is the second line.\r\nThis is the third line."); h = _ObjectCallMethod( items , "Add", "This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line."); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "TemplatePut", h) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CaptionFormat(h,0) = 1"); h = _ObjectCallMethod( items , "Add", "This is the first line.\r\nThis is the second line.\r\nThis is the third line."); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = 0"); h = _ObjectCallMethod( items , "Add", "This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line."); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CaptionFormat(h,0) = 1"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = 0"); h = _ObjectCallMethod( items , "Add", "This is the first line.\r\nThis is the second line.\r\nThis is the third line."); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = 1"); h = _ObjectCallMethod( items , "Add", "This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line."); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CaptionFormat(h,0) = 1"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = 1"); _ObjectCallMethod( list , "EndUpdate");
540	Can I break the cell's caption using the line break <br> or \r\n (Sample 2) OBJECT items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "DrawGridLines", -1); _ObjectSetProperty( list , "ColumnAutoResize", 0); _ObjectSetProperty( list , "ScrollBySingleLine", -1); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Default") , "Width", 128); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellSingleLine(Add(`This is the first line.\r\nThis is the second line.\r\nThis is the third line.`),0) = 1"); _ObjectCallMethod( items , "Add", "This is the first line.\r\nThis is the second line.\r\nThis is the third line."); _ObjectCallMethod( list , "EndUpdate");
539	Can I break the cell's caption using the line break <br> or \r\n (Sample 1) OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "DrawGridLines", -1); _ObjectSetProperty( list , "ColumnAutoResize", 0); _ObjectSetProperty( list , "ScrollBySingleLine", -1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Default"); _ObjectSetProperty( column , "Width", 128); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(16) = 1"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "This is the first line.\r\nThis is the second line.\r\nThis is the third line."); _ObjectCallMethod( items , "Add", "This is the first line.\r\nThis is the second line.\r\nThis is the third line."); _ObjectCallMethod( list , "EndUpdate");
538	How can I change the visual appearance/color of the Filter For ... field OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "BackColorHeader", 1); _ObjectSetProperty( list , "ForeColorHeader", 16777215); _ObjectCallMethod(list, "ExecuteTemplate", "Background(26) = BackColorHeader"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(27) = ForeColorHeader"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(0) = 15790320"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(32) = -1"); _ObjectSetProperty( list , "HeaderAppearance", 5); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Items"); _ObjectSetProperty( column , "FilterOnType", -1); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 2); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item 1"); _ObjectCallMethod( items , "Add", "Item 2"); _ObjectCallMethod( items , "Add", "Item 3"); _ObjectCallMethod( list , "EndUpdate");
537	How can I display the cell's caption without spaces on both sides OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "ColumnAutoResize", -1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Default"); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(17) = 1"); _ObjectSetProperty( column , "FormatColumn", "((trim(value) replace ` ` with ` `) replace ` ` with ` `) replace ` ` with `<bgcolor=FF0000> </bgcolor>`"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", ""); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", " Item B"); _ObjectCallMethod( items , "Add", " Item C "); _ObjectCallMethod( list , "EndUpdate");
536	How can I highlight the spaces within the column (sample 2) OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "ColumnAutoResize", -1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Default"); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(17) = 1"); _ObjectSetProperty( column , "FormatColumn", "`'` + ( value replace ` ` with `_` ) + `'`"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", ""); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", " Item B"); _ObjectCallMethod( items , "Add", " Item C "); _ObjectCallMethod( list , "EndUpdate");
535	How can I highlight the spaces within the column (sample 1) OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "ColumnAutoResize", -1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Default"); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(17) = 1"); _ObjectSetProperty( column , "FormatColumn", "len(value) = 0 ? `<bgcolor=FF0000> </bgcolor>` : ( value replace ` ` with `<bgcolor=FF0000> </bgcolor>` )"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", ""); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", " Item B"); _ObjectCallMethod( items , "Add", " Item C "); _ObjectCallMethod( list , "EndUpdate");
534	How can I change the visual aspect of the drop down filter-calendar OBJECT column,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(26) = 65536"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(27) = 16777215"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(12) = 16777215"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(8) = Background(26)"); _ObjectCallMethod(list, "ExecuteTemplate", "Background(11) = 8421504"); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Date"); _ObjectSetProperty( column , "FilterType", 4); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "DisplayFilterDate", -1); _ObjectSetProperty( column , "DisplayFilterPattern", 0); _ObjectCallMethod( list , "EndUpdate");
533	Export Data in HTML format OBJECT column,columns,conditionalformat,conditionalformats,createobject("internetexplorer.application"),items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "BackColorAlternate", 15790320); _ObjectSetProperty( list , "DrawGridLines", -1); _ObjectSetProperty( list , "HeaderAppearance", 4); _ObjectCallMethod(list, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080> ` + value + ` </fgcolor>``,Description(11))"); _ObjectSetProperty( list , "FilterBarCaption", "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " + "`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matc" + "hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" + "nt + ` item(s)`) )))"); _ObjectSetProperty( list , "FilterBarPromptVisible", 2579); _ObjectSetProperty( list , "FilterBarPromptType", 2); conditionalformats = _ObjectGetProperty( list , "ConditionalFormats"); _ObjectSetProperty( _ObjectCallMethod( conditionalformats , "Add", "%0 like `AA`","aa") , "BackColor", 12632256); conditionalformat = _ObjectCallMethod( conditionalformats , "Add", "%0 like `D`","d"); _ObjectSetProperty( conditionalformat , "ForeColor", 8421631); _ObjectSetProperty( conditionalformat , "ApplyTo", 0); conditionalformat = _ObjectCallMethod( conditionalformats , "Add", "%0 like `b`","b"); _ObjectSetProperty( conditionalformat , "ForeColor", 16711680); _ObjectSetProperty( conditionalformat , "Bold", -1); _ObjectSetProperty( conditionalformat , "Italic", -1); _ObjectSetProperty( conditionalformat , "ApplyTo", 0); columns = _ObjectGetProperty( list , "Columns"); column = _ObjectCallMethod( columns , "Add", "Value"); _ObjectSetProperty( column , "Width", 128); _ObjectSetProperty( column , "HTMLCaption", "<b>VA</b><r>sko"); column = _ObjectCallMethod( columns , "Add", "APos"); _ObjectSetProperty( column , "FormatColumn", "0 apos ``"); _ObjectSetProperty( column , "AllowSort", 0); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(4) = 15790320"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(5) = 8421504"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(8) = Def(5)"); _ObjectSetProperty( column , "Position", 0); column = _ObjectCallMethod( columns , "Add", "RPos"); _ObjectSetProperty( column , "FormatColumn", "0 rpos ``"); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Position", 1); column = _ObjectCallMethod( columns , "Add", "Index"); _ObjectSetProperty( column , "FormatColumn", "0 index ``"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 256); _ObjectSetProperty( column , "Position", 2); column = _ObjectCallMethod( columns , "Add", "Data 1"); _ObjectSetProperty( column , "FormatColumn", "0 index `A-Z`"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True"); column = _ObjectCallMethod( columns , "Add", "Data 2"); _ObjectSetProperty( column , "FormatColumn", "0 index `AB` replace `A` with `<off -4>A</off>`"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(16) = False"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(17) = 1"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(1) = True"); column = _ObjectCallMethod( columns , "Add", "Data 3"); _ObjectSetProperty( column , "FormatColumn", "0 index `CDC` replace `D` with `<b>D</b>`"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(17) = 1"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod( items , "Add", "Item C"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(2,4) = 1"); _ObjectCallMethod( items , "Add", "Item AA"); _ObjectCallMethod( items , "Add", "Item BB"); _ObjectCallMethod( items , "Add", "Item CC"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(5,5) = 1"); _ObjectCallMethod( items , "Add", "Item D"); _ObjectCallMethod( items , "Add", "Item EE"); _ObjectCallMethod( items , "Add", "Item FFF"); _ObjectCallMethod( list , "EndUpdate"); sFile = "c:/temp/export.html"; _ObjectCallMethod( list , "Export", sFile,"vis"); createobject("internetexplorer.application") = CreateObject("InternetExplorer.Application"); _ObjectCallMethod( createobject("internetexplorer.application") , "Navigate2", sFile);
532	Export Data in CSV format OBJECT column,columns,conditionalformat,conditionalformats,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "BackColorAlternate", 15790320); _ObjectSetProperty( list , "DrawGridLines", -1); _ObjectSetProperty( list , "HeaderAppearance", 4); _ObjectCallMethod(list, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080> ` + value + ` </fgcolor>``,Description(11))"); _ObjectSetProperty( list , "FilterBarCaption", "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " + "`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matc" + "hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" + "nt + ` item(s)`) )))"); _ObjectSetProperty( list , "FilterBarPromptVisible", 2579); _ObjectSetProperty( list , "FilterBarPromptType", 2); conditionalformats = _ObjectGetProperty( list , "ConditionalFormats"); _ObjectSetProperty( _ObjectCallMethod( conditionalformats , "Add", "%0 like `AA`","aa") , "BackColor", 12632256); conditionalformat = _ObjectCallMethod( conditionalformats , "Add", "%0 like `D`","d"); _ObjectSetProperty( conditionalformat , "ForeColor", 8421631); _ObjectSetProperty( conditionalformat , "ApplyTo", 0); conditionalformat = _ObjectCallMethod( conditionalformats , "Add", "%0 like `b`","b"); _ObjectSetProperty( conditionalformat , "ForeColor", 16711680); _ObjectSetProperty( conditionalformat , "Bold", -1); _ObjectSetProperty( conditionalformat , "Italic", -1); _ObjectSetProperty( conditionalformat , "ApplyTo", 0); columns = _ObjectGetProperty( list , "Columns"); column = _ObjectCallMethod( columns , "Add", "Value"); _ObjectSetProperty( column , "Width", 128); _ObjectSetProperty( column , "HTMLCaption", "<b>VA</b><r>sko"); column = _ObjectCallMethod( columns , "Add", "APos"); _ObjectSetProperty( column , "FormatColumn", "0 apos ``"); _ObjectSetProperty( column , "AllowSort", 0); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(4) = 15790320"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(5) = 8421504"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(8) = Def(5)"); _ObjectSetProperty( column , "Position", 0); column = _ObjectCallMethod( columns , "Add", "RPos"); _ObjectSetProperty( column , "FormatColumn", "0 rpos ``"); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Position", 1); column = _ObjectCallMethod( columns , "Add", "Index"); _ObjectSetProperty( column , "FormatColumn", "0 index ``"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 256); _ObjectSetProperty( column , "Position", 2); column = _ObjectCallMethod( columns , "Add", "Data 1"); _ObjectSetProperty( column , "FormatColumn", "0 index `A-Z`"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True"); column = _ObjectCallMethod( columns , "Add", "Data 2"); _ObjectSetProperty( column , "FormatColumn", "0 index `AB` replace `A` with `<off -4>A</off>`"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(16) = False"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(17) = 1"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(1) = True"); column = _ObjectCallMethod( columns , "Add", "Data 3"); _ObjectSetProperty( column , "FormatColumn", "0 index `CDC` replace `D` with `<b>D</b>`"); _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(17) = 1"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod( items , "Add", "Item C"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(2,4) = 1"); _ObjectCallMethod( items , "Add", "Item AA"); _ObjectCallMethod( items , "Add", "Item BB"); _ObjectCallMethod( items , "Add", "Item CC"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(5,5) = 1"); _ObjectCallMethod( items , "Add", "Item D"); _ObjectCallMethod( items , "Add", "Item EE"); _ObjectCallMethod( items , "Add", "Item FFF"); _ObjectCallMethod( list , "EndUpdate"); Message( _ObjectCallMethod( list , "Export", "","vis") );
531	How can I get the icon from the cell when using the Items.CellImages property (icon index) // MouseMove event - Occurs when the user moves the mouse. FUNCTION listEvents_MouseMove(OBJECT list, INT Button, INT Shift, INT X, INT Y) _ObjectCallMethod(list, "TemplatePut", "Dim c,hit") _ObjectCallMethod(list, "TemplatePut", c) _ObjectCallMethod(list, "TemplatePut", hit) i = _ObjectCallMethod(list, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)"); _ObjectCallMethod(list, "TemplatePut", "Dim _ObObj,c,i") _ObjectCallMethod(list, "TemplatePut", _ObjectGetProperty( list , "Items")) _ObjectCallMethod(list, "TemplatePut", c) _ObjectCallMethod(list, "TemplatePut", i) Message( _ObjectCallMethod( list , "FormatABC", "( 0x44 = ( value bitand 0x44 ) ) ? ( ( (value bitand 0xFFFF0000) bitshift 16 ) array B split `,` ) : `no image`",hit,_ObjectCallMethod(list, "ExecuteTemplate", "_ObObj.CellImages(i,c)")) ); END OBJECT items,list; list = ObjectByName("AN1") ; ObjectAssociateEvents("listEvents", list); _ObjectCallMethod( list , "BeginUpdate"); _ObjectCallMethod( list , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" + "lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" + "0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" + "NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="); _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Default"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImages(Add(`Item 1`),0) = `3,2,1`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImages(Add(`Item 2`),0) = `2,3`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImages(Add(`Item 3`),0) = `2,`"); _ObjectCallMethod( list , "EndUpdate");
530	How can I get the icon from the cell when using the Items.CellImages property (icon position within the cell) // MouseMove event - Occurs when the user moves the mouse. FUNCTION listEvents_MouseMove(OBJECT list, INT Button, INT Shift, INT X, INT Y) _ObjectCallMethod(list, "TemplatePut", "Dim c,hit") _ObjectCallMethod(list, "TemplatePut", c) _ObjectCallMethod(list, "TemplatePut", hit) i = _ObjectCallMethod(list, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)"); Message( _ObjectCallMethod( list , "FormatABC", "( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit) ); END OBJECT items,list; list = ObjectByName("AN1") ; ObjectAssociateEvents("listEvents", list); _ObjectCallMethod( list , "BeginUpdate"); _ObjectCallMethod( list , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" + "lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" + "0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" + "NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="); _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Default"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImages(Add(`Item 1`),0) = `3,2,1`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImages(Add(`Item 2`),0) = `2,3`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImages(Add(`Item 3`),0) = `2`"); _ObjectCallMethod( list , "EndUpdate");
529	How can I get the index of icon from the cell, if using the CellImages property // MouseMove event - Occurs when the user moves the mouse. FUNCTION listEvents_MouseMove(OBJECT list, INT Button, INT Shift, INT X, INT Y) _ObjectCallMethod(list, "TemplatePut", "Dim c,hit") _ObjectCallMethod(list, "TemplatePut", c) _ObjectCallMethod(list, "TemplatePut", hit) i = _ObjectCallMethod(list, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)"); Message( _ObjectCallMethod( list , "FormatABC", "( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit) ); END OBJECT items,list; list = ObjectByName("AN1") ; ObjectAssociateEvents("listEvents", list); _ObjectCallMethod( list , "BeginUpdate"); _ObjectCallMethod( list , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" + "lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" + "0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" + "NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="); _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Default"); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImages(Add(`Item 1`),0) = `1,2,3`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImages(Add(`Item 2`),0) = `2,3,1`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImages(Add(`Item 3`),0) = `3,2,1`"); _ObjectCallMethod( list , "EndUpdate");
528	Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop OBJECT appearance,columns,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "HeaderAppearance", 4); columns = _ObjectGetProperty( list , "Columns"); _ObjectCallMethod( columns , "Add", "Column 1"); _ObjectCallMethod( columns , "Add", "Column 2"); _ObjectCallMethod( columns , "Add", "Column 3"); appearance = _ObjectGetProperty( list , "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(list, "ExecuteTemplate", "Background(182) = 33554432"); _ObjectCallMethod( list , "EndUpdate");
527	A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do OBJECT column,conditionalformat,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "ColumnAutoResize", -1); _ObjectSetProperty( list , "DefaultItemHeight", 20); _ObjectCallMethod( _ObjectGetProperty( list , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1m" + "Y1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2h" + "hWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY" + "6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQR" + "JSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd" + "0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA=="); _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Add(`Default`).Def(0) = True"); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Position"); _ObjectSetProperty( column , "FormatColumn", "1 rindex ``"); _ObjectSetProperty( column , "Visible", 0); conditionalformat = _ObjectCallMethod( _ObjectGetProperty( list , "ConditionalFormats") , "Add", "%C1 mod 2"); _ObjectSetProperty( conditionalformat , "BackColor", 16777216); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item 1"); _ObjectCallMethod( items , "Add", "Item 2"); _ObjectCallMethod( items , "Add", "Item 3"); _ObjectCallMethod( items , "Add", "Item 4"); _ObjectCallMethod( list , "EndUpdate");
526	Is it possible to change the caption from a column without to remove the column and add it with the new caption OBJECT list; list = ObjectByName("AN1") ; _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "ColumnName") , "Caption", "NewName"); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "ColumnName") , "HTMLCaption", "<b>New</b>Name");
525	FilterBarCaption ALL Keyword ( sample 2, result ) // AddItem event - Occurs after a new Item is inserted to Items collection. FUNCTION listEvents_AddItem(OBJECT list, INT Item) ' i = FormatABC("value + 1", Items.ItemToIndex(Item)) _ObjectCallMethod(list, "TemplatePut", "Dim Item") _ObjectCallMethod(list, "TemplatePut", Item) _ObjectCallMethod(list, "ExecuteTemplate", "Items.CellImage(Item,3) = i"); END OBJECT column,items,list; list = ObjectByName("AN1") ; ObjectAssociateEvents("listEvents", list); _ObjectCallMethod( list , "BeginUpdate"); _ObjectCallMethod( list , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" + "lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" + "0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" + "NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Col-1"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 9504); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Col-2"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 9504); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Check"); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "DisplayFilterPattern", 0); _ObjectSetProperty( column , "FilterType", 6); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Image"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterType", 10); _ObjectSetProperty( column , "FilterList", 9472); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item A`),1) = `Sub-Item A`"); h = _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "TemplatePut", h) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,1) = `Sub-Item B`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(h,2) = 1"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item C`),1) = `Sub-Item C`"); _ObjectSetProperty( list , "FilterBarFont", _ObjectGetProperty( list , "Font")); _ObjectCallMethod(list, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080> ` + value + ` </fgcolor>``,Description(11))"); _ObjectSetProperty( list , "FilterBarCaption", "(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[" + "<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchi" + "temcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount" + " + ` item(s)`) )))"); _ObjectSetProperty( list , "FilterBarPromptVisible", 3); column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0)"); _ObjectSetProperty( column , "FilterType", 240); _ObjectSetProperty( column , "Filter", "Item A\|Item B"); _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(2).Filter = 1"); _ObjectCallMethod( list , "ApplyFilter"); _ObjectCallMethod( list , "EndUpdate");
524	FilterBarCaption ALL Keyword ( sample 1 ) // AddItem event - Occurs after a new Item is inserted to Items collection. FUNCTION listEvents_AddItem(OBJECT list, INT Item) ' i = FormatABC("value + 1", Items.ItemToIndex(Item)) _ObjectCallMethod(list, "TemplatePut", "Dim Item") _ObjectCallMethod(list, "TemplatePut", Item) _ObjectCallMethod(list, "ExecuteTemplate", "Items.CellImage(Item,3) = i"); END OBJECT column,items,list; list = ObjectByName("AN1") ; ObjectAssociateEvents("listEvents", list); _ObjectCallMethod( list , "BeginUpdate"); _ObjectCallMethod( list , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" + "lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" + "0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" + "NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Col-1"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 9504); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Col-2"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 9504); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Check"); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "DisplayFilterPattern", 0); _ObjectSetProperty( column , "FilterType", 6); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Image"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterType", 10); _ObjectSetProperty( column , "FilterList", 9472); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item A`),1) = `Sub-Item A`"); h = _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "TemplatePut", h) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,1) = `Sub-Item B`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(h,2) = 1"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item C`),1) = `Sub-Item C`"); _ObjectSetProperty( list , "FilterBarFont", _ObjectGetProperty( list , "Font")); _ObjectCallMethod(list, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080> ` + value + ` </fgcolor>``,Description(11))"); _ObjectSetProperty( list , "FilterBarCaption", "all"); _ObjectSetProperty( list , "FilterBarPromptVisible", 3); column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0)"); _ObjectSetProperty( column , "FilterType", 240); _ObjectSetProperty( column , "Filter", "Item A\|Item B"); _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(2).Filter = 1"); _ObjectCallMethod( list , "ApplyFilter"); _ObjectCallMethod( list , "EndUpdate");
523	FilterBarCaption ALLUI Keyword ( sample 2, result ) // AddItem event - Occurs after a new Item is inserted to Items collection. FUNCTION listEvents_AddItem(OBJECT list, INT Item) ' i = FormatABC("value + 1", Items.ItemToIndex(Item)) _ObjectCallMethod(list, "TemplatePut", "Dim Item") _ObjectCallMethod(list, "TemplatePut", Item) _ObjectCallMethod(list, "ExecuteTemplate", "Items.CellImage(Item,3) = i"); END OBJECT column,items,list; list = ObjectByName("AN1") ; ObjectAssociateEvents("listEvents", list); _ObjectCallMethod( list , "BeginUpdate"); _ObjectCallMethod( list , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" + "lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" + "0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" + "NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Col-1"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 9504); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Col-2"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 9504); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Check"); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "DisplayFilterPattern", 0); _ObjectSetProperty( column , "FilterType", 6); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Image"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterType", 10); _ObjectSetProperty( column , "FilterList", 9472); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item A`),1) = `Sub-Item A`"); h = _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "TemplatePut", h) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,1) = `Sub-Item B`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(h,2) = 1"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item C`),1) = `Sub-Item C`"); _ObjectSetProperty( list , "FilterBarFont", _ObjectGetProperty( list , "Font")); _ObjectCallMethod(list, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080> ` + value + ` </fgcolor>``,Description(11))"); _ObjectSetProperty( list , "FilterBarCaption", "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " + "`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matc" + "hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" + "nt + ` item(s)`) )))"); _ObjectSetProperty( list , "FilterBarPromptVisible", 3); column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0)"); _ObjectSetProperty( column , "FilterType", 240); _ObjectSetProperty( column , "Filter", "Item A\|Item B"); _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(2).Filter = 1"); _ObjectCallMethod( list , "ApplyFilter"); _ObjectCallMethod( list , "EndUpdate");
522	FilterBarCaption ALLUI Keyword ( sample 1 ) // AddItem event - Occurs after a new Item is inserted to Items collection. FUNCTION listEvents_AddItem(OBJECT list, INT Item) ' i = FormatABC("value + 1", Items.ItemToIndex(Item)) _ObjectCallMethod(list, "TemplatePut", "Dim Item") _ObjectCallMethod(list, "TemplatePut", Item) _ObjectCallMethod(list, "ExecuteTemplate", "Items.CellImage(Item,3) = i"); END OBJECT column,items,list; list = ObjectByName("AN1") ; ObjectAssociateEvents("listEvents", list); _ObjectCallMethod( list , "BeginUpdate"); _ObjectCallMethod( list , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" + "lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" + "0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" + "NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Col-1"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 9504); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Col-2"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 9504); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Check"); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "DisplayFilterPattern", 0); _ObjectSetProperty( column , "FilterType", 6); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Image"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterType", 10); _ObjectSetProperty( column , "FilterList", 9472); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item A`),1) = `Sub-Item A`"); h = _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "TemplatePut", h) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,1) = `Sub-Item B`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(h,2) = 1"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item C`),1) = `Sub-Item C`"); _ObjectSetProperty( list , "FilterBarFont", _ObjectGetProperty( list , "Font")); _ObjectCallMethod(list, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080> ` + value + ` </fgcolor>``,Description(11))"); _ObjectSetProperty( list , "FilterBarCaption", "allui"); _ObjectSetProperty( list , "FilterBarPromptVisible", 3); column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0)"); _ObjectSetProperty( column , "FilterType", 240); _ObjectSetProperty( column , "Filter", "Item A\|Item B"); _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(2).Filter = 1"); _ObjectCallMethod( list , "ApplyFilter"); _ObjectCallMethod( list , "EndUpdate");
521	FilterBarCaption AVAILABLE Keyword ( sample 2, result ) // AddItem event - Occurs after a new Item is inserted to Items collection. FUNCTION listEvents_AddItem(OBJECT list, INT Item) ' i = FormatABC("value + 1", Items.ItemToIndex(Item)) _ObjectCallMethod(list, "TemplatePut", "Dim Item") _ObjectCallMethod(list, "TemplatePut", Item) _ObjectCallMethod(list, "ExecuteTemplate", "Items.CellImage(Item,3) = i"); END OBJECT column,items,list; list = ObjectByName("AN1") ; ObjectAssociateEvents("listEvents", list); _ObjectCallMethod( list , "BeginUpdate"); _ObjectCallMethod( list , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" + "lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" + "0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" + "NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Col-1"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 9504); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Col-2"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 9504); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Check"); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "DisplayFilterPattern", 0); _ObjectSetProperty( column , "FilterType", 6); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Image"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterType", 10); _ObjectSetProperty( column , "FilterList", 9472); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item A`),1) = `Sub-Item A`"); h = _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "TemplatePut", h) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,1) = `Sub-Item B`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(h,2) = 1"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item C`),1) = `Sub-Item C`"); _ObjectSetProperty( list , "FilterBarFont", _ObjectGetProperty( list , "Font")); _ObjectCallMethod(list, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080> ` + value + ` </fgcolor>``,Description(11))"); _ObjectSetProperty( list , "FilterBarCaption", "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( ava" + "ilable replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `" + "` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount" + " + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"); _ObjectSetProperty( list , "FilterBarPromptVisible", 3); column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0)"); _ObjectSetProperty( column , "FilterType", 240); _ObjectSetProperty( column , "Filter", "Item A\|Item B"); _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(2).Filter = 1"); _ObjectCallMethod( list , "ApplyFilter"); _ObjectCallMethod( list , "EndUpdate");
520	FilterBarCaption AVAILABLE Keyword ( sample 1 ) // AddItem event - Occurs after a new Item is inserted to Items collection. FUNCTION listEvents_AddItem(OBJECT list, INT Item) ' i = FormatABC("value + 1", Items.ItemToIndex(Item)) _ObjectCallMethod(list, "TemplatePut", "Dim Item") _ObjectCallMethod(list, "TemplatePut", Item) _ObjectCallMethod(list, "ExecuteTemplate", "Items.CellImage(Item,3) = i"); END OBJECT column,items,list; list = ObjectByName("AN1") ; ObjectAssociateEvents("listEvents", list); _ObjectCallMethod( list , "BeginUpdate"); _ObjectCallMethod( list , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" + "lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" + "0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" + "NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Col-1"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 9504); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Col-2"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 9504); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Check"); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "DisplayFilterPattern", 0); _ObjectSetProperty( column , "FilterType", 6); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Image"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterType", 10); _ObjectSetProperty( column , "FilterList", 9472); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item A`),1) = `Sub-Item A`"); h = _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "TemplatePut", h) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,1) = `Sub-Item B`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(h,2) = 1"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item C`),1) = `Sub-Item C`"); _ObjectSetProperty( list , "FilterBarFont", _ObjectGetProperty( list , "Font")); _ObjectCallMethod(list, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080> ` + value + ` </fgcolor>``,Description(11))"); _ObjectSetProperty( list , "FilterBarCaption", "value + ` ` + available"); _ObjectSetProperty( list , "FilterBarPromptVisible", 3); column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0)"); _ObjectSetProperty( column , "FilterType", 240); _ObjectSetProperty( column , "Filter", "Item A\|Item B"); _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(2).Filter = 1"); _ObjectCallMethod( list , "ApplyFilter"); _ObjectCallMethod( list , "EndUpdate");
519	Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 3, results ) OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Col-1"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 9504); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Col-2"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 9504); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item A`),1) = `Sub-Item A`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item B`),1) = `Sub-Item B`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item C`),1) = `Sub-Item C`"); _ObjectSetProperty( list , "FilterBarFont", _ObjectGetProperty( list , "Font")); _ObjectCallMethod(list, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080>` + value + `</fgcolor>``,Description(11))"); _ObjectSetProperty( list , "FilterBarCaption", "(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) +" + " ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replac" + "e `]` with ` </b></bgcolor></fgcolor>`"); _ObjectSetProperty( list , "FilterBarPromptVisible", 256); column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0)"); _ObjectSetProperty( column , "FilterType", 240); _ObjectSetProperty( column , "Filter", "Item A\|Item B"); column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(1)"); _ObjectSetProperty( column , "FilterType", 3); _ObjectSetProperty( column , "Filter", "*B"); _ObjectCallMethod( list , "ApplyFilter"); _ObjectCallMethod( list , "EndUpdate");
518	Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 ) OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Col-1"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 9504); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Col-2"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 9504); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item A`),1) = `Sub-Item A`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item B`),1) = `Sub-Item B`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item C`),1) = `Sub-Item C`"); _ObjectSetProperty( list , "FilterBarFont", _ObjectGetProperty( list , "Font")); _ObjectCallMethod(list, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080>` + value + `</fgcolor>``,Description(11))"); _ObjectSetProperty( list , "FilterBarCaption", "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"); _ObjectSetProperty( list , "FilterBarPromptVisible", 256); column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0)"); _ObjectSetProperty( column , "FilterType", 240); _ObjectSetProperty( column , "Filter", "Item A\|Item B"); column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(1)"); _ObjectSetProperty( column , "FilterType", 3); _ObjectSetProperty( column , "Filter", "*B"); _ObjectCallMethod( list , "ApplyFilter"); _ObjectCallMethod( list , "EndUpdate");
517	Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 ) OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Col-1"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 9504); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Col-2"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 9504); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod(list, "TemplatePut", "Dim iteObj") _ObjectCallMethod(list, "TemplatePut", items) _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item A`),1) = `Sub-Item A`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item B`),1) = `Sub-Item B`"); _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item C`),1) = `Sub-Item C`"); _ObjectCallMethod(list, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080>` + value + `</fgcolor>``,Description(11))"); _ObjectSetProperty( list , "FilterBarCaption", "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"); _ObjectSetProperty( list , "FilterBarPromptVisible", 256); column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0)"); _ObjectSetProperty( column , "FilterType", 240); _ObjectSetProperty( column , "Filter", "Item A\|Item B"); column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(1)"); _ObjectSetProperty( column , "FilterType", 3); _ObjectSetProperty( column , "Filter", "*B"); _ObjectCallMethod( list , "ApplyFilter"); _ObjectCallMethod( list , "EndUpdate");
516	Is it possible to automatically displays the control's filter label to the right OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Item"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 9504); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod( items , "Add", "Item C"); _ObjectSetProperty( list , "FilterBarCaption", "`<r>` + value"); _ObjectSetProperty( list , "FilterBarPromptVisible", 1280); column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0)"); _ObjectSetProperty( column , "FilterType", 240); _ObjectSetProperty( column , "Filter", "Item B"); _ObjectCallMethod( list , "ApplyFilter"); _ObjectCallMethod( list , "EndUpdate");
515	How can I get the number of results/items being shown in the control's filter bar (sample 4) OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Item"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "FilterList", 9504); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod( items , "Add", "Item C"); _ObjectSetProperty( list , "FilterBarFont", _ObjectGetProperty( list , "Font")); _ObjectSetProperty( list , "FilterBarPrompt", _ObjectCallMethod( list , "FormatABC", "`<b>` + value",_ObjectGetProperty( list , "FilterBarPrompt"))); _ObjectSetProperty( list , "FilterBarCaption", "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount " + "+ 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"); _ObjectSetProperty( list , "FilterBarPromptVisible", 3591); _ObjectCallMethod( list , "EndUpdate");
514	How can I get the number of results being shown in the control's filter bar (sample 3) OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Item") , "DisplayFilterButton", -1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod( items , "Add", "Item C"); _ObjectSetProperty( list , "FilterBarFont", _ObjectGetProperty( list , "Font")); _ObjectSetProperty( list , "FilterBarCaption", "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount " + "+ 1) + ` result(s)` ) : ``)"); _ObjectSetProperty( list , "FilterBarPromptVisible", 2055); column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0)"); _ObjectSetProperty( column , "FilterType", 240); _ObjectSetProperty( column , "Filter", "Item A\|Item B"); _ObjectCallMethod( list , "ApplyFilter"); _ObjectCallMethod( list , "EndUpdate");
513	How can I get the number of results being shown in the control's filter bar (sample 2, compact) OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Item") , "DisplayFilterButton", -1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod( items , "Add", "Item C"); _ObjectSetProperty( list , "FilterBarFont", _ObjectGetProperty( list , "Font")); _ObjectSetProperty( list , "FilterBarCaption", "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)"); _ObjectSetProperty( list , "FilterBarPromptVisible", 2071); column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0)"); _ObjectSetProperty( column , "FilterType", 240); _ObjectSetProperty( column , "Filter", "Item A\|Item B"); _ObjectCallMethod( list , "ApplyFilter"); _ObjectCallMethod( list , "EndUpdate");
512	How can I get the number of results being shown in the control's filter bar (sample 1) OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Item") , "DisplayFilterButton", -1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod( items , "Add", "Item C"); _ObjectSetProperty( list , "FilterBarFont", _ObjectGetProperty( list , "Font")); _ObjectSetProperty( list , "FilterBarCaption", "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"); _ObjectSetProperty( list , "FilterBarPromptVisible", 7); column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0)"); _ObjectSetProperty( column , "FilterType", 240); _ObjectSetProperty( column , "Filter", "Item A\|Item B"); _ObjectCallMethod( list , "ApplyFilter"); _ObjectCallMethod( list , "EndUpdate");
511	FilterBarCaption Predefined Keywords OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Item") , "DisplayFilterButton", -1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Check"); _ObjectCallMethod(list, "TemplatePut", "Dim colObj") _ObjectCallMethod(list, "TemplatePut", column) _ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True"); _ObjectSetProperty( column , "DisplayFilterButton", -1); _ObjectSetProperty( column , "DisplayFilterPattern", 0); _ObjectSetProperty( column , "FilterType", 6); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod( items , "Add", "Item C"); _ObjectSetProperty( list , "FilterBarFont", _ObjectGetProperty( list , "Font")); _ObjectSetProperty( list , "FilterBarCaption", "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</" + "i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>" + ": ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF>" + "<i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</" + "i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=8" + "08080>` + promptpattern + `</fgcolor>`"); _ObjectSetProperty( list , "FilterBarPromptPattern", "B"); _ObjectSetProperty( list , "FilterBarPromptVisible", 7); column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0)"); _ObjectSetProperty( column , "FilterType", 240); _ObjectSetProperty( column , "Filter", "Item A\|Item B"); _ObjectCallMethod( list , "ApplyFilter"); _ObjectCallMethod( list , "EndUpdate");
510	I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Item") , "DisplayFilterButton", -1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod( items , "Add", "Item C"); _ObjectSetProperty( list , "FilterBarFont", _ObjectGetProperty( list , "Font")); _ObjectSetProperty( list , "FilterBarCaption", "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"); _ObjectSetProperty( list , "FilterBarPromptPattern", "B"); _ObjectSetProperty( list , "FilterBarPromptVisible", 2067); column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0)"); _ObjectSetProperty( column , "FilterType", 240); _ObjectSetProperty( column , "Filter", "Item A\|Item B"); _ObjectCallMethod( list , "ApplyFilter"); _ObjectCallMethod( list , "EndUpdate");
509	Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 ) OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Item") , "DisplayFilterButton", -1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod( items , "Add", "Item C"); _ObjectSetProperty( list , "FilterBarPromptVisible", 1281); _ObjectSetProperty( list , "FilterBarPrompt", _ObjectCallMethod( list , "FormatABC", "`<r>` + value",_ObjectGetProperty( list , "FilterBarPrompt"))); _ObjectCallMethod( list , "EndUpdate");
508	Just wondering if it is possible to show the filter bar's close button on the right ( sample 1 ) OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( list , "RightToLeft", -1); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Item") , "DisplayFilterButton", -1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod( items , "Add", "Item C"); _ObjectSetProperty( list , "FilterBarPromptVisible", 257); _ObjectCallMethod( list , "EndUpdate");
507	How can I change the visual appearance of the filter bar's close button (EBN) OBJECT appearance,column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); appearance = _ObjectGetProperty( list , "VisualAppearance"); _ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJ" + "jyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKm" + "SZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OR" + "OicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2" + "DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJX" + "AiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaK" + "JDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G" + "0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEA" + "kjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRS" + "MRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhA" + "QHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ"); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Item") , "DisplayFilterButton", -1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod( items , "Add", "Item C"); _ObjectSetProperty( list , "FilterBarPromptVisible", 257); _ObjectCallMethod(list, "ExecuteTemplate", "Background(1) = 16777216"); _ObjectCallMethod( list , "EndUpdate");
506	How can I change the visual appearance of the filter bar's close button (solid) OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Item") , "DisplayFilterButton", -1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod( items , "Add", "Item C"); _ObjectSetProperty( list , "FilterBarPromptVisible", 1); _ObjectCallMethod(list, "ExecuteTemplate", "Background(1) = 255"); _ObjectCallMethod( list , "EndUpdate");
505	Is it possible to prevent definitely showing the filter bar's close button OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Item") , "DisplayFilterButton", -1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod( items , "Add", "Item C"); _ObjectSetProperty( list , "FilterBarPromptVisible", 1); _ObjectCallMethod(list, "ExecuteTemplate", "Background(1) = -1"); _ObjectCallMethod( list , "EndUpdate");
504	Is it possible to show the close button only if there is a filter applied OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Item") , "DisplayFilterButton", -1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod( items , "Add", "Item C"); _ObjectSetProperty( list , "FilterBarPromptVisible", 513); _ObjectCallMethod( list , "EndUpdate");
503	The control's filter bar is not closed once I click the close button (toggle) OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Item") , "DisplayFilterButton", -1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod( items , "Add", "Item C"); _ObjectSetProperty( list , "FilterBarCaption", "`<r><fgcolor=808080>` + value"); _ObjectSetProperty( list , "FilterBarPromptPattern", "B"); _ObjectSetProperty( list , "FilterBarPromptVisible", 2323); column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0)"); _ObjectSetProperty( column , "FilterType", 240); _ObjectSetProperty( column , "Filter", "Item B"); _ObjectCallMethod( list , "ApplyFilter"); _ObjectCallMethod( list , "EndUpdate");
502	How can I display the control's filter on a single line OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Item") , "DisplayFilterButton", -1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod( items , "Add", "Item C"); _ObjectSetProperty( list , "FilterBarCaption", "len(value) ? `filter for: <fgcolor 808080>` + value : `<fgcolor 808080>no filter`"); _ObjectSetProperty( list , "FilterBarPromptVisible", 18); column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0)"); _ObjectSetProperty( column , "FilterType", 240); _ObjectSetProperty( column , "Filter", "Item A\|Item B"); _ObjectCallMethod( list , "ApplyFilter"); _ObjectCallMethod( list , "EndUpdate");
501	How can I display the control's filter on a single line (prompt-combined) OBJECT column,items,list; list = ObjectByName("AN1") ; _ObjectCallMethod( list , "BeginUpdate"); _ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Item") , "DisplayFilterButton", -1); column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos"); _ObjectSetProperty( column , "AllowSizing", 0); _ObjectSetProperty( column , "AllowSort", 0); _ObjectSetProperty( column , "Width", 32); _ObjectSetProperty( column , "FormatColumn", "1 apos ``"); _ObjectSetProperty( column , "Position", 0); items = _ObjectGetProperty( list , "Items"); _ObjectCallMethod( items , "Add", "Item A"); _ObjectCallMethod( items , "Add", "Item B"); _ObjectCallMethod( items , "Add", "Item C"); _ObjectSetProperty( list , "FilterBarCaption", "`<r>` + value"); _ObjectSetProperty( list , "FilterBarPromptVisible", 2067); column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0)"); _ObjectSetProperty( column , "FilterType", 240); _ObjectSetProperty( column , "Filter", "Item A\|Item B"); _ObjectCallMethod( list , "ApplyFilter"); _ObjectCallMethod( list , "EndUpdate");