395. How can I apply the same ConditionalFormat on more than 1(one) column (multiple columns and not on item)
with thisform.List1 .BeginUpdate with .ConditionalFormats.Add("1","K1") .BackColor = RGB(255,0,0) .ApplyTo = 1 endwith with .ConditionalFormats.Add("1","K2") .BackColor = RGB(255,0,0) .ApplyTo = 2 endwith .MarkSearchColumn = .F. .DrawGridLines = -2 with .Columns .Add("Column 1") .Add("Column 2") .Add("Column 3") endwith with .Items .Add(0) .Add(0) .Add(0) endwith .EndUpdate endwith
394. How can I get the list of items as they are displayed
with thisform.List1 .BeginUpdate .BackColorAlternate = RGB(240,240,240) .Columns.Add("Names") with .Items .Add("Mantel") .Add("Mechanik") .Add("Motor") .Add("Murks") .Add("Märchen") .Add("Möhren") .Add("Mühle") endwith .Columns.Item(0).SortOrder = 1 .EndUpdate DEBUGOUT( .GetItems(1) ) endwith
393. Is posible to reduce the size of the picture to be shown in the column's caption
with thisform.List1 .BeginUpdate .Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .HeaderHeight = 48 .Columns.Add("DefaultSize").HTMLCaption = "Default-Size <img>pic1</img> Picture" .Columns.Add("CustomSize").HTMLCaption = "Custom-Size <img>pic1:16</img> Picture" .EndUpdate endwith
392. How can I change the color, font, bold etc for the items/cells in the same column or for the entire column
with thisform.List1 .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 .Caption(.Add(10),1) = 11 .Caption(.Add(12),1) = 13 endwith .EndUpdate endwith
391. Is it possible to limit the height of item while resizing the row
*** AddItem event - Occurs after a new Item is inserted to Items collection. *** LPARAMETERS Item with thisform.List1 .Items.ItemMinHeight(Item) = 18 .Items.ItemMaxHeight(Item) = 72 endwith with thisform.List1 .BeginUpdate .ItemsAllowSizing = -1 .ScrollBySingleLine = .F. .BackColorAlternate = RGB(240,240,240) .Columns.Add("Names") with .Items .Add("Mantel") .Add("Mechanik") .Add("Motor") .Add("Murks") .Add("Märchen") .Add("Möhren") .Add("Mühle") endwith .Columns.Item(0).SortOrder = 1 .EndUpdate endwith
390. Can I specify un-sortable items so they keep their position once the user sorts the columns
with thisform.List1 .Columns.Add("Def").SortType = 1 with .Items .SortableItem(.Add("Unsortable")) = .F. .Add(1) .Add(2) .Add(3) endwith endwith
389. The item is not getting selected when clicking the cell's checkbox. What should I do
*** CellStateChanged event - Fired after cell's state is changed. *** LPARAMETERS ItemIndex,ColIndex with thisform.List1 .Items.SelectItem(ItemIndex) = .T. endwith with thisform.List1 .Columns.Add("Check").Def(0) = .T. with .Items .Add(0) .Add(1) .Add(2) .Add(3) endwith endwith
388. Does your control supports multiple lines tooltip
with thisform.List1 .Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .ToolTipDelay = 1 var_s = "<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The toolti" var_s = var_s + "p supports built-in HTML tags, icons and pictures.<br><br><br><img>pic1</img> picture ... <br><b" var_s = var_s + "r>" .Columns.Add("tootip").ToolTip = var_s endwith
387. How can I prevent highlighting the column from the cursor - point
with thisform.List1 var_s = "gBFLBCJwBAEHhEJAEGg4BI0IQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDKKUEwsACEIrjKCYVgOHYYRrIMYgBCMJhLEoaZLh" var_s = var_s + "EZRQiqDYtRDFQBSDDcPw/EaRZohGaYJgEgI=" .VisualAppearance.Add(1,var_s) .Object.Background(32) = 0x1000000 .Columns.Add("S").Width = 32 .Columns.Add("Level 1").LevelKey = 1 .Columns.Add("Level 2").LevelKey = 1 .Columns.Add("Level 3").LevelKey = 1 .Columns.Add("E1").Width = 32 .Columns.Add("E2").Width = 32 .Columns.Add("E3").Width = 32 .Columns.Add("E4").Width = 32 endwith
386. Is there any option to show the tooltip programmatically
*** MouseMove event - Occurs when the user moves the mouse. *** LPARAMETERS Button,Shift,X,Y with thisform.List1 .ShowToolTip(.ItemFromPoint(-1,-1,c,hit),"","8","8") endwith with thisform.List1 .BeginUpdate .Columns.Add("Def") with .Items .Add("Item 1") .Add("Item 2") .Add("Item 3") endwith .EndUpdate endwith
385. Is it possible to prevent covering the colors by selected rows
with thisform.List1 .SelBackMode = 1 .BackColorAlternate = RGB(240,240,240) .Columns.Add("Column") with .Items .Add("Item 1") .Add("Item 2") .Add("Item 3") .Add("Item 4") .Add("Item 5") endwith endwith
384. Can I use PNG images to display pictures in the control
with thisform.List1 .Object.HTMLPicture("pic1") = "c:\exontrol\images\card.png" .HeaderHeight = 48 .Columns.Add("ColumnName").HTMLCaption = "<b>HTML</b> Column <img>pic1</img> Picture" endwith
383. Does your control support conditional format and computed fields
with thisform.List1 .BeginUpdate .MarkSearchColumn = .F. with .ConditionalFormats with .Add("%1 >4") .Bold = .T. .StrikeOut = .T. .ForeColor = RGB(255,0,0) .ApplyTo = 1 endwith with .Add("%2 > 4") .Bold = .T. .StrikeOut = .T. .ForeColor = RGB(255,0,0) .ApplyTo = 2 endwith with .Add("%3 > 4") .Bold = .T. .StrikeOut = .T. .ForeColor = RGB(255,0,0) .ApplyTo = 3 endwith endwith 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 .AllowSizing = .F. .Width = 64 .ComputedField = "%1+%2+%3" .FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)" .Def(17) = 1 endwith endwith with .Items h1 = .Add("Item 1") .Caption(h1,1) = 7 .Caption(h1,2) = 3 .Caption(h1,3) = 1 h1 = .Add("Item 2") .Caption(h1,1) = 2 .Caption(h1,2) = 5 .Caption(h1,3) = 12 h1 = .Add("Item 3") .Caption(h1,1) = 2 .Caption(h1,2) = 2 .Caption(h1,3) = 4 h1 = .Add("Item 4") .Caption(h1,1) = 2 .Caption(h1,2) = 9 .Caption(h1,3) = 4 endwith .EndUpdate endwith
382. 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.List1 .BeginUpdate .ScrollBars = 15 with .Columns .Add("C1") .Add("C2") .Add("C3") .Add("C4") .Add("C5") .Add("C6") .Add("C7") .Add("C8") endwith .RightToLeft = .T. .EndUpdate endwith
381. Can I display the cell's check box after the text
with thisform.List1 with .Columns.Add("Column") .Def(0) = .T. .Def(34) = "caption,check" endwith with .Items .CellHasCheckBox(.Add("Caption 1"),0) = .T. .CellHasCheckBox(.Add("Caption 2"),0) = .T. endwith endwith
380. Can I change the order of the parts in the cell, as checkbox after the text, and so on
with thisform.List1 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 = .Add("Text") .CellImage(h,0) = 1 .CellHasCheckBox(h,0) = .T. endwith endwith
379. Can I have an image displayed after the text. Can I get that effect without using HTML content
with thisform.List1 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 = .Add("Text") .CellImage(h,0) = 1 endwith endwith
378. 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.List1 .BeginUpdate .ScrollBars = 15 with .Columns .Add("C1") .Add("C2") .Add("C3") .Add("C4") .Add("C5") .Add("C6") .Add("C7") .Add("C8") endwith .RightToLeft = .T. .EndUpdate endwith
377. How can I change the foreground color for a particular column
with thisform.List1 with .Columns .Add("Column 1") .Add("Column 2").Def(8) = 8439039 .Add("Column 3") endwith endwith
376. How can I change the background color for a particular column
with thisform.List1 with .Columns .Add("Column 1") .Add("Column 2").Def(7) = 8439039 .Add("Column 3") endwith endwith
375. How can I display the column using currency format and enlarge the font for certain values
with thisform.List1 with .Columns.Add("Currency") .Def(17) = 1 .FormatColumn = "len(value) ? ((0:=dbl(value)) < 10 ? '<fgcolor=808080><font ;7>' : '<b>') + currency(=:0)" endwith with .Items .Add("1.23") .Add("2.34") .Add("9.94") .Add("11.94") .Add("1000") endwith endwith
374. How can I highlight only parts of the cells
with thisform.List1 with .Columns.Add("") .Def(17) = 1 .FormatColumn = "value replace 'hil' with '<fgcolor=FF0000><b>hil</b></fgcolor>'" endwith with .Items h = .Add("Root") .Add("Child 1") .Add("Child 2") .Add("Child 3") endwith endwith
373. How can I get the number of occurrences of a specified string in the cell
with thisform.List1 .Columns.Add("") with .Columns.Add("occurrences") .ComputedField = "lower(%0) count 'o'" .FormatColumn = "'contains ' + value + ' of \'o\' chars'" endwith with .Items h = .Add("Root") .Add("Child 1 oooof the root") .Add("Child 2") .Add("Child 3") endwith endwith
372. How can I display dates in my format
with thisform.List1 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 .Add({^2001-1-21}) .Add({^2002-2-22}) .Add({^2003-3-13}) .Add({^2004-4-24}) endwith endwith
371. How can I display dates in short format
with thisform.List1 .Columns.Add("Date").FormatColumn = "shortdate(value)" with .Items .Add({^2001-1-1}) .Add({^2002-2-2}) .Add({^2003-3-3}) .Add({^2004-4-4}) endwith endwith
370. How can I display dates in long format
with thisform.List1 .Columns.Add("Date").FormatColumn = "longdate(value)" with .Items .Add({^2001-1-1}) .Add({^2002-2-2}) .Add({^2003-3-3}) .Add({^2004-4-4}) endwith endwith
369. How can I display only the right part of the cell
with thisform.List1 .Columns.Add("") with .Columns.Add("Right") .ComputedField = "%0 right 2" .FormatColumn = "'"+chr(34)+"' + value + '"+chr(34)+"'" endwith with .Items h = .Add("Root") .Add("Child 1") .Add("Child 2") .Add("SChild 3") endwith endwith
368. How can I display only the left part of the cell
with thisform.List1 .Columns.Add("") .Columns.Add("Left").ComputedField = "%0 left 2" with .Items h = .Add("Root") .Add("Child 1") .Add("Child 2") .Add("SChild 3") endwith endwith
367. How can I display true or false instead 0 and -1
with thisform.List1 .Columns.Add("Boolean").FormatColumn = "value != 0 ? 'true' : 'false'" with .Items .Add(.T.) .Add(.F.) .Add(.T.) .Add(0) .Add(1) endwith endwith
366. How can I display icons or images instead numbers
with thisform.List1 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 .Add(1) .Add(2) .Add(3) endwith endwith
365. How can I display the column using currency
with thisform.List1 .Columns.Add("Currency").FormatColumn = "currency(dbl(value))" with .Items .Add("1.23") .Add("2.34") .Add("0") .Add(5) .Add("10000.99") endwith endwith
364. Is is possible to use HTML tags to display in the filter caption
with thisform.List1 .BeginUpdate .FilterBarPromptVisible = .T. .FilterBarCaption = "This is a bit of text being displayed in the filter bar." .Columns.Add("") with .Items .Add("Item 1") .Add("Item 2") .Add("Item 3") endwith .EndUpdate endwith
363. How can I find the number of items after filtering
with thisform.List1 .BeginUpdate .Columns.Add("") with .Items h = .Add("") .Caption(h,0) = .VisibleItemCount endwith .EndUpdate endwith
362. How can I change the filter caption
with thisform.List1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 12801 .FilterBarPromptPattern = "london robert" .FilterBarCaption = "<r>Found: ... " with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .Add("Nancy Davolio") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Seattle" h0 = .Add("Andrew Fuller") .Caption(h0,1) = "Vice President, Sales" .Caption(h0,2) = "Tacoma" .SelectItem(h0) = .T. h0 = .Add("Janet Leverling") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Kirkland" h0 = .Add("Margaret Peacock") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Redmond" h0 = .Add("Steven Buchanan") .Caption(h0,1) = "Sales Manager" .Caption(h0,2) = "London" h0 = .Add("Michael Suyama") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Robert King") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Laura Callahan") .Caption(h0,1) = "Inside Sales Coordinator" .Caption(h0,2) = "Seattle" h0 = .Add("Anne Dodsworth") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" endwith .EndUpdate endwith
361. While using the filter prompt is it is possible to use wild characters
with thisform.List1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 16 .FilterBarPromptPattern = "lon* seat*" with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .Add("Nancy Davolio") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Seattle" h0 = .Add("Andrew Fuller") .Caption(h0,1) = "Vice President, Sales" .Caption(h0,2) = "Tacoma" .SelectItem(h0) = .T. h0 = .Add("Janet Leverling") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Kirkland" h0 = .Add("Margaret Peacock") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Redmond" h0 = .Add("Steven Buchanan") .Caption(h0,1) = "Sales Manager" .Caption(h0,2) = "London" h0 = .Add("Michael Suyama") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Robert King") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Laura Callahan") .Caption(h0,1) = "Inside Sales Coordinator" .Caption(h0,2) = "Seattle" h0 = .Add("Anne Dodsworth") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" endwith .EndUpdate endwith
360. How can I list all items that contains any of specified words, not necessary at the beggining
with thisform.List1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 4610 .FilterBarPromptPattern = "london davolio" with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .Add("Nancy Davolio") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Seattle" h0 = .Add("Andrew Fuller") .Caption(h0,1) = "Vice President, Sales" .Caption(h0,2) = "Tacoma" .SelectItem(h0) = .T. h0 = .Add("Janet Leverling") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Kirkland" h0 = .Add("Margaret Peacock") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Redmond" h0 = .Add("Steven Buchanan") .Caption(h0,1) = "Sales Manager" .Caption(h0,2) = "London" h0 = .Add("Michael Suyama") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Robert King") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Laura Callahan") .Caption(h0,1) = "Inside Sales Coordinator" .Caption(h0,2) = "Seattle" h0 = .Add("Anne Dodsworth") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" endwith .EndUpdate endwith
359. How can I list all items that contains any of specified words, not strings
with thisform.List1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 12802 .FilterBarPromptPattern = "london nancy" with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .Add("Nancy Davolio") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Seattle" h0 = .Add("Andrew Fuller") .Caption(h0,1) = "Vice President, Sales" .Caption(h0,2) = "Tacoma" .SelectItem(h0) = .T. h0 = .Add("Janet Leverling") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Kirkland" h0 = .Add("Margaret Peacock") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Redmond" h0 = .Add("Steven Buchanan") .Caption(h0,1) = "Sales Manager" .Caption(h0,2) = "London" h0 = .Add("Michael Suyama") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Robert King") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Laura Callahan") .Caption(h0,1) = "Inside Sales Coordinator" .Caption(h0,2) = "Seattle" h0 = .Add("Anne Dodsworth") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" endwith .EndUpdate endwith
358. How can I list all items that contains all specified words, not strings
with thisform.List1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 12801 .FilterBarPromptPattern = "london robert" with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .Add("Nancy Davolio") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Seattle" h0 = .Add("Andrew Fuller") .Caption(h0,1) = "Vice President, Sales" .Caption(h0,2) = "Tacoma" .SelectItem(h0) = .T. h0 = .Add("Janet Leverling") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Kirkland" h0 = .Add("Margaret Peacock") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Redmond" h0 = .Add("Steven Buchanan") .Caption(h0,1) = "Sales Manager" .Caption(h0,2) = "London" h0 = .Add("Michael Suyama") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Robert King") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Laura Callahan") .Caption(h0,1) = "Inside Sales Coordinator" .Caption(h0,2) = "Seattle" h0 = .Add("Anne Dodsworth") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" endwith .EndUpdate endwith
357. I've noticed that the filtering by prompt is not case sensitive, is is possible to make it case sensitive
with thisform.List1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 258 .FilterBarPromptPattern = "Anne" with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .Add("Nancy Davolio") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Seattle" h0 = .Add("Andrew Fuller") .Caption(h0,1) = "Vice President, Sales" .Caption(h0,2) = "Tacoma" .SelectItem(h0) = .T. h0 = .Add("Janet Leverling") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Kirkland" h0 = .Add("Margaret Peacock") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Redmond" h0 = .Add("Steven Buchanan") .Caption(h0,1) = "Sales Manager" .Caption(h0,2) = "London" h0 = .Add("Michael Suyama") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Robert King") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Laura Callahan") .Caption(h0,1) = "Inside Sales Coordinator" .Caption(h0,2) = "Seattle" h0 = .Add("Anne Dodsworth") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" endwith .EndUpdate endwith
356. Is it possible to list only items that ends with any of specified strings
with thisform.List1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 4 .FilterBarPromptColumns = "0" .FilterBarPromptPattern = "Fuller" with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .Add("Nancy Davolio") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Seattle" h0 = .Add("Andrew Fuller") .Caption(h0,1) = "Vice President, Sales" .Caption(h0,2) = "Tacoma" .SelectItem(h0) = .T. h0 = .Add("Janet Leverling") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Kirkland" h0 = .Add("Margaret Peacock") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Redmond" h0 = .Add("Steven Buchanan") .Caption(h0,1) = "Sales Manager" .Caption(h0,2) = "London" h0 = .Add("Michael Suyama") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Robert King") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Laura Callahan") .Caption(h0,1) = "Inside Sales Coordinator" .Caption(h0,2) = "Seattle" h0 = .Add("Anne Dodsworth") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" endwith .EndUpdate endwith
355. Is it possible to list only items that ends with any of specified strings
with thisform.List1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 4 .FilterBarPromptColumns = "0" .FilterBarPromptPattern = "Fuller" with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .Add("Nancy Davolio") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Seattle" h0 = .Add("Andrew Fuller") .Caption(h0,1) = "Vice President, Sales" .Caption(h0,2) = "Tacoma" .SelectItem(h0) = .T. h0 = .Add("Janet Leverling") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Kirkland" h0 = .Add("Margaret Peacock") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Redmond" h0 = .Add("Steven Buchanan") .Caption(h0,1) = "Sales Manager" .Caption(h0,2) = "London" h0 = .Add("Michael Suyama") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Robert King") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Laura Callahan") .Caption(h0,1) = "Inside Sales Coordinator" .Caption(h0,2) = "Seattle" h0 = .Add("Anne Dodsworth") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" endwith .EndUpdate endwith
354. Is it possible to list only items that starts with any of specified strings
with thisform.List1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 3 .FilterBarPromptColumns = "0" .FilterBarPromptPattern = "An M" with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .Add("Nancy Davolio") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Seattle" h0 = .Add("Andrew Fuller") .Caption(h0,1) = "Vice President, Sales" .Caption(h0,2) = "Tacoma" .SelectItem(h0) = .T. h0 = .Add("Janet Leverling") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Kirkland" h0 = .Add("Margaret Peacock") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Redmond" h0 = .Add("Steven Buchanan") .Caption(h0,1) = "Sales Manager" .Caption(h0,2) = "London" h0 = .Add("Michael Suyama") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Robert King") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Laura Callahan") .Caption(h0,1) = "Inside Sales Coordinator" .Caption(h0,2) = "Seattle" h0 = .Add("Anne Dodsworth") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" endwith .EndUpdate endwith
353. Is it possible to list only items that starts with specified string
with thisform.List1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 3 .FilterBarPromptColumns = "0" .FilterBarPromptPattern = "A" with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .Add("Nancy Davolio") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Seattle" h0 = .Add("Andrew Fuller") .Caption(h0,1) = "Vice President, Sales" .Caption(h0,2) = "Tacoma" .SelectItem(h0) = .T. h0 = .Add("Janet Leverling") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Kirkland" h0 = .Add("Margaret Peacock") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Redmond" h0 = .Add("Steven Buchanan") .Caption(h0,1) = "Sales Manager" .Caption(h0,2) = "London" h0 = .Add("Michael Suyama") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Robert King") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Laura Callahan") .Caption(h0,1) = "Inside Sales Coordinator" .Caption(h0,2) = "Seattle" h0 = .Add("Anne Dodsworth") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" endwith .EndUpdate endwith
352. How can I specify that the list should include any of the seqeunces in the pattern
with thisform.List1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 2 .FilterBarPromptPattern = "london seattle" with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .Add("Nancy Davolio") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Seattle" h0 = .Add("Andrew Fuller") .Caption(h0,1) = "Vice President, Sales" .Caption(h0,2) = "Tacoma" .SelectItem(h0) = .T. h0 = .Add("Janet Leverling") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Kirkland" h0 = .Add("Margaret Peacock") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Redmond" h0 = .Add("Steven Buchanan") .Caption(h0,1) = "Sales Manager" .Caption(h0,2) = "London" h0 = .Add("Michael Suyama") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Robert King") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Laura Callahan") .Caption(h0,1) = "Inside Sales Coordinator" .Caption(h0,2) = "Seattle" h0 = .Add("Anne Dodsworth") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" endwith .EndUpdate endwith
351. How can I specify that all sequences in the filter pattern must be included in the list
with thisform.List1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 1 .FilterBarPromptPattern = "london manager" with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .Add("Nancy Davolio") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Seattle" h0 = .Add("Andrew Fuller") .Caption(h0,1) = "Vice President, Sales" .Caption(h0,2) = "Tacoma" .SelectItem(h0) = .T. h0 = .Add("Janet Leverling") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Kirkland" h0 = .Add("Margaret Peacock") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Redmond" h0 = .Add("Steven Buchanan") .Caption(h0,1) = "Sales Manager" .Caption(h0,2) = "London" h0 = .Add("Michael Suyama") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Robert King") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Laura Callahan") .Caption(h0,1) = "Inside Sales Coordinator" .Caption(h0,2) = "Seattle" h0 = .Add("Anne Dodsworth") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" endwith .EndUpdate endwith
350. How do I change at runtime the filter prompt
with thisform.List1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptPattern = "london manager" with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .Add("Nancy Davolio") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Seattle" h0 = .Add("Andrew Fuller") .Caption(h0,1) = "Vice President, Sales" .Caption(h0,2) = "Tacoma" .SelectItem(h0) = .T. h0 = .Add("Janet Leverling") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Kirkland" h0 = .Add("Margaret Peacock") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Redmond" h0 = .Add("Steven Buchanan") .Caption(h0,1) = "Sales Manager" .Caption(h0,2) = "London" h0 = .Add("Michael Suyama") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Robert King") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Laura Callahan") .Caption(h0,1) = "Inside Sales Coordinator" .Caption(h0,2) = "Seattle" h0 = .Add("Anne Dodsworth") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" endwith .EndUpdate endwith
349. How do I specify to filter only a single column when using the filter prompt
with thisform.List1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptColumns = "2,3" .FilterBarPromptPattern = "london" with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .Add("Nancy Davolio") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Seattle" h0 = .Add("Andrew Fuller") .Caption(h0,1) = "Vice President, Sales" .Caption(h0,2) = "Tacoma" .SelectItem(h0) = .T. h0 = .Add("Janet Leverling") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Kirkland" h0 = .Add("Margaret Peacock") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Redmond" h0 = .Add("Steven Buchanan") .Caption(h0,1) = "Sales Manager" .Caption(h0,2) = "London" h0 = .Add("Michael Suyama") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Robert King") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Laura Callahan") .Caption(h0,1) = "Inside Sales Coordinator" .Caption(h0,2) = "Seattle" h0 = .Add("Anne Dodsworth") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" endwith .EndUpdate endwith
348. How do I change the prompt or the caption being displayed in the filter bar
with thisform.List1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPrompt = "changed" with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith .EndUpdate endwith
347. How do I enable the filter prompt feature
with thisform.List1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .Add("Nancy Davolio") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Seattle" h0 = .Add("Andrew Fuller") .Caption(h0,1) = "Vice President, Sales" .Caption(h0,2) = "Tacoma" .SelectItem(h0) = .T. h0 = .Add("Janet Leverling") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Kirkland" h0 = .Add("Margaret Peacock") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "Redmond" h0 = .Add("Steven Buchanan") .Caption(h0,1) = "Sales Manager" .Caption(h0,2) = "London" h0 = .Add("Michael Suyama") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Robert King") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" h0 = .Add("Laura Callahan") .Caption(h0,1) = "Inside Sales Coordinator" .Caption(h0,2) = "Seattle" h0 = .Add("Anne Dodsworth") .Caption(h0,1) = "Sales Representative" .Caption(h0,2) = "London" endwith .EndUpdate endwith
346. Is it possible to change the style for the vertical or horizontal grid lines, in the list area
with thisform.List1 .BeginUpdate .DrawGridLines = -1 .GridLineStyle = 33 .Columns.Add("C1") .Columns.Add("C2") .Columns.Add("C3") with .Items h = .Add("Item 1") .Caption(h,1) = "SubItem 1.2" .Caption(h,2) = "SubItem 1.3" h = .Add("Item 2") .Caption(h,1) = "SubItem 2.2" .Caption(h,2) = "SubItem 2.3" endwith .EndUpdate endwith
345. Is it possible to change the style for the grid lines, for instance to be solid not dotted
with thisform.List1 .BeginUpdate .DrawGridLines = -1 .GridLineStyle = 48 .Columns.Add("Column") .EndUpdate endwith
344. How can I filter programatically using more columns
with thisform.List1 .BeginUpdate .MarkSearchColumn = .F. with .Columns .Add("Car") .Add("Equipment") endwith with .Items .Caption(.Add("Mazda"),1) = "Air Bag" .Caption(.Add("Toyota"),1) = "Air Bag,Air condition" .Caption(.Add("Ford"),1) = "Air condition" .Caption(.Add("Nissan"),1) = "Air Bag,ABS,ESP" .Caption(.Add("Mazda"),1) = "Air Bag, ABS,ESP" .Caption(.Add("Mazda"),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
343. How do I find an item based on my extra data
with thisform.List1 .Columns.Add("Default") with .Items .Add("Item 1") .Add("Item 2") .ItemData(.Add("Item 3")) = 1234 .Add("Item 4") .ItemBold(.FindItemData(1234)) = .T. endwith endwith
342. How do I print the control's content
with thisform.List1 .BeginUpdate .Columns.Add("Number") .Columns.Add("Currency").ComputedField = "len(%0) ? currency(dbl(%0)) : ''" with .Items .Add("1.23") .Add("2.34") .Add("0") .ItemBackColor(.Add()) = RGB(255,128,128) .Add("10000.99") endwith .EndUpdate with CreateObject("Exontrol.Print") .PrintExt = thisform.List1 .Preview endwith endwith
341. How can I display the currency only for not empty cells
with thisform.List1 .Columns.Add("Number") .Columns.Add("Currency").ComputedField = "len(%0) ? currency(dbl(%0)) : ''" with .Items .Add("1.23") .Add("2.34") .Add("0") .ItemBackColor(.Add()) = RGB(255,128,128) .Add("10000.99") endwith endwith
340. Is there a function to display the number of days between two date including the number of hours
with thisform.List1 .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 = .Add({^2001-1-11}) .Caption(h,1) = {^2001-1-14} h = .Add({^2002-2-22 12:00:00}) .Caption(h,1) = {^2002-3-14 13:00:00} h = .Add({^2003-3-13}) .Caption(h,1) = {^2003-4-11 11:00:00} endwith endwith
339. Is there a function to display the number of days between two date including the number of hours
with thisform.List1 .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 = .Add({^2001-1-11}) .Caption(h,1) = {^2001-1-14 23:00:00} h = .Add({^2002-2-22 12:00:00}) .Caption(h,1) = {^2002-3-14 13:00:00} h = .Add({^2003-3-13}) .Caption(h,1) = {^2003-4-11 11:00:00} endwith endwith
338. How can I display the number of days between two dates
with thisform.List1 .Columns.Add("Start") .Columns.Add("End") .Columns.Add("Duration").ComputedField = "(date(%1)-date(%0)) + ' days'" with .Items h = .Add({^2001-1-11}) .Caption(h,1) = {^2001-1-14} h = .Add({^2002-2-22}) .Caption(h,1) = {^2002-3-14} h = .Add({^2003-3-13}) .Caption(h,1) = {^2003-4-11} endwith endwith
337. How can I get second part of the date
with thisform.List1 .Columns.Add("Date") .Columns.Add("Second").ComputedField = "sec(date(%0))" with .Items .Add({^2001-1-11 10:10:00}) .Add({^2002-2-22 11:01:22}) .Add({^2003-3-13 12:23:01}) .Add({^2004-4-14 13:11:59}) endwith endwith
336. How can I get minute part of the date
with thisform.List1 .Columns.Add("Date") .Columns.Add("Minute").ComputedField = "min(date(%0))" with .Items .Add({^2001-1-11 10:10:00}) .Add({^2002-2-22 11:01:00}) .Add({^2003-3-13 12:23:00}) .Add({^2004-4-14 13:11:00}) endwith endwith
335. How can I check the hour part only so I know it was afternoon
with thisform.List1 .ConditionalFormats.Add("hour(%0)>=12").Bold = .T. .Columns.Add("Date") .Columns.Add("Hour").ComputedField = "hour(%0)" with .Items .Add({^2001-1-11 10:00:00}) .Add({^2002-2-22 11:00:00}) .Add({^2003-3-13 12:00:00}) .Add({^2004-4-14 13:00:00}) endwith endwith
334. What about a function to get the day in the week, or days since Sunday
with thisform.List1 .Columns.Add("Date") .Columns.Add("WeekDay").ComputedField = "weekday(%0)" with .Items .Add({^2001-1-11 10:00:00}) .Add({^2002-2-22 11:00:00}) .Add({^2003-3-13 12:00:00}) .Add({^2004-4-14 13:00:00}) endwith endwith
333. Is there any function to get the day of the year or number of days since January 1st
with thisform.List1 .Columns.Add("Date") .Columns.Add("Day since January 1st").ComputedField = "yearday(%0)" with .Items .Add({^2001-1-11 10:00:00}) .Add({^2002-2-22 11:00:00}) .Add({^2003-3-13 12:00:00}) .Add({^2004-4-14 13:00:00}) endwith endwith
332. How can I display only the day of the date
with thisform.List1 .Columns.Add("Date") .Columns.Add("Day").ComputedField = "day(%0)" with .Items .Add({^2001-1-11 10:00:00}) .Add({^2002-2-22 11:00:00}) .Add({^2003-3-13 12:00:00}) .Add({^2004-4-14 13:00:00}) endwith endwith
331. How can I display only the month of the date
with thisform.List1 .Columns.Add("Date") .Columns.Add("Month").ComputedField = "month(%0)" with .Items .Add({^2001-1-1 10:00:00}) .Add({^2002-2-2 11:00:00}) .Add({^2003-3-3 12:00:00}) .Add({^2004-4-4 13:00:00}) endwith endwith
330. How can I get only the year part from a date expression
with thisform.List1 .Columns.Add("Date") .Columns.Add("Year").ComputedField = "year(%0)" with .Items .Add({^2001-1-1 10:00:00}) .Add({^2002-2-2 11:00:00}) .Add({^2003-3-3 12:00:00}) .Add({^2004-4-4 13:00:00}) endwith endwith
329. Can I convert the expression to date
with thisform.List1 .Columns.Add("Number") .Columns.Add("Date").ComputedField = "date(dbl(%0))" with .Items .Add("-1.98") .Add("30000.99") .Add("3561.23") .Add("1232.34") endwith endwith
328. Can I convert the expression to a number, double or float
with thisform.List1 .Columns.Add("Number") .Columns.Add("Number + 2").ComputedField = "dbl(%0)+2" with .Items .Add("-1.98") .Add("0.99") .Add("1.23") .Add("2.34") endwith endwith
327. How can I display dates in long format
with thisform.List1 .Columns.Add("Date") .Columns.Add("LongFormat").ComputedField = "longdate(%0)" with .Items .Add({^2001-1-1 10:00:00}) .Add({^2002-2-2 11:00:00}) .Add({^2003-3-3 12:00:00}) .Add({^2004-4-4 13:00:00}) endwith endwith
326. How can I display dates in short format
with thisform.List1 .Columns.Add("Date") .Columns.Add("ShortFormat").ComputedField = "shortdate(%0)" with .Items .Add({^2001-1-1 10:00:00}) .Add({^2002-2-2 11:00:00}) .Add({^2003-3-3 12:00:00}) .Add({^2004-4-4 13:00:00}) endwith endwith
325. How can I display the time only of a date expression
with thisform.List1 .Columns.Add("Date") .Columns.Add("Time").ComputedField = "'time is:' + time(date(%0))" with .Items .Add({^2001-1-1 10:00:00}) .Add({^2002-2-2 11:00:00}) .Add({^2003-3-3 12:00:00}) .Add({^2004-4-4 13:00:00}) endwith endwith
324. Is there any function to display currencies, or money formatted as in the control panel
with thisform.List1 .Columns.Add("Number") .Columns.Add("Currency").ComputedField = "currency(dbl(%0))" with .Items .Add("1.23") .Add("2.34") .Add("10000.99") endwith endwith
323. How can I convert the expression to a string so I can look into the date string expression for month's name
with thisform.List1 .Columns.Add("Number") .Columns.Add("Str").ComputedField = "str(%0) + ' AA'" with .Items .Add("-1.98") .Add("0.99") .Add("1.23") .Add("2.34") endwith endwith
322. Can I display the absolute value or positive part of the number
with thisform.List1 .Columns.Add("Number") .Columns.Add("Abs").ComputedField = "abs(%0)" with .Items .Add("-1.98") .Add("0.99") .Add("1.23") .Add("2.34") endwith endwith
321. Is there any function to get largest number with no fraction part that is not greater than the value
with thisform.List1 .Columns.Add("Number") .Columns.Add("Floor").ComputedField = "floor(%0)" with .Items .Add("-1.98") .Add("0.99") .Add("1.23") .Add("2.34") endwith endwith
320. Is there any function to round the values base on the .5 value
with thisform.List1 .Columns.Add("Number") .Columns.Add("Round").ComputedField = "round(%0)" with .Items .Add("-1.98") .Add("0.99") .Add("1.23") .Add("2.34") endwith endwith
319. How can I get or display the integer part of the cell
with thisform.List1 .Columns.Add("Number") .Columns.Add("Int").ComputedField = "int(%0)" with .Items .Add("-1.98") .Add("0.99") .Add("1.23") .Add("2.34") endwith endwith
318. How can I display names as proper ( first leter of the word must be in uppercase, and the rest in lowercase )
with thisform.List1 .Columns.Add("").ComputedField = "proper(%0)" with .Items h = .Add("Item 1") .Add("item item") .Add("item item") .Add("item item") endwith endwith
317. Is there any option to display cells in uppercase
with thisform.List1 .Columns.Add("").ComputedField = "upper(%0)" with .Items h = .Add("Item 1") .Add("Item 2") .Add("Item 3") .Add("Item 4 - child") endwith endwith
316. Is there any option to display cells in lowercase
with thisform.List1 .Columns.Add("").ComputedField = "lower(%0)" with .Items h = .Add("Item 1") .Add("Item 2") .Add("Item 3") .Add("Item 4 - child") endwith endwith
315. How can I mark the cells that has a specified type, ie strings only
with thisform.List1 .ConditionalFormats.Add("type(%0) = 8").ForeColor = RGB(255,0,0) .Columns.Add("") with .Items h = .Add("Item 1") .Add("Item 2") .Add(2) .Add("Item 4 - child") endwith endwith
314. How can I bold the items that contains data or those who displays empty strings
with thisform.List1 .ConditionalFormats.Add("not len(%1)=0").Bold = .T. .Columns.Add("C1") .Columns.Add("C2") with .Items h = .Add("Item 1") .Add("Item 2") hC = .Add("Item 3") .Caption(hC,1) = "1" .Add("Item 3") endwith endwith
313. Can I change the background color for items or cells that contains a specified string
with thisform.List1 .ConditionalFormats.Add("%0 contains 'hi'").BackColor = RGB(255,0,0) .Columns.Add("") with .Items .Add("Item 1") .Add("Item 2") .Add("Item 3") .Add("Item 4 - child") endwith endwith
312. Is there any option to change the fore color for cells or items that ends with a specified string
with thisform.List1 .ConditionalFormats.Add("%0 endwith '22'").ForeColor = RGB(255,0,0) .Columns.Add("") with .Items .Add("Item 1") .Add("Item 2") .Add("Item 1.22") .Add("Item 2.22") endwith endwith
311. How can I highlight the cells or items that starts with a specified string
with thisform.List1 .ConditionalFormats.Add("%0 startwith 'C'").Underline = .T. .Columns.Add("") with .Items .Add("Item 1") .Add("CItem 2") .Add("Item 3") .Add("Item 4") endwith endwith
310. How can I change the foreground color for a particular column
with thisform.List1 with .Columns .Add("Column 1") .Add("Column 2").Def(8) = 8439039 .Add("Column 3") endwith endwith
309. How can I change the background color for a particular column
with thisform.List1 with .Columns .Add("Column 1") .Add("Column 2").Def(7) = 8439039 .Add("Column 3") endwith endwith
308. How can I display the column's header using multiple lines
with thisform.List1 .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
307. How can I align the text/caption on the scroll bar
with thisform.List1 .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
306. How do I select the next row/item
with thisform.List1 .Columns.Add("Column") with .Items .Add("Item 1") .Add("Item 2") .Add("Item 3") .SelectItem(.NextVisibleItem(.FocusItem)) = .T. endwith endwith
305. How do I enable resizing ( changing the height ) the items at runtime
with thisform.List1 .ItemsAllowSizing = -1 .DrawGridLines = 1 .ScrollBySingleLine = .T. .Columns.Add("Column") .Items.Add("Item 1") with .Items .ItemHeight(.Add("Item 2")) = 48 endwith .Items.Add("Item 3") .Items.Add("Item 4") endwith
304. How do I enable resizing all the items at runtime
with thisform.List1 .ItemsAllowSizing = 1 .DrawGridLines = 1 .Columns.Add("Column") .Items.Add("Item 1") with .Items .ItemHeight(.Add("Item 2")) = 48 endwith .Items.Add("Item 3") endwith
303. How can I remove the filter
with thisform.List1 with .Columns.Add("Column") .DisplayFilterButton = .T. .FilterType = 1 endwith .ApplyFilter .ClearFilter endwith
302. How do I change the control's border, using your EBN files
with thisform.List1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Appearance = 16777216 endwith
301. Can I change the style for break or divider line
with thisform.List1 .Columns.Add("Default") with .Items .Add("Item 1") h = .Add() .ItemBreak(h) = 2 .SelectableItem(h) = .F. .Add("Item 3") endwith endwith
300. Can I add any break or divider line
with thisform.List1 .ScrollBySingleLine = .F. .Columns.Add("Default") with .Items .Add("Item 1") h = .Add() .ItemBreak(h) = 1 .SelectableItem(h) = .F. .ItemHeight(h) = 6 .Add("Item 3") endwith endwith
299. Can I change the default border of the tooltip, using your EBN files
with thisform.List1 .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
298. Can I change the background color for the tooltip
with thisform.List1 .ToolTipDelay = 1 .ToolTipWidth = 364 .Object.Background(65) = RGB(255,0,0) .Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column" endwith
297. Does the tooltip support HTML format
with thisform.List1 .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
296. Can I change the forecolor for the tooltip
with thisform.List1 .ToolTipDelay = 1 .ToolTipWidth = 364 .Object.Background(66) = RGB(255,0,0) .Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column" endwith
295. Can I change the foreground color for the tooltip
with thisform.List1 .ToolTipDelay = 1 .ToolTipWidth = 364 .Columns.Add("tootip").ToolTip = "<fgcolor=FF0000>this is a tooltip assigned to a column</fgcolor>" endwith
294. Is there any function to limit the height of the items when I display it using multiple lines
with thisform.List1 .ScrollBySingleLine = .T. .Columns.Add("C1") .Columns.Add("C2") with .Items h = .Add("Cell 1") 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." .Caption(h,1) = var_s .CellSingleLine(h,1) = .F. .ItemMaxHeight(h) = 48 endwith endwith
293. Why I cannot center my cells in the column
with thisform.List1 .DrawGridLines = -1 .Columns.Add("Default").Alignment = 1 .Items.Add("item 1") .Items.Add("item 2") .Items.Add("item 3") endwith
292. How can I align the cell to the left, center or to the right
with thisform.List1 .DrawGridLines = -1 .Columns.Add("Default") with .Items .CellHAlignment(.Add("left"),0) = 0 .CellHAlignment(.Add("center"),0) = 1 .CellHAlignment(.Add("right"),0) = 2 endwith endwith
291. How do I apply HTML format to a cell
with thisform.List1 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 = .Add("The following item shows some of the HTML format supported:") .CellHAlignment(h,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 = .Add(var_s1) .CaptionFormat(h,0) = 1 .CellSingleLine(h,0) = .F. endwith endwith
290. How can I change the font for a cell
with thisform.List1 .Columns.Add("Default") .Items.Add("std font") with .Items .CaptionFormat(.Add("this <font tahoma;12>is a bit of text with</font> a different font"),0) = 1 endwith endwith
289. How can I change the font for a cell
with thisform.List1 .Columns.Add("Default") .Items.Add("default font") f = CreateObject("StdFont") with f .Name = "Tahoma" .Size = 12 endwith with .Items .CellFont(.Add("new font"),0) = f endwith endwith
288. How can I change the font for entire item
with thisform.List1 .Columns.Add("Default") .Items.Add("default font") f = CreateObject("StdFont") with f .Name = "Tahoma" .Size = 12 endwith with .Items .ItemFont(.Add("new font")) = f endwith endwith
287. How do I vertically align a cell
with thisform.List1 .DrawGridLines = -1 .Columns.Add("MultipleLine").Def(16) = .F. .Columns.Add("VAlign") with .Items h = .Add("This is a bit of long text that should break the line") .Caption(h,1) = "top" .CellVAlignment(h,1) = 0 h = .Add("This is a bit of long text that should break the line") .Caption(h,1) = "middle" .CellVAlignment(h,1) = 1 h = .Add("This is a bit of long text that should break the line") .Caption(h,1) = "bottom" .CellVAlignment(h,1) = 2 endwith endwith
286. How can I change the position of an item
with thisform.List1 .Columns.Add("Default") with .Items .Add("Item 1") .Add("Item 2") .ItemPosition(.Add("Item 3")) = 0 endwith endwith
285. How do I find an item
with thisform.List1 .Columns.Add("Default") with .Items .Add("Item 1") .Add("Item 2") .Add("Item 3") .ItemBold(.FindItem("Item 2",0)) = .T. endwith endwith
284. How can I insert a hyperlink or an anchor element
with thisform.List1 .Columns.Add("Column") with .Items .CaptionFormat(.Add("Just an <a1>anchor</a> element ..."),0) = 1 endwith with .Items .CaptionFormat(.Add("Just another <a2>anchor</a> element ..."),0) = 1 endwith endwith
283. How do I find the handle of the item based on its index
with thisform.List1 .Columns.Add("Default") with .Items h = .Add("Item 1") .Add("Item 2") .Add("Item 3") .ItemBold(1) = .T. endwith endwith
282. How can I find the cell being clicked in a radio group
with thisform.List1 .MarkSearchColumn = .F. .SelBackColor = RGB(255,255,128) .SelForeColor = RGB(0,0,0) .Columns.Add("C1") .Columns.Add("C2") .Columns.Add("C3") with .Items h = .Add("Cell 1") .Caption(h,1) = "Radio 1" .CellHasRadioButton(h,1) = .T. .CellRadioGroup(h,1) = 1234 .Caption(h,2) = "Radio 2" .CellHasRadioButton(h,2) = .T. .CellRadioGroup(h,2) = 1234 .CellState(h,1) = 1 .CellBold(0,0) = .T. endwith endwith
281. Can I let the user to resize at runtime the specified item
with thisform.List1 .ScrollBySingleLine = .T. .DrawGridLines = -1 .Columns.Add("Default") with .Items .ItemAllowSizing(.Add("resizable item")) = .T. .Add("not resizable item") endwith endwith
280. How can I change the size ( width, height ) of the picture
with thisform.List1 .Columns.Add("Default") with .Items h = .Add("Item 1") .CellPicture(h,0) = thisform.List1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .CellPictureWidth(h,0) = 24 .CellPictureHeight(h,0) = 24 .ItemHeight(h) = 32 h = .Add("Item 2") .CellPicture(h,0) = thisform.List1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .ItemHeight(h) = 48 endwith endwith
279. How can I find the number or the count of selected items
with thisform.List1 .SingleSel = .F. .Columns.Add("Default") with .Items h = .Add("Item 1") .Add("Item 2") .Add("Item 3") .SelectItem(.FirstVisibleItem) = .T. .SelectItem(.NextVisibleItem(.FirstVisibleItem)) = .T. .Add(.SelectCount) endwith endwith
278. How do I unselect an item
with thisform.List1 .Columns.Add("Default") with .Items h = .Add("Item 1") .Add("Item 2") .Add("Item 3") .SelectItem(h) = .F. endwith endwith
277. How do I find the selected item
with thisform.List1 .Columns.Add("Default") with .Items h = .Add("Item 1") .Add("Item 2") .Add("Item 3") .SelectItem(h) = .T. .ItemBold(.SelectedItem(0)) = .T. endwith endwith
276. How do I un select all items
with thisform.List1 .SingleSel = .F. .Columns.Add("Default") with .Items .Add("Item 1") .Add("Item 2") .Add("Item 3") .UnselectAll endwith endwith
275. How do I select multiple items
with thisform.List1 .SingleSel = .F. .Columns.Add("Default") with .Items .Add("Item 1") .Add("Item 2") .Add("Item 3") .SelectItem(.FirstVisibleItem) = .T. .SelectItem(.NextVisibleItem(.FirstVisibleItem)) = .T. endwith endwith
274. How do I select all items
with thisform.List1 .SingleSel = .F. .Columns.Add("Default") with .Items .Add("Item 1") .Add("Item 2") .Add("Item 3") .SelectAll endwith endwith
273. How do I select an item
with thisform.List1 .Columns.Add("Default") with .Items .Add("Item 1") .Add("Item 2") .Add("Item 3") .SelectItem(.NextVisibleItem(.FocusItem)) = .T. endwith endwith
272. Can I display a button with some picture or icon inside
with thisform.List1 .Object.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif" .Columns.Add("C1") .Columns.Add("C2") with .Items h = .Add("Cell 1") .Caption(h,1) = " Button <img>p1</img> " .CaptionFormat(h,1) = 1 .CellHAlignment(h,1) = 2 .CellHasButton(h,1) = .T. .ItemHeight(h) = 48 endwith endwith
271. Can I display a button with some picture or icon inside
with thisform.List1 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("C1") .Columns.Add("C2") with .Items h = .Add("Cell 1") .Caption(h,1) = " Button <img>1</img> " .CaptionFormat(h,1) = 1 .CellHAlignment(h,1) = 2 .CellHasButton(h,1) = .T. endwith endwith
270. Can I display a button with some icon inside
with thisform.List1 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("C1") .Columns.Add("C2") with .Items h = .Add("Cell 1") .Caption(h,1) = " <img>1</img> " .CaptionFormat(h,1) = 1 .CellHAlignment(h,1) = 2 .CellHasButton(h,1) = .T. endwith endwith
269. How can I assign multiple icon/picture to a cell
with thisform.List1 .Object.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif" .Object.HTMLPicture("p2") = "c:\exontrol\images\auction.gif" .Columns.Add("Default") with .Items h = .Add("text <img>p1</img> another picture <img>p2</img> and so on") .CaptionFormat(h,0) = 1 .CellPicture(h,0) = thisform.List1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)") .ItemHeight(h) = 48 .Add("Item 2") endwith endwith
268. How can I assign an icon/picture to a cell
with thisform.List1 .Columns.Add("Default") with .Items h = .Add("Item 1") .CellPicture(h,0) = thisform.List1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .ItemHeight(h) = 48 .Add("Item 2") endwith endwith
267. How can I assign multiple icons/pictures to a cell
with thisform.List1 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("Default") with .Items h = .Add("Item <img>1</img> 1, <img>2</img>, ... and so on ") .CaptionFormat(h,0) = 1 endwith endwith
266. How can I assign multiple icons/pictures to a cell
with thisform.List1 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("Default") with .Items h = .Add("Item 1") .CellImages(h,0) = "1,2,3" endwith endwith
265. How can I assign an icon/picture to a cell
with thisform.List1 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("Default") with .Items h = .Add("Item 1") .CellImage(h,0) = 1 .CellImage(.Add("Item 2"),0) = 2 .CellImage(.Add("Item 3"),0) = 3 endwith endwith
264. How can I display a button inside the item or cell
with thisform.List1 .Columns.Add("C1") .Columns.Add("C2") with .Items h = .Add("Cell 1") .Caption(h,1) = " Button 1 " .CellHAlignment(h,1) = 2 .CellHasButton(h,1) = .T. h = .Add("Cell 2") .Caption(h,1) = " Button 2 " .CellHAlignment(h,1) = 1 .CellHasButton(h,1) = .T. endwith endwith
263. How can I change the state of a radio button
with thisform.List1 .MarkSearchColumn = .F. .SelBackColor = RGB(255,255,128) .SelForeColor = RGB(0,0,0) .Columns.Add("C1") .Columns.Add("C2") .Columns.Add("C3") with .Items h = .Add("Cell 1") .Caption(h,1) = "Radio 1" .CellHasRadioButton(h,1) = .T. .CellRadioGroup(h,1) = 1234 .Caption(h,2) = "Radio 2" .CellHasRadioButton(h,2) = .T. .CellRadioGroup(h,2) = 1234 .CellState(h,1) = 1 endwith endwith
262. How can I assign a radio button to a cell
with thisform.List1 .MarkSearchColumn = .F. .SelBackColor = RGB(255,255,128) .SelForeColor = RGB(0,0,0) .Columns.Add("C1") .Columns.Add("C2") .Columns.Add("C3") with .Items h = .Add("Cell 1") .Caption(h,1) = "Radio 1" .CellHasRadioButton(h,1) = .T. .CellRadioGroup(h,1) = 1234 .Caption(h,2) = "Radio 2" .CellHasRadioButton(h,2) = .T. .CellRadioGroup(h,2) = 1234 .CellState(h,1) = 1 endwith endwith
261. How can I change the state of a checkbox
with thisform.List1 .Columns.Add("C1") .Columns.Add("C2") with .Items h = .Add("Cell 1") .Caption(h,1) = "Check Box" .CellHasCheckBox(h,1) = .T. .CellState(h,1) = 1 endwith endwith
260. How can I assign a checkbox to a cell
with thisform.List1 .Columns.Add("C1") .Columns.Add("C2") with .Items h = .Add("Cell 1") .Caption(h,1) = "Check Box" .CellHasCheckBox(h,1) = .T. endwith endwith
259. How can I display an item or a cell on multiple lines
with thisform.List1 .ScrollBySingleLine = .T. .Columns.Add("C1") .Columns.Add("C2") with .Items h = .Add("Cell 1") .Caption(h,1) = "This is bit of text that's shown on multiple lines" .CellSingleLine(h,1) = .F. endwith endwith
258. How can I assign a tooltip to a cell
with thisform.List1 .Columns.Add("C1") .Columns.Add("C2") with .Items h = .Add("Cell 1") .Caption(h,1) = "tooltip" .CellToolTip(h,1) = "This is bit of text that's shown when the user hovers the cell" endwith endwith
257. How can I associate an extra data to a cell
with thisform.List1 .Columns.Add("C1") .Columns.Add("C2") with .Items h = .Add("Cell 1") .Caption(h,1) = "Cell 2" .CellData(h,1) = "your extra data" endwith endwith
256. How do I enable or disable a cell
with thisform.List1 .Columns.Add("C1") .Columns.Add("C2") with .Items h = .Add("Cell 1") .Caption(h,1) = "Cell 2" .CellEnabled(h,1) = .F. endwith endwith
255. How do I change the cell's foreground color
with thisform.List1 .Columns.Add("C1") .Columns.Add("C2") with .Items h = .Add("Cell 1") .Caption(h,1) = "Cell 2" .CellForeColor(h,1) = RGB(255,0,0) endwith endwith
254. How do I change the visual effect for the cell, using your EBN files
with thisform.List1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Columns.Add("C1") .Columns.Add("C2") with .Items h = .Add("Cell 1") .Caption(h,1) = "Cell 2" .CellBackColor(h,1) = 0x1000000 endwith endwith
253. How do I change the cell's background color
with thisform.List1 .Columns.Add("C1") .Columns.Add("C2") with .Items h = .Add("Cell 1") .Caption(h,1) = "Cell 2" .CellBackColor(h,1) = RGB(255,0,0) endwith endwith
252. How do I change the caption or value for a particular cell
with thisform.List1 .Columns.Add("C1") .Columns.Add("C2") with .Items .Caption(.Add("Cell 1"),1) = "Cell 2" endwith endwith
251. How do I retrieve the focused item
with thisform.List1 .Columns.Add("Default") with .Items .Add("Item 1") .Add("Item 2") .Add("Item 3") .ItemBold(.FocusItem) = .T. endwith endwith
250. How do I enumerate the visible items
with thisform.List1 .Columns.Add("Default") with .Items h = .Add("Item 1") h = .Add("Item 2") .ItemBold(.FirstVisibleItem) = .T. .ItemBold(.NextVisibleItem(.FirstVisibleItem)) = .T. endwith endwith
249. How can I make an item unselectable, or not selectable
with thisform.List1 .Columns.Add("Column") with .Items h = .Add("unselectable - you can't get selected") .SelectableItem(h) = .F. .Add("selectable") endwith endwith
248. How can I hide or show an item
with thisform.List1 .Columns.Add("Column") with .Items h = .Add("hidden") .ItemHeight(h) = 0 .SelectableItem(h) = .F. .Add("visible") endwith endwith
247. How can I change the height for all items
with thisform.List1 .DefaultItemHeight = 32 .Columns.Add("Column") .Items.Add("One") .Items.Add("Two") endwith
246. How do I change the height of an item
with thisform.List1 .ScrollBySingleLine = .T. .Columns.Add("Default") with .Items .ItemHeight(.Add("height")) = 128 endwith .Items.Add("enabled") endwith
245. How do I disable or enable an item
with thisform.List1 .Columns.Add("Default") with .Items .EnableItem(.Add("disabled")) = .F. endwith .Items.Add("enabled") endwith
244. How do I display as strikeout a cell
with thisform.List1 .Columns.Add("Default") with .Items .CellStrikeOut(.Add("strikeout"),0) = .T. endwith endwith
243. How do I display as strikeout a cell or an item
with thisform.List1 .Columns.Add("Default") with .Items .CaptionFormat(.Add("gets <s>strikeout</s> only a portion of text"),0) = 1 endwith endwith
242. How do I display as strikeout an item
with thisform.List1 .Columns.Add("Default") with .Items .ItemStrikeOut(.Add("strikeout")) = .T. endwith endwith
241. How do I underline a cell
with thisform.List1 .Columns.Add("Default") with .Items .CellUnderline(.Add("underline"),0) = .T. endwith endwith
240. How do I underline a cell or an item
with thisform.List1 .Columns.Add("Default") with .Items .CaptionFormat(.Add("gets <u>underline</u> only a portion of text"),0) = 1 endwith endwith
239. How do I underline an item
with thisform.List1 .Columns.Add("Default") with .Items .ItemUnderline(.Add("underline")) = .T. endwith endwith
238. How do I display as italic a cell
with thisform.List1 .Columns.Add("Default") with .Items .CellItalic(.Add("italic"),0) = .T. endwith endwith
237. How do I display as italic a cell or an item
with thisform.List1 .Columns.Add("Default") with .Items .CaptionFormat(.Add("gets <i>italic</i> only a portion of text"),0) = 1 endwith endwith
236. How do I display as italic an item
with thisform.List1 .Columns.Add("Default") with .Items .ItemItalic(.Add("italic")) = .T. endwith endwith
235. How do I bold a cell
with thisform.List1 .Columns.Add("Default") with .Items .CellBold(.Add("bold"),0) = .T. endwith endwith
234. How do I bold a cell or an item
with thisform.List1 .Columns.Add("Default") with .Items .CaptionFormat(.Add("gets <b>bold</b> only a portion of text"),0) = 1 endwith endwith
233. How do I bold an item
with thisform.List1 .Columns.Add("Default") with .Items .ItemBold(.Add("bold")) = .T. endwith endwith
232. How do I change the foreground color for the item
with thisform.List1 .Columns.Add("Default") with .Items .ItemForeColor(.Add("Item")) = RGB(255,0,0) endwith endwith
231. How do I change the visual appearance for the item, using your EBN technology
with thisform.List1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Columns.Add("Default") with .Items h = .Add("Item") .ItemBackColor(0) = 0x1000000 endwith endwith
230. How do I change the background color for the item
with thisform.List1 .Columns.Add("Default") with .Items .ItemBackColor(.Add("Item")) = RGB(255,0,0) endwith endwith
229. How do I associate an extra data to an item
with thisform.List1 .Columns.Add("Default") with .Items .ItemData(.Add("item")) = "your extra data" endwith endwith
228. How do I programmatically edit a cell
*** Click event - Occurs when the user presses and then releases the left mouse button over the list control. *** LPARAMETERS nop with thisform.List1 .Items.Edit(0.FocusItem,0) endwith with thisform.List1 .AllowEdit = .T. .Columns.Add("Default") with .Items .Add("") endwith endwith
227. How can I ensure or scroll the control so the item fits the control's client area
with thisform.List1 .Columns.Add("Default") h = .Items.Add("item") .Items.EnsureVisibleItem(h) endwith
226. How can I remove or delete all items
with thisform.List1 .Columns.Add("Default") .Items.Add("removed item") .Items.RemoveAll endwith
225. How can I remove or delete an item
with thisform.List1 .Columns.Add("Default") h = .Items.Add("removed item") .Items.Remove(h) endwith
224. How can I add or insert an item
with thisform.List1 .Columns.Add("C1") .Columns.Add("C2") with .Items .Caption(.Add("Cell 1"),1) = "Cell 2" h = .Add("Cell 3") .Caption(h,1) = "Cell 4" endwith endwith
223. How can I add or insert an item
with thisform.List1 .Columns.Add("Default") .Items.Add("new item") endwith
222. How can I get the columns as they are shown in the control's sortbar
with thisform.List1 var_Object = .Columns.ItemBySortPosition(0) endwith
221. How can I access the properties of a column
with thisform.List1 .Columns.Add("A") .Columns.Item("A").HeaderBold = .T. endwith
220. How can I remove all the columns
with thisform.List1 .Columns.Clear endwith
219. How can I remove a column
with thisform.List1 .Columns.Remove("A") endwith
218. How can I get the number or the count of columns
with thisform.List1 var_Count = .Columns.Count endwith
217. How can I change the font for all cells in the entire column
with thisform.List1
f = CreateObject("StdFont")
with f
.Name = "Tahoma"
.Size = 12
endwith
with .ConditionalFormats.Add("1")
.Font = f
.ApplyTo = 0
endwith
.Columns.Add("Column")
.Items.Add(0)
.Items.Add(1)
endwith
with thisform.List1 var_ConditionalFormat = .ConditionalFormats.Add("1") with var_ConditionalFormat .BackColor = RGB(255,0,0) .ApplyTo = 0 endwith .Columns.Add("Column") .Items.Add(0) .Items.Add(1) endwith
215. How can I change the foreground color for all cells in the column
with thisform.List1 var_ConditionalFormat = .ConditionalFormats.Add("1") with var_ConditionalFormat .ForeColor = RGB(255,0,0) .ApplyTo = 0 endwith .Columns.Add("Column") .Items.Add(0) .Items.Add(1) endwith
214. How can I show as strikeout all cells in the column
with thisform.List1 var_ConditionalFormat = .ConditionalFormats.Add("1") with var_ConditionalFormat .StrikeOut = .T. .ApplyTo = 0 endwith .Columns.Add("Column") .Items.Add(0) .Items.Add(1) endwith
213. How can I underline all cells in the column
with thisform.List1 var_ConditionalFormat = .ConditionalFormats.Add("1") with var_ConditionalFormat .Underline = .T. .ApplyTo = 0 endwith .Columns.Add("Column") .Items.Add(0) .Items.Add(1) endwith
212. How can I show in italic all data in the column
with thisform.List1 var_ConditionalFormat = .ConditionalFormats.Add("1") with var_ConditionalFormat .Italic = .T. .ApplyTo = 0 endwith .Columns.Add("Column") .Items.Add(0) .Items.Add(1) endwith
211. How can I bold the entire column
with thisform.List1 var_ConditionalFormat = .ConditionalFormats.Add("1") with var_ConditionalFormat .Bold = .T. .ApplyTo = 0 endwith .Columns.Add("Column") .Items.Add(0) .Items.Add(1) endwith
210. How can I display a computed column and highlight some values that are negative or less than a value
with thisform.List1 .Columns.Add("A") .Columns.Add("B") .Columns.Add("(A+B)*1.19").ComputedField = "(%0 + %1) * 1.19" with .Items .Caption(.Add(1),1) = 2 endwith with .Items .Caption(.Add(10),1) = 20 endwith var_ConditionalFormat = .ConditionalFormats.Add("%2 > 10") with var_ConditionalFormat .Bold = .T. .ForeColor = RGB(255,0,0) .ApplyTo = 2 endwith endwith
209. Can I display a computed column so it displays the VAT, or SUM
with thisform.List1 .Columns.Add("A") .Columns.Add("B") .Columns.Add("(A+B)*1.19").ComputedField = "(%0 + %1) * 1.19" with .Items .Caption(.Add(1),1) = 2 endwith with .Items .Caption(.Add(10),1) = 20 endwith endwith
208. How can I show a column that adds values in the cells
with thisform.List1 .Columns.Add("A") .Columns.Add("B") .Columns.Add("A+B").ComputedField = "%0 + %1" with .Items .Caption(.Add(1),1) = 2 endwith with .Items .Caption(.Add(10),1) = 20 endwith endwith
207. Is there any function to filter the control's data as I type, so the items being displayed include the typed characters
with thisform.List1 var_Column = .Columns.Add("Filter") with var_Column .FilterOnType = .T. .DisplayFilterButton = .T. .AutoSearch = 1 endwith .Items.Add("Canada") .Items.Add("USA") endwith
206. Is there any function to filter the control's data as I type, something like filter on type
with thisform.List1 var_Column = .Columns.Add("Filter") with var_Column .FilterOnType = .T. .DisplayFilterButton = .T. endwith .Items.Add("Canada") .Items.Add("USA") endwith
205. How can I programmatically filter a column
with thisform.List1 with .Columns.Add("Filter") .DisplayFilterButton = .T. .FilterType = 2 endwith .Items.Add() .Items.Add("not empty") .ApplyFilter endwith
204. How can I show or display the control's filter
with thisform.List1 .Columns.Add("Filter").DisplayFilterButton = .T. endwith
203. How can I customize the items being displayed in the drop down filter window
with thisform.List1 with .Columns.Add("Custom Filter") .DisplayFilterButton = .T. .DisplayFilterPattern = .F. var_s = "Excel Spreadsheets (*.xls )||*.xls|||Word Documents||*.doc|||Powerpoint Presentations||*.pps|||T" var_s = var_s + "ext Documents (*.log,*.txt)||*.txt|*.log" .CustomFilter = var_s .FilterType = 3 .Filter = "*.xls" endwith .Items.Add("excel.xls") .Items.Add("word.doc") .Items.Add("pp.pps") .Items.Add("text.txt") .ApplyFilter endwith
202. How can I change the order or the position of the columns in the sort bar
with thisform.List1 .SortBarVisible = .T. .SortBarColumnWidth = 48 .Columns.Add("C1").SortOrder = 1 .Columns.Add("C2").SortOrder = 2 .Columns.Item("C2").SortPosition = 0 endwith
201. How do I arrange my columns on multiple levels
with thisform.List1 .Columns.Add("S").Width = 32 .Columns.Add("Level 2").LevelKey = 1 .Columns.Add("Level 3").LevelKey = 1 .Columns.Add("Level 4").LevelKey = 1 .Columns.Add("Level 1").LevelKey = "2" .Columns.Add("Level 2").LevelKey = "2" .Columns.Add("Level 3").LevelKey = "2" .Columns.Add("Level 4").LevelKey = "2" .Columns.Add("E").Width = 32 endwith
200. How do I arrange my columns on multiple lines
with thisform.List1 .HeaderHeight = 32 .Columns.Add("").HTMLCaption = "Line 1<br>Line 2" endwith
199. How can I display all cells using HTML format
with thisform.List1 .Columns.Add("HTML").Def(17) = 1 var_s = "<font ;12>T</font>his <b>is</b> an <a>html</a> <font Tahoma><fgcolor=FF0000>text</fgcolor></font" var_s = var_s + ">." .Items.Add(var_s) endwith
198. How can I display all cells using multiple lines
with thisform.List1 .Columns.Add("MultipleLine").Def(16) = .F. .Columns.Add("SingleLine").Def(16) = .T. with .Items .Caption(.Add("This is a bit of long text that should break the line"),1) = "this is a bit of long text that's displayed on a single line" endwith endwith
197. How do change the vertical alignment for all cells in the column
with thisform.List1 .Columns.Add("MultipleLine").Def(16) = .F. .Columns.Add("VAlign").Def(6) = 2 with .Items .Caption(.Add("This is a bit of long text that should break the line"),1) = "bottom" endwith with .Items .Caption(.Add("This is a bit of long text that should break the line"),1) = "bottom" endwith endwith
196. How do change the foreground color for all cells in the column
with thisform.List1 .Columns.Add("ForeColor").Def(5) = 255 .Items.Add(0) .Items.Add(1) endwith
195. How do change the background color for all cells in the column
with thisform.List1 .Columns.Add("BackColor").Def(4) = 255 .Items.Add(0) .Items.Add(1) endwith
194. How do I show buttons for all cells in the column
with thisform.List1 with .Columns.Add("Button") .Def(2) = .T. .Def(3) = .T. endwith .Items.Add(" Button 1 ") .Items.Add(" Button 2 ") endwith
193. How do I show buttons for all cells in the column
with thisform.List1 .Columns.Add("Button").Def(2) = .T. .Items.Add(0) .Items.Add(1) endwith
192. How do I display radio buttons for all cells in the column
with thisform.List1 .Columns.Add("Radio").Def(1) = .T. .Items.Add(0) .Items.Add(1) endwith
191. How do I display checkboxes for all cells in the column
with thisform.List1 .Columns.Add("Check").Def(0) = .T. .Items.Add(0) .Items.Add(1) endwith
190. How can I display a tooltip when the cursor hovers the column
with thisform.List1 .Columns.Add("tooltip").ToolTip = "This is a bit of text that is shown when user hovers the column." endwith
189. Is there any function to assign a key to a column instead using its name or capion
with thisform.List1 .Columns.Add("Data").Key = "DKey" .Columns.Item("DKey").Caption = "new caption" endwith
188. Is there any function to assign any extra data to a column
with thisform.List1 .Columns.Add("Data").Data = "your extra data" endwith
187. By default, the column gets sorted descending, when I first click its header. How can I change so the column gets sorted ascending when the user first clicks the column's header
with thisform.List1 .Columns.Add("Sort").DefaultSortOrder = .T. endwith
186. How can I specify the maximum width for the column, if I use WidthAutoResize property
with thisform.List1 with .Columns.Add("Auto") .WidthAutoResize = .T. .MinWidthAutoResize = 32 .MaxWidthAutoResize = 128 endwith .Items.Add(0) .Items.Add(1) endwith
185. How can I specify the minimum width for the column, if I use WidthAutoResize property
with thisform.List1 with .Columns.Add("Auto") .WidthAutoResize = .T. .MinWidthAutoResize = 32 endwith .Items.Add(0) .Items.Add(1) endwith
184. Is there any option to resize the column based on its data, captions
with thisform.List1 .Columns.Add("A").WidthAutoResize = .T. .Items.Add(0) .Items.Add(1) endwith
183. How can I align the icon in the column's header in the center
with thisform.List1 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("") .HeaderImage = 1 .HeaderImageAlignment = 1 endwith endwith
182. How do I align the icon in the column's header to the right
with thisform.List1 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("ColumnName") .HeaderImage = 1 .HeaderImageAlignment = 2 endwith endwith
181. How do I show or hide the sorting icons, but still need sorting
with thisform.List1 .Columns.Add("Sorted").SortOrder = 1 .Columns.Item(0).DisplaySortIcon = .F. endwith
180. How do I enable or disable the entire column
with thisform.List1 .Columns.Add("C1") .Columns.Add("Disabled").Enabled = .F. with .Items .Caption(.Add(0),1) = "0.1" endwith with .Items .Caption(.Add(1),1) = "1.1" endwith endwith
179. How do I disable drag and drop columns
with thisform.List1 .Columns.Add("C1").AllowDragging = .F. .Columns.Add("C2").AllowDragging = .F. endwith
178. How do I disable resizing a column at runtime
with thisform.List1 .Columns.Add("Unsizable").AllowSizing = .F. .Columns.Add("C2") .Columns.Add("C3") .Columns.Add("C4") endwith
177. How can I align the column to the right, and its caption too
with thisform.List1 with .Columns.Add("Column") .Alignment = 2 .HeaderAlignment = 2 endwith .Items.Add(0) .Items.Add(1) endwith
176. How can I align the column to the right
with thisform.List1 .Columns.Add("Column").Alignment = 2 .Items.Add(0) .Items.Add(1) endwith
175. How do I change the column's caption
with thisform.List1 .Columns.Add("Column").Caption = "new caption" endwith
174. Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
with thisform.List1 .Object.FormatAnchor(0) = "<b><u><fgcolor=880000> </fgcolor></u></b>" .Columns.Add("Column") with .Items .CaptionFormat(.Add("Just an <a1>anchor</a> element ..."),0) = 1 endwith with .Items .CaptionFormat(.Add("Just another <a2>anchor</a> element ..."),0) = 1 endwith .Items.Add("next item") endwith
173. Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
with thisform.List1 .Object.FormatAnchor(1) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>" .Columns.Add("Column") with .Items .CaptionFormat(.Add("Just an <a1>anchor</a> element ..."),0) = 1 endwith with .Items .CaptionFormat(.Add("Just another <a2>anchor</a> element ..."),0) = 1 endwith endwith
172. Can I change the font for the tooltip
with thisform.List1 .ToolTipDelay = 1 .ToolTipWidth = 364 .Columns.Add("tootip").ToolTip = "<br><font Tahoma;14>this</font> is a tooltip assigned to a column<br>" endwith
171. Can I change the font for the tooltip
with thisform.List1 .ToolTipDelay = 1 with .ToolTipFont .Name = "Tahoma" .Size = 14 endwith .ToolTipWidth = 364 .Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column" endwith
170. Can I change the order of the buttons in the scroll bar
with thisform.List1 .Object.ScrollOrderParts(1) = "t,l,r" .Object.ScrollOrderParts(0) = "t,l,r" .ScrollBars = 15 endwith
169. The thumb size seems to be very small. Can I make it bigger
with thisform.List1 .ColumnAutoResize = .F. .Columns.Add("C1").Width = 256 .Columns.Add("C2").Width = 256 .Columns.Add("C3").Width = 256 .Object.ScrollThumbSize(1) = 64 endwith
168. How can I display my text on the scroll bar, using a different font
with thisform.List1 .Object.ScrollPartCaption(1,256) = "This is <s><font Tahoma;12> just </font></s> text" .ColumnAutoResize = .F. .ScrollHeight = 20 .Columns.Add("C1").Width = 256 .Columns.Add("C2").Width = 256 .Columns.Add("C3").Width = 256 endwith
167. How can I display my text on the scroll bar, using a different font
with thisform.List1 .Object.ScrollPartCaption(1,256) = "This is just a text" .ScrollFont(1).Size = 12 .ColumnAutoResize = .F. .ScrollHeight = 20 .Columns.Add("C1").Width = 256 .Columns.Add("C2").Width = 256 .Columns.Add("C3").Width = 256 endwith
166. How can I display my text on the scroll bar
with thisform.List1 .Object.ScrollPartCaption(1,256) = "this is just a text" .ColumnAutoResize = .F. .Columns.Add("C1").Width = 256 .Columns.Add("C2").Width = 256 .Columns.Add("C3").Width = 256 endwith
165. How do I enlarge or change the size of the control's scrollbars
with thisform.List1 .ScrollHeight = 18 .ScrollWidth = 18 .ScrollButtonWidth = 18 .ScrollButtonHeight = 18 .ScrollBars = 15 endwith
164. How do I assign a tooltip to a scrollbar
with thisform.List1 .Object.ScrollToolTip(1) = "This is a tooltip being shown when you click and drag the thumb in the horizontal scroll bar" .ColumnAutoResize = .F. .Columns.Add("C1").Width = 256 .Columns.Add("C2").Width = 256 .Columns.Add("C3").Width = 256 endwith
163. How do I assign an icon to the button in the scrollbar
with thisform.List1 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.ScrollPartVisible(1,32768) = .T. .Object.ScrollPartCaption(1,32768) = "<img>1</img>" .ScrollHeight = 18 .ScrollButtonWidth = 18 .ScrollBars = 5 endwith
162. I need to add a button in the scroll bar. Is this possible
with thisform.List1 .Object.ScrollPartVisible(1,32768) = .T. .Object.ScrollPartCaption(1,32768) = "1" .ScrollBars = 5 endwith
161. Can I display an additional buttons in the scroll bar
with thisform.List1 .Object.ScrollPartVisible(1,32768) = .T. .Object.ScrollPartVisible(1,16384) = .T. .Object.ScrollPartVisible(1,1) = .T. .Object.ScrollPartVisible(1,2) = .T. .ScrollBars = 5 endwith
160. How can I display a custom size picture to a cell or item
with thisform.List1 .DefaultItemHeight = 48 .Columns.Add("C1") with .Items .CellPicture(.Add("Text"),0) = thisform.List1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") endwith endwith
159. How can I display a multiple pictures to a cell or item
with thisform.List1 .DefaultItemHeight = 48 .Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif" .Columns.Add("C1") with .Items .CaptionFormat(.Add("<img>pic1</img> Text <img>pic2</img> another text ..."),0) = 1 endwith endwith
158. How do I change the column's foreground color for numbers between an interval - Range
with thisform.List1 with .ConditionalFormats.Add("%0 >= 2 and %0 <= 10") .Bold = .T. .ForeColor = RGB(255,0,0) .ApplyTo = 1 endwith .Columns.Add("N1") .Columns.Add("N2") with .Items .Caption(.Add(1),1) = 2 endwith with .Items .Caption(.Add(3),1) = 3 endwith with .Items .Caption(.Add(10),1) = 11 endwith with .Items .Caption(.Add(13),1) = 31 endwith .SearchColumnIndex = 1 endwith
157. How do I change the item's foreground color for numbers between an interval - Range
with thisform.List1 .ConditionalFormats.Add("%0 >= 2 and %0 <= 10").ForeColor = RGB(255,0,0) .Columns.Add("Numbers") .Items.Add(1) .Items.Add(2) .Items.Add(10) .Items.Add(20) endwith
156. How do I change the item's background color for numbers less than a value
with thisform.List1 .ConditionalFormats.Add("%0 < 10").BackColor = RGB(255,0,0) .Columns.Add("Numbers") .Items.Add(1) .Items.Add(2) .Items.Add(10) .Items.Add(20) endwith
155. How do I underline the numbers greater than a value
with thisform.List1 .ConditionalFormats.Add("%0 >= 10").Underline = .T. .Columns.Add("Numbers") .Items.Add(1) .Items.Add(2) .Items.Add(10) .Items.Add(20) endwith
154. How do I highlight in italic the numbers greater than a value
with thisform.List1 .ConditionalFormats.Add("%0 >= 10").StrikeOut = .T. .Columns.Add("Numbers") .Items.Add(1) .Items.Add(2) .Items.Add(10) .Items.Add(20) endwith
153. How do I highlight in italic the numbers greater than a value
with thisform.List1 .ConditionalFormats.Add("%0 >= 10").Italic = .T. .Columns.Add("Numbers") .Items.Add(1) .Items.Add(2) .Items.Add(10) .Items.Add(20) endwith
152. How do I highlight in bold the numbers greater than a value
with thisform.List1 .ConditionalFormats.Add("%0 >= 10").Bold = .T. .Columns.Add("Numbers") .Items.Add(1) .Items.Add(2) .Items.Add(10) .Items.Add(20) endwith
151. Can I use your EBN files to change the visual appearance for radio buttons
with thisform.List1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") .Object.RadioImage(0) = 16777216 .Object.RadioImage(1) = 33554432 .Columns.Add("Radio").Def(1) = .T. with .Items .Add("Radio 1") .CellState(.Add("Radio 2"),0) = 1 .Add("Radio 3") endwith endwith
150. Can I use your EBN files to change the visual appearance for checkbox cells
with thisform.List1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") .Object.CheckImage(0) = 16777216 .Object.CheckImage(1) = 33554432 .Columns.Add("Check").Def(0) = .T. with .Items .Add("Check 1") .CellState(.Add("Check 2"),0) = 1 endwith endwith
149. How do I change the visual aspect for thumb parts in the scroll bars, using EBN
with thisform.List1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") .VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn") .Object.Background(388) = 0x1000000 .Object.Background(389) = 0x2000000 .Object.Background(391) = 0x3000000 .Object.Background(260) = 0x1000000 .Object.Background(261) = 0x2000000 .Object.Background(263) = 0x3000000 .ColumnAutoResize = .F. .ScrollBySingleLine = .T. .Columns.Add("S").Width = 483 with .Items .ItemHeight(.Add("Item 1")) = 248 endwith .Items.Add("Item 2") endwith
148. How do I change the visual aspect only for the thumb in the scroll bar, using EBN
with thisform.List1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") .VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn") .Object.Background(388) = 0x1000000 .Object.Background(389) = 0x2000000 .Object.Background(391) = 0x3000000 .ColumnAutoResize = .F. .Columns.Add("S").Width = 483 endwith
147. I've seen that you can change the visual appearance for the scroll bar. How can I do that
with thisform.List1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") .VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn") .Object.Background(324) = 0x1000000 .Object.Background(325) = 0x2000000 .Object.Background(327) = 0x3000000 .Object.Background(404) = RGB(240,240,240) .Object.Background(276) = RGB(240,240,240) .Object.Background(511) = RGB(240,240,240) .Columns.Add("S").Width = 32 .Columns.Add("Level 1").LevelKey = 1 .Columns.Add("Level 2").LevelKey = 1 .Columns.Add("Level 3").LevelKey = 1 .Columns.Add("E1").Width = 32 .Columns.Add("E2").Width = 32 .Columns.Add("E3").Width = 32 .Columns.Add("E4").Width = 32 .ColumnAutoResize = .F. .ScrollBars = 15 endwith
146. Is there any option to highligth the column from the cursor - point
with thisform.List1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Object.Background(32) = 0x1000000 .Columns.Add("S").Width = 32 .Columns.Add("Level 1").LevelKey = 1 .Columns.Add("Level 2").LevelKey = 1 .Columns.Add("Level 3").LevelKey = 1 .Columns.Add("E1").Width = 32 .Columns.Add("E2").Width = 32 .Columns.Add("E3").Width = 32 .Columns.Add("E4").Width = 32 endwith
145. How do I change the visual aspect of selected item in the drop down filter window, using your EBN technology
with thisform.List1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Object.Background(20) = 0x1000000 .Object.Background(21) = RGB(255,20,20) .Columns.Add("Filter").DisplayFilterButton = .T. endwith
144. How do I change the visual aspect of the drop down calendar window, that shows up if I click the drop down filter button, using EBN
with thisform.List1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") .Object.Background(8) = 0x1000000 .Object.Background(9) = 0x1000000 .Object.Background(10) = 0x2000000 .Object.Background(11) = 0x1000000 .Object.Background(12) = RGB(230,230,230) .Object.Background(13) = RGB(230,230,230) .Object.Background(14) = 0x1000000 with .Columns.Add("Date") .FilterType = 4 .DisplayFilterButton = .T. .DisplayFilterDate = .T. endwith endwith
143. How do I change the visual aspect of the close button in the filter bar, using EBN
with thisform.List1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Object.Background(1) = 0x1000000 .Columns.Add("Filter").FilterType = 1 .ApplyFilter endwith
142. How do I change the visual aspect of buttons in the cell, using EBN
with thisform.List1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") .Object.Background(2) = 0x1000000 .Object.Background(3) = 0x2000000 .SelForeColor = RGB(0,0,0) .ShowFocusRect = .F. .Columns.Add("Column 1").Def(2) = .T. .Items.Add("Button 1") .Items.Add("Button 2") .Columns.Add("Column 2") endwith
141. How do I change the visual aspect of the drop down filter button, using EBN
with thisform.List1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Object.Background(0) = 0x1000000 .Columns.Add("Filter").DisplayFilterButton = .T. endwith
140. How do I enable resizing the columns at runtime
with thisform.List1 .ColumnsAllowSizing = .T. .MarkSearchColumn = .F. .HeaderVisible = .F. .Columns.Add("Column 1") .Columns.Add("Column 2") .DrawGridLines = 2 with .Items .Caption(.Add("Item 1"),1) = "Sub Item 1" endwith with .Items .Caption(.Add("Item 2"),1) = "Sub Item 2" endwith endwith
139. How can I sort by multiple columns
with thisform.List1 .SingleSort = .F. .Columns.Add("C1").SortOrder = 1 .Columns.Add("C2").SortOrder = 2 .Columns.Add("C3").SortOrder = 1 endwith
138. How can I add several columns to control's sort bar
with thisform.List1 .SortBarVisible = .T. .SortBarColumnWidth = 48 .Columns.Add("C1").SortOrder = 1 .Columns.Add("C2").SortOrder = 2 endwith
137. How can I change the width of the columns being displayed in the sort bar
with thisform.List1 .SortBarVisible = .T. .SortBarColumnWidth = 48 .Columns.Add("C1").SortOrder = 1 .Columns.Add("C2").SortOrder = 2 endwith
136. How can I change the height of the sort bar's
with thisform.List1 .SortBarVisible = .T. .SortBarHeight = 48 endwith
135. How can I change the sort bar's foreground color
with thisform.List1 .SortBarVisible = .T. .ForeColorSortBar = RGB(255,0,0) endwith
134. How can I change the visual appearance of the control's sort bar, using EBN files
with thisform.List1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") .SortBarVisible = .T. .BackColorSortBar = 0x1000000 .BackColorSortBarCaption = 0x2000000 .Appearance = 0 endwith
133. How can I change the sort bar's background color
with thisform.List1 .SortBarVisible = .T. .BackColorSortBar = RGB(255,0,0) .BackColorSortBarCaption = RGB(128,0,0) endwith
132. How can I change the default caption being displayed in the control's sort bar
with thisform.List1 .SortBarVisible = .T. .SortBarCaption = "new caption" endwith
131. How can I show the control's sort bar
with thisform.List1
.SortBarVisible = .T.
endwith
with thisform.List1 .PictureLevelHeader = thisform.List1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)") .PictureDisplayLevelHeader = 49 .Columns.Add("S").Width = 32 .Columns.Add("Level 1").LevelKey = 1 .Columns.Add("Level 2").LevelKey = 1 .Columns.Add("Level 3").LevelKey = 1 .Columns.Add("E1").Width = 32 .Columns.Add("E2").Width = 32 .Columns.Add("E3").Width = 32 .Columns.Add("E4").Width = 32 endwith
129. How can I display a picture on the control's header, when multiple levels are displayed, so it is not tiled
with thisform.List1 .PictureLevelHeader = thisform.List1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)") .PictureDisplayLevelHeader = 18 .Columns.Add("S").Width = 32 .Columns.Add("Level 1").LevelKey = 1 .Columns.Add("Level 2").LevelKey = 1 .Columns.Add("Level 3").LevelKey = 1 .Columns.Add("E").Width = 32 endwith
128. How can I display a picture on the control's header, when multiple levels are displayed
with thisform.List1 .PictureLevelHeader = thisform.List1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .Columns.Add("S").Width = 32 .Columns.Add("Level 1").LevelKey = 1 .Columns.Add("Level 2").LevelKey = 1 .Columns.Add("Level 3").LevelKey = 1 endwith
127. How can I change the header's background color, when multiple levels are displayed
with thisform.List1 .BackColorLevelHeader = RGB(250,0,0) .Columns.Add("S").Width = 32 .Columns.Add("Level 1").LevelKey = 1 .Columns.Add("Level 2").LevelKey = 1 .Columns.Add("Level 3").LevelKey = 1 endwith
126. Can I programmatically scroll the control
with thisform.List1 .DefaultItemHeight = 32 .Columns.Add("Column") .Items.Add(0) .Items.Add(1) .Items.Add(2) .Items.Add(3) .PutItems(.GetItems(0)) .PutItems(.GetItems(0)) .Object.ScrollPos(1) = 1 endwith
125. Do you have some function to load data from a safe array
with thisform.List1 .Columns.Add("Column") .Items.Add(0) .PutItems(.GetItems(0)) endwith
124. Do you have some function to retrieve all items to a safe array
with thisform.List1 .Columns.Add("Column") .Items.Add(0) .PutItems(.GetItems(0)) .Items.Add(1) .PutItems(.GetItems(0)) .Items.Add(2) .PutItems(.GetItems(0)) .Items.Add(3) endwith
123. How can still display the selected items when the control loses the focus
with thisform.List1 .HideSelection = .F. .Columns.Add("Column") with .Items .Add("Item 3") .Add("Item 1") .SelectItem(.Add("Item 2")) = .T. endwith endwith
122. How can I hide a column
with thisform.List1 .Columns.Add("Hidden").Visible = .F. .Columns.Add("2") .Columns.Add("3") .Columns.Add("4") .Columns.Add("5") endwith
121. How can I ensure that a column is visible and fits the control's client area
with thisform.List1 .ColumnAutoResize = .F. .Columns.Add("1").Width = 128 .Columns.Add("2").Width = 128 .Columns.Add("3").Width = 128 .Columns.Add("4").Width = 128 .Columns.Add("5").Width = 128 .Items.EnsureVisibleColumn("5") endwith
120. I've seen that the width of the tooltip is variable. Can I make it larger
with thisform.List1 .ToolTipWidth = 328 .Columns.Add("tootip").ToolTip = "this is a tooltip that should be very very very very very very very long" endwith
119. How do I disable showing the tooltip for all control
with thisform.List1 .ToolTipDelay = 0 .Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column" endwith
118. How do I let the tooltip being displayed longer
with thisform.List1 .ToolTipPopDelay = 10000 .Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column" endwith
117. How do I show the tooltip quicker
with thisform.List1 .ToolTipDelay = 1 .Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column" endwith
116. How do I change the caption being displayed in the control's filter bar
with thisform.List1 .FilterBarCaption = "your filter caption" with .Columns.Add("Column") .DisplayFilterButton = .T. .FilterType = 1 endwith .ApplyFilter endwith
115. How do I search case sensitive, using your incremental search feature
with thisform.List1 .AutoSearch = .T. with .Columns .Add("exStartWith").AutoSearch = 0 .Add("exContains").AutoSearch = 1 endwith with .Items .Caption(.Add("text"),1) = "another text" endwith with .Items .Caption(.Add("text"),1) = "another text" endwith endwith
114. How do I disable the control
with thisform.List1
.Enabled = .F.
endwith
with thisform.List1 .AutoSearch = .T. with .Columns .Add("exStartWith").AutoSearch = 0 .Add("exContains").AutoSearch = 1 endwith with .Items .Caption(.Add("text"),1) = "another text" endwith with .Items .Caption(.Add("text"),1) = "another text" endwith endwith
112. How do I call your x-script language
with thisform.List1 with .ExecuteTemplate("Columns.Add(`Column`)") .HeaderStrikeOut = .T. .HeaderBold = .T. endwith endwith
111. How do I call your x-script language
with thisform.List1
.Template = "Columns.Add(`Column`).HTMLCaption = `<b>C</b>olumn`"
endwith
with thisform.List1 .BackColorAlternate = RGB(240,240,240) .Columns.Add("Column") with .Items .Add("Item 1") .Add("Item 2") .Add("Item 3") .Add("Item 4") .Add("Item 5") endwith endwith
109. How do I enlarge the drop down filter window
with thisform.List1 .FilterBarDropDownHeight = -320 with .Columns.Add("Column") .DisplayFilterButton = .T. .FilterBarDropDownWidth = -320 endwith .Items.Add("Item 1") .Items.Add("Item 2") endwith
108. How do I filter programatically the control
with thisform.List1 with .Columns.Add("Column") .DisplayFilterButton = .T. .FilterType = 3 .Filter = "Item*" endwith .Items.Add("Item 1") .Items.Add("") .Items.Add("Item 2") .ApplyFilter endwith
107. How do I change the font of the control's filterbar
with thisform.List1 .FilterBarFont.Size = 20 with .Columns.Add("Column") .DisplayFilterButton = .T. .FilterType = 1 endwith .ApplyFilter endwith
106. Can I apply an EBN skin to the control's filter bar so I can change its visual appearance
with thisform.List1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .FilterBarBackColor = 0x1000000 with .Columns.Add("Column") .DisplayFilterButton = .T. .FilterType = 1 endwith .ApplyFilter endwith
105. How do I change the background color of the control's filterbar
with thisform.List1 .FilterBarBackColor = RGB(240,240,240) with .Columns.Add("Column") .DisplayFilterButton = .T. .FilterType = 1 endwith .ApplyFilter endwith
104. How do I change the foreground color of the control's filterbar
with thisform.List1 .FilterBarForeColor = RGB(255,0,0) with .Columns.Add("Column") .DisplayFilterButton = .T. .FilterType = 1 endwith .ApplyFilter endwith
103. How do I change the height of the control's filterbar
with thisform.List1 .FilterBarHeight = 32 with .Columns.Add("Column") .DisplayFilterButton = .T. .FilterType = 1 endwith .ApplyFilter endwith
102. How do select only a portion of text when the control starts editing a cell
with thisform.List1 .AllowEdit = .T. .SelStart = 1 .SelLength = 1 .Columns.Add("Column") .Items.Add("Item 1") .Items.Add("Item 2") endwith
101. How do I change the header's foreground color
with thisform.List1 .ForeColorHeader = RGB(255,0,0) .Columns.Add("Column 1") .Columns.Add("Column 2") .Items.Add("Item 1") endwith
100. I have a picture on the control's background, the question is how do I draw selection as semi-transparent
with thisform.List1 .Picture = thisform.List1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .SelBackMode = 1 .Columns.Add("Column") .Items.Add("Item 1") .Items.Add("Item 2") endwith
99. It seems that the control uses the TAB key, is there any way to avoid that
with thisform.List1
.UseTabKey = .F.
endwith
with thisform.List1 .ColumnAutoResize = .F. .ContinueColumnScroll = .F. rs = CreateObject("ADOR.Recordset") with rs var_s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\VB\SAMPLE.M" var_s = var_s + "DB" .Open("Orders",var_s,3,3) endwith .DataSource = rs endwith
97. How do I change the visual appearance effect for the selected item, using EBN
with thisform.List1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .SelBackColor = 0x1000000 .SelForeColor = RGB(0,0,0) .ShowFocusRect = .F. .Columns.Add("Column") .Items.Add(0) .Items.Add(1) endwith
96. How do I change the colors for the selected item
with thisform.List1 .SelBackColor = RGB(0,0,0) .Columns.Add("Column") .Items.Add(0) .Items.Add(1) endwith
95. How do I get ride of the rectangle arround focused item
with thisform.List1 .ShowFocusRect = .F. .Columns.Add("Column") .Items.Add(0) .Items.Add(1) endwith
94. How can I change the control's font
with thisform.List1 .Font.Name = "Tahoma" .Columns.Add("Column") endwith
93. I can't scroll to the end of the data. What can I do
with thisform.List1 .ScrollBySingleLine = .T. .DrawGridLines = -1 .Columns.Add("Column") with .Items .ItemHeight(.Add(0)) = 13 endwith .PutItems(.GetItems(0)) with .Items .ItemHeight(.Add(1)) = 26 endwith .PutItems(.GetItems(0)) with .Items .ItemHeight(.Add(2)) = 36 endwith .PutItems(.GetItems(0)) with .Items .ItemHeight(.Add(3)) = 48 endwith .PutItems(.GetItems(0)) endwith
92. Is there any option to select an item using the right button of the mouse (rclick)
with thisform.List1 .RClickSelect = .T. .Columns.Add("Column") .Items.Add("Item 1") .Items.Add("Item 2") endwith
91. How do I edit a cell
with thisform.List1 .AllowEdit = .T. .Columns.Add("Column") .Items.Add("Item 1") .Items.Add("Item 2") endwith
90. I have FullRowSelect property on False, how do I select a column
with thisform.List1 .SelectColumnIndex = 1 .FullRowSelect = .F. endwith
89. How can I scroll columns one by one, not pixel by pixel
with thisform.List1 .ContinueColumnScroll = .F. .ColumnAutoResize = .F. .Columns.Add("1").Width = 128 .Columns.Add("2").Width = 128 .Columns.Add("3").Width = 128 .Columns.Add("4").Width = 128 .Columns.Add("5").Width = 128 endwith
88. How can I enable multiple items selection
with thisform.List1 .SingleSel = .F. .Columns.Add("Column") .Items.Add(0) .Items.Add(1) .Items.Add(2) endwith
87. How can I programmatically change the column where incremental searching is performed
with thisform.List1 .Columns.Add("Column 1") .Columns.Add("Column 2") with .Items .Caption(.Add("Item 1"),1) = "SubItem 1" endwith .SearchColumnIndex = 1 endwith
86. How do I disable the full-row selection in the control
with thisform.List1 .FullRowSelect = .F. .Columns.Add("Column") .Items.Add("One") .Items.Add("Two") endwith
85. Is there any option to specify the height of the items, before adding them
with thisform.List1 .DefaultItemHeight = 32 .Columns.Add("Column") .Items.Add("One") .Items.Add("Two") endwith
84. How do lock / fix some columns to the control, so I can see them all the time, event if I scroll the columns
with thisform.List1 .CountLockedColumns = 1 .BackColorLock = RGB(240,240,240) .ColumnAutoResize = .F. .Columns.Add("Locked").Width = 128 .Columns.Add("Un-Locked 1").Width = 128 .Columns.Add("Un-Locked 2").Width = 128 .Columns.Add("Un-Locked 3").Width = 128 with .Items .Caption(.Add("locked"),1) = "unlocked" endwith endwith
83. How do I change the control's background / foreground color on the locked area
with thisform.List1 .CountLockedColumns = 1 .ForeColorLock = RGB(240,240,240) .BackColorLock = RGB(128,128,128) .ColumnAutoResize = .F. .Columns.Add("Locked").Width = 128 .Columns.Add("Un-Locked 1").Width = 128 .Columns.Add("Un-Locked 2").Width = 128 .Columns.Add("Un-Locked 3").Width = 128 with .Items .Caption(.Add("locked"),1) = "unlocked" endwith endwith
82. How do I change the control's foreground color
with thisform.List1 .ForeColor = RGB(120,120,120) .Columns.Add("Column") .Items.Add("item") endwith
81. How do I change the control's background color
with thisform.List1
.BackColor = RGB(200,200,200)
endwith
with thisform.List1 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.RadioImage(0) = 1 .Object.RadioImage(1) = 2 .Columns.Add("Radio").Def(1) = .T. with .Items .Add("Radio 1") .CellState(.Add("Radio 2"),0) = 1 .Add("Radio 3") endwith endwith
79. How do I use my own icons for checkbox cells
with thisform.List1 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.CheckImage(0) = 1 .Object.CheckImage(1) = 2 .Columns.Add("Check").Def(0) = .T. with .Items .Add("Check 1") .CellState(.Add("Check 2"),0) = 1 endwith endwith
78. How do I perform my own sorting when user clicks the column's header
with thisform.List1 .SortOnClick = 1 .Columns.Add("Column") .Items.Add("Item 1") .Items.Add("Item 2") endwith
77. How do I disable sorting a specified column when clicking its header
with thisform.List1 .Columns.Add("1") .Columns.Add("NoSort").AllowSort = .F. endwith
76. How do I disable sorting the columns when clicking the control's header
with thisform.List1 .SortOnClick = 0 .Columns.Add("1") .Columns.Add("2") endwith
75. How do I put a picture on the center of the control
with thisform.List1 .Picture = thisform.List1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 17 endwith
74. How do I resize/stretch a picture on the control's background
with thisform.List1 .Picture = thisform.List1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 49 endwith
73. How do I put a picture on the control's center right bottom side
with thisform.List1 .Picture = thisform.List1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 34 endwith
72. How do I put a picture on the control's center left bottom side
with thisform.List1 .Picture = thisform.List1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 32 endwith
71. How do I put a picture on the control's center top side
with thisform.List1 .Picture = thisform.List1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 1 endwith
70. How do I put a picture on the control's right top corner
with thisform.List1 .Picture = thisform.List1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 2 endwith
69. How do I put a picture on the control's left top corner
with thisform.List1 .Picture = thisform.List1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 0 endwith
68. How do I put a picture on the control's background
with thisform.List1 .Picture = thisform.List1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") endwith
67. How do I sort descending a column, and put the sorting icon in the column's header
with thisform.List1 .Columns.Add("Column") with .Items .Add("Item 1") .Add("Item 2") .Add("Item 3") endwith .Columns.Item(0).SortOrder = 2 endwith
66. How do I sort ascending a column, and put the sorting icon in the column's header
with thisform.List1 .Columns.Add("Column") with .Items .Add("Item 3") .Add("Item 1") .Add("Item 2") endwith .Columns.Item(0).SortOrder = 1 endwith
65. How do I perform my own/custom sort, using my extra numbers
with thisform.List1 .Columns.Add("desc").SortType = 5 with .Items .CellData(.Add(0),0) = 2 .CellData(.Add(1),0) = 1 .CellData(.Add(2),0) = 0 .Sort(0,.F.) endwith endwith
64. By default, the column gets sorted as strings, so how do I sort a column by time only
with thisform.List1 .Columns.Add("desc").SortType = 4 with .Items .Add("11:00") .Add("10:10") .Add("12:12") .Sort(0,.F.) endwith endwith
63. By default, the column gets sorted as strings, so how do I sort a column by date and time
with thisform.List1 .Columns.Add("desc").SortType = 3 with .Items .Add("1/1/2001 11:00") .Add("1/1/2001 10:10") .Add("1/3/2003") .Sort(0,.F.) endwith endwith
62. By default, the column gets sorted as strings, so how do I sort a column by dates
with thisform.List1 .Columns.Add("desc").SortType = 2 with .Items .Add("1/1/2001") .Add("1/2/2002") .Add("1/3/2003") .Sort(0,.F.) endwith endwith
61. How do I sort a column by numbers
with thisform.List1 .Columns.Add("desc").SortType = 1 with .Items .Add(1) .Add(5) .Add(10) .Sort(0,.F.) endwith endwith
60. How do I hide the control's header bar
with thisform.List1
.HeaderVisible = .F.
endwith
with thisform.List1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .BackColorHeader = 0x1000000 endwith
58. How do I remove the control's border
with thisform.List1
.Appearance = 0
endwith
with thisform.List1 with .Columns.Add("Column") .DisplayFilterButton = .T. .DisplayFilterPattern = .F. endwith endwith
56. How do I filter for items that match exactly the specified string
with thisform.List1 with .Columns.Add("Column") .DisplayFilterButton = .T. .FilterType = 240 .Filter = "Item 1" endwith .Items.Add("Item 1") .Items.Add("Item 2") .Items.Add("Item 3") .ApplyFilter endwith
55. How can I can I programmatically filter for items with a specified icon assigned
with thisform.List1 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("Column") .DisplayFilterButton = .T. .FilterType = 10 .Filter = 1 endwith with .Items .CellImage(.Add("Image 1"),0) = 1 .CellImage(.Add("Image 1"),0) = 1 .CellImage(.Add("Image 2"),0) = 2 .CellImage(.Add("Image 3"),0) = 3 endwith .ApplyFilter endwith
54. How can I can I programmatically filter the checked items
with thisform.List1 with .Columns.Add("Column") .Def(0) = .T. .DisplayFilterButton = .T. .FilterType = 6 .Filter = 0 endwith .Items.Add(0) with .Items .CellState(.Add(1),0) = 1 endwith .Items.Add(2) .ApplyFilter endwith
53. How can I can I filter programmatically the items based on some numerichal rules
with thisform.List1 with .Columns.Add("Column") .DisplayFilterButton = .T. .FilterType = 5 .Filter = "> 0 <= 1" endwith .Items.Add(0) .Items.Add(1) .Items.Add(2) .ApplyFilter endwith
52. How can I can I filter programmatically the items based on a range/interval of dates
with thisform.List1 with .Columns.Add("Column") .DisplayFilterButton = .T. .DisplayFilterDate = .T. .FilterType = 4 .Filter = "1/1/2001 to 1/1/2002" endwith .Items.Add("1/1/2001") .Items.Add("2/1/2002") .ApplyFilter endwith
51. How can I can I filter programmatically given a specified pattern using wild characters like * or
with thisform.List1 with .Columns.Add("Column") .DisplayFilterButton = .T. .FilterType = 3 .Filter = "0*" endwith .Items.Add(0) .Items.Add("00") .Items.Add(1) .Items.Add("11") .ApplyFilter endwith
50. How can I can I select programmatically "Blanks/NonBlanks" option in the column's drop down filter
with thisform.List1 with .Columns.Add("Column") .DisplayFilterButton = .T. .FilterType = 1 endwith .ApplyFilter endwith
49. How can I display the column's filter
with thisform.List1 .Columns.Add("").DisplayFilterButton = .T. endwith
48. How can I show only the vertical scroll bar
with thisform.List1 .ColumnAutoResize = .T. .ScrollBars = 10 .Columns.Add(1) .Columns.Add(2) endwith
47. How can I change the "IsChecked/IsUnchecked" caption in the control's filter bar, when I filter for checked items
with thisform.List1 with .Columns.Add("Column") .DisplayFilterButton = .T. .FilterType = 6 .Filter = 0 endwith .Object.Description(21) = "Check_On" .Object.Description(22) = "Check_Off" .ApplyFilter endwith
46. How can I change the "Checked" caption in the drop down filter window, when I filter for checked items
with thisform.List1 with .Columns.Add("Column") .DisplayFilterButton = .T. .FilterType = 6 endwith .Object.Description(19) = "with check on" .Object.Description(20) = "with check off" endwith
45. How can I change the name of the week days in the drop down calendar window, being displayed when I filter items between dates
with thisform.List1 with .Columns.Add("Column") .DisplayFilterButton = .T. .DisplayFilterDate = .T. endwith .Object.Description(18) = "Du Lu Ma Mi Jo Vi Si" .ApplyFilter endwith
44. How can I change the name of the months in the drop down calendar window, being displayed when I filter items between dates
with thisform.List1 with .Columns.Add("Column") .DisplayFilterButton = .T. .DisplayFilterDate = .T. endwith .Object.Description(17) = "Janvier Février Mars Avril Mai Juin Juillet Août Septembre Octobre Novembre Décembre" .ApplyFilter endwith
43. Can I change the "Today" caption being displayed in the drop down calendar, when I filter for dates
with thisform.List1 with .Columns.Add("Column") .DisplayFilterButton = .T. .DisplayFilterDate = .T. endwith .Object.Description(16) = "Azi" .ApplyFilter endwith
42. The drop down filter window displays a "to" string between two datem when I filter dates. Can I change that
with thisform.List1 with .Columns.Add("Column") .DisplayFilterButton = .T. .DisplayFilterDate = .T. endwith .Object.Description(13) = "->" .ApplyFilter endwith
41. How can I filter the items that are between an interval/range of dates
with thisform.List1 with .Columns.Add("Column") .DisplayFilterButton = .T. .DisplayFilterDate = .T. endwith .ApplyFilter endwith
40. Can I change the "Date:" caption when the column's drop down filter window is shown
with thisform.List1 with .Columns.Add("Column") .DisplayFilterButton = .T. .DisplayFilterDate = .T. endwith .Object.Description(12) = "Range" .ApplyFilter endwith
39. Can I filter for values using OR - NOT , instead AND operator
with thisform.List1 with .Columns.Add("Column 1") .DisplayFilterButton = .T. .FilterType = 1 endwith with .Columns.Add("Column 2") .DisplayFilterButton = .T. .FilterType = 1 endwith with .Columns.Add("Column 3") .DisplayFilterButton = .T. .FilterType = 1 endwith .FilterCriteria = "%0 or not %1 and %2" .ApplyFilter endwith
38. Can I change the NOT string in the filter bar
with thisform.List1 with .Columns.Add("Column 1") .DisplayFilterButton = .T. .FilterType = 1 endwith with .Columns.Add("Column 2") .DisplayFilterButton = .T. .FilterType = 2 endwith .FilterCriteria = "not %0 or %1" .Object.Description(24) = " ! " .Object.Description(10) = " ! IsBlank" .ApplyFilter endwith
37. Can I change the OR string in the filter bar
with thisform.List1 with .Columns.Add("Column 1") .DisplayFilterButton = .T. .FilterType = 1 endwith with .Columns.Add("Column 2") .DisplayFilterButton = .T. .FilterType = 2 endwith .FilterCriteria = "%0 or %1" .Object.Description(23) = " | " .ApplyFilter endwith
36. Can I change the AND string in the filter bar
with thisform.List1 with .Columns.Add("Column 1") .DisplayFilterButton = .T. .FilterType = 1 endwith with .Columns.Add("Column 2") .DisplayFilterButton = .T. .FilterType = 2 endwith .Object.Description(11) = " & " .ApplyFilter endwith
35. The "IsBlank" caption shown in the control's filterbar when I select "Blanks" or "NonBlanks" items in the column's drop down filter window
with thisform.List1 with .Columns.Add("Column") .DisplayFilterButton = .T. .FilterType = 1 endwith .Object.Description(9) = "Is Empty" .Object.Description(10) = "Is Not Empty" .ApplyFilter endwith
34. Is there any option to remove the tooltip when the cursor hovers the column's drop down filter window
with thisform.List1 .Columns.Add("Column").DisplayFilterButton = .T. .Object.Description(4) = "" .Object.Description(5) = "" .Object.Description(6) = "" .Object.Description(7) = "" .Object.Description(8) = "" .Object.Description(14) = "" .Object.Description(15) = "" endwith
33. How can I change the "Filter For" caption in the column's drop down filter window
with thisform.List1 .Columns.Add("Column").DisplayFilterButton = .T. .Object.Description(3) = "new caption" endwith
32. Can I remove the "All", "Blanks" and "NonBlanks" items in the drop down filter window
with thisform.List1 .Columns.Add("Column").DisplayFilterButton = .T. .Object.Description(0) = "" .Object.Description(1) = "" .Object.Description(2) = "" endwith
31. How do I change the "All", "Blanks" or/and "NonBlanks" caption in the drop down filter window
with thisform.List1 .Columns.Add("Column").DisplayFilterButton = .T. .Object.Description(0) = "new name for (All)" endwith
30. How can I change the position of the column
with thisform.List1 .Columns.Add("Column 1") .Columns.Add("Column 2").Position = 0 endwith
29. Can I make strikeout the column's header
with thisform.List1 .Columns.Add("Column 1").HeaderStrikeOut = .T. endwith
28. How can I apply an strikeout font only a portion of the column's header
with thisform.List1 .Columns.Add("Column 1").HTMLCaption = "<s>Col</s>umn 1" endwith
27. How can I get underlined only a portion of column's header
with thisform.List1 .Columns.Add("Column 1").HTMLCaption = "<u>Col</u>umn 1" endwith
26. How can I underline the column's header
with thisform.List1 .Columns.Add("Column 1").HeaderUnderline = .T. endwith
25. How can I apply an italic font only a portion of the column's header
with thisform.List1 .Columns.Add("Column 1").HTMLCaption = "<i>Col</i>umn 1" endwith
24. Is there any option to make italic the column's header
with thisform.List1 .Columns.Add("Column 1").HeaderItalic = .T. endwith
23. How can I bold only a portion of the column's header
with thisform.List1 .Columns.Add("Column 1").HTMLCaption = "<b>Col</b>umn 1" endwith
22. Is there any option to bold the column's header
with thisform.List1 .Columns.Add("Column 1").HeaderBold = .T. endwith
21. Is there any option to change the color for the grid lines
with thisform.List1 .Columns.Add("") .DrawGridLines = -1 .GridLineColor = RGB(255,0,0) endwith
20. Can I change the font to display the column's header
with thisform.List1 .HeaderHeight = 34 .Columns.Add("Column 1").HTMLCaption = "<font Tahoma;14>Column</font> 1" endwith
19. Can I change the height of the header bar
with thisform.List1
.HeaderHeight = 32
endwith
with thisform.List1 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 1").HTMLCaption = "1<img>1</img> 2 <img>2</img>..." endwith
17. How can I show the control's grid lines
with thisform.List1 .MarkSearchColumn = .F. .DrawGridLines = -1 .Columns.Add("Column 1") .Columns.Add("Column 2") .Items.Add(0) .Items.Add(1) .Items.Add(2) endwith
16. How can I assign a different background color for the entire column
with thisform.List1 .MarkSearchColumn = .F. .Columns.Add("Column 1").Def(4) = 255 .Columns.Add("Column 2") .Items.Add(0) .Items.Add(1) .Items.Add(2) endwith
15. How can I assign a check box for a cell
with thisform.List1 .Columns.Add("Column 1") with .Items .Add(0) .CellHasCheckBox(.Add(1),0) = .T. .Add(2) endwith endwith
14. How can I assign checkboxes for the entire column
with thisform.List1 .Columns.Add("Column 1").Def(0) = .T. .Items.Add(0) .Items.Add(1) .Items.Add(2) endwith
13. How can I show both scrollbars
with thisform.List1
.ScrollBars = 15
endwith
with thisform.List1 .ColumnAutoResize = .F. .Columns.Add("Column 1").Width = 64 .Columns.Add("Column 2").Width = 128 endwith
11. How can I show or hide a column
with thisform.List1 .Columns.Add("Hidden").Visible = .F. endwith
10. How can I hide the searching column
with thisform.List1 .MarkSearchColumn = .F. .Columns.Add("Column 1") .Columns.Add("Column 2") .Items.Add() endwith
9. Can I disable sorting a column, when the user clicks the column's header, or drag it to the sort bar
with thisform.List1 .Columns.Add("Unsortable").AllowSort = .F. .Columns.Add("Sortable") endwith
8. Is there any option to align the header to the left and the data to the right
with thisform.List1 .Columns.Add("Left").Alignment = 0 with .Columns.Add("Right") .Alignment = 2 .HeaderAlignment = 2 endwith with .Items .Caption(.Add("left"),1) = "right" endwith endwith
7. Can I displays a custom size picture to column's header
with thisform.List1 .Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .HeaderHeight = 48 .Columns.Add("ColumnName").HTMLCaption = "<b>HTML</b> Column <img>pic1</img> Picture" endwith
6. How can I insert an icon to column's header
with thisform.List1 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("ColumnName").HTMLCaption = "<b>HTML</b> Column <img>1</img> Icon" endwith
5. How can I insert an icon to column's header
with thisform.List1 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("ColumnName").HeaderImage = 1 endwith
4. How can I use HTML format in column's header
with thisform.List1 .Columns.Add("ColumnName").HTMLCaption = "<b>HTML</b> <fgcolor=0000FF>Col</fgcolor>umn" endwith
3. How can I change/rename the column's name
with thisform.List1 .Columns.Add("ColumnName").Caption = "NewName" endwith
2. How can I add multiple columns
with thisform.List1 with .Columns .Add("Column 1") .Add("Column 2") endwith endwith
1. How can I add a new column
with thisform.List1 .Columns.Add("ColumnName") endwith