455. How can I change the color, font, bold etc for the items/cells in the same column or for the entire column
with thisform.ComboBox1 .BeginUpdate .MarkSearchColumn = .F. with .ConditionalFormats.Add("1") .Bold = .T. .ForeColor = RGB(255,0,0) .ApplyTo = 1 endwith .Columns.Add("C1") with .Columns.Add("C2") .HeaderBold = .T. .HTMLCaption = "<fgcolor=FF0000>C2" endwith with .Items .DefaultItem = .AddItem(10) .CellCaption(0,1) = 11 .DefaultItem = .AddItem(12) .CellCaption(0,1) = 13 endwith .EndUpdate endwith
454. How can I add a horizontal scroll bar
with thisform.ComboBox1 .BeginUpdate .ScrollBySingleLine = .T. .ColumnAutoResize = .F. .BackColorAlternate = RGB(240,240,240) with .Columns.Add("Default") .Width = 512 .Def(16) = .F. endwith with .Items var_s = "Exontrol is devoted to create innovative user interface components for Windows applications, on " var_s = var_s + "COM or .NET platforms, since 1999. "+chr(34)+"eXontrol"+chr(34)+" comes from e(s)pecial (c)ontrol, where sc makes th" var_s = var_s + "e X. We are a vendor not a reseller, and this is the single site where you can try or buy our pr" var_s = var_s + "oducts. If you are tired of looking for "+chr(34)+"powerful"+chr(34)+" components now it's time to show you real com" var_s = var_s + "ponents. No registration required, no nag screens, no limitations, unlimited evaluation time." .AddItem(var_s) var_s1 = "A combo box is a commonly-used GUI tool. It is a combination of a drop-down list or list box and" var_s1 = var_s1 + " a single-line textbox, allowing the user either to type a value directly into the control or ch" var_s1 = var_s1 + "oose from the list of existing options." .AddItem(var_s1) endwith .EndUpdate endwith
453. Does the control have the option to have a horizontal scroll to show entries which are longer than the display
with thisform.ComboBox1 .BeginUpdate .ColumnAutoResize = .F. .Columns.Add("Default").Width = 512 with .Items var_s = "Exontrol is devoted to create innovative user interface components for Windows applications, on " var_s = var_s + "COM or .NET platforms, since 1999. "+chr(34)+"eXontrol"+chr(34)+" comes from e(s)pecial (c)ontrol, where sc makes th" var_s = var_s + "e X. We are a vendor not a reseller, and this is the single site where you can try or buy our pr" var_s = var_s + "oducts. If you are tired of looking for "+chr(34)+"powerful"+chr(34)+" components now it's time to show you real com" var_s = var_s + "ponents. No registration required, no nag screens, no limitations, unlimited evaluation time." .AddItem(var_s) var_s1 = "A combo box is a commonly-used GUI tool. It is a combination of a drop-down list or list box and" var_s1 = var_s1 + " a single-line textbox, allowing the user either to type a value directly into the control or ch" var_s1 = var_s1 + "oose from the list of existing options." .AddItem(var_s1) endwith .EndUpdate endwith
452. Is it possible to auto-numbering the children items but still keeps the position after filtering
with thisform.ComboBox1 .BeginUpdate .LinesAtRoot = -1 with .Columns.Add("Items") .DisplayFilterButton = .T. .FilterType = 240 .Filter = "Child 2" endwith with .Columns.Add("Pos.1") .FormatColumn = "1 ropos ''" .Position = 0 .Width = 32 .AllowSizing = .F. endwith with .Columns.Add("Pos.2") .FormatColumn = "1 ropos ':'" .Position = 1 .Width = 32 .AllowSizing = .F. endwith with .Columns.Add("Pos.3") .FormatColumn = "1 ropos ':|A-Z'" .Position = 2 .Width = 32 .AllowSizing = .F. endwith with .Columns.Add("Pos.4") .FormatColumn = "1 ropos '|A-Z|'" .Position = 3 .Width = 32 .AllowSizing = .F. endwith with .Columns.Add("Pos.5") .FormatColumn = "'<font Tahoma;7>' + 1 ropos '-<b>||A-Z'" .Def(17) = 1 .Position = 4 .Width = 32 .AllowSizing = .F. endwith with .Columns.Add("Pos.6") .FormatColumn = "'<b>'+ 1 ropos '</b>:<fgcolor=FF0000>|A-Z|'" .Def(17) = 1 .Position = 5 .Width = 48 .AllowSizing = .F. endwith with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") endwith .ApplyFilter .EndUpdate endwith
451. How do I prevent scrolling the control's data after user does the sort
with thisform.ComboBox1 .EnsureOnSort = .F. .Columns.Add("Column") with .Items .AddItem("Item 3") .AddItem("Item 1") .AddItem("Item 2") endwith .PutItems(.GetItems(0)) .PutItems(.GetItems(0)) .PutItems(.GetItems(0)) .Columns.Item(0).SortOrder = 1 endwith
450. Is it possible to auto-numbering the children items too
with thisform.ComboBox1 .BeginUpdate .LinesAtRoot = -1 .Columns.Add("Items") with .Columns.Add("Pos.1") .FormatColumn = "1 rpos ''" .Position = 0 .Width = 32 .AllowSizing = .F. endwith with .Columns.Add("Pos.2") .FormatColumn = "1 rpos ':'" .Position = 1 .Width = 32 .AllowSizing = .F. endwith with .Columns.Add("Pos.3") .FormatColumn = "1 rpos ':|A-Z'" .Position = 2 .Width = 32 .AllowSizing = .F. endwith with .Columns.Add("Pos.4") .FormatColumn = "1 rpos '|A-Z|'" .Position = 3 .Width = 32 .AllowSizing = .F. endwith with .Columns.Add("Pos.5") .FormatColumn = "'<font Tahoma;7>' + 1 rpos '-<b>||A-Z'" .Def(17) = 1 .Position = 4 .Width = 32 .AllowSizing = .F. endwith with .Columns.Add("Pos.6") .FormatColumn = "'<b>'+ 1 rpos '</b>:<fgcolor=FF0000>|A-Z|'" .Def(17) = 1 .Position = 5 .Width = 48 .AllowSizing = .F. endwith with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") endwith .EndUpdate endwith
449. How can I show the child items with no identation
with thisform.ComboBox1 .LinesAtRoot = 5 .Indent = 12 .HasLines = 2 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Child 3") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Child 3") endwith endwith
448. Is there other ways of showing the hierarchy lines (exGroupLinesAtRoot)
with thisform.ComboBox1 .LinesAtRoot = 1 .Indent = 12 .Columns.Add("Default") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Child 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
447. Is there other ways of showing the hierarchy lines (exGroupLinesOutside)
with thisform.ComboBox1 .LinesAtRoot = 5 .Indent = 12 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Child 3") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Child 3") endwith endwith
446. Is there other ways of showing the hierarchy lines (exGroupLinesInsideLeaf)
with thisform.ComboBox1 .LinesAtRoot = 4 .Indent = 12 .Columns.Add("Default") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Child 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
445. Is there other ways of showing the hierarchy lines (exGroupLinesInside)
with thisform.ComboBox1 .LinesAtRoot = 3 .Indent = 12 .Columns.Add("Default") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Child 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
444. Is there other ways of showing the hierarchy lines (exGroupLines)
with thisform.ComboBox1 .LinesAtRoot = 2 .Indent = 12 .Columns.Add("Default") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(.InsertItem(h,0,"Child 2"),0,"SubChild 2") .InsertItem(h,0,"Child 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
443. Is it possible display numbers in the same format no matter of regional settings in the control panel
with thisform.ComboBox1 .BeginUpdate .Columns.Add("Def").Def(17) = 1 with .Items h = .AddItem(100000.27) .DefaultItem = h .FormatCell(0,0) = "(value format '') + ' <fgcolor=808080>(default positive)'" h = .AddItem(100000.27) .DefaultItem = h .FormatCell(0,0) = "(value format '2|.|3|,|1|1')" h = .AddItem(-100000.27) .DefaultItem = h .FormatCell(0,0) = "(value format '') + ' <fgcolor=808080>(default negative)'" h = .AddItem(-100000.27) .DefaultItem = h .FormatCell(0,0) = "(value format '2|.|3|,|1|1')" endwith .EndUpdate endwith
442. Is it possible to add a 0 for numbers less than 1 instead .7 to show 0.8
with thisform.ComboBox1 .BeginUpdate .Columns.Add("Def").Def(17) = 1 with .Items h = .AddItem(0.27) .DefaultItem = h .FormatCell(0,0) = "(value format '') + ' <fgcolor=808080>(default)'" h = .AddItem(0.27) .DefaultItem = h .FormatCell(0,0) = "(value format '|||||0') + ' <fgcolor=808080>(Display no leading zeros)'" endwith .EndUpdate endwith
441. How can I specify the format for negative numbers
with thisform.ComboBox1 .BeginUpdate .Columns.Add("Def").Def(17) = 1 with .Items h = .AddItem(-100000.27) .DefaultItem = h .FormatCell(0,0) = "(value format '') + ' <fgcolor=808080>(default)'" h = .AddItem(-100000.27) .DefaultItem = h .FormatCell(0,0) = "(value format '||||1') + ' <fgcolor=808080>(Negative sign, number; for example, -1.1)'" endwith .EndUpdate endwith
440. Is it possible to change the grouping character when display numbers
with thisform.ComboBox1 .BeginUpdate .Columns.Add("Def").Def(17) = 1 with .Items h = .AddItem(100000.27) .DefaultItem = h .FormatCell(0,0) = "(value format '') + ' <fgcolor=808080>(default)'" h = .AddItem(100000.27) .DefaultItem = h .FormatCell(0,0) = "(value format '|||-') + ' <fgcolor=808080>(grouping character is -)'" endwith .EndUpdate endwith
439. How can I display numbers with 2 digits in each group
with thisform.ComboBox1 .BeginUpdate .Columns.Add("Def").Def(17) = 1 with .Items h = .AddItem(100000.27) .DefaultItem = h .FormatCell(0,0) = "(value format '') + ' <fgcolor=808080>(default)'" h = .AddItem(100000.27) .DefaultItem = h .FormatCell(0,0) = "(value format '||2') + ' <fgcolor=808080>(grouping by 2 digits)'" endwith .EndUpdate endwith
438. How can I display my numbers using a different decimal separator
with thisform.ComboBox1 .BeginUpdate .Columns.Add("Def").Def(17) = 1 with .Items h = .AddItem(100.27) .DefaultItem = h .FormatCell(0,0) = "(value format '') + ' <fgcolor=808080>(default)'" h = .AddItem(100.27) .DefaultItem = h .FormatCell(0,0) = "(value format '|;') + ' <fgcolor=808080>(decimal separator is <b>;</b>)'" endwith .EndUpdate endwith
437. Is it possible to display the numbers using 3 (three) digits
with thisform.ComboBox1 .BeginUpdate .Columns.Add("Def").Def(17) = 1 with .Items h = .AddItem(100.27) .DefaultItem = h .FormatCell(0,0) = "(value format '') + ' <fgcolor=808080>(default)'" h = .AddItem(100.27) .DefaultItem = h .FormatCell(0,0) = "(value format '3') + ' <fgcolor=808080>(3 digits)'" h = .AddItem(100.27) .DefaultItem = h .FormatCell(0,0) = "(value format 2) + ' <fgcolor=808080>(2 digits)'" h = .AddItem(100.27) .DefaultItem = h .FormatCell(0,0) = "(value format 1) + ' <fgcolor=808080>(1 digit)'" endwith .EndUpdate endwith
436. Is it possible to format numbers
with thisform.ComboBox1 .BeginUpdate .MarkSearchColumn = .F. with .Columns .Add("Name") with .Add("A") .SortType = 1 .AllowSizing = .F. .Width = 36 .FormatColumn = "len(value) ? value + ' +'" endwith with .Add("B") .SortType = 1 .AllowSizing = .F. .Width = 36 .FormatColumn = "len(value) ? value + ' +'" endwith with .Add("C") .SortType = 1 .AllowSizing = .F. .Width = 36 .FormatColumn = "len(value) ? value + ' ='" endwith with .Add("A+B+C") .SortType = 1 .Width = 64 .ComputedField = "dbl(%1)+dbl(%2)+dbl(%3)" var_s = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' )" var_s = var_s + " : (dbl(value)>0 ? '<fgcolor=0000FF>+'+(value format '2|.|3|,' ): '0.00') )" .FormatColumn = var_s .Def(17) = 1 endwith endwith with .Items h = .AddItem("Root") .DefaultItem = h .CellCaptionFormat(0,4) = 2 h1 = .InsertItem(h,0,"Child 1") .DefaultItem = h1 .CellCaption(0,1) = 7 .DefaultItem = h1 .CellCaption(0,2) = 3 .DefaultItem = h1 .CellCaption(0,3) = 1 h1 = .InsertItem(h,0,"Child 2") .DefaultItem = h1 .CellCaption(0,1) = -2 .DefaultItem = h1 .CellCaption(0,2) = -2 .DefaultItem = h1 .CellCaption(0,3) = -4 h1 = .InsertItem(h,0,"Child 3") .DefaultItem = h1 .CellCaption(0,1) = 2 .DefaultItem = h1 .CellCaption(0,2) = 2 .DefaultItem = h1 .CellCaption(0,3) = -4 .DefaultItem = h .ExpandItem(0) = .T. endwith .EndUpdate endwith
435. Is it possible to limit the height of the item while resizing
*** InsertItem event - Occurs after a new item has been inserted to Items collection. *** LPARAMETERS Item with thisform.ComboBox1 .DefaultItem = Item .Items.ItemMinHeight(0) = 18 .DefaultItem = Item .Items.ItemMaxHeight(0) = 72 endwith with thisform.ComboBox1 .BeginUpdate .ItemsAllowSizing = -1 .ScrollBySingleLine = .F. .BackColorAlternate = RGB(240,240,240) .Columns.Add("Names") with .Items .AddItem("Mantel") .AddItem("Mechanik") .AddItem("Motor") .AddItem("Murks") .AddItem("Märchen") .AddItem("Möhren") .AddItem("Mühle") endwith .Columns.Item(0).SortOrder = 1 .EndUpdate endwith
434. How can I simulate displaying groups
with thisform.ComboBox1 .HasLines = 0 .ScrollBySingleLine = .T. with .Columns .Add("Name") .Add("A") .Add("B") .Add("C") endwith with .Items h = .AddItem("Group 1") .DefaultItem = h .CellHAlignment(0,0) = 1 .DefaultItem = h .ItemDivider(0) = 0 .DefaultItem = h .ItemDividerLineAlignment(0) = 3 .DefaultItem = h .ItemHeight(0) = 24 .DefaultItem = h .SortableItem(0) = .F. h1 = .InsertItem(h,0,"Child 1") .DefaultItem = h1 .CellCaption(0,1) = 1 .DefaultItem = h1 .CellCaption(0,2) = 2 .DefaultItem = h1 .CellCaption(0,3) = 3 h1 = .InsertItem(h,0,"Child 2") .DefaultItem = h1 .CellCaption(0,1) = 4 .DefaultItem = h1 .CellCaption(0,2) = 5 .DefaultItem = h1 .CellCaption(0,3) = 6 .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Group 2") .DefaultItem = h .CellHAlignment(0,0) = 1 .DefaultItem = h .ItemDivider(0) = 0 .DefaultItem = h .ItemDividerLineAlignment(0) = 3 .DefaultItem = h .ItemHeight(0) = 24 .DefaultItem = h .SortableItem(0) = .F. h1 = .InsertItem(h,0,"Child 1") .DefaultItem = h1 .CellCaption(0,1) = 1 .DefaultItem = h1 .CellCaption(0,2) = 2 .DefaultItem = h1 .CellCaption(0,3) = 3 h1 = .InsertItem(h,0,"Child 2") .DefaultItem = h1 .CellCaption(0,1) = 4 .DefaultItem = h1 .CellCaption(0,2) = 5 .DefaultItem = h1 .CellCaption(0,3) = 6 .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
433. How can I specify an item to be always the first item
with thisform.ComboBox1 .BeginUpdate .TreeColumnIndex = -1 .Columns.Add("Numbers").SortType = 1 with .Items .AddItem(1) .AddItem(2) .AddItem(3) .AddItem(4) h = .AddItem("first") .DefaultItem = h .ItemPosition(0) = 0 .DefaultItem = h .CellHAlignment(0,0) = 2 .DefaultItem = h .SortableItem(0) = .F. .SortChildren(0,0,.F.) endwith .EndUpdate endwith
432. How can I specify an item to be always the last item
with thisform.ComboBox1 .BeginUpdate .TreeColumnIndex = -1 .Columns.Add("Numbers").SortType = 1 with .Items .AddItem(1) .AddItem(2) .AddItem(3) .AddItem(4) h = .AddItem("last") .DefaultItem = h .CellHAlignment(0,0) = 2 .DefaultItem = h .SortableItem(0) = .F. .SortChildren(0,0,.T.) endwith .EndUpdate endwith
431. Can I allow sorting only the child items
with thisform.ComboBox1 .BeginUpdate .Columns.Add("Childs") with .Items h = .AddItem("Root 1") .DefaultItem = h .SortableItem(0) = .F. .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2") .DefaultItem = h .SortableItem(0) = .F. .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. endwith .EndUpdate endwith
430. Can I specify a terminal item so it will mark the end of childs
with thisform.ComboBox1 .BeginUpdate .ScrollBySingleLine = .T. .Columns.Add("P1") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. h = .InsertItem(h,"","") .DefaultItem = h .ItemDivider(0) = 0 .DefaultItem = h .ItemDividerLineAlignment(0) = 1 .DefaultItem = h .ItemHeight(0) = 2 .DefaultItem = h .SelectableItem(0) = .F. .DefaultItem = h .SortableItem(0) = .F. h = .AddItem("Root 2") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. h = .InsertItem(h,"","") .DefaultItem = h .ItemDivider(0) = 0 .DefaultItem = h .ItemDividerLineAlignment(0) = 1 .DefaultItem = h .ItemHeight(0) = 2 .DefaultItem = h .SelectableItem(0) = .F. .DefaultItem = h .SortableItem(0) = .F. endwith .EndUpdate endwith
429. Is it possible to specify an item being unsortable so its position won't be changed after sorting
with thisform.ComboBox1 .BeginUpdate .TreeColumnIndex = -1 .Columns.Add("Numbers").SortType = 1 with .Items .AddItem(1) .AddItem(2) .AddItem(3) .AddItem(4) h = .AddItem("top 3") .DefaultItem = h .ItemPosition(0) = 3 .DefaultItem = h .CellHAlignment(0,0) = 2 .DefaultItem = h .SortableItem(0) = .F. .SortChildren(0,0,.F.) endwith .EndUpdate endwith
428. Can I specify an item to be a separator
with thisform.ComboBox1 .BeginUpdate .TreeColumnIndex = -1 .SortOnClick = 0 .Columns.Add("Numbers") with .Items .AddItem(1) .AddItem(2) h = .AddItem("separator") .DefaultItem = h .SelectableItem(0) = .F. .DefaultItem = h .ItemDivider(0) = 0 .DefaultItem = h .ItemDividerLineAlignment(0) = 1 .DefaultItem = h .ItemDividerLine(0) = 5 .DefaultItem = h .CellHAlignment(0,0) = 1 .AddItem(3) .AddItem(4) endwith .EndUpdate endwith
427. How can I collapse all items
with thisform.ComboBox1 .BeginUpdate .LinesAtRoot = -1 .Columns.Add("Items") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") h = .AddItem("Root 2") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .ExpandItem(0) = .F. endwith .EndUpdate endwith
426. How can I expand all items
with thisform.ComboBox1 .BeginUpdate .LinesAtRoot = -1 .Columns.Add("Items") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") h = .AddItem("Root 2") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .ExpandItem(0) = .T. endwith .EndUpdate endwith
425. Is it possible to specify the cell's value but still want to display some formatted text instead the value
with thisform.ComboBox1 .BeginUpdate .MarkSearchColumn = .F. .Columns.Add("Value") .Columns.Add("FormatCell") with .Items h = .AddItem(1) .DefaultItem = h .CellCaption(0,1) = 12 .DefaultItem = h .FormatCell(0,1) = "currency(value)" h = .AddItem({^2001-1-1}) .DefaultItem = h .CellCaption(0,1) = {^2001-1-1} .DefaultItem = h .CellCaptionFormat(0,1) = 1 .DefaultItem = h .FormatCell(0,1) = "longdate(value) replace '2001' with '<b>2001</b>'" endwith .EndUpdate endwith
424. How can I change the foreground color for a particular column
with thisform.ComboBox1 with .Columns .Add("Column 1") .Add("Column 2").Def(8) = 8439039 .Add("Column 3") endwith endwith
423. How can I change the background color for a particular column
with thisform.ComboBox1 with .Columns .Add("Column 1") .Add("Column 2").Def(7) = 8439039 .Add("Column 3") endwith endwith
422. How can I display the column using currency format and enlarge the font for certain values
with thisform.ComboBox1 with .Columns.Add("Currency") .Def(17) = 1 .FormatColumn = "len(value) ? ((0:=dbl(value)) < 10 ? '<fgcolor=808080><font ;7>' : '<b>') + currency(=:0)" endwith with .Items .AddItem("1.23") .AddItem("2.34") .AddItem("9.94") .AddItem("11.94") .AddItem("1000") endwith endwith
421. How can I highlight only parts of the cells
with thisform.ComboBox1 with .Columns.Add("") .Def(17) = 1 .FormatColumn = "value replace 'hil' with '<fgcolor=FF0000><b>hil</b></fgcolor>'" endwith with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Child 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
420. How can I get the number of occurrences of a specified string in the cell
with thisform.ComboBox1 .Columns.Add("") with .Columns.Add("occurrences") .ComputedField = "lower(%0) count 'o'" .FormatColumn = "'contains ' + value + ' of \'o\' chars'" endwith with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1 oooof the root") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Child 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
419. How can I display dates in my format
with thisform.ComboBox1 with .Columns.Add("Date") .Def(17) = 1 var_s = "'<b>' + year(0:=date(value)) + '</b><fgcolor=808080><font ;6> (' + month(=:0) + ' - ' + day(=:0)" var_s = var_s + " +')'" .FormatColumn = var_s endwith with .Items .AddItem({^2001-1-21}) .AddItem({^2002-2-22}) .AddItem({^2003-3-13}) .AddItem({^2004-4-24}) endwith endwith
418. How can I display dates in short format
with thisform.ComboBox1 .Columns.Add("Date").FormatColumn = "shortdate(value)" with .Items .AddItem({^2001-1-1}) .AddItem({^2002-2-2}) .AddItem({^2003-3-3}) .AddItem({^2004-4-4}) endwith endwith
417. How can I display dates in long format
with thisform.ComboBox1 .Columns.Add("Date").FormatColumn = "longdate(value)" with .Items .AddItem({^2001-1-1}) .AddItem({^2002-2-2}) .AddItem({^2003-3-3}) .AddItem({^2004-4-4}) endwith endwith
416. How can I display only the right part of the cell
with thisform.ComboBox1 .Columns.Add("") with .Columns.Add("Right") .ComputedField = "%0 right 2" .FormatColumn = "'"+chr(34)+"' + value + '"+chr(34)+"'" endwith with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"SChild 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
415. How can I display true or false instead 0 and -1
with thisform.ComboBox1 .Columns.Add("Boolean").FormatColumn = "value != 0 ? 'true' : 'false'" with .Items .AddItem(.T.) .AddItem(.F.) .AddItem(.T.) .AddItem(0) .AddItem(1) endwith endwith
414. How can I display icons or images instead numbers
with thisform.ComboBox1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) with .Columns.Add("Icons") .Def(17) = 1 .FormatColumn = "'The cell displays the icon <img>'+value+'</img> instead ' + value" endwith with .Items .AddItem(1) .AddItem(2) .AddItem(3) endwith endwith
413. How can I display the column using currency
with thisform.ComboBox1 .Columns.Add("Currency").FormatColumn = "currency(dbl(value))" with .Items .AddItem("1.23") .AddItem("2.34") .AddItem("0") .AddItem(5) .AddItem("10000.99") endwith endwith
412. How can I filter programatically using more columns
with thisform.ComboBox1 .BeginUpdate .MarkSearchColumn = .F. with .Columns .Add("Car") .Add("Equipment") endwith with .Items .DefaultItem = .AddItem("Mazda") .CellCaption(0,1) = "Air Bag" .DefaultItem = .AddItem("Toyota") .CellCaption(0,1) = "Air Bag,Air condition" .DefaultItem = .AddItem("Ford") .CellCaption(0,1) = "Air condition" .DefaultItem = .AddItem("Nissan") .CellCaption(0,1) = "Air Bag,ABS,ESP" .DefaultItem = .AddItem("Mazda") .CellCaption(0,1) = "Air Bag, ABS,ESP" .DefaultItem = .AddItem("Mazda") .CellCaption(0,1) = "ABS,ESP" endwith with .Columns.Item("Car") .FilterType = 240 .Filter = "Mazda" endwith with .Columns.Item("Equipment") .FilterType = 3 .Filter = "*ABS*|*ESP*" endwith .ApplyFilter .EndUpdate endwith
411. I need a combobox that supports selecting multiple items, preferably with checkboxes. I can't find an example of how to do this. Does your control support it
*** CellStateChanged event - Fired after cell's state has been changed. *** LPARAMETERS Cell with thisform.ComboBox1 .LabelText = Cell DEBUGOUT( .Items.CellCaption(0,Cell) ) DEBUGOUT( .Items.CellState(0,Cell) ) endwith with thisform.ComboBox1 .BeginUpdate .Style = 2 .IntegralHeight = .T. .HeaderVisible = .F. .SingleEdit = .T. .SearchColumnIndex = -1 .AdjustSearchColumn = .F. .Columns.Add("Language").Def(0) = .T. with .Items .AddItem("English") .AddItem("Hebrew") .AddItem("Spanish") endwith .EndUpdate endwith
410. How can I display a different caption in the label area, when I click the cell's check box
*** CellStateChanged event - Fired after cell's state has been changed. *** LPARAMETERS Cell with thisform.ComboBox1 .LabelText = Cell DEBUGOUT( .Items.CellCaption(0,Cell) ) DEBUGOUT( .Items.CellState(0,Cell) ) endwith with thisform.ComboBox1 .BeginUpdate .Style = 2 .IntegralHeight = .T. .HeaderVisible = .F. .SingleEdit = .T. .SearchColumnIndex = -1 .AdjustSearchColumn = .F. .Columns.Add("Language").Def(0) = .T. with .Items .AddItem("English") .AddItem("Hebrew") .AddItem("Spanish") endwith .LabelText = " <b>custom</b> text " .EndUpdate endwith
409. How can I display a different caption in the label area
with thisform.ComboBox1 .BeginUpdate .Style = 2 .IntegralHeight = .T. .HeaderVisible = .F. .SingleEdit = .T. .SearchColumnIndex = -1 .AdjustSearchColumn = .F. .Columns.Add("Language").Def(0) = .T. with .Items .AddItem("English") .AddItem("Hebrew") .AddItem("Spanish") endwith .LabelText = " <b>custom</b> text " .EndUpdate endwith
408. How can I change the background appearance (ebn) for the filter field in the bottom part of the drop down portion
with thisform.ComboBox1 .BeginUpdate .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .FilterForVisible = .T. .FilterForBackColor = 0x1000000 .IntegralHeight = .T. .Columns.Add("Default") with .Items .AddItem("Item 1") .AddItem("Item 2") .AddItem("Item 3") .AddItem("Item 4") .AddItem("Item 5") endwith .EndUpdate endwith
407. How can I change the background color for the filter field in the bottom part of the drop down portion
with thisform.ComboBox1 .BeginUpdate .FilterForVisible = .T. .FilterForBackColor = RGB(240,240,240) .IntegralHeight = .T. .Columns.Add("Default") with .Items .AddItem("Item 1") .AddItem("Item 2") .AddItem("Item 3") .AddItem("Item 4") .AddItem("Item 5") endwith .EndUpdate endwith
406. How can I display a filter field in the bottom part of the drop down portion
with thisform.ComboBox1 .BeginUpdate .FilterForVisible = .T. .IntegralHeight = .T. .Columns.Add("Default") with .Items .AddItem("Item 1") .AddItem("Item 2") .AddItem("Item 3") .AddItem("Item 4") .AddItem("Item 5") endwith .EndUpdate endwith
405. Does your control support RightToLeft property for RTL languages or right to left
with thisform.ComboBox1 .BeginUpdate .LinesAtRoot = -1 with .Columns.Add("P1") .Def(0) = .T. .PartialCheck = .T. endwith with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. endwith .RightToLeft = .T. .EndUpdate endwith
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
with thisform.ComboBox1 .BeginUpdate with .Columns .Add("C1") .Add("C2") .Add("C3") .Add("C4") .Add("C5") .Add("C6") .Add("C7") .Add("C8") endwith .RightToLeft = .T. .EndUpdate endwith
403. Can I display the cell's check box after the text
with thisform.ComboBox1 with .Columns.Add("Column") .Def(0) = .T. .Def(34) = "caption,check" endwith with .Items .DefaultItem = .AddItem("Caption 1") .CellHasCheckBox(0,0) = .T. .DefaultItem = .AddItem("Caption 2") .CellHasCheckBox(0,0) = .T. endwith endwith
402. Can I change the order of the parts in the cell, as checkbox after the text, and so on
with thisform.ComboBox1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Columns.Add("Column").Def(34) = "caption,check,icon,icons,picture" with .Items h = .AddItem("Text") .DefaultItem = h .CellImage(0,0) = 1 .DefaultItem = h .CellHasCheckBox(0,0) = .T. endwith endwith
401. Can I have an image displayed after the text. Can I get that effect without using HTML content
with thisform.ComboBox1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Columns.Add("Column").Def(34) = "caption,icon,check,icons,picture" with .Items h = .AddItem("Text") .DefaultItem = h .CellImage(0,0) = 1 endwith endwith
400. How can I display the column using currency format and enlarge the font for certain values
with thisform.ComboBox1 with .Columns.Add("Currency") .Def(17) = 1 .FormatColumn = "len(value) ? ((0:=dbl(value)) < 10 ? '<fgcolor=808080><font ;7>' : '<b>') + currency(=:0)" endwith with .Items .AddItem("1.23") .AddItem("2.34") .AddItem("9.94") .AddItem("11.94") .AddItem("1000") endwith endwith
399. How can I get the number of occurrences of a specified string in the cell
with thisform.ComboBox1 .Columns.Add("") with .Columns.Add("occurrences") .ComputedField = "lower(%0) count 'o'" .FormatColumn = "'contains ' + value + ' of \'o\' chars'" endwith with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1 oooof the root") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Child 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
398. How can I display dates in my format
with thisform.ComboBox1 with .Columns.Add("Date") .Def(17) = 1 var_s = "'<b>' + year(0:=date(value)) + '</b><fgcolor=808080><font ;6> (' + month(=:0) + ' - ' + day(=:0)" var_s = var_s + " +')'" .FormatColumn = var_s endwith with .Items .AddItem({^2001-1-21}) .AddItem({^2002-2-22}) .AddItem({^2003-3-13}) .AddItem({^2004-4-24}) endwith endwith
397. How can I display dates in short format
with thisform.ComboBox1 .Columns.Add("Date").FormatColumn = "shortdate(value)" with .Items .AddItem({^2001-1-1}) .AddItem({^2002-2-2}) .AddItem({^2003-3-3}) .AddItem({^2004-4-4}) endwith endwith
396. How can I display dates in long format
with thisform.ComboBox1 .Columns.Add("Date").FormatColumn = "longdate(value)" with .Items .AddItem({^2001-1-1}) .AddItem({^2002-2-2}) .AddItem({^2003-3-3}) .AddItem({^2004-4-4}) endwith endwith
395. How can I display only the right part of the cell
with thisform.ComboBox1 .Columns.Add("") with .Columns.Add("Right") .ComputedField = "%0 right 2" .FormatColumn = "'"+chr(34)+"' + value + '"+chr(34)+"'" endwith with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"SChild 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
394. How can I display only the left part of the cell
with thisform.ComboBox1 .Columns.Add("") .Columns.Add("Left").ComputedField = "%0 left 2" with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"SChild 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
393. How can I display true or false instead 0 and -1
with thisform.ComboBox1 .Columns.Add("Boolean").FormatColumn = "value != 0 ? 'true' : 'false'" with .Items .AddItem(.T.) .AddItem(.F.) .AddItem(.T.) .AddItem(0) .AddItem(1) endwith endwith
392. How can I display icons or images instead numbers
with thisform.ComboBox1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) with .Columns.Add("Icons") .Def(17) = 1 .FormatColumn = "'The cell displays the icon <img>'+value+'</img> instead ' + value" endwith with .Items .AddItem(1) .AddItem(2) .AddItem(3) endwith endwith
391. How can I display the column using currency
with thisform.ComboBox1 .Columns.Add("Currency").FormatColumn = "currency(dbl(value))" with .Items .AddItem("1.23") .AddItem("2.34") .AddItem("0") .AddItem(5) .AddItem("10000.99") endwith endwith
390. How can I display the currency only for not empty cells
with thisform.ComboBox1 .Columns.Add("Number") .Columns.Add("Currency").ComputedField = "len(%0) ? currency(dbl(%0)) : ''" with .Items .AddItem("1.23") .AddItem("2.34") .AddItem("0") .DefaultItem = .AddItem() .ItemBackColor(0) = RGB(255,128,128) .AddItem("10000.99") endwith endwith
389. Is there a function to display the number of days between two date including the number of hours
with thisform.ComboBox1 .Columns.Add("Start").Width = 32 .Columns.Add("End") var_s = "2:=((1:=int(0:= date(%1)-date(%0))) = 0 ? '' : str(=:1) + ' day(s)') + ( 3:=round(24*(=:0-floor(" var_s = var_s + "=:0))) ? (len(=:2) ? ' and ' : '') + =:3 + ' hour(s)' : '' )" .Columns.Add("Duration").ComputedField = var_s with .Items h = .AddItem({^2001-1-11}) .DefaultItem = h .CellCaption(0,1) = {^2001-1-14} h = .AddItem({^2002-2-22 12:00:00}) .DefaultItem = h .CellCaption(0,1) = {^2002-3-14 13:00:00} h = .AddItem({^2003-3-13}) .DefaultItem = h .CellCaption(0,1) = {^2003-4-11 11:00:00} endwith endwith
388. Is there a function to display the number of days between two date including the number of hours
with thisform.ComboBox1 .Columns.Add("Start") .Columns.Add("End") var_s = ""+chr(34)+"D "+chr(34)+" + int(date(%1)-date(%0)) + "+chr(34)+" H "+chr(34)+" + round(24*(date(%1)-date(%0) - floor(date(%1)-date(%0))))" .Columns.Add("Duration").ComputedField = var_s with .Items h = .AddItem({^2001-1-11}) .DefaultItem = h .CellCaption(0,1) = {^2001-1-14 23:00:00} h = .AddItem({^2002-2-22 12:00:00}) .DefaultItem = h .CellCaption(0,1) = {^2002-3-14 13:00:00} h = .AddItem({^2003-3-13}) .DefaultItem = h .CellCaption(0,1) = {^2003-4-11 11:00:00} endwith endwith
387. How can I display the number of days between two dates
with thisform.ComboBox1 .Columns.Add("Start") .Columns.Add("End") .Columns.Add("Duration").ComputedField = "(date(%1)-date(%0)) + ' days'" with .Items h = .AddItem({^2001-1-11}) .DefaultItem = h .CellCaption(0,1) = {^2001-1-14} h = .AddItem({^2002-2-22}) .DefaultItem = h .CellCaption(0,1) = {^2002-3-14} h = .AddItem({^2003-3-13}) .DefaultItem = h .CellCaption(0,1) = {^2003-4-11} endwith endwith
386. How can I get second part of the date
with thisform.ComboBox1 .Columns.Add("Date") .Columns.Add("Second").ComputedField = "sec(date(%0))" with .Items .AddItem({^2001-1-11 10:10:00}) .AddItem({^2002-2-22 11:01:22}) .AddItem({^2003-3-13 12:23:01}) .AddItem({^2004-4-14 13:11:59}) endwith endwith
385. How can I get minute part of the date
with thisform.ComboBox1 .Columns.Add("Date") .Columns.Add("Minute").ComputedField = "min(date(%0))" with .Items .AddItem({^2001-1-11 10:10:00}) .AddItem({^2002-2-22 11:01:00}) .AddItem({^2003-3-13 12:23:00}) .AddItem({^2004-4-14 13:11:00}) endwith endwith
384. How can I check the hour part only so I know it was afternoon
with thisform.ComboBox1 .ConditionalFormats.Add("hour(%0)>=12").Bold = .T. .Columns.Add("Date") .Columns.Add("Hour").ComputedField = "hour(%0)" with .Items .AddItem({^2001-1-11 10:00:00}) .AddItem({^2002-2-22 11:00:00}) .AddItem({^2003-3-13 12:00:00}) .AddItem({^2004-4-14 13:00:00}) endwith endwith
383. What about a function to get the day in the week, or days since Sunday
with thisform.ComboBox1 .Columns.Add("Date") .Columns.Add("WeekDay").ComputedField = "weekday(%0)" with .Items .AddItem({^2001-1-11 10:00:00}) .AddItem({^2002-2-22 11:00:00}) .AddItem({^2003-3-13 12:00:00}) .AddItem({^2004-4-14 13:00:00}) endwith endwith
382. Is there any function to get the day of the year or number of days since January 1st
with thisform.ComboBox1 .Columns.Add("Date") .Columns.Add("Day since January 1st").ComputedField = "yearday(%0)" with .Items .AddItem({^2001-1-11 10:00:00}) .AddItem({^2002-2-22 11:00:00}) .AddItem({^2003-3-13 12:00:00}) .AddItem({^2004-4-14 13:00:00}) endwith endwith
381. How can I display only the day of the date
with thisform.ComboBox1 .Columns.Add("Date") .Columns.Add("Day").ComputedField = "day(%0)" with .Items .AddItem({^2001-1-11 10:00:00}) .AddItem({^2002-2-22 11:00:00}) .AddItem({^2003-3-13 12:00:00}) .AddItem({^2004-4-14 13:00:00}) endwith endwith
380. How can I display only the month of the date
with thisform.ComboBox1 .Columns.Add("Date") .Columns.Add("Month").ComputedField = "month(%0)" with .Items .AddItem({^2001-1-1 10:00:00}) .AddItem({^2002-2-2 11:00:00}) .AddItem({^2003-3-3 12:00:00}) .AddItem({^2004-4-4 13:00:00}) endwith endwith
379. How can I get only the year part from a date expression
with thisform.ComboBox1 .Columns.Add("Date") .Columns.Add("Year").ComputedField = "year(%0)" with .Items .AddItem({^2001-1-1 10:00:00}) .AddItem({^2002-2-2 11:00:00}) .AddItem({^2003-3-3 12:00:00}) .AddItem({^2004-4-4 13:00:00}) endwith endwith
378. Can I convert the expression to date
with thisform.ComboBox1 .Columns.Add("Number") .Columns.Add("Date").ComputedField = "date(dbl(%0))" with .Items .AddItem("-1.98") .AddItem("30000.99") .AddItem("3561.23") .AddItem("1232.34") endwith endwith
377. Can I convert the expression to a number, double or float
with thisform.ComboBox1 .Columns.Add("Number") .Columns.Add("Number + 2").ComputedField = "dbl(%0)+2" with .Items .AddItem("-1.98") .AddItem("0.99") .AddItem("1.23") .AddItem("2.34") endwith endwith
376. How can I display dates in long format
with thisform.ComboBox1 .Columns.Add("Date") .Columns.Add("LongFormat").ComputedField = "longdate(%0)" with .Items .AddItem({^2001-1-1 10:00:00}) .AddItem({^2002-2-2 11:00:00}) .AddItem({^2003-3-3 12:00:00}) .AddItem({^2004-4-4 13:00:00}) endwith endwith
375. How can I display dates in short format
with thisform.ComboBox1 .Columns.Add("Date") .Columns.Add("ShortFormat").ComputedField = "shortdate(%0)" with .Items .AddItem({^2001-1-1 10:00:00}) .AddItem({^2002-2-2 11:00:00}) .AddItem({^2003-3-3 12:00:00}) .AddItem({^2004-4-4 13:00:00}) endwith endwith
374. How can I display the time only of a date expression
with thisform.ComboBox1 .Columns.Add("Date") .Columns.Add("Time").ComputedField = "'time is:' + time(date(%0))" with .Items .AddItem({^2001-1-1 10:00:00}) .AddItem({^2002-2-2 11:00:00}) .AddItem({^2003-3-3 12:00:00}) .AddItem({^2004-4-4 13:00:00}) endwith endwith
373. Is there any function to display currencies, or money formatted as in the control panel
with thisform.ComboBox1 .Columns.Add("Number") .Columns.Add("Currency").ComputedField = "currency(dbl(%0))" with .Items .AddItem("1.23") .AddItem("2.34") .AddItem("10000.99") endwith endwith
372. How can I convert the expression to a string so I can look into the date string expression for month's name
with thisform.ComboBox1 .Columns.Add("Number") .Columns.Add("Str").ComputedField = "str(%0) + ' AA'" with .Items .AddItem("-1.98") .AddItem("0.99") .AddItem("1.23") .AddItem("2.34") endwith endwith
371. Can I display the absolute value or positive part of the number
with thisform.ComboBox1 .Columns.Add("Number") .Columns.Add("Abs").ComputedField = "abs(%0)" with .Items .AddItem("-1.98") .AddItem("0.99") .AddItem("1.23") .AddItem("2.34") endwith endwith
370. Is there any function to get largest number with no fraction part that is not greater than the value
with thisform.ComboBox1 .Columns.Add("Number") .Columns.Add("Floor").ComputedField = "floor(%0)" with .Items .AddItem("-1.98") .AddItem("0.99") .AddItem("1.23") .AddItem("2.34") endwith endwith
369. Is there any function to round the values base on the .5 value
with thisform.ComboBox1 .Columns.Add("Number") .Columns.Add("Round").ComputedField = "round(%0)" with .Items .AddItem("-1.98") .AddItem("0.99") .AddItem("1.23") .AddItem("2.34") endwith endwith
368. How can I get or display the integer part of the cell
with thisform.ComboBox1 .Columns.Add("Number") .Columns.Add("Int").ComputedField = "int(%0)" with .Items .AddItem("-1.98") .AddItem("0.99") .AddItem("1.23") .AddItem("2.34") endwith endwith
367. How can I display names as proper ( first leter of the word must be in uppercase, and the rest in lowercase )
with thisform.ComboBox1 .Columns.Add("").ComputedField = "proper(%0)" with .Items h = .AddItem("root") .InsertItem(h,0,"child child") .InsertItem(h,0,"child child") .InsertItem(h,0,"child child") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
366. Is there any option to display cells in uppercase
with thisform.ComboBox1 .Columns.Add("").ComputedField = "upper(%0)" with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Chld 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
365. Is there any option to display cells in lowercase
with thisform.ComboBox1 .Columns.Add("").ComputedField = "lower(%0)" with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Chld 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
364. How can I mark the cells that has a specified type, ie strings only
with thisform.ComboBox1 .ConditionalFormats.Add("type(%0) = 8").ForeColor = RGB(255,0,0) .Columns.Add("") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,2) .InsertItem(h,0,"Chld 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
363. How can I bold the items that contains data or those who displays empty strings
with thisform.ComboBox1 .ConditionalFormats.Add("not len(%1)=0").Bold = .T. .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") hC = .InsertItem(h,0,"Child 2") .DefaultItem = hC .CellCaption(0,1) = "1" .InsertItem(h,0,"Child 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
362. Can I change the background color for items or cells that contains a specified string
with thisform.ComboBox1 .ConditionalFormats.Add("%0 contains 'hi'").BackColor = RGB(255,0,0) .Columns.Add("") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Chld 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
361. Is there any option to change the fore color for cells or items that ends with a specified string
with thisform.ComboBox1 .ConditionalFormats.Add("%0 endwith '22'").ForeColor = RGB(255,0,0) .Columns.Add("") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 1.22") .InsertItem(h,0,"Child 2.22") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
360. How can I highlight the cells or items that starts with a specified string
with thisform.ComboBox1 .ConditionalFormats.Add("%0 startwith 'C'").Underline = .T. .Columns.Add("") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"SChild 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
359. How can I change the background color or the visual appearance using ebn for a particular column
with thisform.ComboBox1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") with .Columns .Add("Column 1") .Add("Column 2").Def(7) = 16777216 .Add("Column 3").Def(7) = 16777471 .Add("Column 4") endwith endwith
358. How can I change the background color for a particular column
with thisform.ComboBox1 with .Columns .Add("Column 1") .Add("Column 2").Def(7) = 8439039 .Add("Column 3") endwith endwith
357. Does your control support prompt feature
with thisform.ComboBox1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .AutoComplete = .F. .Columns.Add("Column 1").Prompt = "<img>1</img><i><fgcolor=808080>type to search</fgcolor></i>" .Items.AddItem(0) .Items.AddItem(1) .Items.AddItem(2) endwith
356. How can I display the column's header using multiple lines
with thisform.ComboBox1 .HeaderHeight = 128 .HeaderSingleLine = .F. .Columns.Add("This is just a column that should break the header.").Width = 32 .Columns.Add("This is just another column that should break the header.") endwith
355. How can I sort the value gets listed in the drop down filter window
with thisform.ComboBox1 .LinesAtRoot = -1 .MarkSearchColumn = .F. .Object.Description(0) = "" .Object.Description(1) = "" .Object.Description(2) = "" with .Columns.Add("P1") .DisplayFilterButton = .T. .DisplayFilterPattern = .F. .FilterList = 16 endwith with .Columns.Add("P2") .DisplayFilterButton = .T. .DisplayFilterPattern = .F. .FilterList = 32 endwith with .Items h = .AddItem("Z3") .DefaultItem = h .CellCaption(0,1) = "C" .DefaultItem = .InsertItem(h,0,"Z1") .CellCaption(0,1) = "B" .DefaultItem = .InsertItem(h,0,"Z2") .CellCaption(0,1) = "A" .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
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
with thisform.ComboBox1 .Columns.Add("Default").AllowEditContextMenu = .F. .Items.AddItem(0) .Items.AddItem(1) .Items.AddItem(2) endwith
353. How can I align the text/caption on the scroll bar
with thisform.ComboBox1 .Object.ScrollPartCaption(1,512) = "left" .Object.ScrollPartCaptionAlignment(1,512) = 0 .Object.ScrollPartCaption(1,128) = "right" .Object.ScrollPartCaptionAlignment(1,128) = 2 .ColumnAutoResize = .F. .Columns.Add(1) .Columns.Add(2) .Columns.Add(3) .Columns.Add(4) .Columns.Add(5) .Columns.Add(6) endwith
352. Does you control support RTL languages or if there is a property RightToLeft
with thisform.ComboBox1 .RightToLeft = .T. .ItemsAllowSizing = -1 .DrawGridLines = 1 .LinesAtRoot = -1 .ScrollBySingleLine = .T. .DefaultItemHeight = 64 with .Columns.Add("Column") .Alignment = 2 .HeaderAlignment = 2 .EditAlignment = 2 endwith with .Items .AddItem("Item 1") .DefaultItem = .InsertItem(.AddItem("Parent"),0,"Item 2") .ItemHeight(0) = 48 .AddItem("Item 3") .DefaultItem = .ItemByIndex(1) .ExpandItem(0) = .T. endwith endwith
351. How do I enable resizing all the items at runtime
with thisform.ComboBox1 .ItemsAllowSizing = 1 .DrawGridLines = 1 .Columns.Add("Column") .Items.AddItem("Item 1") with .Items .DefaultItem = .AddItem("Item 2") .ItemHeight(0) = 48 endwith .Items.AddItem("Item 3") endwith
350. How can I remove the filter
with thisform.ComboBox1 with .Columns.Add("Column") .DisplayFilterButton = .T. .FilterType = 1 endwith .ApplyFilter .ClearFilter endwith
349. How do I display the icons being selected in the control's label
with thisform.ComboBox1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Columns.Add("Column") with .Items .DefaultItem = .AddItem("Image 1") .CellImage(0,0) = 1 .DefaultItem = .AddItem("Image 2") .CellImage(0,0) = 2 .DefaultItem = .AddItem("Image 3") .CellImage(0,0) = 3 endwith .Object.AssignEditImageOnSelect(0) = .T. .Value = "Image 2" endwith
348. How do I select a value
with thisform.ComboBox1 .IntegralHeight = .T. .LinesAtRoot = 1 .TreeColumnIndex = 1 .Columns.Add("Column 1") .Columns.Add("Column 2") with .Items h = .AddItem("Root 1.1") .DefaultItem = h .CellCaption(0,1) = "Root 1.2" .DefaultItem = .InsertItem(h,0,"Child 1.1") .CellCaption(0,1) = "Child 1.2" .DefaultItem = .InsertItem(h,0,"Child 2.1") .CellCaption(0,1) = "Child 2.2" .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2.1") .DefaultItem = h .CellCaption(0,1) = "Root 2.2" .DefaultItem = .InsertItem(h,0,"Child 1.1") .CellCaption(0,1) = "Child 1.2" endwith .Value = "Root 1.1" endwith
347. How do I select a value
with thisform.ComboBox1 .IntegralHeight = .T. .LinesAtRoot = 1 .TreeColumnIndex = 1 .Columns.Add("Column 1") .Columns.Add("Column 2") with .Items h = .AddItem("Root 1.1") .DefaultItem = h .CellCaption(0,1) = "Root 1.2" .DefaultItem = .InsertItem(h,0,"Child 1.1") .CellCaption(0,1) = "Child 1.2" .DefaultItem = .InsertItem(h,0,"Child 2.1") .CellCaption(0,1) = "Child 2.2" .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2.1") .DefaultItem = h .CellCaption(0,1) = "Root 2.2" .DefaultItem = .InsertItem(h,0,"Child 1.1") .CellCaption(0,1) = "Child 1.2" endwith .Object.Select(1) = "Root 1.2" endwith
346. How do change the visual appearance for the drop down border, using EBN
with thisform.ComboBox1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .DropDownBorder = 16777216 endwith
345. How do I remove the drop down's border
with thisform.ComboBox1
.DropDownBorder = 0
endwith
with thisform.ComboBox1 .ForeColorEdit = RGB(255,0,0) .IntegralHeight = .T. .LinesAtRoot = 1 .TreeColumnIndex = 1 .Columns.Add("Column 1") .Columns.Add("Column 2") with .Items h = .AddItem("Root 1.1") .DefaultItem = h .CellCaption(0,1) = "Root 1.2" .DefaultItem = .InsertItem(h,0,"Child 1.1") .CellCaption(0,1) = "Child 1.2" .DefaultItem = .InsertItem(h,0,"Child 2.1") .CellCaption(0,1) = "Child 2.2" .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2.1") .DefaultItem = h .CellCaption(0,1) = "Root 2.2" .DefaultItem = .InsertItem(h,0,"Child 1.1") .CellCaption(0,1) = "Child 1.2" endwith .Object.Select(0) = "Root 1.1" endwith
343. How can I change the background color for edit controls
with thisform.ComboBox1 .BackColorEdit = RGB(255,0,0) .IntegralHeight = .T. .LinesAtRoot = 1 .TreeColumnIndex = 1 .Columns.Add("Column 1") .Columns.Add("Column 2") with .Items h = .AddItem("Root 1.1") .DefaultItem = h .CellCaption(0,1) = "Root 1.2" .DefaultItem = .InsertItem(h,0,"Child 1.1") .CellCaption(0,1) = "Child 1.2" .DefaultItem = .InsertItem(h,0,"Child 2.1") .CellCaption(0,1) = "Child 2.2" .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2.1") .DefaultItem = h .CellCaption(0,1) = "Root 2.2" .DefaultItem = .InsertItem(h,0,"Child 1.1") .CellCaption(0,1) = "Child 1.2" endwith .Object.Select(0) = "Root 1.1" endwith
342. How can I hide the drop down buttons when the control loses the focus
with thisform.ComboBox1 .HideDropDownButton = .T. .IntegralHeight = .T. .LinesAtRoot = 1 .TreeColumnIndex = 1 .Columns.Add("Column 1") .Columns.Add("Column 2") with .Items h = .AddItem("Root 1.1") .DefaultItem = h .CellCaption(0,1) = "Root 1.2" .DefaultItem = .InsertItem(h,0,"Child 1.1") .CellCaption(0,1) = "Child 1.2" .DefaultItem = .InsertItem(h,0,"Child 2.1") .CellCaption(0,1) = "Child 2.2" .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2.1") .DefaultItem = h .CellCaption(0,1) = "Root 2.2" .DefaultItem = .InsertItem(h,0,"Child 1.1") .CellCaption(0,1) = "Child 1.2" endwith endwith
341. How can I ensure that the drop down portions doesn't show partial items
with thisform.ComboBox1 .IntegralHeight = .T. .LinesAtRoot = 1 .TreeColumnIndex = 1 .Columns.Add("Column 1") .Columns.Add("Column 2") with .Items h = .AddItem("Root 1.1") .DefaultItem = h .CellCaption(0,1) = "Root 1.2" .DefaultItem = .InsertItem(h,0,"Child 1.1") .CellCaption(0,1) = "Child 1.2" .DefaultItem = .InsertItem(h,0,"Child 2.1") .CellCaption(0,1) = "Child 2.2" .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2.1") .DefaultItem = h .CellCaption(0,1) = "Root 2.2" .DefaultItem = .InsertItem(h,0,"Child 1.1") .CellCaption(0,1) = "Child 1.2" endwith endwith
340. How can I close the drop down window when user double clicks it
with thisform.ComboBox1 .CloseOnDblClk = .T. .LinesAtRoot = 1 .TreeColumnIndex = 1 .Columns.Add("Column 1") .Columns.Add("Column 2") with .Items h = .AddItem("Root 1.1") .DefaultItem = h .CellCaption(0,1) = "Root 1.2" .DefaultItem = .InsertItem(h,0,"Child 1.1") .CellCaption(0,1) = "Child 1.2" .DefaultItem = .InsertItem(h,0,"Child 2.1") .CellCaption(0,1) = "Child 2.2" .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2.1") .DefaultItem = h .CellCaption(0,1) = "Root 2.2" .DefaultItem = .InsertItem(h,0,"Child 1.1") .CellCaption(0,1) = "Child 1.2" endwith endwith
339. How do I get the handle of the drop down window
with thisform.ComboBox1 .Columns.Add(0) endwith
338. How do I specify the height of the control's label
with thisform.ComboBox1 .LabelHeight = 34 .Columns.Add("Column") with .Items .AddItem("Item 3") .AddItem("Item 1") .AddItem("Item 2") endwith endwith
337. The control selects the portion of text that doesn't match with the selected item. How can I avoid that
with thisform.ComboBox1 .AutoSelect = .F. .Columns.Add("Column") with .Items .AddItem("Item 3") .AddItem("Item 1") .AddItem("Item 2") endwith endwith
336. How can I show the drop down window as soon as user starts typing in the control
with thisform.ComboBox1 .AutoDropDown = .T. .Columns.Add("Column") with .Items .AddItem("Item 3") .AddItem("Item 1") .AddItem("Item 2") endwith endwith
335. How do I change the text in the edit or label area
with thisform.ComboBox1 .Columns.Add("Column") with .Items .AddItem("Item 3") .AddItem("Item 1") .AddItem("Item 2") endwith .Object.EditText(0) = "Test" endwith
334. How do I lock or make read-only the control
with thisform.ComboBox1 .Locked = .T. .Columns.Add("Column") with .Items .AddItem("Item 3") .AddItem("Item 1") .AddItem("Item 2") endwith endwith
333. How do I let user to resize only the height of the drop down window, at runtime
with thisform.ComboBox1 .AllowSizeGrip = .T. .AllowHResize = .F. .MinWidthList = 100 .MinHeightList = 100 .Columns.Add("Column") with .Items .AddItem("Item 3") .AddItem("Item 1") .AddItem("Item 2") endwith endwith
332. How do I let user to resize only the width of the drop down window, at runtime
with thisform.ComboBox1 .AllowSizeGrip = .T. .AllowVResize = .F. .Columns.Add("Column") with .Items .AddItem("Item 3") .AddItem("Item 1") .AddItem("Item 2") endwith endwith
331. How do I let user to resize the drop down window, at runtime
with thisform.ComboBox1 .AllowSizeGrip = .T. .Columns.Add("Column") with .Items .AddItem("Item 3") .AddItem("Item 1") .AddItem("Item 2") endwith endwith
330. How do I specify the height of the drop down window
with thisform.ComboBox1 .Object.HeightList() = 400 .MinWidthList = 100 .AllowSizeGrip = .T. .Columns.Add("Column") with .Items .AddItem("Item 3") .AddItem("Item 1") .AddItem("Item 2") endwith endwith
329. How do I specify the minimum height of the drop down window
with thisform.ComboBox1 .MinHeightList = 100 .AllowSizeGrip = .T. .Columns.Add("Column") with .Items .AddItem("Item 3") .AddItem("Item 1") .AddItem("Item 2") endwith endwith
328. How do I specify the width of the drop down window
with thisform.ComboBox1 .Object.WidthList() = 100 .AllowSizeGrip = .T. .Columns.Add("Column") with .Items .AddItem("Item 3") .AddItem("Item 1") .AddItem("Item 2") endwith endwith
327. How do I specify the minimum width of the drop down window
with thisform.ComboBox1 .MinWidthList = 100 .AllowSizeGrip = .T. .Columns.Add("Column") with .Items .AddItem("Item 3") .AddItem("Item 1") .AddItem("Item 2") endwith endwith
326. I have multiple columns, how can I display a single edit in the control's label
with thisform.ComboBox1 .SingleEdit = .T. .Columns.Add("Column 1") .Columns.Add("Column 2") with .Items .DefaultItem = .AddItem("Item 1") .CellCaption(0,1) = "SubItem 1" .DefaultItem = .AddItem("Item 2") .CellCaption(0,1) = "SubItem 2" .DefaultItem = .AddItem("Item 3") .CellCaption(0,1) = "SubItem 3" endwith endwith
325. How do I turn off the auto complete feature
with thisform.ComboBox1 .AutoComplete = .F. .Columns.Add("Column") with .Items .AddItem("Item 3") .AddItem("Item 1") .AddItem("Item 2") endwith endwith
324. The control supports three styles: Simple, DropDown and DropDownList. How can I change the style
with thisform.ComboBox1
.Style = 2
endwith
with thisform.ComboBox1 .Columns.Add("Left").Alignment = 0 with .Columns.Add("Right") .Alignment = 2 .HeaderAlignment = 2 .EditAlignment = 2 endwith with .Items .DefaultItem = .AddItem("left") .CellCaption(0,1) = "right" endwith endwith
322. How do I change the control's border, using your EBN files
with thisform.ComboBox1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Appearance = 16777216 endwith
321. Can I change the default border of the tooltip, using your EBN files
with thisform.ComboBox1 .ToolTipDelay = 1 .ToolTipWidth = 364 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Object.Background(64) = 0x1000000 .Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column" endwith
320. Can I change the background color for the tooltip
with thisform.ComboBox1 .ToolTipDelay = 1 .ToolTipWidth = 364 .Object.Background(65) = RGB(255,0,0) .Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column" endwith
319. Does the tooltip support HTML format
with thisform.ComboBox1 .ToolTipDelay = 1 .ToolTipWidth = 364 var_s = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>column</fgco" var_s = var_s + "lor>" .Columns.Add("tootip").ToolTip = var_s endwith
318. Can I change the forecolor for the tooltip
with thisform.ComboBox1 .ToolTipDelay = 1 .ToolTipWidth = 364 .Object.Background(66) = RGB(255,0,0) .Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column" endwith
317. Can I change the foreground color for the tooltip
with thisform.ComboBox1 .ToolTipDelay = 1 .ToolTipWidth = 364 .Columns.Add("tootip").ToolTip = "<fgcolor=FF0000>this is a tooltip assigned to a column</fgcolor>" endwith
316. How can I merge cells
with thisform.ComboBox1 .DrawGridLines = -1 .MarkSearchColumn = .F. .Columns.Add("C1") .Columns.Add("C2") .Columns.Add("C3") with .Items h = .AddItem("this cell merges the first two columns") .DefaultItem = h .CellMerge(0,0) = 1 h = .AddItem() .DefaultItem = h .CellCaption(0,1) = "this cell merges the last two columns" .DefaultItem = h .CellMerge(0,1) = 2 h = .AddItem("this cell merges the all three columns") .DefaultItem = h .CellMerge(0,0) = 1 .DefaultItem = h .CellMerge(0,0) = 2 h = .AddItem("this draws a divider item") .DefaultItem = h .ItemDivider(0) = 0 endwith endwith
315. How can I merge cells
with thisform.ComboBox1 .MarkSearchColumn = .F. .TreeColumnIndex = -1 .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h var_s = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple" var_s = var_s + " lines." .CellCaption(0,1) = var_s .DefaultItem = h .CellSingleLine(0,1) = .F. h = .AddItem("This is bit of text merges all cells in the item") .DefaultItem = h .ItemDivider(0) = 0 .DefaultItem = h .CellHAlignment(0,0) = 1 endwith endwith
314. How can I change the color for separator / dividers items
with thisform.ComboBox1 .MarkSearchColumn = .F. .TreeColumnIndex = -1 .ScrollBySingleLine = .F. .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h var_s = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple" var_s = var_s + " lines." .CellCaption(0,1) = var_s .DefaultItem = h .CellSingleLine(0,1) = .F. h = .AddItem() .DefaultItem = h .ItemDivider(0) = 0 .DefaultItem = h .ItemDividerLine(0) = 4 .DefaultItem = h .ItemDividerLineAlignment(0) = 1 .DefaultItem = h .ItemHeight(0) = 6 .DefaultItem = h .SelectableItem(0) = .F. h = .AddItem("Cell 2") .DefaultItem = h var_s1 = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple" var_s1 = var_s1 + " lines." .CellCaption(0,1) = var_s1 .DefaultItem = h .CellSingleLine(0,1) = .F. endwith endwith
313. How can I add separator - dividers items
with thisform.ComboBox1 .MarkSearchColumn = .F. .TreeColumnIndex = -1 .ScrollBySingleLine = .F. .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h var_s = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple" var_s = var_s + " lines." .CellCaption(0,1) = var_s .DefaultItem = h .CellSingleLine(0,1) = .F. h = .AddItem() .DefaultItem = h .ItemDivider(0) = 0 .DefaultItem = h .ItemDividerLine(0) = 4 .DefaultItem = h .ItemDividerLineAlignment(0) = 1 .DefaultItem = h .ItemHeight(0) = 6 .DefaultItem = h .SelectableItem(0) = .F. h = .AddItem("Cell 2") .DefaultItem = h var_s1 = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple" var_s1 = var_s1 + " lines." .CellCaption(0,1) = var_s1 .DefaultItem = h .CellSingleLine(0,1) = .F. endwith endwith
312. Can I change the style of the line being displayed by a divider item
with thisform.ComboBox1 .MarkSearchColumn = .F. .TreeColumnIndex = -1 .ScrollBySingleLine = .F. .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h var_s = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple" var_s = var_s + " lines." .CellCaption(0,1) = var_s .DefaultItem = h .CellSingleLine(0,1) = .F. h = .AddItem("This is bit of text that's displayed on the entire item, divider.") .DefaultItem = h .ItemDivider(0) = 0 .DefaultItem = h .ItemDividerLine(0) = 4 .DefaultItem = h .CellHAlignment(0,0) = 1 .DefaultItem = h .ItemHeight(0) = 24 endwith endwith
311. Can I remove the line being displayed by a divider item
with thisform.ComboBox1 .MarkSearchColumn = .F. .TreeColumnIndex = -1 .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h var_s = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple" var_s = var_s + " lines." .CellCaption(0,1) = var_s .DefaultItem = h .CellSingleLine(0,1) = .F. h = .AddItem("This is bit of text that's displayed on the entire item, divider.") .DefaultItem = h .ItemDivider(0) = 0 .DefaultItem = h .ItemDividerLine(0) = 0 .DefaultItem = h .CellHAlignment(0,0) = 1 endwith endwith
310. How can I display a divider item, merging all cells
with thisform.ComboBox1 .MarkSearchColumn = .F. .TreeColumnIndex = -1 .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h var_s = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple" var_s = var_s + " lines." .CellCaption(0,1) = var_s .DefaultItem = h .CellSingleLine(0,1) = .F. h = .AddItem("This is bit of text that's displayed on the entire item, divider.") .DefaultItem = h .ItemDivider(0) = 0 .DefaultItem = h .CellHAlignment(0,0) = 1 endwith endwith
309. How can I fix or lock items
with thisform.ComboBox1 .Columns.Add("Default") with .Items .LockedItemCount(0) = 1 .DefaultItem = .LockedItem(0,0) .CellCaption(0,0) = "This is a locked item, fixed to the top side of the control." .DefaultItem = .LockedItem(0,0) .ItemBackColor(0) = RGB(196,196,186) .LockedItemCount(2) = 2 .DefaultItem = .LockedItem(2,0) .CellCaption(0,0) = "This is a locked item, fixed to the top side of the control." .DefaultItem = .LockedItem(2,0) .ItemBackColor(0) = RGB(196,196,186) .DefaultItem = .LockedItem(2,1) .CellCaption(0,0) = "This is a locked item, fixed to the top side of the control." .DefaultItem = .LockedItem(2,1) .ItemBackColor(0) = RGB(186,186,186) endwith endwith
308. How can I fix or lock an item on the bottom side of the control
with thisform.ComboBox1 .Columns.Add("Default") with .Items .LockedItemCount(2) = 1 .DefaultItem = .LockedItem(2,0) .CellCaption(0,0) = "This is a locked item, fixed to the bottom side of the control." h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
307. How can I fix or lock an item on the top of the control
with thisform.ComboBox1 .Columns.Add("Default") with .Items .LockedItemCount(0) = 1 .DefaultItem = .LockedItem(0,0) .CellCaption(0,0) = "This is a locked item, fixed to the top side of the control." h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
306. Is there any function to limit the height of the items when I display it using multiple lines
with thisform.ComboBox1 .ScrollBySingleLine = .T. .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h var_s = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple" var_s = var_s + " lines." .CellCaption(0,1) = var_s .DefaultItem = h .CellSingleLine(0,1) = .F. .DefaultItem = h .ItemMaxHeight(0) = 48 endwith endwith
305. Why I cannot center my cells in the column
with thisform.ComboBox1 .TreeColumnIndex = -1 .DrawGridLines = -2 .Columns.Add("Default").Alignment = 1 .Items.AddItem("item 1") .Items.AddItem("item 2") .Items.AddItem("item 3") endwith
304. How can I align the cell to the left, center or to the right
with thisform.ComboBox1 .TreeColumnIndex = -1 .DrawGridLines = -2 .Columns.Add("Default") with .Items .DefaultItem = .AddItem("left") .CellHAlignment(0,0) = 0 .DefaultItem = .AddItem("center") .CellHAlignment(0,0) = 1 .DefaultItem = .AddItem("right") .CellHAlignment(0,0) = 2 endwith endwith
303. How do I apply HTML format to a cell
with thisform.ComboBox1 .TreeColumnIndex = -1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Object.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif" .Object.HTMLPicture("p2") = "c:\exontrol\images\auction.gif" .Columns.Add("Default") with .Items h = .AddItem("The following item shows some of the HTML format supported:") .DefaultItem = h .CellHAlignment(0,0) = 1 var_s1 = "<br>text icons <img>1</img>, <img>2</img>, ... pictures <img>p1</img>, <img>p2</img> <br><br>tex" var_s1 = var_s1 + "t <b>bold</b>, <i>italic</i>, <u>underline</u>, <s>strikeout</s>, ...<br><dotline>and so on...<b" var_s1 = var_s1 + "r> <a>anchor</a> or <a2>hyperlink</a><br><fgcolor=FF0000>fgcolor</fgcolor> or <bgcolor=00FF00>bg" var_s1 = var_s1 + "color</bgcolor> " h = .AddItem(var_s1) .DefaultItem = h .CellCaptionFormat(0,0) = 1 .DefaultItem = h .CellSingleLine(0,0) = .F. endwith endwith
302. How can I change the font for a cell
with thisform.ComboBox1 .Columns.Add("Default") .Items.AddItem("std font") with .Items .DefaultItem = .AddItem("this <font tahoma;12>is a bit of text with</font> a different font") .