|
305
|
Why I cannot center my cells in the column
OBJECT combobox;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( combobox , "TreeColumnIndex", -1);
_ObjectSetProperty( combobox , "DrawGridLines", -2);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Default") , "Alignment", 1);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Items") , "AddItem", "item 1");
_ObjectCallMethod( _ObjectGetProperty( combobox , "Items") , "AddItem", "item 2");
_ObjectCallMethod( _ObjectGetProperty( combobox , "Items") , "AddItem", "item 3");
|
|
23
|
Why child items are not shown
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( combobox , "LinesAtRoot", -1);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Column 1");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
551
|
Why can t I type free text into a DropDown style combobox
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( combobox , "AutoComplete", 0);
_ObjectSetProperty( combobox , "IntegralHeight", -1);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Column");
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "Item 3");
_ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod( items , "AddItem", "Item 2");
|
|
456
|
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Default");
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "A");
_ObjectCallMethod( items , "AddItem", "B");
_ObjectCallMethod( items , "AddItem", "C");
_ObjectCallMethod( items , "AddItem", "D");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Select(0) = `C`");
|
|
458
|
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Default");
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "A");
_ObjectCallMethod( items , "AddItem", "B");
_ObjectCallMethod( items , "AddItem", "C");
_ObjectCallMethod( items , "AddItem", "D");
_ObjectCallMethod(combobox, "ExecuteTemplate", "EditText(0) = Me.Items.CellCaption(Me.Items.ItemByIndex(2),0)");
|
|
459
|
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Default");
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "A");
_ObjectCallMethod( items , "AddItem", "B");
_ObjectCallMethod( items , "AddItem", "C");
_ObjectCallMethod( items , "AddItem", "D");
_ObjectCallMethod(combobox, "ExecuteTemplate", "EditText(0) = `C`");
|
|
457
|
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Default");
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "A");
_ObjectCallMethod( items , "AddItem", "B");
_ObjectCallMethod( items , "AddItem", "C");
_ObjectCallMethod( items , "AddItem", "D");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Select(0) = Me.Items.CellCaption(Me.Items.ItemByIndex(2),0)");
|
|
383
|
What about a function to get the day in the week, or days since Sunday
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "WeekDay") , "ComputedField", "weekday(%0)");
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "1/11/2001 10:00:00 AM");
_ObjectCallMethod( items , "AddItem", "2/22/2002 11:00:00 AM");
_ObjectCallMethod( items , "AddItem", "3/13/2003 12:00:00 PM");
_ObjectCallMethod( items , "AddItem", "4/14/2004 1:00:00 PM");
|
|
538
|
Type of wraps the cell's caption support (Sample 2)
OBJECT column,columns,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "HeaderSingleLine", 0);
_ObjectSetProperty( combobox , "HeaderHeight", 36);
_ObjectSetProperty( combobox , "DrawGridLines", -2);
_ObjectSetProperty( combobox , "ColumnAutoResize", 0);
_ObjectSetProperty( combobox , "ScrollBySingleLine", -1);
columns = _ObjectGetProperty( combobox , "Columns");
column = _ObjectCallMethod( columns , "Add", "Single-Line (exCaptionSingleLine)");
_ObjectSetProperty( column , "Width", 96);
_ObjectCallMethod(combobox, "TemplatePut", "Dim colObj")
_ObjectCallMethod(combobox, "TemplatePut", column)
_ObjectCallMethod(combobox, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectCallMethod(combobox, "ExecuteTemplate", "colObj.Def(16) = -1");
column = _ObjectCallMethod( columns , "Add", "Word-Wrap (exCaptionWordWrap)");
_ObjectSetProperty( column , "Width", 96);
_ObjectCallMethod(combobox, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectCallMethod(combobox, "ExecuteTemplate", "colObj.Def(16) = 0");
_ObjectSetProperty( column , "FormatColumn", "%0");
column = _ObjectCallMethod( columns , "Add", "Break-Wrap (exCaptionBreakWrap)");
_ObjectSetProperty( column , "Width", 96);
_ObjectCallMethod(combobox, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectCallMethod(combobox, "ExecuteTemplate", "colObj.Def(16) = 1");
_ObjectSetProperty( column , "FormatColumn", "%0");
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "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 , "AddItem", "This is the <b>first</b> line.\r\nThis is the <b>second</b> line.\r\nThis is the <b>third</b> line.");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
537
|
Type of wraps the cell's caption support (Sample 1)
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "HeaderSingleLine", 0);
_ObjectSetProperty( combobox , "HeaderHeight", 36);
_ObjectSetProperty( combobox , "DrawGridLines", -2);
_ObjectSetProperty( combobox , "ColumnAutoResize", 0);
_ObjectSetProperty( combobox , "ScrollBySingleLine", -1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Default") , "Width", 128);
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "This is the first line.\r\nThis is the second line.\r\nThis is the third line.");
h = _ObjectCallMethod( items , "AddItem", "This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaptionFormat(h,0) = 1");
h = _ObjectCallMethod( items , "AddItem", "This is the first line.\r\nThis is the second line.\r\nThis is the third line.");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = 0");
h = _ObjectCallMethod( items , "AddItem", "This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaptionFormat(h,0) = 1");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = 0");
h = _ObjectCallMethod( items , "AddItem", "This is the first line.\r\nThis is the second line.\r\nThis is the third line.");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = 1");
h = _ObjectCallMethod( items , "AddItem", "This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaptionFormat(h,0) = 1");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = 1");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
574
|
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 has been added.
FUNCTION comboboxEvents_AddColumn(OBJECT combobox, OBJECT Column)
OBJECT column;
column = Column;
END
OBJECT combobox,rs;
combobox = ObjectByName("AN1") ;
ObjectAssociateEvents("comboboxEvents", combobox);
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "ColumnAutoResize", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb",3,3);
_ObjectSetProperty( combobox , "DataSource", rs);
_ObjectCallMethod(combobox, "ExecuteTemplate", "Columns.Item(`ShipVia`).Position = 2");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
169
|
The thumb size seems to be very small. Can I make it bigger
OBJECT combobox;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( combobox , "ColumnAutoResize", 0);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "C1") , "Width", 256);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "C2") , "Width", 256);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "C3") , "Width", 256);
_ObjectCallMethod(combobox, "ExecuteTemplate", "ScrollThumbSize(1) = 64");
|
|
45
|
The drop down filter window displays a "to" string between two datem when I filter dates. Can I change that
OBJECT column,combobox;
combobox = ObjectByName("AN1") ;
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Column");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterDate", -1);
_ObjectCallMethod(combobox, "ExecuteTemplate", "Description(13) = `->`");
_ObjectCallMethod( combobox , "ApplyFilter");
|
|
324
|
The control supports three styles: Simple, DropDown and DropDownList. How can I change the style
OBJECT combobox;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( combobox , "Style", 2);
|
|
337
|
The control selects the portion of text that doesn't match with the selected item. How can I avoid that
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( combobox , "AutoSelect", 0);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Column");
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "Item 3");
_ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod( items , "AddItem", "Item 2");
|
|
507
|
The control's filter bar is not closed once I click the close button (toggle)
OBJECT column,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "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( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.LockedItemCount(2) = 1");
h = _ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.LockedItem(2,0)");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h,0) = `<c><fgcolor=808080>Press the CTRL + F to turn on/off the control's filter bar. ALT + Up/Down moves the focus.`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaptionFormat(h,0) = 1");
_ObjectSetProperty( combobox , "FilterBarCaption", "`<r><fgcolor=808080>` + value");
_ObjectSetProperty( combobox , "FilterBarPromptPattern", "B");
_ObjectSetProperty( combobox , "FilterBarPromptVisible", 2323);
column = _ObjectCallMethod(combobox, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item B");
_ObjectCallMethod( combobox , "ApplyFilter");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
37
|
The "IsBlank" caption shown in the control's filterbar when I select "Blanks" or "NonBlanks" items in the column's drop down filter window
OBJECT column,combobox;
combobox = ObjectByName("AN1") ;
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Column");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterType", 1);
_ObjectCallMethod(combobox, "ExecuteTemplate", "Description(9) = `Is Empty`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Description(10) = `Is Not Empty`");
_ObjectCallMethod( combobox , "ApplyFilter");
|
|
586
|
Shows the tooltip of the object moved relative to its default position
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION comboboxEvents_MouseMove(OBJECT combobox, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod( combobox , "ShowToolTip", "<null>","<null>","","+8","+8");
END
OBJECT combobox;
combobox = ObjectByName("AN1") ;
ObjectAssociateEvents("comboboxEvents", combobox);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "tootip") , "ToolTip", "this is a tooltip assigned to a column");
|
|
476
|
Setting the ForeColor to red and then setting Enabled property on False the ForeColor returns back to original color of black/gray. What can be done (Style is Simple)
OBJECT columns,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "Style", 0);
_ObjectSetProperty( combobox , "ColumnAutoResize", -1);
columns = _ObjectGetProperty( combobox , "Columns");
_ObjectCallMethod( columns , "Add", "C1");
_ObjectCallMethod( columns , "Add", "C2");
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`item a`),1) = `item b`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`item c`),1) = `item d`");
_ObjectSetProperty( combobox , "Value", "item a");
_ObjectSetProperty( combobox , "ForeColor", 12353664);
_ObjectSetProperty( combobox , "BackColor", 15790320);
_ObjectSetProperty( combobox , "HeaderForeColor", 8421504);
_ObjectSetProperty( combobox , "SelBackColor", 8421504);
_ObjectSetProperty( combobox , "BackColorEdit", 0);
_ObjectSetProperty( combobox , "ForeColorEdit", 16777215);
_ObjectSetProperty( combobox , "Enabled", 0);
_ObjectCallMethod( combobox , "EndUpdate");
|
|
475
|
Setting the ForeColor to red and then setting Enabled property on False the ForeColor returns back to original color of black/gray. What can be done (Style is DropDownList)
OBJECT columns,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "Style", 2);
_ObjectSetProperty( combobox , "ColumnAutoResize", -1);
columns = _ObjectGetProperty( combobox , "Columns");
_ObjectCallMethod( columns , "Add", "C1");
_ObjectCallMethod( columns , "Add", "C2");
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`item a`),1) = `item b`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`item c`),1) = `item d`");
_ObjectSetProperty( combobox , "Value", "item a");
_ObjectSetProperty( combobox , "BackColorEdit", 0);
_ObjectSetProperty( combobox , "ForeColor", 16777215);
_ObjectSetProperty( combobox , "Enabled", 0);
_ObjectCallMethod( combobox , "EndUpdate");
|
|
474
|
Setting the ForeColor to red and then setting Enabled property on False the ForeColor returns back to original color of black/gray. What can be done (Style is DropDown)
OBJECT columns,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "Style", 1);
_ObjectSetProperty( combobox , "ColumnAutoResize", -1);
columns = _ObjectGetProperty( combobox , "Columns");
_ObjectCallMethod( columns , "Add", "C1");
_ObjectCallMethod( columns , "Add", "C2");
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`item a`),1) = `item b`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`item c`),1) = `item d`");
_ObjectSetProperty( combobox , "Value", "item a");
_ObjectSetProperty( combobox , "ForeColorEdit", 16777215);
_ObjectSetProperty( combobox , "BackColorEdit", 0);
_ObjectSetProperty( combobox , "Enabled", 0);
_ObjectCallMethod( combobox , "EndUpdate");
|
|
577
|
Re-order the cell's caption, icons and images/pictures
OBJECT column,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "IntegralHeight", -1);
_ObjectCallMethod( combobox , "Images", "gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmD" +
"cD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB");
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "ToLeft");
_ObjectCallMethod(combobox, "TemplatePut", "Dim colObj")
_ObjectCallMethod(combobox, "TemplatePut", column)
_ObjectCallMethod(combobox, "ExecuteTemplate", "colObj.Def(0) = True");
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "ToRight");
_ObjectCallMethod(combobox, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(combobox, "ExecuteTemplate", "colObj.Def(34) = `caption,picture,icons,icon,check`");
_ObjectSetProperty( combobox , "DefaultItemHeight", 32);
_ObjectSetProperty( combobox , "DrawGridLines", 2);
_ObjectSetProperty( combobox , "HeaderAppearance", 4);
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Caption");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellImage(h,0) = 2");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellImages(h,0) = `1,2`");
_ObjectCallMethod(combobox, "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(combobox, "ExecuteTemplate", "iteObj.CellCaption(h,1) = CellCaption(h,0)");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellHAlignment(h,1) = 2");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellImage(h,1) = CellImage(h,0)");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellImages(h,1) = `2,1`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellPicture(h,1) = CellPicture(h,0)");
h = _ObjectCallMethod( items , "AddItem", "<b>HTML</b> <off 4>Caption");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaptionFormat(h,0) = 1");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellImage(h,0) = 2");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellImages(h,0) = `1,2`");
_ObjectCallMethod(combobox, "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(combobox, "ExecuteTemplate", "iteObj.CellCaption(h,1) = CellCaption(h,0)");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaptionFormat(h,1) = 1");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellHAlignment(h,1) = 2");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellImage(h,1) = CellImage(h,0)");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellImages(h,1) = `2,1`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellPicture(h,1) = CellPicture(h,0)");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
597
|
Load data as a tree using a parent-id relationship
OBJECT combobox,rs;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "ColumnAutoResize", 0);
_ObjectSetProperty( combobox , "HeaderAppearance", 4);
_ObjectSetProperty( combobox , "HeaderHeight", 24);
_ObjectSetProperty( combobox , "DrawGridLines", 2);
_ObjectSetProperty( combobox , "LinesAtRoot", -1);
rs = CreateObject("ADODB.Recordset");
_ObjectCallMethod( rs , "Open", "Select * FROM Employees WHERE 1=0","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb",3,3);
_ObjectSetProperty( combobox , "DataSource", rs);
_ObjectCallMethod(combobox, "ExecuteTemplate", "Columns.Item(0).Width = 128");
rs = CreateObject("ADODB.Recordset");
_ObjectCallMethod( rs , "Open", "Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb",3,3);
_ObjectCallMethod( combobox , "PutItems", _ObjectCallMethod( rs , "GetRows", ),";0;15");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Items.ExpandItem(0) = True");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
513
|
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )
OBJECT column,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "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( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( combobox , "FilterBarPromptVisible", 1281);
_ObjectSetProperty( combobox , "FilterBarPrompt", _ObjectCallMethod( combobox , "FormatABC", "`<r>` + value",_ObjectGetProperty( combobox , "FilterBarPrompt")));
_ObjectCallMethod( combobox , "EndUpdate");
|
|
512
|
Just wondering if it is possible to show the filter bar's close button on the right ( sample 1 )
OBJECT column,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "RightToLeft", -1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "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( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( combobox , "FilterBarPromptVisible", 257);
_ObjectCallMethod( combobox , "EndUpdate");
|
|
100
|
It seems that the control uses the TAB key, is there any way to avoid that
OBJECT combobox;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( combobox , "UseTabKey", 0);
|
|
447
|
Is there other ways of showing the hierarchy lines (exGroupLinesOutside)
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( combobox , "LinesAtRoot", 5);
_ObjectSetProperty( combobox , "Indent", 12);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Default");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
|
|
446
|
Is there other ways of showing the hierarchy lines (exGroupLinesInsideLeaf)
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( combobox , "LinesAtRoot", 4);
_ObjectSetProperty( combobox , "Indent", 12);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Default");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
445
|
Is there other ways of showing the hierarchy lines (exGroupLinesInside)
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( combobox , "LinesAtRoot", 3);
_ObjectSetProperty( combobox , "Indent", 12);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Default");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
448
|
Is there other ways of showing the hierarchy lines (exGroupLinesAtRoot)
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( combobox , "LinesAtRoot", 1);
_ObjectSetProperty( combobox , "Indent", 12);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Default");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
444
|
Is there other ways of showing the hierarchy lines (exGroupLines)
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( combobox , "LinesAtRoot", 2);
_ObjectSetProperty( combobox , "Indent", 12);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Default");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", _ObjectCallMethod( items , "InsertItem", h,"","Child 2"),"","SubChild 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
563
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header (non-clickable)
OBJECT column,columns,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "HeaderAppearance", 4);
columns = _ObjectGetProperty( combobox , "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( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
562
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header
OBJECT column,columns,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "HeaderAppearance", 4);
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(32) = -1");
columns = _ObjectGetProperty( combobox , "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( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
64
|
Is there any way to get listed only visible items in the drop down filter window
OBJECT column,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( combobox , "LinesAtRoot", -1);
_ObjectCallMethod(combobox, "ExecuteTemplate", "Description(0) = ``");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Description(1) = ``");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Description(2) = ``");
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "P1");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 1);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "P2");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "R1");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h,1) = `R2`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(InsertItem(h,,`Cell 1.1`),1) = `Cell 1.2`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(InsertItem(h,,`Cell 2.1`),1) = `Cell 2.2`");
|
|
404
|
Is there any way to display the vertical scroll bar on the left side, as I want to align my data to the right
OBJECT columns,combobox;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
columns = _ObjectGetProperty( combobox , "Columns");
_ObjectCallMethod( columns , "Add", "C1");
_ObjectCallMethod( columns , "Add", "C2");
_ObjectCallMethod( columns , "Add", "C3");
_ObjectCallMethod( columns , "Add", "C4");
_ObjectCallMethod( columns , "Add", "C5");
_ObjectCallMethod( columns , "Add", "C6");
_ObjectCallMethod( columns , "Add", "C7");
_ObjectCallMethod( columns , "Add", "C8");
_ObjectSetProperty( combobox , "RightToLeft", -1);
_ObjectCallMethod( combobox , "EndUpdate");
|
|
354
|
Is there any property to disable the popup/context menu being shown when the user does a right click in the control's label area
OBJECT combobox;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Default") , "AllowEditContextMenu", 0);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Items") , "AddItem", 0);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Items") , "AddItem", 1);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Items") , "AddItem", 2);
|
|
89
|
Is there any option to specify the height of the items, before adding them
OBJECT combobox;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( combobox , "DefaultItemHeight", 32);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Column");
_ObjectCallMethod( _ObjectGetProperty( combobox , "Items") , "AddItem", "One");
_ObjectCallMethod( _ObjectGetProperty( combobox , "Items") , "AddItem", "Two");
|
|
184
|
Is there any option to resize the column based on its data, captions
OBJECT combobox;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "A") , "WidthAutoResize", -1);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Items") , "AddItem", 0);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Items") , "AddItem", 1);
|
|
36
|
Is there any option to remove the tooltip when the cursor hovers the column's drop down filter window
OBJECT combobox;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Column") , "DisplayFilterButton", -1);
_ObjectCallMethod(combobox, "ExecuteTemplate", "Description(4) = ``");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Description(5) = ``");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Description(6) = ``");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Description(7) = ``");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Description(8) = ``");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Description(14) = ``");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Description(15) = ``");
|
|
26
|
Is there any option to make italic the column's header
OBJECT combobox;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Column 1") , "HeaderItalic", -1);
|
|
145
|
Is there any option to highligth the column from the cursor - point
OBJECT combobox;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( combobox , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(32) = 16777216");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "S") , "Width", 32);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Level 1") , "LevelKey", 1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Level 2") , "LevelKey", 1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Level 3") , "LevelKey", 1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "E1") , "Width", 32);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "E2") , "Width", 32);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "E3") , "Width", 32);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "E4") , "Width", 32);
|
|
366
|
Is there any option to display cells in uppercase
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "") , "ComputedField", "upper(%0)");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Chld 3");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
365
|
Is there any option to display cells in lowercase
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "") , "ComputedField", "lower(%0)");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Chld 3");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
361
|
Is there any option to change the fore color for cells or items that ends with a specified string
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "ConditionalFormats") , "Add", "%0 endwith '22'") , "ForeColor", 255);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1.22");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2.22");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
24
|
Is there any option to bold the column's header
OBJECT combobox;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Column 1") , "HeaderBold", -1);
|
|
323
|
Is there any option to align the header to the left and the data to the right
OBJECT column,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Left") , "Alignment", 0);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Right");
_ObjectSetProperty( column , "Alignment", 2);
_ObjectSetProperty( column , "HeaderAlignment", 2);
_ObjectSetProperty( column , "EditAlignment", 2);
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`left`),1) = `right`");
|
|
9
|
Is there any option to align the header to the left and the data to the right
OBJECT column,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Left") , "Alignment", 0);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Right");
_ObjectSetProperty( column , "Alignment", 2);
_ObjectSetProperty( column , "HeaderAlignment", 2);
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`left`),1) = `right`");
|
|
487
|
Is there any method to get only the matched items and not the items with his parent
OBJECT column,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "LinesAtRoot", -1);
_ObjectSetProperty( combobox , "FilterInclude", 4);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Column");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "C1|C2");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "R1");
_ObjectCallMethod( items , "InsertItem", h,"","C1");
_ObjectCallMethod( items , "InsertItem", h,"","C2");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "R2");
_ObjectCallMethod( items , "InsertItem", h,"","C1");
_ObjectCallMethod( items , "InsertItem", h,"","C2");
_ObjectCallMethod( combobox , "ApplyFilter");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
369
|
Is there any function to round the values base on the .5 value
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Number");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Round") , "ComputedField", "round(%0)");
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "-1.98");
_ObjectCallMethod( items , "AddItem", "0.99");
_ObjectCallMethod( items , "AddItem", "1.23");
_ObjectCallMethod( items , "AddItem", "2.34");
|
|
306
|
Is there any function to limit the height of the items when I display it using multiple lines
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( combobox , "ScrollBySingleLine", -1);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "C1");
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "C2");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Cell 1");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h,1) = `This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellSingleLine(h,1) = False");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ItemMaxHeight(h) = 48");
|
|
382
|
Is there any function to get the day of the year or number of days since January 1st
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Day since January 1st") , "ComputedField", "yearday(%0)");
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "1/11/2001 10:00:00 AM");
_ObjectCallMethod( items , "AddItem", "2/22/2002 11:00:00 AM");
_ObjectCallMethod( items , "AddItem", "3/13/2003 12:00:00 PM");
_ObjectCallMethod( items , "AddItem", "4/14/2004 1:00:00 PM");
|
|
139
|
Is there any function to get the control's data in your x-script format / template
OBJECT combobox;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Column");
_ObjectCallMethod( _ObjectGetProperty( combobox , "Items") , "AddItem", "ToTemplate()");
|
|
370
|
Is there any function to get largest number with no fraction part that is not greater than the value
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Number");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Floor") , "ComputedField", "floor(%0)");
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "-1.98");
_ObjectCallMethod( items , "AddItem", "0.99");
_ObjectCallMethod( items , "AddItem", "1.23");
_ObjectCallMethod( items , "AddItem", "2.34");
|
|
206
|
Is there any function to filter the control's data as I type, something like filter on type
OBJECT combobox,var_column;
combobox = ObjectByName("AN1") ;
var_Column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Filter");
var_column = var_Column;
_ObjectSetProperty( var_column , "FilterOnType", -1);
_ObjectSetProperty( var_column , "DisplayFilterButton", -1);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Items") , "AddItem", "Canada");
_ObjectCallMethod( _ObjectGetProperty( combobox , "Items") , "AddItem", "USA");
|
|
207
|
Is there any function to filter the control's data as I type, so the items being displayed include the typed characters
OBJECT combobox,var_column;
combobox = ObjectByName("AN1") ;
var_Column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Filter");
var_column = var_Column;
_ObjectSetProperty( var_column , "FilterOnType", -1);
_ObjectSetProperty( var_column , "DisplayFilterButton", -1);
_ObjectSetProperty( var_column , "AutoSearch", 1);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Items") , "AddItem", "Canada");
_ObjectCallMethod( _ObjectGetProperty( combobox , "Items") , "AddItem", "USA");
|
|
373
|
Is there any function to display currencies, or money formatted as in the control panel
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Number");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Currency") , "ComputedField", "currency(dbl(%0))");
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "1.23");
_ObjectCallMethod( items , "AddItem", "2.34");
_ObjectCallMethod( items , "AddItem", "10000.99");
|
|
188
|
Is there any function to assign any extra data to a column
OBJECT combobox;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Data") , "Data", "your extra data");
|
|
189
|
Is there any function to assign a key to a column instead using its name or capion
OBJECT combobox;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Data") , "Key", "DKey");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Columns.Item(`DKey`).Caption = `new caption`");
|
|
492
|
Is there a way to change the dropdown button arrow to something else ( theme, ebn )
OBJECT appearance,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
appearance = _ObjectGetProperty( combobox , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"XP:SCROLLBAR 1 6");
_ObjectCallMethod( appearance , "Add", 2,"XP:SCROLLBAR 1 7");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(4) = 16777216");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(5) = 33554432");
_ObjectSetProperty( combobox , "LinesAtRoot", -1);
_ObjectSetProperty( combobox , "Style", 2);
_ObjectSetProperty( combobox , "IntegralHeight", -1);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "P1");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
490
|
Is there a way to change the dropdown button arrow to something else ( solid color )
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(5) = 12500670");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(4) = 8421504");
_ObjectSetProperty( combobox , "LinesAtRoot", -1);
_ObjectSetProperty( combobox , "Style", 2);
_ObjectSetProperty( combobox , "IntegralHeight", -1);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "P1");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
491
|
Is there a way to change the dropdown button arrow to something else ( no visual theme )
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "UseVisualTheme", 1099);
_ObjectSetProperty( combobox , "LinesAtRoot", -1);
_ObjectSetProperty( combobox , "Style", 2);
_ObjectSetProperty( combobox , "IntegralHeight", -1);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "P1");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
495
|
Is there a way to change the dropdown button arrow to something else ( ebn, sample 3 )
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( combobox , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV" +
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" +
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" +
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" +
"BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" +
"GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhuZwJkYcoagiZ5+HQFRngmZh6h6Z5JnYfodCaCgGBcOpfBQBCAgA==");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(4) = 16777216");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(5) = 32567536");
_ObjectSetProperty( combobox , "LinesAtRoot", -1);
_ObjectSetProperty( combobox , "Style", 2);
_ObjectSetProperty( combobox , "IntegralHeight", -1);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "P1");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
494
|
Is there a way to change the dropdown button arrow to something else ( ebn, sample 2 )
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( combobox , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAAEhABKgCg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV" +
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" +
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" +
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/EeH5wiITwUkWMRsF4PYgEeaZ3gGYBoCWeICk6V5wnMf4FDCAAfAiYQgg4" +
"AYAmAWC7gIIYnm2fR/mEUYAF4GIFFEVBYgUYR4BCdoGmKSB6A+CAhDGBBfBiT4IlSdQ9A8WIWCeBJihgZgcg+YJoEIFYMiMSJWAaDZjhiGgogCIooG4QYMAIOQSDUPgi" +
"lONhIg6JI4GIK4LiQKJGDOFJgGMbJbDcDg5hYR4OCWCJyEyAQiCGChDheZBoDIYg3AMIJEVYQ4AnoZQ4mYeQmDsCJGmGNBwDQTQDEaAQcCYCZKGOHRDHgVgVh4J4phoD" +
"ISAaEYkGsNhNhMahVhyaJIFSDiuAIBIBCCaJ5mYe4VGGOhyHaBRInIPIRH2D5qkaIopCEOhCieBxjnqKoNgSapaj6OIsE+apOiWJBnkqYo6isKpqiGdIwCwKpWiaJIOl" +
"sHo8jIa4JFaTIomwOZuBeMgrmifpKgGbR6lAI4lEaM4ymYKIKCKEpfjqbI6kSHgnEmc5GnIOpfBQBCAg=");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(4) = 16777216");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(5) = 25198720");
_ObjectSetProperty( combobox , "LinesAtRoot", -1);
_ObjectSetProperty( combobox , "Style", 2);
_ObjectSetProperty( combobox , "IntegralHeight", -1);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "P1");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
493
|
Is there a way to change the dropdown button arrow to something else ( ebn, sample 1 )
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( combobox , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAAEhABFACg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV" +
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" +
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" +
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5dlqIh/k8SAFnofxgDgFZ8gGH5ShYCgmiCQgeA6AghAgr5/EyWBUhC" +
"BZPngZIvgaSpoHYEYBCEOAMnWCJGgiFgZgmYoIDiBw1iKSB+C4fQHhiRJjgyYoIlYJwXmOA56DqC5iAONIhg+S45AYNoQmGExqEYIJkgicZ2gsDRhG4ToSAgMZqFIOol" +
"EiHJzhWSIJGYUAZiWSBsi+EofEkGhiDaCIphSPIZmIcp2GoI4mkmDhGD4JwJgIPQkmcQwqHaCZKgmZI0h6ZwonCFIfmYKIch6IJMhoFh9ggXxIgydQZmjTR5iORhKEaB" +
"4PGAOgUkmD5KBiHItiaSwKHaE4CPuBoMVieJMmMH4qgofoIDsRx6jSZorksapGGUIoqiidJHi2RYKmSHIumEchAh2L5rFeWhUDqAxbBQSIxkeCwkjGMpOAsNpBH0Do3k" +
"UASAg");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(4) = 16777216");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(5) = 25198720");
_ObjectSetProperty( combobox , "LinesAtRoot", -1);
_ObjectSetProperty( combobox , "Style", 2);
_ObjectSetProperty( combobox , "IntegralHeight", -1);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "P1");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
389
|
Is there a function to display the number of days between two date including the number of hours
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Start") , "Width", 32);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "End");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Duration") , "ComputedField", "2:=((1:=int(0:= date(%1)-date(%0))) = 0 ? '' : str(=:1) + ' day(s)') + ( 3:=round(24*(=:0-floor(=:0))) ? (len(=:2) ? ' and ' : " +
"'') + =:3 + ' hour(s)' : '' )");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "1/11/2001");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h,1) = #1/14/2001#");
h = _ObjectCallMethod( items , "AddItem", "2/22/2002 12:00:00 PM");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h,1) = #3/14/2002 1:00:00 PM#");
h = _ObjectCallMethod( items , "AddItem", "3/13/2003");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h,1) = #4/11/2003 11:00:00 AM#");
|
|
388
|
Is there a function to display the number of days between two date including the number of hours
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Start");
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "End");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Duration") , "ComputedField", "^"D ^" + int(date(%1)-date(%0)) + ^" H ^" + round(24*(date(%1)-date(%0) - floor(date(%1)-date(%0))))");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "1/11/2001");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h,1) = #1/14/2001 11:00:00 PM#");
h = _ObjectCallMethod( items , "AddItem", "2/22/2002 12:00:00 PM");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h,1) = #3/14/2002 1:00:00 PM#");
h = _ObjectCallMethod( items , "AddItem", "3/13/2003");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h,1) = #4/11/2003 11:00:00 AM#");
|
|
425
|
Is it possible to specify the cell's value but still want to display some formatted text instead the value
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "MarkSearchColumn", 0);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Value");
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "FormatCell");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", 1);
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h,1) = 12");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.FormatCell(h,1) = `currency(value)`");
h = _ObjectCallMethod( items , "AddItem", "1/1/2001");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h,1) = #1/1/2001#");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaptionFormat(h,1) = 1");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.FormatCell(h,1) = `longdate(value) replace '2001' with '<b>2001</b>'`");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
429
|
Is it possible to specify an item being unsortable so its position won't be changed after sorting
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "TreeColumnIndex", -1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Numbers") , "SortType", 1);
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod( items , "AddItem", 1);
_ObjectCallMethod( items , "AddItem", 2);
_ObjectCallMethod( items , "AddItem", 3);
_ObjectCallMethod( items , "AddItem", 4);
h = _ObjectCallMethod( items , "AddItem", "top 3");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ItemPosition(h) = 3");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellHAlignment(h,0) = 2");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.SortableItem(h) = False");
_ObjectCallMethod( items , "SortChildren", 0,0,0);
_ObjectCallMethod( combobox , "EndUpdate");
|
|
523
|
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,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Col-1");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Col-2");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "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( combobox , "Items");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`Item A`),1) = `Sub-Item A`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`Item B`),1) = `Sub-Item B`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`Item C`),1) = `Sub-Item C`");
_ObjectSetProperty( combobox , "FilterBarFont", _ObjectGetProperty( combobox , "Font"));
_ObjectCallMethod(combobox, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080>` + value + `</fgcolor>``,Description(11))");
_ObjectSetProperty( combobox , "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( combobox , "FilterBarPromptVisible", 256);
column = _ObjectCallMethod(combobox, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item A|Item B");
column = _ObjectCallMethod(combobox, "ExecuteTemplate", "Columns.Item(1)");
_ObjectSetProperty( column , "FilterType", 3);
_ObjectSetProperty( column , "Filter", "*B");
_ObjectCallMethod( combobox , "ApplyFilter");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
522
|
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,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Col-1");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Col-2");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "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( combobox , "Items");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`Item A`),1) = `Sub-Item A`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`Item B`),1) = `Sub-Item B`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`Item C`),1) = `Sub-Item C`");
_ObjectSetProperty( combobox , "FilterBarFont", _ObjectGetProperty( combobox , "Font"));
_ObjectCallMethod(combobox, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080>` + value + `</fgcolor>``,Description(11))");
_ObjectSetProperty( combobox , "FilterBarCaption", "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`");
_ObjectSetProperty( combobox , "FilterBarPromptVisible", 256);
column = _ObjectCallMethod(combobox, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item A|Item B");
column = _ObjectCallMethod(combobox, "ExecuteTemplate", "Columns.Item(1)");
_ObjectSetProperty( column , "FilterType", 3);
_ObjectSetProperty( column , "Filter", "*B");
_ObjectCallMethod( combobox , "ApplyFilter");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
521
|
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,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Col-1");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Col-2");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "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( combobox , "Items");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`Item A`),1) = `Sub-Item A`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`Item B`),1) = `Sub-Item B`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`Item C`),1) = `Sub-Item C`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080>` + value + `</fgcolor>``,Description(11))");
_ObjectSetProperty( combobox , "FilterBarCaption", "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`");
_ObjectSetProperty( combobox , "FilterBarPromptVisible", 256);
column = _ObjectCallMethod(combobox, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item A|Item B");
column = _ObjectCallMethod(combobox, "ExecuteTemplate", "Columns.Item(1)");
_ObjectSetProperty( column , "FilterType", 3);
_ObjectSetProperty( column , "Filter", "*B");
_ObjectCallMethod( combobox , "ApplyFilter");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
564
|
Is it possible to show the filterbar on top of the rows
OBJECT column,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "FilterBarPromptVisible", 8192);
_ObjectSetProperty( combobox , "HeaderHeight", 24);
_ObjectSetProperty( combobox , "FilterBarHeight", _ObjectGetProperty( combobox , "HeaderHeight"));
_ObjectSetProperty( combobox , "HeaderAppearance", 1);
_ObjectSetProperty( combobox , "DrawGridLines", -1);
_ObjectSetProperty( combobox , "GridLineStyle", 512);
_ObjectSetProperty( combobox , "ColumnAutoResize", -1);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Column");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterType", 3);
_ObjectSetProperty( column , "Filter", "B*");
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "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(combobox, "TemplatePut", "Dim colObj")
_ObjectCallMethod(combobox, "TemplatePut", column)
_ObjectCallMethod(combobox, "ExecuteTemplate", "colObj.Def(0) = True");
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "A.1");
_ObjectCallMethod( items , "AddItem", "A.2");
_ObjectCallMethod( items , "AddItem", "B.1");
_ObjectCallMethod( items , "AddItem", "B.2");
_ObjectCallMethod( items , "AddItem", "B.3");
_ObjectCallMethod( items , "AddItem", "C");
_ObjectCallMethod( combobox , "ApplyFilter");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
508
|
Is it possible to show the close button only if there is a filter applied
OBJECT column,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "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( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( combobox , "FilterBarPromptVisible", 513);
_ObjectCallMethod( combobox , "EndUpdate");
|
|
509
|
Is it possible to prevent definitely showing the filter bar's close button
OBJECT column,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "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( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( combobox , "FilterBarPromptVisible", 1);
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(1) = -1");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
501
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)
OBJECT column,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "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( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( combobox , "FilterBarPromptVisible", 1);
_ObjectSetProperty( combobox , "FilterBarPromptPattern", "B");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
502
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)
OBJECT column,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "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( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( combobox , "FilterBarPromptPattern", "B");
_ObjectSetProperty( combobox , "FilterBarPromptVisible", 3);
column = _ObjectCallMethod(combobox, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item B");
_ObjectCallMethod( combobox , "ApplyFilter");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
500
|
Is it possible to prevent closing the control's filter bar, so it is always shown
OBJECT column,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "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( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( combobox , "FilterBarCaption", "len(value) = 0 ? `<fgcolor=808080>no filter` : value");
_ObjectSetProperty( combobox , "FilterBarPromptVisible", 2);
column = _ObjectCallMethod(combobox, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item B");
_ObjectCallMethod( combobox , "ApplyFilter");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
435
|
Is it possible to limit the height of the item while resizing
// InsertItem event - Occurs after a new item has been inserted to Items collection.
FUNCTION comboboxEvents_InsertItem(OBJECT combobox, INT Item)
_ObjectCallMethod(combobox, "TemplatePut", "Dim Item")
_ObjectCallMethod(combobox, "TemplatePut", Item)
_ObjectCallMethod(combobox, "ExecuteTemplate", "Items.ItemMinHeight(Item) = 18");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Items.ItemMaxHeight(Item) = 72");
END
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
ObjectAssociateEvents("comboboxEvents", combobox);
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "ItemsAllowSizing", -1);
_ObjectSetProperty( combobox , "ScrollBySingleLine", 0);
_ObjectSetProperty( combobox , "BackColorAlternate", 15790320);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Names");
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "Mantel");
_ObjectCallMethod( items , "AddItem", "Mechanik");
_ObjectCallMethod( items , "AddItem", "Motor");
_ObjectCallMethod( items , "AddItem", "Murks");
_ObjectCallMethod( items , "AddItem", "M rchen");
_ObjectCallMethod( items , "AddItem", "M hren");
_ObjectCallMethod( items , "AddItem", "M hle");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Columns.Item(0).SortOrder = 1");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
569
|
Is it possible to highlight the column's header once a filter is applied
OBJECT appearance,column,columns,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
appearance = _ObjectGetProperty( combobox , "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(combobox, "ExecuteTemplate", "Background(0) = 33488638");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(41) = 16843009");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(32) = -1");
_ObjectSetProperty( combobox , "HeaderHeight", 28);
_ObjectSetProperty( combobox , "DrawGridLines", -2);
_ObjectSetProperty( combobox , "HeaderVisible", 1);
columns = _ObjectGetProperty( combobox , "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( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h,1) = `Item 2`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h,2) = `Item 3`");
h = _ObjectCallMethod( items , "AddItem", "Item 4");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h,1) = `Item 5`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h,2) = `Item 6`");
_ObjectCallMethod( combobox , "ApplyFilter");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
566
|
Is it possible to hide the count of selected items, shown on the right side of the control's label (multiple-selection)
OBJECT columns,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "HeaderAppearance", 4);
_ObjectSetProperty( combobox , "Style", 2);
_ObjectSetProperty( combobox , "SingleSel", 0);
_ObjectSetProperty( combobox , "SingleEdit", -1);
_ObjectSetProperty( combobox , "LabelColumnIndex", 0);
_ObjectSetProperty( combobox , "SelBackColor", 16750899);
_ObjectSetProperty( combobox , "SelForeColor", 16777215);
_ObjectSetProperty( combobox , "LabelText", " ");
columns = _ObjectGetProperty( combobox , "Columns");
_ObjectCallMethod( columns , "Add", "Column");
_ObjectCallMethod( columns , "Add", "Sub-Column");
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`Item 1`),1) = `SubItem 1.1`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`Item 2`),1) = `SubItem 2.1`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`Item 3`),1) = `SubItem 3.1`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`Item 4`),1) = `SubItem 4.1`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(1)) = True");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(3)) = True");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
481
|
Is it possible to have a CheckBox and Button TOGETHER on all cells in a column
// CellButtonClick event - Fired after the user clicks on the cell of button type.
FUNCTION comboboxEvents_CellButtonClick(OBJECT combobox, INT Item)
Message( "CellButtonClick" );
Message( Item );
Message( _ObjectCallMethod(combobox, "ExecuteTemplate", "Key()") );
END
// CellStateChanged event - Fired after cell's state has been changed.
FUNCTION comboboxEvents_CellStateChanged(OBJECT combobox, INT Item)
Message( "CellStateChanged" );
Message( Item );
Message( _ObjectCallMethod(combobox, "ExecuteTemplate", "Key()") );
END
OBJECT column,combobox,items;
combobox = ObjectByName("AN1") ;
ObjectAssociateEvents("comboboxEvents", combobox);
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "SingleEdit", -1);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 index ``");
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Def");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 48);
_ObjectSetProperty( column , "FormatColumn", "` `");
_ObjectCallMethod(combobox, "TemplatePut", "Dim colObj")
_ObjectCallMethod(combobox, "TemplatePut", column)
_ObjectCallMethod(combobox, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(combobox, "ExecuteTemplate", "colObj.Def(2) = True");
_ObjectCallMethod(combobox, "ExecuteTemplate", "colObj.Def(3) = True");
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "");
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
436
|
Is it possible to format numbers
OBJECT column,columns,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "MarkSearchColumn", 0);
columns = _ObjectGetProperty( combobox , "Columns");
_ObjectCallMethod( columns , "Add", "Name");
column = _ObjectCallMethod( columns , "Add", "A");
_ObjectSetProperty( column , "SortType", 1);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "FormatColumn", "len(value) ? value + ' +'");
column = _ObjectCallMethod( columns , "Add", "B");
_ObjectSetProperty( column , "SortType", 1);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "FormatColumn", "len(value) ? value + ' +'");
column = _ObjectCallMethod( columns , "Add", "C");
_ObjectSetProperty( column , "SortType", 1);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "FormatColumn", "len(value) ? value + ' ='");
column = _ObjectCallMethod( columns , "Add", "A+B+C");
_ObjectSetProperty( column , "SortType", 1);
_ObjectSetProperty( column , "Width", 64);
_ObjectSetProperty( column , "ComputedField", "dbl(%1)+dbl(%2)+dbl(%3)");
_ObjectSetProperty( column , "FormatColumn", "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00" +
"00FF>+'+(value format '2|.|3|,' ): '0.00') )");
_ObjectCallMethod(combobox, "TemplatePut", "Dim colObj")
_ObjectCallMethod(combobox, "TemplatePut", column)
_ObjectCallMethod(combobox, "ExecuteTemplate", "colObj.Def(17) = 1");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaptionFormat(h,4) = 2");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h1)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 7");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 3");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = 1");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = -2");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = -2");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = -4");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 2");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 2");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = -4");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
460
|
Is it possible to filter the items as I type
// EditChange event - Fired when the user has taken an action that may have altered text in an edit control.
FUNCTION comboboxEvents_EditChange(OBJECT combobox, INT ColIndex)
_ObjectCallMethod(combobox, "ExecuteTemplate", "Columns.Item(0).Filter = Me.EditText(0)");
_ObjectCallMethod( combobox , "ApplyFilter");
END
OBJECT column,columns,combobox,items;
combobox = ObjectByName("AN1") ;
ObjectAssociateEvents("comboboxEvents", combobox);
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "MarkSearchColumn", 0);
_ObjectSetProperty( combobox , "SingleEdit", -1);
_ObjectSetProperty( combobox , "AutoComplete", 0);
_ObjectSetProperty( combobox , "AutoDropDown", -1);
_ObjectSetProperty( combobox , "IntegralHeight", -1);
columns = _ObjectGetProperty( combobox , "Columns");
column = _ObjectCallMethod( columns , "Add", "Items");
_ObjectSetProperty( column , "Prompt", "<i><fgcolor=808080>Start Filter</fgcolor></i>");
_ObjectSetProperty( column , "FilterType", 3);
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "A");
_ObjectCallMethod( items , "AddItem", "B");
_ObjectCallMethod( items , "AddItem", "C");
_ObjectCallMethod( items , "AddItem", "AB");
_ObjectCallMethod( items , "AddItem", "AC");
_ObjectCallMethod( items , "AddItem", "BA");
_ObjectCallMethod( items , "AddItem", "BC");
_ObjectCallMethod( items , "AddItem", "CC");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
437
|
Is it possible to display the numbers using 3 (three) digits
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Columns.Add(`Def`).Def(17) = 1");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", 100.27);
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '') + ' <fgcolor=808080>(default)'`");
h = _ObjectCallMethod( items , "AddItem", 100.27);
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '3') + ' <fgcolor=808080>(3 digits)'`");
h = _ObjectCallMethod( items , "AddItem", 100.27);
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format 2) + ' <fgcolor=808080>(2 digits)'`");
h = _ObjectCallMethod( items , "AddItem", 100.27);
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format 1) + ' <fgcolor=808080>(1 digit)'`");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
552
|
Is it possible to configure different colour/icon when there is a active filter
// FilterChange event - Occurs when filter was changed.
FUNCTION comboboxEvents_FilterChange()
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(0) = FormatABC(`value = 0 ? 0x1000001 : 0x10000FF `,Columns.Item(0).FilterType)");
END
OBJECT appearance,column,combobox,items;
combobox = ObjectByName("AN1") ;
ObjectAssociateEvents("comboboxEvents", combobox);
_ObjectCallMethod( combobox , "BeginUpdate");
appearance = _ObjectGetProperty( combobox , "VisualAppearance");
_ObjectSetProperty( appearance , "RenderType", -16777216);
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" +
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" +
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA");
_ObjectSetProperty( combobox , "DrawGridLines", -1);
_ObjectSetProperty( combobox , "ShowFocusRect", 0);
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(0) = 16777217");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(32) = -1");
_ObjectSetProperty( combobox , "HeaderAppearance", 4);
_ObjectSetProperty( combobox , "HeaderVisible", 1);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Filter");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "AllowDragging", 0);
_ObjectSetProperty( column , "FilterList", 256);
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
column = _ObjectCallMethod(combobox, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "Filter", "Item B");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectCallMethod( combobox , "ApplyFilter");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
579
|
Is it possible to Click or Double Click on any area of the combo to force the dropdown list to open
// Click event - Occurs when the user presses and then releases the left mouse button over the list control.
FUNCTION comboboxEvents_Click()
Message( _ObjectCallMethod(combobox, "ExecuteTemplate", "DropDown()") );
_ObjectCallMethod(combobox, "ExecuteTemplate", "DropDown() = True");
END
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
ObjectAssociateEvents("comboboxEvents", combobox);
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "LinesAtRoot", -1);
_ObjectSetProperty( combobox , "Style", 2);
_ObjectSetProperty( combobox , "IntegralHeight", -1);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "P1");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
532
|
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,combobox;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "HeaderAppearance", 4);
columns = _ObjectGetProperty( combobox , "Columns");
_ObjectCallMethod( columns , "Add", "Column 1");
_ObjectCallMethod( columns , "Add", "Column 2");
_ObjectCallMethod( columns , "Add", "Column 3");
appearance = _ObjectGetProperty( combobox , "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(combobox, "ExecuteTemplate", "Background(182) = 33554432");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
572
|
Is it possible to change the visual appearance of the drop down button (method 3, theme)
OBJECT combobox;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( combobox , "VisualAppearance") , "Add", 1,"XP: COMBOBOX 1 1");
_ObjectCallMethod( _ObjectGetProperty( combobox , "VisualAppearance") , "Add", 2,"XP: COMBOBOX 1 3");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(4) = 16777216");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(5) = 33554432");
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Default");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
571
|
Is it possible to change the visual appearance of the drop down button (method 2, ebn)
OBJECT combobox;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( combobox , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAAEhABKYCg6AADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSKUOQTDKMIziYBYJhEMwwDhEIwjGKsIhsGIbJAGQBJCjWGodQLOEgzN" +
"C0IxNFCQILhEZJADKII8TTOU5UPRESwTE4cKBmKhQCo2NpKR7VUTxCKQahLLivoCjBT8EzHMqtIzrCA6MpaP4pQjKcqwTJ8YyHEi0ZrjazKaj6T5AXDUcaWbbNVx3PK3" +
"aioOpLZrqOZZYzYFoRFYNTTJMTLcZifBsEoib4qSxMVaDPQWNT3CTIMQve4IEyGQ6jDDVOjYfqmDzTPAALLFUaNYzoOKyABMHATBIXAY7BIIOQ1HgHNBwJAAczzcTSBI" +
"ABECQoBoTBnEOKZIkuJYFEMCBElgXBoG0CQUHKIB8huYBiDUEYtAkA4Ol+D5PmWdJ7nyHh/iKCQ8iYWwWkWY5aAIfgfFgFgEgGXxoCSbR+g8N5wFMCABnCDgQAiX54AY" +
"A4CiCCAaBgfhfjedgTBgBZhggVQVEWCBOBWAIPGgZgqgcIJYHoEQYEWcYMniDJPFOUJ1giYhYEYJ8siidgMgOIQ4kIMoMmASJWDeCQiGgAgogYY54jgI4QiMM5iCsOxk" +
"GiYhJgWIoYjIQILmMGRGAQNpNjMcJjhiZBYloVoOiSKAKCAGIkBkdhEgKJgDHAMgMEMcJkDgD4mDODhlhGY4QgwbgbEcAxElANBnnGQhehwJgZkwN4EmEOZaHiGQgikG" +
"BpBoRozGSWS5jmRoKgSSJiDiEAgEgEgOg2HZnhkTgZiaJxIEyDwjkkF5Qn6K5qAqCgRiOKhYG4PYqCiOBGiuKxrGqPJ+iwag6D4eotiuCoqiyKYfCqepAiyahKECbYxG" +
"uKwejaFJsiqBpBh4YRbBqPIPGyCAWlWLICDoTBrDsLhCgiIgpC2W4mkmK5JmIdIfDwbwDi2bxAlAECAg=");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(4) = 32567536");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(5) = 23488102");
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Default");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
570
|
Is it possible to change the visual appearance of the drop down button (method 1, no visual theme)
OBJECT combobox;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "UseVisualTheme", 0);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Default");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
463
|
Is it possible to change the height for all items at once
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "LinesAtRoot", -1);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Items");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(0) = True");
_ObjectCallMethod( combobox , "EndUpdate");
_ObjectSetProperty( combobox , "DefaultItemHeight", 12);
_ObjectCallMethod(combobox, "ExecuteTemplate", "Items.ItemHeight(0) = 12");
|
|
440
|
Is it possible to change the grouping character when display numbers
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Columns.Add(`Def`).Def(17) = 1");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", 100000.27);
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '') + ' <fgcolor=808080>(default)'`");
h = _ObjectCallMethod( items , "AddItem", 100000.27);
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '|||-') + ' <fgcolor=808080>(grouping character is -)'`");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
520
|
Is it possible to automatically displays the control's filter label to the right
OBJECT column,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Item");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "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( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( combobox , "FilterBarCaption", "`<r>` + value");
_ObjectSetProperty( combobox , "FilterBarPromptVisible", 1280);
column = _ObjectCallMethod(combobox, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item B");
_ObjectCallMethod( combobox , "ApplyFilter");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
450
|
Is it possible to auto-numbering the children items too
OBJECT column,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "LinesAtRoot", -1);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Items");
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Pos.1");
_ObjectSetProperty( column , "FormatColumn", "1 rpos ''");
_ObjectSetProperty( column , "Position", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "AllowSizing", 0);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Pos.2");
_ObjectSetProperty( column , "FormatColumn", "1 rpos ':'");
_ObjectSetProperty( column , "Position", 1);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "AllowSizing", 0);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Pos.3");
_ObjectSetProperty( column , "FormatColumn", "1 rpos ':|A-Z'");
_ObjectSetProperty( column , "Position", 2);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "AllowSizing", 0);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Pos.4");
_ObjectSetProperty( column , "FormatColumn", "1 rpos '|A-Z|'");
_ObjectSetProperty( column , "Position", 3);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "AllowSizing", 0);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Pos.5");
_ObjectSetProperty( column , "FormatColumn", "'<font Tahoma;7>' + 1 rpos '-<b>||A-Z'");
_ObjectCallMethod(combobox, "TemplatePut", "Dim colObj")
_ObjectCallMethod(combobox, "TemplatePut", column)
_ObjectCallMethod(combobox, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "Position", 4);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "AllowSizing", 0);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Pos.6");
_ObjectSetProperty( column , "FormatColumn", "'<b>'+ 1 rpos '</b>:<fgcolor=FF0000>|A-Z|'");
_ObjectCallMethod(combobox, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "Position", 5);
_ObjectSetProperty( column , "Width", 48);
_ObjectSetProperty( column , "AllowSizing", 0);
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
452
|
Is it possible to auto-numbering the children items but still keeps the position after filtering
OBJECT column,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Child 2");
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Pos.1");
_ObjectSetProperty( column , "FormatColumn", "1 ropos ''");
_ObjectSetProperty( column , "Position", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "AllowSizing", 0);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Pos.2");
_ObjectSetProperty( column , "FormatColumn", "1 ropos ':'");
_ObjectSetProperty( column , "Position", 1);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "AllowSizing", 0);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Pos.3");
_ObjectSetProperty( column , "FormatColumn", "1 ropos ':|A-Z'");
_ObjectSetProperty( column , "Position", 2);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "AllowSizing", 0);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Pos.4");
_ObjectSetProperty( column , "FormatColumn", "1 ropos '|A-Z|'");
_ObjectSetProperty( column , "Position", 3);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "AllowSizing", 0);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Pos.5");
_ObjectSetProperty( column , "FormatColumn", "'<font Tahoma;7>' + 1 ropos '-<b>||A-Z'");
_ObjectCallMethod(combobox, "TemplatePut", "Dim colObj")
_ObjectCallMethod(combobox, "TemplatePut", column)
_ObjectCallMethod(combobox, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "Position", 4);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "AllowSizing", 0);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Pos.6");
_ObjectSetProperty( column , "FormatColumn", "'<b>'+ 1 ropos '</b>:<fgcolor=FF0000>|A-Z|'");
_ObjectCallMethod(combobox, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "Position", 5);
_ObjectSetProperty( column , "Width", 48);
_ObjectSetProperty( column , "AllowSizing", 0);
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( combobox , "ApplyFilter");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
442
|
Is it possible to add a 0 for numbers less than 1 instead .7 to show 0.8
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Columns.Add(`Def`).Def(17) = 1");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", 0.27);
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '') + ' <fgcolor=808080>(default)'`");
h = _ObjectCallMethod( items , "AddItem", 0.27);
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '|||||0') + ' <fgcolor=808080>(Display no leading zeros)'`");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
443
|
Is it possible display numbers in the same format no matter of regional settings in the control panel
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Columns.Add(`Def`).Def(17) = 1");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", 100000.27);
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '') + ' <fgcolor=808080>(default positive)'`");
h = _ObjectCallMethod( items , "AddItem", 100000.27);
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '2|.|3|,|1|1')`");
h = _ObjectCallMethod( items , "AddItem", -100000.27);
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '') + ' <fgcolor=808080>(default negative)'`");
h = _ObjectCallMethod( items , "AddItem", -100000.27);
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '2|.|3|,|1|1')`");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
576
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
// AddColumn event - Fired after a new column has been added.
FUNCTION comboboxEvents_AddColumn(OBJECT combobox, OBJECT Column)
' Column.Def(48) = 2
' Column.Def(49) = 2
END
OBJECT appearance,column,combobox,items;
combobox = ObjectByName("AN1") ;
ObjectAssociateEvents("comboboxEvents", combobox);
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "ImageSize", 32);
_ObjectSetProperty( combobox , "LabelHeight", 36);
_ObjectSetProperty( combobox , "DefaultItemHeight", 36);
_ObjectSetProperty( combobox , "HeaderHeight", _ObjectGetProperty( combobox , "DefaultItemHeight"));
_ObjectSetProperty( combobox , "SortBarHeight", _ObjectGetProperty( combobox , "DefaultItemHeight"));
_ObjectSetProperty( _ObjectGetProperty( combobox , "Font") , "Size", 16);
_ObjectSetProperty( _ObjectGetProperty( combobox , "FilterBarFont") , "Size", _ObjectGetProperty( _ObjectGetProperty( combobox , "Font") , "Size"));
_ObjectSetProperty( _ObjectGetProperty( combobox , "ToolTipFont") , "Size", _ObjectGetProperty( _ObjectGetProperty( combobox , "Font") , "Size"));
_ObjectSetProperty( combobox , "Indent", 26);
_ObjectCallMethod( combobox , "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( combobox , "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( combobox , "HeaderBackColor", 80135878);
_ObjectSetProperty( combobox , "SelBackColor", 67108864);
_ObjectSetProperty( combobox , "SelForeColor", 65536);
_ObjectCallMethod(combobox, "ExecuteTemplate", "CheckImage(0) = 16777216");
_ObjectCallMethod(combobox, "ExecuteTemplate", "CheckImage(1) = 33554432");
_ObjectCallMethod(combobox, "ExecuteTemplate", "CheckImage(2) = 50331648");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(20) = SelBackColor");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(21) = SelForeColor");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(26) = BackColor");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(27) = ForeColor");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(32) = -1");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(0) = 67108864");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(41) = 67174657");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(1) = 67109119");
_ObjectSetProperty( combobox , "HeaderAppearance", 4);
_ObjectSetProperty( combobox , "ShowFocusRect", 0);
_ObjectSetProperty( combobox , "SortBarVisible", -1);
_ObjectSetProperty( combobox , "BackColorSortBar", _ObjectGetProperty( combobox , "BackColor"));
_ObjectSetProperty( combobox , "BackColorLevelHeader", _ObjectGetProperty( combobox , "BackColor"));
_ObjectSetProperty( combobox , "FilterBarDropDownHeight", 1);
_ObjectSetProperty( combobox , "IntegralHeight", -1);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Check");
_ObjectCallMethod(combobox, "TemplatePut", "Dim colObj")
_ObjectCallMethod(combobox, "TemplatePut", column)
_ObjectCallMethod(combobox, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectSetProperty( column , "Width", 128);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 256);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "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( combobox , "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( combobox , "Columns") , "Add", "Images");
_ObjectCallMethod(combobox, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Width", 196);
_ObjectSetProperty( column , "HTMLCaption", "<img>1</img><img>2</img><img>3</img> Images");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Columns.Item(`Pos`).Position = 3");
items = _ObjectGetProperty( combobox , "Items");
hR = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,hR")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", hR)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ItemDivider(hR) = 0");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ItemDividerLine(hR) = 0");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Child A");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellImage(h,2) = 1");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellImages(h,3) = `1,2,3`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h,3) = `123`");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Child B");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellImage(h,2) = 3");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellImages(h,3) = `2,3,1`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h,3) = `231`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Child C");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellImage(h,2) = 2");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellState(h,3) = 1");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h,3) = `312`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellImages(h,3) = `3,1,2`");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,hR")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", hR)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(hR) = True");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
575
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
// AddColumn event - Fired after a new column has been added.
FUNCTION comboboxEvents_AddColumn(OBJECT combobox, OBJECT Column)
' Column.Def(48) = 2
' Column.Def(49) = 2
END
OBJECT appearance,column,combobox,items;
combobox = ObjectByName("AN1") ;
ObjectAssociateEvents("comboboxEvents", combobox);
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "ImageSize", 16);
_ObjectCallMethod( combobox , "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( combobox , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==");
_ObjectSetProperty( combobox , "HeaderBackColor", 80135878);
_ObjectSetProperty( combobox , "SelBackColor", 67108864);
_ObjectSetProperty( combobox , "SelForeColor", 65536);
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(20) = SelBackColor");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(21) = SelForeColor");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(26) = BackColor");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(27) = ForeColor");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(32) = -1");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(0) = 67108864");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(41) = 67174657");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Background(1) = 67109119");
_ObjectSetProperty( combobox , "HeaderAppearance", 4);
_ObjectSetProperty( combobox , "ShowFocusRect", 0);
_ObjectSetProperty( combobox , "SortBarVisible", -1);
_ObjectSetProperty( combobox , "BackColorSortBar", _ObjectGetProperty( combobox , "BackColor"));
_ObjectSetProperty( combobox , "BackColorLevelHeader", _ObjectGetProperty( combobox , "BackColor"));
_ObjectSetProperty( combobox , "FilterBarDropDownHeight", 1);
_ObjectSetProperty( combobox , "IntegralHeight", -1);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Check");
_ObjectCallMethod(combobox, "TemplatePut", "Dim colObj")
_ObjectCallMethod(combobox, "TemplatePut", column)
_ObjectCallMethod(combobox, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectSetProperty( column , "Width", 128);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 256);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "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( combobox , "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( combobox , "Columns") , "Add", "Images");
_ObjectCallMethod(combobox, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Width", 196);
_ObjectSetProperty( column , "HTMLCaption", "<img>1</img><img>2</img><img>3</img> Images");
_ObjectCallMethod(combobox, "ExecuteTemplate", "Columns.Item(`Pos`).Position = 3");
items = _ObjectGetProperty( combobox , "Items");
hR = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,hR")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", hR)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ItemDivider(hR) = 0");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ItemDividerLine(hR) = 0");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Child A");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellImage(h,2) = 1");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellImages(h,3) = `1,2,3`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h,3) = `123`");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Child B");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellImage(h,2) = 3");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellImages(h,3) = `2,3,1`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h,3) = `231`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Child C");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellImage(h,2) = 2");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellState(h,3) = 1");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(h,3) = `312`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellImages(h,3) = `3,1,2`");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,hR")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", hR)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(hR) = True");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
471
|
If the user selects an item from the list, how can I clear that selection and return the control to the unselected state with the PROMPT text
// DropUp event - Occurs when the drop-down portion of the control is hidden.
FUNCTION comboboxEvents_DropUp()
_ObjectCallMethod(combobox, "ExecuteTemplate", "EditText(0) = ``");
END
// SelectionChanged event - Fired after a new item has been selected.
FUNCTION comboboxEvents_SelectionChanged()
Message( "You selected: " );
Message( _ObjectGetProperty( combobox , "Value") );
END
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
ObjectAssociateEvents("comboboxEvents", combobox);
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "LabelHeight", 23);
_ObjectSetProperty( combobox , "IntegralHeight", -1);
_ObjectSetProperty( combobox , "AutoComplete", 0);
_ObjectSetProperty( combobox , "AutoSearch", 0);
_ObjectSetProperty( combobox , "AutoDropDown", -1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Default") , "Prompt", "<i><fgcolor=808080>type something</fgcolor></i>");
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod( items , "AddItem", 0);
_ObjectCallMethod( items , "AddItem", 1);
_ObjectCallMethod( items , "AddItem", 2);
_ObjectCallMethod( combobox , "EndUpdate");
|
|
598
|
I want to fix/lock the first item in the control
// Click event - Occurs when the user presses and then releases the left mouse button over the list control.
FUNCTION comboboxEvents_Click()
_ObjectCallMethod(combobox, "TemplatePut", "Dim c,hit")
_ObjectCallMethod(combobox, "TemplatePut", c)
_ObjectCallMethod(combobox, "TemplatePut", hit)
i = _ObjectCallMethod(combobox, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)");
_ObjectCallMethod(combobox, "TemplatePut", "Dim _ObObj,i")
_ObjectCallMethod(combobox, "TemplatePut", _ObjectGetProperty( combobox , "Items"))
_ObjectCallMethod(combobox, "TemplatePut", i)
_ObjectSetProperty( combobox , "LabelText", _ObjectCallMethod(combobox, "ExecuteTemplate", "_ObObj.CellCaption(i,0)"));
_ObjectCallMethod(combobox, "ExecuteTemplate", "DropDown() = False");
END
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
ObjectAssociateEvents("comboboxEvents", combobox);
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "SearchColumnIndex", -1);
_ObjectSetProperty( combobox , "AdjustSearchColumn", 0);
_ObjectSetProperty( combobox , "SingleEdit", -1);
_ObjectSetProperty( combobox , "Style", 2);
_ObjectSetProperty( combobox , "HeaderVisible", 0);
_ObjectSetProperty( combobox , "IntegralHeight", -1);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Default");
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 1");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(LockedItem(0,0),0) = `(no assignment)`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ItemBackColor(LockedItem(0,0)) = 65535");
_ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod( items , "AddItem", "Item 3");
_ObjectCallMethod( combobox , "PutItems", _ObjectCallMethod( combobox , "GetItems", ""));
_ObjectCallMethod( combobox , "EndUpdate");
|
|
162
|
I need to add a button in the scroll bar. Is this possible
OBJECT combobox;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod(combobox, "ExecuteTemplate", "ScrollPartVisible(1,32768) = True");
_ObjectCallMethod(combobox, "ExecuteTemplate", "ScrollPartCaption(1,32768) = `1`");
|
|
411
|
I need a combobox that supports selecting multiple items, preferably with checkboxes. I can't find an example of how to do this. Does your control support it
// CellStateChanged event - Fired after cell's state has been changed.
FUNCTION comboboxEvents_CellStateChanged(OBJECT combobox, INT Cell)
_ObjectSetProperty( combobox , "LabelText", Cell);
_ObjectCallMethod(combobox, "TemplatePut", "Dim _ObObj,Cell")
_ObjectCallMethod(combobox, "TemplatePut", _ObjectGetProperty( combobox , "Items"))
_ObjectCallMethod(combobox, "TemplatePut", Cell)
Message( _ObjectCallMethod(combobox, "ExecuteTemplate", "_ObObj.CellCaption(0,Cell)") );
Message( _ObjectCallMethod(combobox, "ExecuteTemplate", "_ObObj.CellState(0,Cell)") );
END
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
ObjectAssociateEvents("comboboxEvents", combobox);
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "Style", 2);
_ObjectSetProperty( combobox , "IntegralHeight", -1);
_ObjectSetProperty( combobox , "HeaderVisible", 0);
_ObjectSetProperty( combobox , "SingleEdit", -1);
_ObjectSetProperty( combobox , "SearchColumnIndex", -1);
_ObjectSetProperty( combobox , "AdjustSearchColumn", 0);
_ObjectCallMethod(combobox, "ExecuteTemplate", "Columns.Add(`Language`).Def(0) = True");
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod( items , "AddItem", "English");
_ObjectCallMethod( items , "AddItem", "Hebrew");
_ObjectCallMethod( items , "AddItem", "Spanish");
_ObjectCallMethod( combobox , "EndUpdate");
|
|
326
|
I have multiple columns, how can I display a single edit in the control's label
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( combobox , "SingleEdit", -1);
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Column 1");
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Column 2");
items = _ObjectGetProperty( combobox , "Items");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`Item 1`),1) = `SubItem 1`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`Item 2`),1) = `SubItem 2`");
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`Item 3`),1) = `SubItem 3`");
|
|
255
|
I have a hierarchy, how can I count the number of root items
OBJECT combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Default");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "AddItem", _ObjectGetProperty( items , "RootCount"));
|
|
67
|
I have a hierarchy and I need to filter only root items that match, without thier childs
OBJECT column,combobox,items;
combobox = ObjectByName("AN1") ;
_ObjectSetProperty( combobox , "LinesAtRoot", -1);
_ObjectSetProperty( combobox , "FilterInclude", 2);
column = _ObjectCallMethod( _ObjectGetProperty( combobox , "Columns") , "Add", "Column");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "R1");
items = _ObjectGetProperty( combobox , "Items");
h = _ObjectCallMethod( items , "AddItem", "R1");
_ObjectCallMethod( items , "InsertItem", h,"","C1");
_ObjectCallMethod( items , "InsertItem", h,"","C2");
_ObjectCallMethod(combobox, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(combobox, "TemplatePut", items)
_ObjectCallMethod(combobox, "TemplatePut", h)
_ObjectCallMethod(combobox, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "R2");
_ObjectCallMethod( items , "InsertItem", h,"","C1");
_ObjectCallMethod( items , "InsertItem", h,"","C2");
_ObjectCallMethod( combobox , "ApplyFilter");
|