|
305
|
Why I cannot center my cells in the column
Dim oComboBox as P
Dim var_Column as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.TreeColumnIndex = -1
oComboBox.DrawGridLines = -2
' oComboBox.Columns.Add("Default").Alignment = 1
var_Column = oComboBox.Columns.Add("Default")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Alignment = 1"
oComboBox.Items.AddItem("item 1")
oComboBox.Items.AddItem("item 2")
oComboBox.Items.AddItem("item 3")
|
|
23
|
Why child items are not shown
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.LinesAtRoot = -1
oComboBox.Columns.Add("Column 1")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
|
|
551
|
Why can t I type free text into a DropDown style combobox
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.AutoComplete = .f.
oComboBox.IntegralHeight = .t.
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
|
|
456
|
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
var_Items.AddItem("A")
var_Items.AddItem("B")
var_Items.AddItem("C")
var_Items.AddItem("D")
oComboBox.Template = "Select(0) = `C`" // oComboBox.Select(0) = "C"
|
|
458
|
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
var_Items.AddItem("A")
var_Items.AddItem("B")
var_Items.AddItem("C")
var_Items.AddItem("D")
oComboBox.Template = "EditText(0) = Me.Items.CellCaption(Me.Items.ItemByIndex(2),0)" // oComboBox.EditText(0) = oComboBox.Items.CellCaption(oComboBox.Items.ItemByIndex(2),0)
|
|
459
|
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
var_Items.AddItem("A")
var_Items.AddItem("B")
var_Items.AddItem("C")
var_Items.AddItem("D")
oComboBox.Template = "EditText(0) = `C`" // oComboBox.EditText(0) = "C"
|
|
457
|
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
var_Items.AddItem("A")
var_Items.AddItem("B")
var_Items.AddItem("C")
var_Items.AddItem("D")
oComboBox.Template = "Select(0) = Me.Items.CellCaption(Me.Items.ItemByIndex(2),0)" // oComboBox.Select(0) = oComboBox.Items.CellCaption(oComboBox.Items.ItemByIndex(2),0)
|
|
383
|
What about a function to get the day in the week, or days since Sunday
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Date")
' oComboBox.Columns.Add("WeekDay").ComputedField = "weekday(%0)"
var_Column = oComboBox.Columns.Add("WeekDay")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.ComputedField = `weekday(%0)`"
var_Items = oComboBox.Items
var_Items.AddItem({01/11/2001 10:00:00})
var_Items.AddItem({02/22/2002 11:00:00})
var_Items.AddItem({03/13/2003 12:00:00})
var_Items.AddItem({04/14/2004 13:00:00})
|
|
538
|
Type of wraps the cell's caption support (Sample 2)
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Columns as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.HeaderSingleLine = .f.
oComboBox.HeaderHeight = 36
oComboBox.DrawGridLines = -2
oComboBox.ColumnAutoResize = .f.
oComboBox.ScrollBySingleLine = .t.
var_Columns = oComboBox.Columns
var_Column = var_Columns.Add("Single-Line (exCaptionSingleLine)")
var_Column.Width = 96
' var_Column.Def(17) = 1
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(17) = 1"
' var_Column.Def(16) = -1
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(16) = -1"
var_Column1 = var_Columns.Add("Word-Wrap (exCaptionWordWrap)")
var_Column1.Width = 96
' var_Column1.Def(17) = 1
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.Def(17) = 1"
' var_Column1.Def(16) = 0
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.Def(16) = 0"
var_Column1.FormatColumn = "%0"
var_Column2 = var_Columns.Add("Break-Wrap (exCaptionBreakWrap)")
var_Column2.Width = 96
' var_Column2.Def(17) = 1
oComboBox.TemplateDef = "dim var_Column2"
oComboBox.TemplateDef = var_Column2
oComboBox.Template = "var_Column2.Def(17) = 1"
' var_Column2.Def(16) = 1
oComboBox.TemplateDef = "dim var_Column2"
oComboBox.TemplateDef = var_Column2
oComboBox.Template = "var_Column2.Def(16) = 1"
var_Column2.FormatColumn = "%0"
var_Items = oComboBox.Items
var_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.")
var_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.")
oComboBox.EndUpdate()
|
|
537
|
Type of wraps the cell's caption support (Sample 1)
Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.HeaderSingleLine = .f.
oComboBox.HeaderHeight = 36
oComboBox.DrawGridLines = -2
oComboBox.ColumnAutoResize = .f.
oComboBox.ScrollBySingleLine = .t.
' oComboBox.Columns.Add("Default").Width = 128
var_Column = oComboBox.Columns.Add("Default")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Width = 128"
var_Items = oComboBox.Items
h = var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
h = var_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.")
' var_Items.CellCaptionFormat(h,0) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaptionFormat(h,0) = 1"
h = var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
' var_Items.CellSingleLine(h,0) = 0
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellSingleLine(h,0) = 0"
h = var_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.")
' var_Items.CellCaptionFormat(h,0) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaptionFormat(h,0) = 1"
' var_Items.CellSingleLine(h,0) = 0
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellSingleLine(h,0) = 0"
h = var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
' var_Items.CellSingleLine(h,0) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellSingleLine(h,0) = 1"
h = var_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.")
' var_Items.CellCaptionFormat(h,0) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaptionFormat(h,0) = 1"
' var_Items.CellSingleLine(h,0) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellSingleLine(h,0) = 1"
oComboBox.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
' Fired after a new column has been added.
function AddColumn as v (Column as OLE::Exontrol.ComboBox.1::IColumn)
oComboBox = topparent:CONTROL_ACTIVEX1.activex
end function
Dim oComboBox as P
Dim rs as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = .f.
rs = OLE.Create("ADOR.Recordset")
rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb",3,3)
oComboBox.DataSource = rs
oComboBox.Columns.Item("ShipVia").Position = 2
oComboBox.EndUpdate()
|
|
169
|
The thumb size seems to be very small. Can I make it bigger
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Column2 as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.ColumnAutoResize = .f.
' oComboBox.Columns.Add("C1").Width = 256
var_Column = oComboBox.Columns.Add("C1")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Width = 256"
' oComboBox.Columns.Add("C2").Width = 256
var_Column1 = oComboBox.Columns.Add("C2")
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.Width = 256"
' oComboBox.Columns.Add("C3").Width = 256
var_Column2 = oComboBox.Columns.Add("C3")
oComboBox.TemplateDef = "dim var_Column2"
oComboBox.TemplateDef = var_Column2
oComboBox.Template = "var_Column2.Width = 256"
oComboBox.Template = "ScrollThumbSize(1) = 64" // oComboBox.ScrollThumbSize(1) = 64
|
|
45
|
The drop down filter window displays a "to" string between two datem when I filter dates. Can I change that
Dim oComboBox as P
Dim var_Column as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Column = oComboBox.Columns.Add("Column")
var_Column.DisplayFilterButton = .t.
var_Column.DisplayFilterDate = .t.
oComboBox.Template = "Description(13) = `->`" // oComboBox.Description(13) = "->"
oComboBox.ApplyFilter()
|
|
324
|
The control supports three styles: Simple, DropDown and DropDownList. How can I change the style
Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Style = 2
|
|
337
|
The control selects the portion of text that doesn't match with the selected item. How can I avoid that
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.AutoSelect = .f.
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
|
|
507
|
The control's filter bar is not closed once I click the close button (toggle)
Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"
var_Column1 = oComboBox.Columns.Add("Pos")
var_Column1.AllowSizing = .f.
var_Column1.AllowSort = .f.
var_Column1.Width = 32
var_Column1.FormatColumn = "1 apos ``"
var_Column1.Position = 0
var_Items = oComboBox.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
' var_Items.LockedItemCount(2) = 1
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.LockedItemCount(2) = 1"
h = var_Items.LockedItem(2,0)
' var_Items.ItemDivider(h) = 0
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ItemDivider(h) = 0"
' var_Items.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."
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.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.`"
' var_Items.CellCaptionFormat(h,0) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaptionFormat(h,0) = 1"
oComboBox.FilterBarCaption = "`<r><fgcolor=808080>` + value"
oComboBox.FilterBarPromptPattern = "B"
oComboBox.FilterBarPromptVisible = 2323 'exFilterBarCompact + exFilterBarToggle + exFilterBarSingleLine + exFilterBarVisible + exFilterBarPromptVisible
var_Column2 = oComboBox.Columns.Item(0)
var_Column2.FilterType = 240
var_Column2.Filter = "Item B"
oComboBox.ApplyFilter()
oComboBox.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
Dim oComboBox as P
Dim var_Column as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Column = oComboBox.Columns.Add("Column")
var_Column.DisplayFilterButton = .t.
var_Column.FilterType = 1
oComboBox.Template = "Description(9) = `Is Empty`" // oComboBox.Description(9) = "Is Empty"
oComboBox.Template = "Description(10) = `Is Not Empty`" // oComboBox.Description(10) = "Is Not Empty"
oComboBox.ApplyFilter()
|
|
586
|
Shows the tooltip of the object moved relative to its default position
' Occurs when the user moves the mouse.
function MouseMove as v (Button as N, Shift as N, X as OLE::Exontrol.ComboBox.1::OLE_XPOS_PIXELS, Y as OLE::Exontrol.ComboBox.1::OLE_YPOS_PIXELS)
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.ShowToolTip("<null>","<null>",,"+8","+8")
end function
Dim oComboBox as P
Dim var_Column as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
var_Column = oComboBox.Columns.Add("tootip")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.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)
Dim oComboBox as P
Dim var_Columns as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 0
oComboBox.ColumnAutoResize = .t.
var_Columns = oComboBox.Columns
var_Columns.Add("C1")
var_Columns.Add("C2")
var_Items = oComboBox.Items
' var_Items.CellCaption(var_Items.AddItem("item a"),1) = "item b"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`item a`),1) = `item b`"
' var_Items.CellCaption(var_Items.AddItem("item c"),1) = "item d"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`item c`),1) = `item d`"
oComboBox.Value = "item a"
oComboBox.ForeColor = 12353664
oComboBox.BackColor = 15790320
oComboBox.HeaderForeColor = 8421504
oComboBox.SelBackColor = 8421504
oComboBox.BackColorEdit = 0
oComboBox.ForeColorEdit = 16777215
oComboBox.Enabled = .f.
oComboBox.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)
Dim oComboBox as P
Dim var_Columns as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 2
oComboBox.ColumnAutoResize = .t.
var_Columns = oComboBox.Columns
var_Columns.Add("C1")
var_Columns.Add("C2")
var_Items = oComboBox.Items
' var_Items.CellCaption(var_Items.AddItem("item a"),1) = "item b"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`item a`),1) = `item b`"
' var_Items.CellCaption(var_Items.AddItem("item c"),1) = "item d"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`item c`),1) = `item d`"
oComboBox.Value = "item a"
oComboBox.BackColorEdit = 0
oComboBox.ForeColor = 16777215
oComboBox.Enabled = .f.
oComboBox.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)
Dim oComboBox as P
Dim var_Columns as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 1
oComboBox.ColumnAutoResize = .t.
var_Columns = oComboBox.Columns
var_Columns.Add("C1")
var_Columns.Add("C2")
var_Items = oComboBox.Items
' var_Items.CellCaption(var_Items.AddItem("item a"),1) = "item b"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`item a`),1) = `item b`"
' var_Items.CellCaption(var_Items.AddItem("item c"),1) = "item d"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`item c`),1) = `item d`"
oComboBox.Value = "item a"
oComboBox.ForeColorEdit = 16777215
oComboBox.BackColorEdit = 0
oComboBox.Enabled = .f.
oComboBox.EndUpdate()
|
|
577
|
Re-order the cell's caption, icons and images/pictures
Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.IntegralHeight = .t.
oComboBox.Images("gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmDcD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB")
var_Column = oComboBox.Columns.Add("ToLeft")
' var_Column.Def(0) = .t.
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(0) = True"
var_Column1 = oComboBox.Columns.Add("ToRight")
' var_Column1.Def(0) = .t.
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.Def(0) = True"
' var_Column1.Def(34) = "caption,picture,icons,icon,check"
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.Def(34) = `caption,picture,icons,icon,check`"
oComboBox.DefaultItemHeight = 32
oComboBox.DrawGridLines = 2
oComboBox.HeaderAppearance = 4
var_Items = oComboBox.Items
h = var_Items.AddItem("Caption")
' var_Items.CellImage(h,0) = 2
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellImage(h,0) = 2"
' var_Items.CellImages(h,0) = "1,2"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellImages(h,0) = `1,2`"
' var_Items.CellPicture(h,0) = oComboBox.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==`)")
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellPicture(h,0) = Me.ExecuteTemplate(`loadpicture(``gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==``)`)"
' var_Items.CellCaption(h,1) = var_Items.CellCaption(h,0)
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = CellCaption(h,0)"
' var_Items.CellHAlignment(h,1) = 2
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellHAlignment(h,1) = 2"
' var_Items.CellImage(h,1) = var_Items.CellImage(h,0)
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellImage(h,1) = CellImage(h,0)"
' var_Items.CellImages(h,1) = "2,1"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellImages(h,1) = `2,1`"
' var_Items.CellPicture(h,1) = var_Items.CellPicture(h,0)
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellPicture(h,1) = CellPicture(h,0)"
h = var_Items.AddItem("<b>HTML</b> <off 4>Caption")
' var_Items.CellCaptionFormat(h,0) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaptionFormat(h,0) = 1"
' var_Items.CellImage(h,0) = 2
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellImage(h,0) = 2"
' var_Items.CellImages(h,0) = "1,2"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellImages(h,0) = `1,2`"
' var_Items.CellPicture(h,0) = oComboBox.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==`)")
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellPicture(h,0) = Me.ExecuteTemplate(`loadpicture(``gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==``)`)"
' var_Items.CellCaption(h,1) = var_Items.CellCaption(h,0)
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = CellCaption(h,0)"
' var_Items.CellCaptionFormat(h,1) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaptionFormat(h,1) = 1"
' var_Items.CellHAlignment(h,1) = 2
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellHAlignment(h,1) = 2"
' var_Items.CellImage(h,1) = var_Items.CellImage(h,0)
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellImage(h,1) = CellImage(h,0)"
' var_Items.CellImages(h,1) = "2,1"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellImages(h,1) = `2,1`"
' var_Items.CellPicture(h,1) = var_Items.CellPicture(h,0)
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellPicture(h,1) = CellPicture(h,0)"
oComboBox.EndUpdate()
|
|
597
|
Load data as a tree using a parent-id relationship
Dim oComboBox as P
Dim rs as P
Dim var_Items as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = .f.
oComboBox.HeaderAppearance = 4
oComboBox.HeaderHeight = 24
oComboBox.DrawGridLines = 2
oComboBox.LinesAtRoot = -1
rs = OLE.Create("ADODB.Recordset")
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)
oComboBox.DataSource = rs
oComboBox.Columns.Item(0).Width = 128
rs = OLE.Create("ADODB.Recordset")
rs.Open("Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb",3,3)
oComboBox.PutItems(rs.GetRows(),";0;15")
' oComboBox.Items.ExpandItem(0) = .t.
var_Items = oComboBox.Items
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ExpandItem(0) = True"
oComboBox.EndUpdate()
|
|
513
|
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"
var_Column1 = oComboBox.Columns.Add("Pos")
var_Column1.AllowSizing = .f.
var_Column1.AllowSort = .f.
var_Column1.Width = 32
var_Column1.FormatColumn = "1 apos ``"
var_Column1.Position = 0
var_Items = oComboBox.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 1281 'exFilterBarShowCloseOnRight + exFilterBarToggle + exFilterBarPromptVisible
oComboBox.FilterBarPrompt = oComboBox.FormatABC("`<r>` + value",oComboBox.FilterBarPrompt)
oComboBox.EndUpdate()
|
|
512
|
Just wondering if it is possible to show the filter bar's close button on the right ( sample 1 )
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.RightToLeft = .t.
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"
var_Column1 = oComboBox.Columns.Add("Pos")
var_Column1.AllowSizing = .f.
var_Column1.AllowSort = .f.
var_Column1.Width = 32
var_Column1.FormatColumn = "1 apos ``"
var_Column1.Position = 0
var_Items = oComboBox.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 257 'exFilterBarToggle + exFilterBarPromptVisible
oComboBox.EndUpdate()
|
|
100
|
It seems that the control uses the TAB key, is there any way to avoid that
Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.UseTabKey = .f.
|
|
447
|
Is there other ways of showing the hierarchy lines (exGroupLinesOutside)
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.LinesAtRoot = 5
oComboBox.Indent = 12
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.InsertItem(h,,"Child 3")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.InsertItem(h,,"Child 3")
|
|
446
|
Is there other ways of showing the hierarchy lines (exGroupLinesInsideLeaf)
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.LinesAtRoot = 4
oComboBox.Indent = 12
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.InsertItem(h,,"Child 3")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
|
|
445
|
Is there other ways of showing the hierarchy lines (exGroupLinesInside)
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.LinesAtRoot = 3
oComboBox.Indent = 12
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.InsertItem(h,,"Child 3")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
|
|
448
|
Is there other ways of showing the hierarchy lines (exGroupLinesAtRoot)
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.LinesAtRoot = 1
oComboBox.Indent = 12
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.InsertItem(h,,"Child 3")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
|
|
444
|
Is there other ways of showing the hierarchy lines (exGroupLines)
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.LinesAtRoot = 2
oComboBox.Indent = 12
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(var_Items.InsertItem(h,,"Child 2"),,"SubChild 2")
var_Items.InsertItem(h,,"Child 3")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
|
|
563
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header (non-clickable)
Dim oComboBox as P
Dim var_Column as P
Dim var_Columns as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.HeaderAppearance = 4
var_Columns = oComboBox.Columns
var_Columns.Add("Item")
var_Column = var_Columns.Add("Pos")
var_Column.Position = 0
var_Column.Width = 32
var_Column.AllowSizing = .f.
var_Column.FormatColumn = "1 index ``"
var_Column.AllowSort = .f.
var_Column.AllowDragging = .f.
var_Items = oComboBox.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oComboBox.EndUpdate()
|
|
562
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header
Dim oComboBox as P
Dim var_Column as P
Dim var_Columns as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.HeaderAppearance = 4
oComboBox.Template = "Background(32) = -1" // oComboBox.Background(32) = -1
var_Columns = oComboBox.Columns
var_Columns.Add("Item")
var_Column = var_Columns.Add("Pos")
var_Column.Position = 0
var_Column.Width = 32
var_Column.AllowSizing = .f.
var_Column.FormatColumn = "1 index ``"
var_Column.AllowSort = .f.
var_Column.AllowDragging = .f.
var_Items = oComboBox.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oComboBox.EndUpdate()
|
|
64
|
Is there any way to get listed only visible items in the drop down filter window
Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.LinesAtRoot = -1
oComboBox.Template = "Description(0) = ``" // oComboBox.Description(0) = ""
oComboBox.Template = "Description(1) = ``" // oComboBox.Description(1) = ""
oComboBox.Template = "Description(2) = ``" // oComboBox.Description(2) = ""
var_Column = oComboBox.Columns.Add("P1")
var_Column.DisplayFilterButton = .t.
var_Column.DisplayFilterPattern = .f.
var_Column.FilterList = 1
var_Column1 = oComboBox.Columns.Add("P2")
var_Column1.DisplayFilterButton = .t.
var_Column1.DisplayFilterPattern = .f.
var_Items = oComboBox.Items
h = var_Items.AddItem("R1")
' var_Items.CellCaption(h,1) = "R2"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `R2`"
' var_Items.CellCaption(var_Items.InsertItem(h,,"Cell 1.1"),1) = "Cell 1.2"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(h,,`Cell 1.1`),1) = `Cell 1.2`"
' var_Items.CellCaption(var_Items.InsertItem(h,,"Cell 2.1"),1) = "Cell 2.2"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.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
Dim oComboBox as P
Dim var_Columns as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Columns = oComboBox.Columns
var_Columns.Add("C1")
var_Columns.Add("C2")
var_Columns.Add("C3")
var_Columns.Add("C4")
var_Columns.Add("C5")
var_Columns.Add("C6")
var_Columns.Add("C7")
var_Columns.Add("C8")
oComboBox.RightToLeft = .t.
oComboBox.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
Dim oComboBox as P
Dim var_Column as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("Default").AllowEditContextMenu = .f.
var_Column = oComboBox.Columns.Add("Default")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.AllowEditContextMenu = False"
oComboBox.Items.AddItem(0)
oComboBox.Items.AddItem(1)
oComboBox.Items.AddItem(2)
|
|
89
|
Is there any option to specify the height of the items, before adding them
Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.DefaultItemHeight = 32
oComboBox.Columns.Add("Column")
oComboBox.Items.AddItem("One")
oComboBox.Items.AddItem("Two")
|
|
184
|
Is there any option to resize the column based on its data, captions
Dim oComboBox as P
Dim var_Column as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("A").WidthAutoResize = .t.
var_Column = oComboBox.Columns.Add("A")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.WidthAutoResize = True"
oComboBox.Items.AddItem(0)
oComboBox.Items.AddItem(1)
|
|
36
|
Is there any option to remove the tooltip when the cursor hovers the column's drop down filter window
Dim oComboBox as P
Dim var_Column as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("Column").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Column")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"
oComboBox.Template = "Description(4) = ``" // oComboBox.Description(4) = ""
oComboBox.Template = "Description(5) = ``" // oComboBox.Description(5) = ""
oComboBox.Template = "Description(6) = ``" // oComboBox.Description(6) = ""
oComboBox.Template = "Description(7) = ``" // oComboBox.Description(7) = ""
oComboBox.Template = "Description(8) = ``" // oComboBox.Description(8) = ""
oComboBox.Template = "Description(14) = ``" // oComboBox.Description(14) = ""
oComboBox.Template = "Description(15) = ``" // oComboBox.Description(15) = ""
|
|
26
|
Is there any option to make italic the column's header
Dim oComboBox as P
Dim var_Column as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("Column 1").HeaderItalic = .t.
var_Column = oComboBox.Columns.Add("Column 1")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.HeaderItalic = True"
|
|
145
|
Is there any option to highligth the column from the cursor - point
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Column2 as local
Dim var_Column3 as local
Dim var_Column4 as local
Dim var_Column5 as local
Dim var_Column6 as local
Dim var_Column7 as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oComboBox.Template = "Background(32) = 16777216" // oComboBox.Background(32) = 16777216
' oComboBox.Columns.Add("S").Width = 32
var_Column = oComboBox.Columns.Add("S")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Width = 32"
' oComboBox.Columns.Add("Level 1").LevelKey = 1
var_Column1 = oComboBox.Columns.Add("Level 1")
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.LevelKey = 1"
' oComboBox.Columns.Add("Level 2").LevelKey = 1
var_Column2 = oComboBox.Columns.Add("Level 2")
oComboBox.TemplateDef = "dim var_Column2"
oComboBox.TemplateDef = var_Column2
oComboBox.Template = "var_Column2.LevelKey = 1"
' oComboBox.Columns.Add("Level 3").LevelKey = 1
var_Column3 = oComboBox.Columns.Add("Level 3")
oComboBox.TemplateDef = "dim var_Column3"
oComboBox.TemplateDef = var_Column3
oComboBox.Template = "var_Column3.LevelKey = 1"
' oComboBox.Columns.Add("E1").Width = 32
var_Column4 = oComboBox.Columns.Add("E1")
oComboBox.TemplateDef = "dim var_Column4"
oComboBox.TemplateDef = var_Column4
oComboBox.Template = "var_Column4.Width = 32"
' oComboBox.Columns.Add("E2").Width = 32
var_Column5 = oComboBox.Columns.Add("E2")
oComboBox.TemplateDef = "dim var_Column5"
oComboBox.TemplateDef = var_Column5
oComboBox.Template = "var_Column5.Width = 32"
' oComboBox.Columns.Add("E3").Width = 32
var_Column6 = oComboBox.Columns.Add("E3")
oComboBox.TemplateDef = "dim var_Column6"
oComboBox.TemplateDef = var_Column6
oComboBox.Template = "var_Column6.Width = 32"
' oComboBox.Columns.Add("E4").Width = 32
var_Column7 = oComboBox.Columns.Add("E4")
oComboBox.TemplateDef = "dim var_Column7"
oComboBox.TemplateDef = var_Column7
oComboBox.Template = "var_Column7.Width = 32"
|
|
366
|
Is there any option to display cells in uppercase
Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("").ComputedField = "upper(%0)"
var_Column = oComboBox.Columns.Add("")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.ComputedField = `upper(%0)`"
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.InsertItem(h,,"Chld 3")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
|
|
365
|
Is there any option to display cells in lowercase
Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("").ComputedField = "lower(%0)"
var_Column = oComboBox.Columns.Add("")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.ComputedField = `lower(%0)`"
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.InsertItem(h,,"Chld 3")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
|
|
361
|
Is there any option to change the fore color for cells or items that ends with a specified string
Dim h as N
Dim oComboBox as P
Dim var_ConditionalFormat as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.ConditionalFormats.Add("%0 endwith '22'").ForeColor = 255
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("%0 endwith '22'")
oComboBox.TemplateDef = "dim var_ConditionalFormat"
oComboBox.TemplateDef = var_ConditionalFormat
oComboBox.Template = "var_ConditionalFormat.ForeColor = 255"
oComboBox.Columns.Add("")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 1.22")
var_Items.InsertItem(h,,"Child 2.22")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
|
|
24
|
Is there any option to bold the column's header
Dim oComboBox as P
Dim var_Column as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("Column 1").HeaderBold = .t.
var_Column = oComboBox.Columns.Add("Column 1")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.HeaderBold = True"
|
|
323
|
Is there any option to align the header to the left and the data to the right
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("Left").Alignment = 0
var_Column = oComboBox.Columns.Add("Left")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Alignment = 0"
var_Column1 = oComboBox.Columns.Add("Right")
var_Column1.Alignment = 2
var_Column1.HeaderAlignment = 2
var_Column1.EditAlignment = 2
var_Items = oComboBox.Items
' var_Items.CellCaption(var_Items.AddItem("left"),1) = "right"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`left`),1) = `right`"
|
|
9
|
Is there any option to align the header to the left and the data to the right
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("Left").Alignment = 0
var_Column = oComboBox.Columns.Add("Left")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Alignment = 0"
var_Column1 = oComboBox.Columns.Add("Right")
var_Column1.Alignment = 2
var_Column1.HeaderAlignment = 2
var_Items = oComboBox.Items
' var_Items.CellCaption(var_Items.AddItem("left"),1) = "right"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`left`),1) = `right`"
|
|
487
|
Is there any method to get only the matched items and not the items with his parent
Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
oComboBox.FilterInclude = 4
var_Column = oComboBox.Columns.Add("Column")
var_Column.DisplayFilterButton = .t.
var_Column.FilterType = 240
var_Column.Filter = "C1|C2"
var_Items = oComboBox.Items
h = var_Items.AddItem("R1")
var_Items.InsertItem(h,,"C1")
var_Items.InsertItem(h,,"C2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("R2")
var_Items.InsertItem(h,,"C1")
var_Items.InsertItem(h,,"C2")
oComboBox.ApplyFilter()
oComboBox.EndUpdate()
|
|
369
|
Is there any function to round the values base on the .5 value
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Number")
' oComboBox.Columns.Add("Round").ComputedField = "round(%0)"
var_Column = oComboBox.Columns.Add("Round")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.ComputedField = `round(%0)`"
var_Items = oComboBox.Items
var_Items.AddItem("-1.98")
var_Items.AddItem("0.99")
var_Items.AddItem("1.23")
var_Items.AddItem("2.34")
|
|
306
|
Is there any function to limit the height of the items when I display it using multiple lines
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.ScrollBySingleLine = .t.
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
var_Items = oComboBox.Items
h = var_Items.AddItem("Cell 1")
' var_Items.CellCaption(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.`"
' var_Items.CellSingleLine(h,1) = .f.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellSingleLine(h,1) = False"
' var_Items.ItemMaxHeight(h) = 48
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ItemMaxHeight(h) = 48"
|
|
382
|
Is there any function to get the day of the year or number of days since January 1st
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Date")
' oComboBox.Columns.Add("Day since January 1st").ComputedField = "yearday(%0)"
var_Column = oComboBox.Columns.Add("Day since January 1st")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.ComputedField = `yearday(%0)`"
var_Items = oComboBox.Items
var_Items.AddItem({01/11/2001 10:00:00})
var_Items.AddItem({02/22/2002 11:00:00})
var_Items.AddItem({03/13/2003 12:00:00})
var_Items.AddItem({04/14/2004 13:00:00})
|
|
139
|
Is there any function to get the control's data in your x-script format / template
Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Column")
oComboBox.Items.AddItem("ToTemplate()")
|
|
370
|
Is there any function to get largest number with no fraction part that is not greater than the value
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Number")
' oComboBox.Columns.Add("Floor").ComputedField = "floor(%0)"
var_Column = oComboBox.Columns.Add("Floor")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.ComputedField = `floor(%0)`"
var_Items = oComboBox.Items
var_Items.AddItem("-1.98")
var_Items.AddItem("0.99")
var_Items.AddItem("1.23")
var_Items.AddItem("2.34")
|
|
206
|
Is there any function to filter the control's data as I type, something like filter on type
Dim oComboBox as P
Dim var_Column as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Column = oComboBox.Columns.Add("Filter")
var_Column.FilterOnType = .t.
var_Column.DisplayFilterButton = .t.
oComboBox.Items.AddItem("Canada")
oComboBox.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
Dim oComboBox as P
Dim var_Column as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Column = oComboBox.Columns.Add("Filter")
var_Column.FilterOnType = .t.
var_Column.DisplayFilterButton = .t.
var_Column.AutoSearch = 1
oComboBox.Items.AddItem("Canada")
oComboBox.Items.AddItem("USA")
|
|
373
|
Is there any function to display currencies, or money formatted as in the control panel
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Number")
' oComboBox.Columns.Add("Currency").ComputedField = "currency(dbl(%0))"
var_Column = oComboBox.Columns.Add("Currency")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.ComputedField = `currency(dbl(%0))`"
var_Items = oComboBox.Items
var_Items.AddItem("1.23")
var_Items.AddItem("2.34")
var_Items.AddItem("10000.99")
|
|
188
|
Is there any function to assign any extra data to a column
Dim oComboBox as P
Dim var_Column as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("Data").Data = "your extra data"
var_Column = oComboBox.Columns.Add("Data")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Data = `your extra data`"
|
|
189
|
Is there any function to assign a key to a column instead using its name or capion
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("Data").Key = "DKey"
var_Column = oComboBox.Columns.Add("Data")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Key = `DKey`"
' oComboBox.Columns.Item("DKey").Caption = "new caption"
var_Column1 = oComboBox.Columns.Item("DKey")
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.Caption = `new caption`"
|
|
492
|
Is there a way to change the dropdown button arrow to something else ( theme, ebn )
Dim h as N
Dim oComboBox as P
Dim var_Appearance as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Appearance = oComboBox.VisualAppearance
var_Appearance.Add(1,"XP:SCROLLBAR 1 6")
var_Appearance.Add(2,"XP:SCROLLBAR 1 7")
oComboBox.Template = "Background(4) = 16777216" // oComboBox.Background(4) = 16777216
oComboBox.Template = "Background(5) = 33554432" // oComboBox.Background(5) = 33554432
oComboBox.LinesAtRoot = -1
oComboBox.Style = 2
oComboBox.IntegralHeight = .t.
oComboBox.Columns.Add("P1")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
' var_Items.SelectItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.SelectItem(h) = True"
oComboBox.EndUpdate()
|
|
490
|
Is there a way to change the dropdown button arrow to something else ( solid color )
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Template = "Background(5) = 12500670" // oComboBox.Background(5) = 12500670
oComboBox.Template = "Background(4) = 8421504" // oComboBox.Background(4) = 8421504
oComboBox.LinesAtRoot = -1
oComboBox.Style = 2
oComboBox.IntegralHeight = .t.
oComboBox.Columns.Add("P1")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
' var_Items.SelectItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.SelectItem(h) = True"
oComboBox.EndUpdate()
|
|
491
|
Is there a way to change the dropdown button arrow to something else ( no visual theme )
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.UseVisualTheme = 1099 'exBorderVisualTheme + exCheckBoxVisualTheme + exCalendarVisualTheme + exFilterBarVisualTheme + exHeaderVisualTheme
oComboBox.LinesAtRoot = -1
oComboBox.Style = 2
oComboBox.IntegralHeight = .t.
oComboBox.Columns.Add("P1")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
' var_Items.SelectItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.SelectItem(h) = True"
oComboBox.EndUpdate()
|
|
495
|
Is there a way to change the dropdown button arrow to something else ( ebn, sample 3 )
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVIUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBeEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIBICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokGKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhuZwJkYcoagiZ5+HQFRngmZh6h6Z5JnYfodCaCgGBcOpfBQBCAgA==")
oComboBox.Template = "Background(4) = 16777216" // oComboBox.Background(4) = 16777216
oComboBox.Template = "Background(5) = 32567536" // oComboBox.Background(5) = 32567536
oComboBox.LinesAtRoot = -1
oComboBox.Style = 2
oComboBox.IntegralHeight = .t.
oComboBox.Columns.Add("P1")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
' var_Items.SelectItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.SelectItem(h) = True"
oComboBox.EndUpdate()
|
|
494
|
Is there a way to change the dropdown button arrow to something else ( ebn, sample 2 )
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABKgCg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVIUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBeEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/EeH5wiITwUkWMRsF4PYgEeaZ3gGYBoCWeICk6V5wnMf4FDCAAfAiYQgg4AYAmAWC7gIIYnm2fR/mEUYAF4GIFFEVBYgUYR4BCdoGmKSB6A+CAhDGBBfBiT4IlSdQ9A8WIWCeBJihgZgcg+YJoEIFYMiMSJWAaDZjhiGgogCIooG4QYMAIOQSDUPgilONhIg6JI4GIK4LiQKJGDOFJgGMbJbDcDg5hYR4OCWCJyEyAQiCGChDheZBoDIYg3AMIJEVYQ4AnoZQ4mYeQmDsCJGmGNBwDQTQDEaAQcCYCZKGOHRDHgVgVh4J4phoDISAaEYkGsNhNhMahVhyaJIFSDiuAIBIBCCaJ5mYe4VGGOhyHaBRInIPIRH2D5qkaIopCEOhCieBxjnqKoNgSapaj6OIsE+apOiWJBnkqYo6isKpqiGdIwCwKpWiaJIOlsHo8jIa4JFaTIomwOZuBeMgrmifpKgGbR6lAI4lEaM4ymYKIKCKEpfjqbI6kSHgnEmc5GnIOpfBQBCAg=")
oComboBox.Template = "Background(4) = 16777216" // oComboBox.Background(4) = 16777216
oComboBox.Template = "Background(5) = 25198720" // oComboBox.Background(5) = 25198720
oComboBox.LinesAtRoot = -1
oComboBox.Style = 2
oComboBox.IntegralHeight = .t.
oComboBox.Columns.Add("P1")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
' var_Items.SelectItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.SelectItem(h) = True"
oComboBox.EndUpdate()
|
|
493
|
Is there a way to change the dropdown button arrow to something else ( ebn, sample 1 )
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABFACg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVIUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBeEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5dlqIh/k8SAFnofxgDgFZ8gGH5ShYCgmiCQgeA6AghAgr5/EyWBUhCBZPngZIvgaSpoHYEYBCEOAMnWCJGgiFgZgmYoIDiBw1iKSB+C4fQHhiRJjgyYoIlYJwXmOA56DqC5iAONIhg+S45AYNoQmGExqEYIJkgicZ2gsDRhG4ToSAgMZqFIOolEiHJzhWSIJGYUAZiWSBsi+EofEkGhiDaCIphSPIZmIcp2GoI4mkmDhGD4JwJgIPQkmcQwqHaCZKgmZI0h6ZwonCFIfmYKIch6IJMhoFh9ggXxIgydQZmjTR5iORhKEaB4PGAOgUkmD5KBiHItiaSwKHaE4CPuBoMVieJMmMH4qgofoIDsRx6jSZorksapGGUIoqiidJHi2RYKmSHIumEchAh2L5rFeWhUDqAxbBQSIxkeCwkjGMpOAsNpBH0Do3kUASAg")
oComboBox.Template = "Background(4) = 16777216" // oComboBox.Background(4) = 16777216
oComboBox.Template = "Background(5) = 25198720" // oComboBox.Background(5) = 25198720
oComboBox.LinesAtRoot = -1
oComboBox.Style = 2
oComboBox.IntegralHeight = .t.
oComboBox.Columns.Add("P1")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
' var_Items.SelectItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.SelectItem(h) = True"
oComboBox.EndUpdate()
|
|
389
|
Is there a function to display the number of days between two date including the number of hours
Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("Start").Width = 32
var_Column = oComboBox.Columns.Add("Start")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Width = 32"
oComboBox.Columns.Add("End")
' oComboBox.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)' : '' )"
var_Column1 = oComboBox.Columns.Add("Duration")
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.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)' : '' )`"
var_Items = oComboBox.Items
h = var_Items.AddItem({01/11/2001})
' var_Items.CellCaption(h,1) = {01/14/2001}
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = #1/14/2001#"
h = var_Items.AddItem({02/22/2002 12:00:00})
' var_Items.CellCaption(h,1) = {03/14/2002 13:00:00}
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = #3/14/2002 1:00:00 PM#"
h = var_Items.AddItem({03/13/2003})
' var_Items.CellCaption(h,1) = {04/11/2003 11:00:00}
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.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
Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Start")
oComboBox.Columns.Add("End")
' oComboBox.Columns.Add("Duration").ComputedField = "\"D \" + int(date(%1)-date(%0)) + \" H \" + round(24*(date(%1)-date(%0) - floor(date(%1)-date(%0))))"
var_Column = oComboBox.Columns.Add("Duration")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.ComputedField = `\"D \" + int(date(%1)-date(%0)) + \" H \" + round(24*(date(%1)-date(%0) - floor(date(%1)-date(%0))))`"
var_Items = oComboBox.Items
h = var_Items.AddItem({01/11/2001})
' var_Items.CellCaption(h,1) = {01/14/2001 23:00:00}
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = #1/14/2001 11:00:00 PM#"
h = var_Items.AddItem({02/22/2002 12:00:00})
' var_Items.CellCaption(h,1) = {03/14/2002 13:00:00}
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = #3/14/2002 1:00:00 PM#"
h = var_Items.AddItem({03/13/2003})
' var_Items.CellCaption(h,1) = {04/11/2003 11:00:00}
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.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
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.MarkSearchColumn = .f.
oComboBox.Columns.Add("Value")
oComboBox.Columns.Add("FormatCell")
var_Items = oComboBox.Items
h = var_Items.AddItem(1)
' var_Items.CellCaption(h,1) = 12
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = 12"
' var_Items.FormatCell(h,1) = "currency(value)"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.FormatCell(h,1) = `currency(value)`"
h = var_Items.AddItem({01/01/2001})
' var_Items.CellCaption(h,1) = {01/01/2001}
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = #1/1/2001#"
' var_Items.CellCaptionFormat(h,1) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaptionFormat(h,1) = 1"
' var_Items.FormatCell(h,1) = "longdate(value) replace '2001' with '<b>2001</b>'"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.FormatCell(h,1) = `longdate(value) replace '2001' with '<b>2001</b>'`"
oComboBox.EndUpdate()
|
|
429
|
Is it possible to specify an item being unsortable so its position won't be changed after sorting
Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.TreeColumnIndex = -1
' oComboBox.Columns.Add("Numbers").SortType = 1
var_Column = oComboBox.Columns.Add("Numbers")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.SortType = 1"
var_Items = oComboBox.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
var_Items.AddItem(3)
var_Items.AddItem(4)
h = var_Items.AddItem("top 3")
' var_Items.ItemPosition(h) = 3
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ItemPosition(h) = 3"
' var_Items.CellHAlignment(h,0) = 2
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellHAlignment(h,0) = 2"
' var_Items.SortableItem(h) = .f.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.SortableItem(h) = False"
var_Items.SortChildren(0,0,.f.)
oComboBox.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 )
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Column4 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Column = oComboBox.Columns.Add("Col-1")
var_Column.DisplayFilterButton = .t.
var_Column.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column1 = oComboBox.Columns.Add("Col-2")
var_Column1.DisplayFilterButton = .t.
var_Column1.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column2 = oComboBox.Columns.Add("Pos")
var_Column2.AllowSizing = .f.
var_Column2.AllowSort = .f.
var_Column2.Width = 32
var_Column2.FormatColumn = "1 apos ``"
var_Column2.Position = 0
var_Items = oComboBox.Items
' var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`Item A`),1) = `Sub-Item A`"
' var_Items.CellCaption(var_Items.AddItem("Item B"),1) = "Sub-Item B"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`Item B`),1) = `Sub-Item B`"
' var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`Item C`),1) = `Sub-Item C`"
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Template = "Description(11) = FormatABC(```<fgcolor=808080>`` + value + ``</fgcolor>```,Description(11))" // oComboBox.Description(11) = oComboBox.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oComboBox.Description(11))
oComboBox.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> ` replace `]` with ` </b></bgcolor></fgcolor>`"
oComboBox.FilterBarPromptVisible = 256
var_Column3 = oComboBox.Columns.Item(0)
var_Column3.FilterType = 240
var_Column3.Filter = "Item A|Item B"
var_Column4 = oComboBox.Columns.Item(1)
var_Column4.FilterType = 3
var_Column4.Filter = "*B"
oComboBox.ApplyFilter()
oComboBox.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 )
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Column4 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Column = oComboBox.Columns.Add("Col-1")
var_Column.DisplayFilterButton = .t.
var_Column.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column1 = oComboBox.Columns.Add("Col-2")
var_Column1.DisplayFilterButton = .t.
var_Column1.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column2 = oComboBox.Columns.Add("Pos")
var_Column2.AllowSizing = .f.
var_Column2.AllowSort = .f.
var_Column2.Width = 32
var_Column2.FormatColumn = "1 apos ``"
var_Column2.Position = 0
var_Items = oComboBox.Items
' var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`Item A`),1) = `Sub-Item A`"
' var_Items.CellCaption(var_Items.AddItem("Item B"),1) = "Sub-Item B"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`Item B`),1) = `Sub-Item B`"
' var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`Item C`),1) = `Sub-Item C`"
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Template = "Description(11) = FormatABC(```<fgcolor=808080>`` + value + ``</fgcolor>```,Description(11))" // oComboBox.Description(11) = oComboBox.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oComboBox.Description(11))
oComboBox.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
oComboBox.FilterBarPromptVisible = 256
var_Column3 = oComboBox.Columns.Item(0)
var_Column3.FilterType = 240
var_Column3.Filter = "Item A|Item B"
var_Column4 = oComboBox.Columns.Item(1)
var_Column4.FilterType = 3
var_Column4.Filter = "*B"
oComboBox.ApplyFilter()
oComboBox.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 )
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Column4 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Column = oComboBox.Columns.Add("Col-1")
var_Column.DisplayFilterButton = .t.
var_Column.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column1 = oComboBox.Columns.Add("Col-2")
var_Column1.DisplayFilterButton = .t.
var_Column1.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column2 = oComboBox.Columns.Add("Pos")
var_Column2.AllowSizing = .f.
var_Column2.AllowSort = .f.
var_Column2.Width = 32
var_Column2.FormatColumn = "1 apos ``"
var_Column2.Position = 0
var_Items = oComboBox.Items
' var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`Item A`),1) = `Sub-Item A`"
' var_Items.CellCaption(var_Items.AddItem("Item B"),1) = "Sub-Item B"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`Item B`),1) = `Sub-Item B`"
' var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`Item C`),1) = `Sub-Item C`"
oComboBox.Template = "Description(11) = FormatABC(```<fgcolor=808080>`` + value + ``</fgcolor>```,Description(11))" // oComboBox.Description(11) = oComboBox.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oComboBox.Description(11))
oComboBox.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
oComboBox.FilterBarPromptVisible = 256
var_Column3 = oComboBox.Columns.Item(0)
var_Column3.FilterType = 240
var_Column3.Filter = "Item A|Item B"
var_Column4 = oComboBox.Columns.Item(1)
var_Column4.FilterType = 3
var_Column4.Filter = "*B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()
|
|
564
|
Is it possible to show the filterbar on top of the rows
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.FilterBarPromptVisible = 8192
oComboBox.HeaderHeight = 24
oComboBox.FilterBarHeight = oComboBox.HeaderHeight
oComboBox.HeaderAppearance = 1
oComboBox.DrawGridLines = -1
oComboBox.GridLineStyle = 512
oComboBox.ColumnAutoResize = .t.
var_Column = oComboBox.Columns.Add("Column")
var_Column.DisplayFilterButton = .t.
var_Column.FilterType = 3
var_Column.Filter = "B*"
var_Column1 = oComboBox.Columns.Add("Index")
var_Column1.FormatColumn = "1 index ``"
var_Column1.Position = 0
var_Column1.Width = 48
var_Column1.AllowSizing = .f.
var_Column1.SortType = 1
' var_Column1.Def(0) = .t.
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.Def(0) = True"
var_Items = oComboBox.Items
var_Items.AddItem("A.1")
var_Items.AddItem("A.2")
var_Items.AddItem("B.1")
var_Items.AddItem("B.2")
var_Items.AddItem("B.3")
var_Items.AddItem("C")
oComboBox.ApplyFilter()
oComboBox.EndUpdate()
|
|
508
|
Is it possible to show the close button only if there is a filter applied
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"
var_Column1 = oComboBox.Columns.Add("Pos")
var_Column1.AllowSizing = .f.
var_Column1.AllowSort = .f.
var_Column1.Width = 32
var_Column1.FormatColumn = "1 apos ``"
var_Column1.Position = 0
var_Items = oComboBox.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 513 'exFilterBarShowCloseIfRequired + exFilterBarPromptVisible
oComboBox.EndUpdate()
|
|
509
|
Is it possible to prevent definitely showing the filter bar's close button
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"
var_Column1 = oComboBox.Columns.Add("Pos")
var_Column1.AllowSizing = .f.
var_Column1.AllowSort = .f.
var_Column1.Width = 32
var_Column1.FormatColumn = "1 apos ``"
var_Column1.Position = 0
var_Items = oComboBox.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 1
oComboBox.Template = "Background(1) = -1" // oComboBox.Background(1) = -1
oComboBox.EndUpdate()
|
|
501
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"
var_Column1 = oComboBox.Columns.Add("Pos")
var_Column1.AllowSizing = .f.
var_Column1.AllowSort = .f.
var_Column1.Width = 32
var_Column1.FormatColumn = "1 apos ``"
var_Column1.Position = 0
var_Items = oComboBox.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 1
oComboBox.FilterBarPromptPattern = "B"
oComboBox.EndUpdate()
|
|
502
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"
var_Column1 = oComboBox.Columns.Add("Pos")
var_Column1.AllowSizing = .f.
var_Column1.AllowSort = .f.
var_Column1.Width = 32
var_Column1.FormatColumn = "1 apos ``"
var_Column1.Position = 0
var_Items = oComboBox.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oComboBox.FilterBarPromptPattern = "B"
oComboBox.FilterBarPromptVisible = 3 'exFilterBarVisible + exFilterBarPromptVisible
var_Column2 = oComboBox.Columns.Item(0)
var_Column2.FilterType = 240
var_Column2.Filter = "Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()
|
|
500
|
Is it possible to prevent closing the control's filter bar, so it is always shown
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"
var_Column1 = oComboBox.Columns.Add("Pos")
var_Column1.AllowSizing = .f.
var_Column1.AllowSort = .f.
var_Column1.Width = 32
var_Column1.FormatColumn = "1 apos ``"
var_Column1.Position = 0
var_Items = oComboBox.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oComboBox.FilterBarCaption = "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
oComboBox.FilterBarPromptVisible = 2
var_Column2 = oComboBox.Columns.Item(0)
var_Column2.FilterType = 240
var_Column2.Filter = "Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()
|
|
435
|
Is it possible to limit the height of the item while resizing
' Occurs after a new item has been inserted to Items collection.
function InsertItem as v (Item as OLE::Exontrol.ComboBox.1::HITEM)
Dim var_Items as local
Dim var_Items1 as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Items.ItemMinHeight(Item) = 18
var_Items = oComboBox.Items
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemMinHeight(Item) = 18"
' oComboBox.Items.ItemMaxHeight(Item) = 72
var_Items1 = oComboBox.Items
oComboBox.TemplateDef = "dim var_Items1"
oComboBox.TemplateDef = var_Items1
oComboBox.Template = "var_Items1.ItemMaxHeight(Item) = 72"
end function
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.ItemsAllowSizing = -1
oComboBox.ScrollBySingleLine = .f.
oComboBox.BackColorAlternate = 15790320
oComboBox.Columns.Add("Names")
var_Items = oComboBox.Items
var_Items.AddItem("Mantel")
var_Items.AddItem("Mechanik")
var_Items.AddItem("Motor")
var_Items.AddItem("Murks")
var_Items.AddItem("M rchen")
var_Items.AddItem("M hren")
var_Items.AddItem("M hle")
oComboBox.Columns.Item(0).SortOrder = 1
oComboBox.EndUpdate()
|
|
569
|
Is it possible to highlight the column's header once a filter is applied
Dim h as N
Dim oComboBox as P
Dim var_Appearance as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Column2 as local
Dim var_Columns as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Appearance = oComboBox.VisualAppearance
var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgANJ0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8YNYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mgbhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhWBMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=")
var_Appearance.Add(1,"CP:2 -8 -4 2 4")
oComboBox.Template = "Background(0) = 33488638" // oComboBox.Background(0) = 33488638
oComboBox.Template = "Background(41) = 16843009" // oComboBox.Background(41) = 16843009
oComboBox.Template = "Background(32) = -1" // oComboBox.Background(32) = -1
oComboBox.HeaderHeight = 28
oComboBox.DrawGridLines = -2
oComboBox.HeaderVisible = .t.
var_Columns = oComboBox.Columns
' var_Columns.Add("C1").DisplayFilterButton = .t.
var_Column = var_Columns.Add("C1")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"
var_Column1 = var_Columns.Add("C2")
var_Column1.DisplayFilterButton = .t.
var_Column1.Filter = "Item 2"
var_Column1.FilterType = 240
' var_Columns.Add("C3").DisplayFilterButton = .t.
var_Column2 = var_Columns.Add("C3")
oComboBox.TemplateDef = "dim var_Column2"
oComboBox.TemplateDef = var_Column2
oComboBox.Template = "var_Column2.DisplayFilterButton = True"
var_Items = oComboBox.Items
h = var_Items.AddItem("Item 1")
' var_Items.CellCaption(h,1) = "Item 2"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `Item 2`"
' var_Items.CellCaption(h,2) = "Item 3"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,2) = `Item 3`"
h = var_Items.AddItem("Item 4")
' var_Items.CellCaption(h,1) = "Item 5"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `Item 5`"
' var_Items.CellCaption(h,2) = "Item 6"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,2) = `Item 6`"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()
|
|
566
|
Is it possible to hide the count of selected items, shown on the right side of the control's label (multiple-selection)
Dim oComboBox as P
Dim var_Columns as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.HeaderAppearance = 4
oComboBox.Style = 2
oComboBox.SingleSel = .f.
oComboBox.SingleEdit = .t.
oComboBox.LabelColumnIndex = 0
oComboBox.SelBackColor = 16750899
oComboBox.SelForeColor = 16777215
oComboBox.LabelText = " "
var_Columns = oComboBox.Columns
var_Columns.Add("Column")
var_Columns.Add("Sub-Column")
var_Items = oComboBox.Items
' var_Items.CellCaption(var_Items.AddItem("Item 1"),1) = "SubItem 1.1"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`Item 1`),1) = `SubItem 1.1`"
' var_Items.CellCaption(var_Items.AddItem("Item 2"),1) = "SubItem 2.1"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`Item 2`),1) = `SubItem 2.1`"
' var_Items.CellCaption(var_Items.AddItem("Item 3"),1) = "SubItem 3.1"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`Item 3`),1) = `SubItem 3.1`"
' var_Items.CellCaption(var_Items.AddItem("Item 4"),1) = "SubItem 4.1"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`Item 4`),1) = `SubItem 4.1`"
' var_Items.SelectItem(var_Items.ItemByIndex(1)) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.SelectItem(ItemByIndex(1)) = True"
' var_Items.SelectItem(var_Items.ItemByIndex(3)) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.SelectItem(ItemByIndex(3)) = True"
oComboBox.EndUpdate()
|
|
481
|
Is it possible to have a CheckBox and Button TOGETHER on all cells in a column
' Fired after the user clicks on the cell of button type.
function CellButtonClick as v (Item as OLE::Exontrol.ComboBox.1::HCELL)
oComboBox = topparent:CONTROL_ACTIVEX1.activex
? "CellButtonClick"
? Item
? oComboBox.Key()
end function
' Fired after cell's state has been changed.
function CellStateChanged as v (Item as OLE::Exontrol.ComboBox.1::HCELL)
oComboBox = topparent:CONTROL_ACTIVEX1.activex
? "CellStateChanged"
? Item
? oComboBox.Key()
end function
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.SingleEdit = .t.
var_Column = oComboBox.Columns.Add("")
var_Column.AllowSizing = .f.
var_Column.Width = 32
var_Column.FormatColumn = "1 index ``"
var_Column1 = oComboBox.Columns.Add("Def")
var_Column1.AllowSizing = .f.
var_Column1.Width = 48
var_Column1.FormatColumn = "` `"
' var_Column1.Def(0) = .t.
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.Def(0) = True"
' var_Column1.Def(2) = .t.
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.Def(2) = True"
' var_Column1.Def(3) = .t.
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.Def(3) = True"
oComboBox.Columns.Add("")
var_Items = oComboBox.Items
var_Items.AddItem("")
var_Items.AddItem("")
var_Items.AddItem("")
var_Items.AddItem("")
var_Items.AddItem("")
var_Items.AddItem("")
var_Items.AddItem("")
var_Items.AddItem("")
oComboBox.EndUpdate()
|
|
436
|
Is it possible to format numbers
Dim h as N
Dim h1 as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Columns as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.MarkSearchColumn = .f.
var_Columns = oComboBox.Columns
var_Columns.Add("Name")
var_Column = var_Columns.Add("A")
var_Column.SortType = 1
var_Column.AllowSizing = .f.
var_Column.Width = 36
var_Column.FormatColumn = "len(value) ? value + ' +'"
var_Column1 = var_Columns.Add("B")
var_Column1.SortType = 1
var_Column1.AllowSizing = .f.
var_Column1.Width = 36
var_Column1.FormatColumn = "len(value) ? value + ' +'"
var_Column2 = var_Columns.Add("C")
var_Column2.SortType = 1
var_Column2.AllowSizing = .f.
var_Column2.Width = 36
var_Column2.FormatColumn = "len(value) ? value + ' ='"
var_Column3 = var_Columns.Add("A+B+C")
var_Column3.SortType = 1
var_Column3.Width = 64
var_Column3.ComputedField = "dbl(%1)+dbl(%2)+dbl(%3)"
var_Column3.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=0000FF>+'+(value format '2|.|3|,' ): '0.00') )"
' var_Column3.Def(17) = 1
oComboBox.TemplateDef = "dim var_Column3"
oComboBox.TemplateDef = var_Column3
oComboBox.Template = "var_Column3.Def(17) = 1"
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
' var_Items.CellCaptionFormat(h,4) = 2
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaptionFormat(h,4) = 2"
h1 = var_Items.InsertItem(h,,"Child 1")
' var_Items.CellCaption(h1,1) = 7
oComboBox.TemplateDef = "dim var_Items,h1"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h1
oComboBox.Template = "var_Items.CellCaption(h1,1) = 7"
' var_Items.CellCaption(h1,2) = 3
oComboBox.TemplateDef = "dim var_Items,h1"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h1
oComboBox.Template = "var_Items.CellCaption(h1,2) = 3"
' var_Items.CellCaption(h1,3) = 1
oComboBox.TemplateDef = "dim var_Items,h1"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h1
oComboBox.Template = "var_Items.CellCaption(h1,3) = 1"
h1 = var_Items.InsertItem(h,,"Child 2")
' var_Items.CellCaption(h1,1) = -2
oComboBox.TemplateDef = "dim var_Items,h1"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h1
oComboBox.Template = "var_Items.CellCaption(h1,1) = -2"
' var_Items.CellCaption(h1,2) = -2
oComboBox.TemplateDef = "dim var_Items,h1"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h1
oComboBox.Template = "var_Items.CellCaption(h1,2) = -2"
' var_Items.CellCaption(h1,3) = -4
oComboBox.TemplateDef = "dim var_Items,h1"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h1
oComboBox.Template = "var_Items.CellCaption(h1,3) = -4"
h1 = var_Items.InsertItem(h,,"Child 3")
' var_Items.CellCaption(h1,1) = 2
oComboBox.TemplateDef = "dim var_Items,h1"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h1
oComboBox.Template = "var_Items.CellCaption(h1,1) = 2"
' var_Items.CellCaption(h1,2) = 2
oComboBox.TemplateDef = "dim var_Items,h1"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h1
oComboBox.Template = "var_Items.CellCaption(h1,2) = 2"
' var_Items.CellCaption(h1,3) = -4
oComboBox.TemplateDef = "dim var_Items,h1"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h1
oComboBox.Template = "var_Items.CellCaption(h1,3) = -4"
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
oComboBox.EndUpdate()
|
|
460
|
Is it possible to filter the items as I type
' Fired when the user has taken an action that may have altered text in an edit control.
function EditChange as v (ColIndex as N)
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Item(0).Filter = oComboBox.EditText(0)
oComboBox.ApplyFilter()
end function
Dim oComboBox as P
Dim var_Column as P
Dim var_Columns as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.MarkSearchColumn = .f.
oComboBox.SingleEdit = .t.
oComboBox.AutoComplete = .f.
oComboBox.AutoDropDown = .t.
oComboBox.IntegralHeight = .t.
var_Columns = oComboBox.Columns
var_Column = var_Columns.Add("Items")
var_Column.Prompt = "<i><fgcolor=808080>Start Filter</fgcolor></i>"
var_Column.FilterType = 3
var_Items = oComboBox.Items
var_Items.AddItem("A")
var_Items.AddItem("B")
var_Items.AddItem("C")
var_Items.AddItem("AB")
var_Items.AddItem("AC")
var_Items.AddItem("BA")
var_Items.AddItem("BC")
var_Items.AddItem("CC")
oComboBox.EndUpdate()
|
|
437
|
Is it possible to display the numbers using 3 (three) digits
Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Def").Def(17) = 1
var_Column = oComboBox.Columns.Add("Def")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(17) = 1"
var_Items = oComboBox.Items
h = var_Items.AddItem(100.27)
' var_Items.FormatCell(h,0) = "(value format '') + ' <fgcolor=808080>(default)'"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '') + ' <fgcolor=808080>(default)'`"
h = var_Items.AddItem(100.27)
' var_Items.FormatCell(h,0) = "(value format '3') + ' <fgcolor=808080>(3 digits)'"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '3') + ' <fgcolor=808080>(3 digits)'`"
h = var_Items.AddItem(100.27)
' var_Items.FormatCell(h,0) = "(value format 2) + ' <fgcolor=808080>(2 digits)'"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format 2) + ' <fgcolor=808080>(2 digits)'`"
h = var_Items.AddItem(100.27)
' var_Items.FormatCell(h,0) = "(value format 1) + ' <fgcolor=808080>(1 digit)'"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format 1) + ' <fgcolor=808080>(1 digit)'`"
oComboBox.EndUpdate()
|
|
552
|
Is it possible to configure different colour/icon when there is a active filter
' Occurs when filter was changed.
function FilterChange as v ()
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Template = "Background(0) = FormatABC(`value = 0 ? 0x1000001 : 0x10000FF `,Columns.Item(0).FilterType)" // oComboBox.Background(0) = oComboBox.FormatABC("value = 0 ? 0x1000001 : 0x10000FF ",oComboBox.Columns.Item(0).FilterType)
end function
Dim oComboBox as P
Dim var_Appearance as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Appearance = oComboBox.VisualAppearance
var_Appearance.RenderType = -16777216
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQgmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYThdr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
oComboBox.DrawGridLines = -1
oComboBox.ShowFocusRect = .f.
oComboBox.Template = "Background(0) = 16777217" // oComboBox.Background(0) = 16777217
oComboBox.Template = "Background(32) = -1" // oComboBox.Background(32) = -1
oComboBox.HeaderAppearance = 4
oComboBox.HeaderVisible = .t.
var_Column = oComboBox.Columns.Add("Filter")
var_Column.DisplayFilterButton = .t.
var_Column.AllowSort = .f.
var_Column.AllowDragging = .f.
var_Column.FilterList = 256
var_Items = oComboBox.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
var_Column1 = oComboBox.Columns.Item(0)
var_Column1.Filter = "Item B"
var_Column1.FilterType = 240
oComboBox.ApplyFilter()
oComboBox.EndUpdate()
|
|
579
|
Is it possible to Click or Double Click on any area of the combo to force the dropdown list to open
' Occurs when the user presses and then releases the left mouse button over the list control.
function Click as v ()
oComboBox = topparent:CONTROL_ACTIVEX1.activex
? oComboBox.DropDown()
oComboBox.Template = "DropDown() = True" // oComboBox.DropDown() = .t.
end function
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
oComboBox.Style = 2
oComboBox.IntegralHeight = .t.
oComboBox.Columns.Add("P1")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
' var_Items.SelectItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.SelectItem(h) = True"
oComboBox.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
Dim oComboBox as P
Dim var_Appearance as P
Dim var_Columns as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.HeaderAppearance = 4
var_Columns = oComboBox.Columns
var_Columns.Add("Column 1")
var_Columns.Add("Column 2")
var_Columns.Add("Column 3")
var_Appearance = oComboBox.VisualAppearance
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVIUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBeEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIBICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokGKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=")
var_Appearance.Add(2,"CP:1 0 -36 0 0")
oComboBox.Template = "Background(182) = 33554432" // oComboBox.Background(182) = 33554432
oComboBox.EndUpdate()
|
|
572
|
Is it possible to change the visual appearance of the drop down button (method 3, theme)
Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.VisualAppearance.Add(1,"XP: COMBOBOX 1 1")
oComboBox.VisualAppearance.Add(2,"XP: COMBOBOX 1 3")
oComboBox.Template = "Background(4) = 16777216" // oComboBox.Background(4) = 16777216
oComboBox.Template = "Background(5) = 33554432" // oComboBox.Background(5) = 33554432
oComboBox.Columns.Add("Default")
oComboBox.EndUpdate()
|
|
571
|
Is it possible to change the visual appearance of the drop down button (method 2, ebn)
Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABKYCg6AADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSKUOQTDKMIziYBYJhEMwwDhEIwjGKsIhsGIbJAGQBJCjWGodQLOEgzNC0IxNFCQILhEZJADKII8TTOU5UPRESwTE4cKBmKhQCo2NpKR7VUTxCKQahLLivoCjBT8EzHMqtIzrCA6MpaP4pQjKcqwTJ8YyHEi0ZrjazKaj6T5AXDUcaWbbNVx3PK3aioOpLZrqOZZYzYFoRFYNTTJMTLcZifBsEoib4qSxMVaDPQWNT3CTIMQve4IEyGQ6jDDVOjYfqmDzTPAALLFUaNYzoOKyABMHATBIXAY7BIIOQ1HgHNBwJAAczzcTSBIABECQoBoTBnEOKZIkuJYFEMCBElgXBoG0CQUHKIB8huYBiDUEYtAkA4Ol+D5PmWdJ7nyHh/iKCQ8iYWwWkWY5aAIfgfFgFgEgGXxoCSbR+g8N5wFMCABnCDgQAiX54AYA4CiCCAaBgfhfjedgTBgBZhggVQVEWCBOBWAIPGgZgqgcIJYHoEQYEWcYMniDJPFOUJ1giYhYEYJ8siidgMgOIQ4kIMoMmASJWDeCQiGgAgogYY54jgI4QiMM5iCsOxkGiYhJgWIoYjIQILmMGRGAQNpNjMcJjhiZBYloVoOiSKAKCAGIkBkdhEgKJgDHAMgMEMcJkDgD4mDODhlhGY4QgwbgbEcAxElANBnnGQhehwJgZkwN4EmEOZaHiGQgikGBpBoRozGSWS5jmRoKgSSJiDiEAgEgEgOg2HZnhkTgZiaJxIEyDwjkkF5Qn6K5qAqCgRiOKhYG4PYqCiOBGiuKxrGqPJ+iwag6D4eotiuCoqiyKYfCqepAiyahKECbYxGuKwejaFJsiqBpBh4YRbBqPIPGyCAWlWLICDoTBrDsLhCgiIgpC2W4mkmK5JmIdIfDwbwDi2bxAlAECAg=")
oComboBox.Template = "Background(4) = 32567536" // oComboBox.Background(4) = 32567536
oComboBox.Template = "Background(5) = 23488102" // oComboBox.Background(5) = 23488102
oComboBox.Columns.Add("Default")
oComboBox.EndUpdate()
|
|
570
|
Is it possible to change the visual appearance of the drop down button (method 1, no visual theme)
Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.UseVisualTheme = 0
oComboBox.Columns.Add("Default")
oComboBox.EndUpdate()
|
|
463
|
Is it possible to change the height for all items at once
Dim h as N
Dim oComboBox as P
Dim var_Items as P
Dim var_Items1 as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
oComboBox.Columns.Add("Items")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(0) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ExpandItem(0) = True"
oComboBox.EndUpdate()
oComboBox.DefaultItemHeight = 12
' oComboBox.Items.ItemHeight(0) = 12
var_Items1 = oComboBox.Items
oComboBox.TemplateDef = "dim var_Items1"
oComboBox.TemplateDef = var_Items1
oComboBox.Template = "var_Items1.ItemHeight(0) = 12"
|
|
440
|
Is it possible to change the grouping character when display numbers
Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Def").Def(17) = 1
var_Column = oComboBox.Columns.Add("Def")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(17) = 1"
var_Items = oComboBox.Items
h = var_Items.AddItem(100000.27)
' var_Items.FormatCell(h,0) = "(value format '') + ' <fgcolor=808080>(default)'"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '') + ' <fgcolor=808080>(default)'`"
h = var_Items.AddItem(100000.27)
' var_Items.FormatCell(h,0) = "(value format '|||-') + ' <fgcolor=808080>(grouping character is -)'"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '|||-') + ' <fgcolor=808080>(grouping character is -)'`"
oComboBox.EndUpdate()
|
|
520
|
Is it possible to automatically displays the control's filter label to the right
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Column = oComboBox.Columns.Add("Item")
var_Column.DisplayFilterButton = .t.
var_Column.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column1 = oComboBox.Columns.Add("Pos")
var_Column1.AllowSizing = .f.
var_Column1.AllowSort = .f.
var_Column1.Width = 32
var_Column1.FormatColumn = "1 apos ``"
var_Column1.Position = 0
var_Items = oComboBox.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oComboBox.FilterBarCaption = "`<r>` + value"
oComboBox.FilterBarPromptVisible = 1280 'exFilterBarShowCloseOnRight + exFilterBarToggle
var_Column2 = oComboBox.Columns.Item(0)
var_Column2.FilterType = 240
var_Column2.Filter = "Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()
|
|
450
|
Is it possible to auto-numbering the children items too
Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Column4 as P
Dim var_Column5 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
oComboBox.Columns.Add("Items")
var_Column = oComboBox.Columns.Add("Pos.1")
var_Column.FormatColumn = "1 rpos ''"
var_Column.Position = 0
var_Column.Width = 32
var_Column.AllowSizing = .f.
var_Column1 = oComboBox.Columns.Add("Pos.2")
var_Column1.FormatColumn = "1 rpos ':'"
var_Column1.Position = 1
var_Column1.Width = 32
var_Column1.AllowSizing = .f.
var_Column2 = oComboBox.Columns.Add("Pos.3")
var_Column2.FormatColumn = "1 rpos ':|A-Z'"
var_Column2.Position = 2
var_Column2.Width = 32
var_Column2.AllowSizing = .f.
var_Column3 = oComboBox.Columns.Add("Pos.4")
var_Column3.FormatColumn = "1 rpos '|A-Z|'"
var_Column3.Position = 3
var_Column3.Width = 32
var_Column3.AllowSizing = .f.
var_Column4 = oComboBox.Columns.Add("Pos.5")
var_Column4.FormatColumn = "'<font Tahoma;7>' + 1 rpos '-<b>||A-Z'"
' var_Column4.Def(17) = 1
oComboBox.TemplateDef = "dim var_Column4"
oComboBox.TemplateDef = var_Column4
oComboBox.Template = "var_Column4.Def(17) = 1"
var_Column4.Position = 4
var_Column4.Width = 32
var_Column4.AllowSizing = .f.
var_Column5 = oComboBox.Columns.Add("Pos.6")
var_Column5.FormatColumn = "'<b>'+ 1 rpos '</b>:<fgcolor=FF0000>|A-Z|'"
' var_Column5.Def(17) = 1
oComboBox.TemplateDef = "dim var_Column5"
oComboBox.TemplateDef = var_Column5
oComboBox.Template = "var_Column5.Def(17) = 1"
var_Column5.Position = 5
var_Column5.Width = 48
var_Column5.AllowSizing = .f.
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
oComboBox.EndUpdate()
|
|
452
|
Is it possible to auto-numbering the children items but still keeps the position after filtering
Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Column4 as P
Dim var_Column5 as P
Dim var_Column6 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
var_Column = oComboBox.Columns.Add("Items")
var_Column.DisplayFilterButton = .t.
var_Column.FilterType = 240
var_Column.Filter = "Child 2"
var_Column1 = oComboBox.Columns.Add("Pos.1")
var_Column1.FormatColumn = "1 ropos ''"
var_Column1.Position = 0
var_Column1.Width = 32
var_Column1.AllowSizing = .f.
var_Column2 = oComboBox.Columns.Add("Pos.2")
var_Column2.FormatColumn = "1 ropos ':'"
var_Column2.Position = 1
var_Column2.Width = 32
var_Column2.AllowSizing = .f.
var_Column3 = oComboBox.Columns.Add("Pos.3")
var_Column3.FormatColumn = "1 ropos ':|A-Z'"
var_Column3.Position = 2
var_Column3.Width = 32
var_Column3.AllowSizing = .f.
var_Column4 = oComboBox.Columns.Add("Pos.4")
var_Column4.FormatColumn = "1 ropos '|A-Z|'"
var_Column4.Position = 3
var_Column4.Width = 32
var_Column4.AllowSizing = .f.
var_Column5 = oComboBox.Columns.Add("Pos.5")
var_Column5.FormatColumn = "'<font Tahoma;7>' + 1 ropos '-<b>||A-Z'"
' var_Column5.Def(17) = 1
oComboBox.TemplateDef = "dim var_Column5"
oComboBox.TemplateDef = var_Column5
oComboBox.Template = "var_Column5.Def(17) = 1"
var_Column5.Position = 4
var_Column5.Width = 32
var_Column5.AllowSizing = .f.
var_Column6 = oComboBox.Columns.Add("Pos.6")
var_Column6.FormatColumn = "'<b>'+ 1 ropos '</b>:<fgcolor=FF0000>|A-Z|'"
' var_Column6.Def(17) = 1
oComboBox.TemplateDef = "dim var_Column6"
oComboBox.TemplateDef = var_Column6
oComboBox.Template = "var_Column6.Def(17) = 1"
var_Column6.Position = 5
var_Column6.Width = 48
var_Column6.AllowSizing = .f.
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
oComboBox.ApplyFilter()
oComboBox.EndUpdate()
|
|
442
|
Is it possible to add a 0 for numbers less than 1 instead .7 to show 0.8
Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Def").Def(17) = 1
var_Column = oComboBox.Columns.Add("Def")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(17) = 1"
var_Items = oComboBox.Items
h = var_Items.AddItem(0.27)
' var_Items.FormatCell(h,0) = "(value format '') + ' <fgcolor=808080>(default)'"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '') + ' <fgcolor=808080>(default)'`"
h = var_Items.AddItem(0.27)
' var_Items.FormatCell(h,0) = "(value format '|||||0') + ' <fgcolor=808080>(Display no leading zeros)'"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '|||||0') + ' <fgcolor=808080>(Display no leading zeros)'`"
oComboBox.EndUpdate()
|
|
443
|
Is it possible display numbers in the same format no matter of regional settings in the control panel
Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Def").Def(17) = 1
var_Column = oComboBox.Columns.Add("Def")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(17) = 1"
var_Items = oComboBox.Items
h = var_Items.AddItem(100000.27)
' var_Items.FormatCell(h,0) = "(value format '') + ' <fgcolor=808080>(default positive)'"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '') + ' <fgcolor=808080>(default positive)'`"
h = var_Items.AddItem(100000.27)
' var_Items.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '2|.|3|,|1|1')`"
h = var_Items.AddItem(-100000.27)
' var_Items.FormatCell(h,0) = "(value format '') + ' <fgcolor=808080>(default negative)'"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '') + ' <fgcolor=808080>(default negative)'`"
h = var_Items.AddItem(-100000.27)
' var_Items.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.FormatCell(h,0) = `(value format '2|.|3|,|1|1')`"
oComboBox.EndUpdate()
|
|
576
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
' Fired after a new column has been added.
function AddColumn as v (Column as OLE::Exontrol.ComboBox.1::IColumn)
' Column.Def(48) = 2
' Column.Def(49) = 2
oComboBox = topparent:CONTROL_ACTIVEX1.activex
end function
Dim h as N
Dim hR as N
Dim oComboBox as P
Dim var_Appearance as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.ImageSize = 32
oComboBox.LabelHeight = 36
oComboBox.DefaultItemHeight = 36
oComboBox.HeaderHeight = oComboBox.DefaultItemHeight
oComboBox.SortBarHeight = oComboBox.DefaultItemHeight
oComboBox.Font.Size = 16
oComboBox.FilterBarFont.Size = oComboBox.Font.Size
oComboBox.ToolTipFont.Size = oComboBox.Font.Size
oComboBox.Indent = 26
oComboBox.Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWRJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
var_Appearance = oComboBox.VisualAppearance
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==")
var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4gaBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==")
var_Appearance.Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjVHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=")
var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
oComboBox.HeaderBackColor = 80135878
oComboBox.SelBackColor = 67108864
oComboBox.SelForeColor = 65536
oComboBox.Template = "CheckImage(0) = 16777216" // oComboBox.CheckImage(0) = 16777216
oComboBox.Template = "CheckImage(1) = 33554432" // oComboBox.CheckImage(1) = 33554432
oComboBox.Template = "CheckImage(2) = 50331648" // oComboBox.CheckImage(2) = 50331648
oComboBox.Template = "Background(20) = SelBackColor" // oComboBox.Background(20) = oComboBox.SelBackColor
oComboBox.Template = "Background(21) = SelForeColor" // oComboBox.Background(21) = oComboBox.SelForeColor
oComboBox.Template = "Background(26) = BackColor" // oComboBox.Background(26) = oComboBox.BackColor
oComboBox.Template = "Background(27) = ForeColor" // oComboBox.Background(27) = oComboBox.ForeColor
oComboBox.Template = "Background(32) = -1" // oComboBox.Background(32) = -1
oComboBox.Template = "Background(0) = 67108864" // oComboBox.Background(0) = 67108864
oComboBox.Template = "Background(41) = 67174657" // oComboBox.Background(41) = 67174657
oComboBox.Template = "Background(1) = 67109119" // oComboBox.Background(1) = 67109119
oComboBox.HeaderAppearance = 4
oComboBox.ShowFocusRect = .f.
oComboBox.SortBarVisible = .t.
oComboBox.BackColorSortBar = oComboBox.BackColor
oComboBox.BackColorLevelHeader = oComboBox.BackColor
oComboBox.FilterBarDropDownHeight = 1
oComboBox.IntegralHeight = .t.
var_Column = oComboBox.Columns.Add("Check")
' var_Column.Def(0) = .t.
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(0) = True"
var_Column.PartialCheck = .t.
var_Column.Width = 128
var_Column.DisplayFilterButton = .t.
var_Column.FilterList = 256
var_Column1 = oComboBox.Columns.Add("Pos")
var_Column1.FormatColumn = "1 pos ``"
var_Column1.AllowSort = .f.
var_Column1.Width = 48
var_Column1.AllowSizing = .f.
var_Column1.Alignment = 1
var_Column1.HeaderAlignment = 1
var_Column2 = oComboBox.Columns.Add("Image")
var_Column2.DisplayFilterButton = .t.
var_Column2.FilterList = 8480 'exShowExclude + exShowCheckBox + exSortItemsAsc
var_Column2.FilterType = 10
var_Column2.Width = 128
var_Column2.HeaderImage = 1
var_Column3 = oComboBox.Columns.Add("Images")
' var_Column3.Def(0) = .t.
oComboBox.TemplateDef = "dim var_Column3"
oComboBox.TemplateDef = var_Column3
oComboBox.Template = "var_Column3.Def(0) = True"
var_Column3.Width = 196
var_Column3.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images"
oComboBox.Columns.Item("Pos").Position = 3
var_Items = oComboBox.Items
hR = var_Items.AddItem("Root")
' var_Items.ItemDivider(hR) = 0
oComboBox.TemplateDef = "dim var_Items,hR"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = hR
oComboBox.Template = "var_Items.ItemDivider(hR) = 0"
' var_Items.ItemDividerLine(hR) = 0
oComboBox.TemplateDef = "dim var_Items,hR"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = hR
oComboBox.Template = "var_Items.ItemDividerLine(hR) = 0"
h = var_Items.InsertItem(hR,,"Child A")
' var_Items.CellImage(h,2) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellImage(h,2) = 1"
' var_Items.CellImages(h,3) = "1,2,3"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellImages(h,3) = `1,2,3`"
' var_Items.CellCaption(h,3) = "123"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,3) = `123`"
h = var_Items.InsertItem(hR,,"Child B")
' var_Items.CellState(h,0) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellState(h,0) = 1"
' var_Items.CellImage(h,2) = 3
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellImage(h,2) = 3"
' var_Items.CellImages(h,3) = "2,3,1"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellImages(h,3) = `2,3,1`"
' var_Items.CellCaption(h,3) = "231"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,3) = `231`"
' var_Items.SelectItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.SelectItem(h) = True"
h = var_Items.InsertItem(hR,,"Child C")
' var_Items.CellImage(h,2) = 2
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellImage(h,2) = 2"
' var_Items.CellState(h,3) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellState(h,3) = 1"
' var_Items.CellCaption(h,3) = "312"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,3) = `312`"
' var_Items.CellImages(h,3) = "3,1,2"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellImages(h,3) = `3,1,2`"
' var_Items.ExpandItem(hR) = .t.
oComboBox.TemplateDef = "dim var_Items,hR"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = hR
oComboBox.Template = "var_Items.ExpandItem(hR) = True"
oComboBox.EndUpdate()
|
|
575
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
' Fired after a new column has been added.
function AddColumn as v (Column as OLE::Exontrol.ComboBox.1::IColumn)
' Column.Def(48) = 2
' Column.Def(49) = 2
oComboBox = topparent:CONTROL_ACTIVEX1.activex
end function
Dim h as N
Dim hR as N
Dim oComboBox as P
Dim var_Appearance as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.ImageSize = 16
oComboBox.Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
var_Appearance = oComboBox.VisualAppearance
var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
oComboBox.HeaderBackColor = 80135878
oComboBox.SelBackColor = 67108864
oComboBox.SelForeColor = 65536
oComboBox.Template = "Background(20) = SelBackColor" // oComboBox.Background(20) = oComboBox.SelBackColor
oComboBox.Template = "Background(21) = SelForeColor" // oComboBox.Background(21) = oComboBox.SelForeColor
oComboBox.Template = "Background(26) = BackColor" // oComboBox.Background(26) = oComboBox.BackColor
oComboBox.Template = "Background(27) = ForeColor" // oComboBox.Background(27) = oComboBox.ForeColor
oComboBox.Template = "Background(32) = -1" // oComboBox.Background(32) = -1
oComboBox.Template = "Background(0) = 67108864" // oComboBox.Background(0) = 67108864
oComboBox.Template = "Background(41) = 67174657" // oComboBox.Background(41) = 67174657
oComboBox.Template = "Background(1) = 67109119" // oComboBox.Background(1) = 67109119
oComboBox.HeaderAppearance = 4
oComboBox.ShowFocusRect = .f.
oComboBox.SortBarVisible = .t.
oComboBox.BackColorSortBar = oComboBox.BackColor
oComboBox.BackColorLevelHeader = oComboBox.BackColor
oComboBox.FilterBarDropDownHeight = 1
oComboBox.IntegralHeight = .t.
var_Column = oComboBox.Columns.Add("Check")
' var_Column.Def(0) = .t.
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(0) = True"
var_Column.PartialCheck = .t.
var_Column.Width = 128
var_Column.DisplayFilterButton = .t.
var_Column.FilterList = 256
var_Column1 = oComboBox.Columns.Add("Pos")
var_Column1.FormatColumn = "1 pos ``"
var_Column1.AllowSort = .f.
var_Column1.Width = 48
var_Column1.AllowSizing = .f.
var_Column1.Alignment = 1
var_Column1.HeaderAlignment = 1
var_Column2 = oComboBox.Columns.Add("Image")
var_Column2.DisplayFilterButton = .t.
var_Column2.FilterList = 8480 'exShowExclude + exShowCheckBox + exSortItemsAsc
var_Column2.FilterType = 10
var_Column2.Width = 128
var_Column2.HeaderImage = 1
var_Column3 = oComboBox.Columns.Add("Images")
' var_Column3.Def(0) = .t.
oComboBox.TemplateDef = "dim var_Column3"
oComboBox.TemplateDef = var_Column3
oComboBox.Template = "var_Column3.Def(0) = True"
var_Column3.Width = 196
var_Column3.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images"
oComboBox.Columns.Item("Pos").Position = 3
var_Items = oComboBox.Items
hR = var_Items.AddItem("Root")
' var_Items.ItemDivider(hR) = 0
oComboBox.TemplateDef = "dim var_Items,hR"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = hR
oComboBox.Template = "var_Items.ItemDivider(hR) = 0"
' var_Items.ItemDividerLine(hR) = 0
oComboBox.TemplateDef = "dim var_Items,hR"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = hR
oComboBox.Template = "var_Items.ItemDividerLine(hR) = 0"
h = var_Items.InsertItem(hR,,"Child A")
' var_Items.CellImage(h,2) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellImage(h,2) = 1"
' var_Items.CellImages(h,3) = "1,2,3"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellImages(h,3) = `1,2,3`"
' var_Items.CellCaption(h,3) = "123"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,3) = `123`"
h = var_Items.InsertItem(hR,,"Child B")
' var_Items.CellState(h,0) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellState(h,0) = 1"
' var_Items.CellImage(h,2) = 3
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellImage(h,2) = 3"
' var_Items.CellImages(h,3) = "2,3,1"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellImages(h,3) = `2,3,1`"
' var_Items.CellCaption(h,3) = "231"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,3) = `231`"
' var_Items.SelectItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.SelectItem(h) = True"
h = var_Items.InsertItem(hR,,"Child C")
' var_Items.CellImage(h,2) = 2
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellImage(h,2) = 2"
' var_Items.CellState(h,3) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellState(h,3) = 1"
' var_Items.CellCaption(h,3) = "312"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,3) = `312`"
' var_Items.CellImages(h,3) = "3,1,2"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellImages(h,3) = `3,1,2`"
' var_Items.ExpandItem(hR) = .t.
oComboBox.TemplateDef = "dim var_Items,hR"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = hR
oComboBox.Template = "var_Items.ExpandItem(hR) = True"
oComboBox.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
' Occurs when the drop-down portion of the control is hidden.
function DropUp as v ()
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Template = "EditText(0) = ``" // oComboBox.EditText(0) = ""
end function
' Fired after a new item has been selected.
function SelectionChanged as v ()
oComboBox = topparent:CONTROL_ACTIVEX1.activex
? "You selected: "
? oComboBox.Value
end function
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LabelHeight = 23
oComboBox.IntegralHeight = .t.
oComboBox.AutoComplete = .f.
oComboBox.AutoSearch = .f.
oComboBox.AutoDropDown = .t.
' oComboBox.Columns.Add("Default").Prompt = "<i><fgcolor=808080>type something</fgcolor></i>"
var_Column = oComboBox.Columns.Add("Default")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Prompt = `<i><fgcolor=808080>type something</fgcolor></i>`"
var_Items = oComboBox.Items
var_Items.AddItem(0)
var_Items.AddItem(1)
var_Items.AddItem(2)
oComboBox.EndUpdate()
|
|
598
|
I want to fix/lock the first item in the control
' Occurs when the user presses and then releases the left mouse button over the list control.
function Click as v ()
Dim i as N
oComboBox = topparent:CONTROL_ACTIVEX1.activex
i = oComboBox.ItemFromPoint(-1,-1,c,hit)
oComboBox.LabelText = oComboBox.Items.CellCaption(i,0)
oComboBox.Template = "DropDown() = False" // oComboBox.DropDown() = .f.
end function
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.SearchColumnIndex = -1
oComboBox.AdjustSearchColumn = .f.
oComboBox.SingleEdit = .t.
oComboBox.Style = 2
oComboBox.HeaderVisible = .f.
oComboBox.IntegralHeight = .t.
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
' var_Items.LockedItemCount(0) = 1
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.LockedItemCount(0) = 1"
' var_Items.CellCaption(var_Items.LockedItem(0,0),0) = "(no assignment)"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(LockedItem(0,0),0) = `(no assignment)`"
' var_Items.ItemBackColor(var_Items.LockedItem(0,0)) = 65535
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemBackColor(LockedItem(0,0)) = 65535"
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
var_Items.AddItem("Item 3")
oComboBox.PutItems(oComboBox.GetItems(""))
oComboBox.EndUpdate()
|
|
162
|
I need to add a button in the scroll bar. Is this possible
Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Template = "ScrollPartVisible(1,32768) = True" // oComboBox.ScrollPartVisible(1,32768) = .t.
oComboBox.Template = "ScrollPartCaption(1,32768) = `1`" // oComboBox.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
' Fired after cell's state has been changed.
function CellStateChanged as v (Cell as OLE::Exontrol.ComboBox.1::HCELL)
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.LabelText = Cell
? oComboBox.Items.CellCaption(0,Cell)
? oComboBox.Items.CellState(0,Cell)
end function
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 2
oComboBox.IntegralHeight = .t.
oComboBox.HeaderVisible = .f.
oComboBox.SingleEdit = .t.
oComboBox.SearchColumnIndex = -1
oComboBox.AdjustSearchColumn = .f.
' oComboBox.Columns.Add("Language").Def(0) = .t.
var_Column = oComboBox.Columns.Add("Language")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(0) = True"
var_Items = oComboBox.Items
var_Items.AddItem("English")
var_Items.AddItem("Hebrew")
var_Items.AddItem("Spanish")
oComboBox.EndUpdate()
|
|
326
|
I have multiple columns, how can I display a single edit in the control's label
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.SingleEdit = .t.
oComboBox.Columns.Add("Column 1")
oComboBox.Columns.Add("Column 2")
var_Items = oComboBox.Items
' var_Items.CellCaption(var_Items.AddItem("Item 1"),1) = "SubItem 1"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`Item 1`),1) = `SubItem 1`"
' var_Items.CellCaption(var_Items.AddItem("Item 2"),1) = "SubItem 2"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`Item 2`),1) = `SubItem 2`"
' var_Items.CellCaption(var_Items.AddItem("Item 3"),1) = "SubItem 3"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`Item 3`),1) = `SubItem 3`"
|
|
255
|
I have a hierarchy, how can I count the number of root items
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.AddItem(var_Items.RootCount)
|
|
67
|
I have a hierarchy and I need to filter only root items that match, without thier childs
Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.LinesAtRoot = -1
oComboBox.FilterInclude = 2
var_Column = oComboBox.Columns.Add("Column")
var_Column.DisplayFilterButton = .t.
var_Column.FilterType = 240
var_Column.Filter = "R1"
var_Items = oComboBox.Items
h = var_Items.AddItem("R1")
var_Items.InsertItem(h,,"C1")
var_Items.InsertItem(h,,"C2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("R2")
var_Items.InsertItem(h,,"C1")
var_Items.InsertItem(h,,"C2")
oComboBox.ApplyFilter()
|