486:
How do I get sorted the column as string, numeric, date, date and time. Also how can it be applied to drop down filter panel

List1->BeginUpdate();
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Date");
	var_Column->SortType = Exlistlib_tlb::SortTypeEnum::SortDate;
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->DisplayFilterDate = true;
	var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowFocusItem | Exlistlib_tlb::FilterListEnum::exShowCheckBox | Exlistlib_tlb::FilterListEnum::exSortItemsDesc;
Exlistlib_tlb::IColumnPtr var_Column1 = List1->Columns->Add(L"DateTime");
	var_Column1->SortType = Exlistlib_tlb::SortTypeEnum::SortDateTime;
	var_Column1->DisplayFilterButton = true;
	var_Column1->DisplayFilterPattern = false;
	var_Column1->FilterList = Exlistlib_tlb::FilterListEnum::exShowFocusItem | Exlistlib_tlb::FilterListEnum::exShowCheckBox | Exlistlib_tlb::FilterListEnum::exSortItemsDesc;
Exlistlib_tlb::IColumnPtr var_Column2 = List1->Columns->Add(L"Time");
	var_Column2->SortType = Exlistlib_tlb::SortTypeEnum::SortTime;
	var_Column2->DisplayFilterButton = true;
	var_Column2->DisplayFilterPattern = false;
	var_Column2->FilterList = Exlistlib_tlb::FilterListEnum::exShowFocusItem | Exlistlib_tlb::FilterListEnum::exShowCheckBox | Exlistlib_tlb::FilterListEnum::exSortItemsDesc;
	var_Column2->FormatColumn = L"time(value)";
Exlistlib_tlb::IColumnPtr var_Column3 = List1->Columns->Add(L"Numeric");
	var_Column3->SortType = Exlistlib_tlb::SortTypeEnum::SortNumeric;
	var_Column3->DisplayFilterButton = true;
	var_Column3->FilterList = Exlistlib_tlb::FilterListEnum::exShowFocusItem | Exlistlib_tlb::FilterListEnum::exShowCheckBox | Exlistlib_tlb::FilterListEnum::exSortItemsDesc;
Exlistlib_tlb::IColumnPtr var_Column4 = List1->Columns->Add(L"String");
	var_Column4->DisplayFilterButton = true;
	var_Column4->FilterList = Exlistlib_tlb::FilterListEnum::exShowFocusItem | Exlistlib_tlb::FilterListEnum::exShowCheckBox | Exlistlib_tlb::FilterListEnum::exSortItemsDesc;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant(TDateTime(2010,1,27).operator double()));
	var_Items->set_Caption(h,TVariant(1),TVariant(TDateTime(2010,1,27,10,00,00,0).operator double()));
	var_Items->set_Caption(h,TVariant(2),TVariant(var_Items->get_Caption(h,TVariant(1))));
	var_Items->set_Caption(h,TVariant(3),TVariant(1));
	var_Items->set_Caption(h,TVariant(4),TVariant(var_Items->get_Caption(h,TVariant(3))));
	h = var_Items->Add(TVariant(TDateTime(2011,1,27).operator double()));
	var_Items->set_Caption(h,TVariant(1),TVariant(TDateTime(2011,1,27,9,00,00,0).operator double()));
	var_Items->set_Caption(h,TVariant(2),TVariant(var_Items->get_Caption(h,TVariant(1))));
	var_Items->set_Caption(h,TVariant(3),TVariant(11));
	var_Items->set_Caption(h,TVariant(4),TVariant(var_Items->get_Caption(h,TVariant(3))));
	h = var_Items->Add(TVariant(TDateTime(2010,11,2).operator double()));
	var_Items->set_Caption(h,TVariant(1),TVariant(TDateTime(2010,11,2,9,00,00,0).operator double()));
	var_Items->set_Caption(h,TVariant(2),TVariant(var_Items->get_Caption(h,TVariant(1))));
	var_Items->set_Caption(h,TVariant(3),TVariant(2));
	var_Items->set_Caption(h,TVariant(4),TVariant(var_Items->get_Caption(h,TVariant(3))));
List1->Columns->get_Item(TVariant("DateTime"))->DisplayFilterDate = false;
List1->EndUpdate();

485:
How can I get ride / hide the image being dragged by OLE Drag and Drop
// OLEStartDrag event - Occurs when the OLEDrag method is called.
void __fastcall TForm1::List1OLEStartDrag(TObject *Sender,Exlistlib_tlb::IExDataObject   *Data,long *   AllowedEffects)
{
	// Data.SetData("data to drag")
	AllowedEffects = 1;
}

List1->OLEDropMode = Exlistlib_tlb::exOLEDropModeEnum::exOLEDropManual;
List1->Background[Exlistlib_tlb::BackgroundPartEnum::exDragDropAfter] = RGB(255,255,255);
List1->Columns->Add(L"Default");
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant("Item 1"));
	var_Items->Add(TVariant("Item 2"));
	var_Items->Add(TVariant("Item 3"));

484:
Is there an event that fires on the exList control when the order of items in the list is changed via dragging
// AllowAutoDrag event - Occurs when the user drags the item between InsertA and InsertB.
void __fastcall TForm1::List1AllowAutoDrag(TObject *Sender,long   Item,long   InsertA,long   InsertB,VARIANT_BOOL *   Cancel)
{
	Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
		OutputDebugString( L"After" );
		OutputDebugString( PChar(var_Items->get_Caption(InsertA,TVariant(0))) );
		OutputDebugString( L"Before" );
		OutputDebugString( PChar(var_Items->get_Caption(InsertB,TVariant(0))) );
	Cancel = true;
}

List1->BeginUpdate();
List1->AutoDrag = Exlistlib_tlb::AutoDragEnum::exAutoDragPosition;
List1->Columns->Add(L"Task");
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant("Item 1"));
	var_Items->Add(TVariant("Item 2"));
	var_Items->Add(TVariant("Item 3"));
	var_Items->Add(TVariant("Item 4"));
List1->EndUpdate();

483:
How can I export checked items only

List1->BeginUpdate();
Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns;
	var_Columns->Add(L"C1")->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Columns->Add(L"C2")->FormatColumn = L"1 index `A-Z`";
	var_Columns->Add(L"C3")->FormatColumn = L"100 index ``";
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant("Item 1"));
	var_Items->set_CellState(var_Items->Add(TVariant("Item 2")),TVariant(0),1);
	var_Items->set_CellState(var_Items->Add(TVariant("Item 3")),TVariant(0),1);
List1->EndUpdate();
OutputDebugString( L"Export CSV Checked Items Only:" );
OutputDebugString( PChar(List1->Export(TVariant(""),TVariant("chk"))) );

482:
How can I export a hidden column

List1->BeginUpdate();
Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns;
	var_Columns->Add(L"C1");
	Exlistlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"C2");
		var_Column->FormatColumn = L"1 index `A-Z`";
		var_Column->Visible = false;
	Exlistlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"C3");
		var_Column1->FormatColumn = L"100 index ``";
		var_Column1->Visible = false;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant("Item 1"));
	var_Items->Add(TVariant("Item 2"));
	var_Items->Add(TVariant("Item 3"));
List1->EndUpdate();
OutputDebugString( L"Export CSV Hidden Columns (1,2):" );
OutputDebugString( PChar(List1->Export(TVariant(""),TVariant("|1,2"))) );

481:
Is it possible to have a different alignment for parts of the cell's caption

List1->BeginUpdate();
List1->DrawGridLines = Exlistlib_tlb::GridLinesEnum::exAllLines;
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Default");
	var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->set_CellHAlignment(var_Items->Add(TVariant("all-left")),TVariant(0),Exlistlib_tlb::AlignmentEnum::LeftAlignment);
	var_Items->set_CellHAlignment(var_Items->Add(TVariant("all-center")),TVariant(0),Exlistlib_tlb::AlignmentEnum::CenterAlignment);
	var_Items->set_CellHAlignment(var_Items->Add(TVariant("all-right")),TVariant(0),Exlistlib_tlb::AlignmentEnum::RightAlignment);
	long h = var_Items->Add(TVariant("left<c>center<r>right"));
	var_Items->set_CaptionFormat(h,TVariant(0),Exlistlib_tlb::CaptionFormatEnum::exHTML);
List1->EndUpdate();

480:
I have a column with Def(exCellSingleLine) property on False, word-wrapping, and I am wondering if possible to update the column's content while user is resizing it
List1->BeginUpdate();
Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns;
	Exlistlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"MultipleLine");
		var_Column->Width = 32;
		var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(false));
		var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exColumnResizeContiguously,TVariant(true));
	Exlistlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"SingleLine");
		var_Column1->set_Def(Exlistlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(false));
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->set_Caption(var_Items->Add(TVariant("This is a bit of long text that should break the line")),TVariant(1),TVariant("This is a bit of long text that should break the line"));
List1->EndUpdate();

479:
How can I hide the cell's tooltip
// ToolTip event - Fired when the control prepares the object's tooltip.
void __fastcall TForm1::List1ToolTip(TObject *Sender,long   ItemIndex,long   ColIndex,VARIANT_BOOL *   Visible,long *   X,long *   Y,long   CX,long   CY)
{
	OutputDebugString( L"The tooltip is about to be shown" );
	Visible = false;
}

List1->BeginUpdate();
List1->Columns->Add(L"Def");
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->set_CellToolTip(var_Items->Add(TVariant("Item 1")),TVariant(0),L"This is a bit of text that's shown when cursor hovers the item.");
	var_Items->set_CellToolTip(var_Items->Add(TVariant("Item 2")),TVariant(0),L"This is a bit of text that's shown when cursor hovers the item.");
	var_Items->set_CellToolTip(var_Items->Add(TVariant("Item 3")),TVariant(0),L"This is a bit of text that's shown when cursor hovers the item.");
List1->EndUpdate();

478:
How can I find out if an item is selected or unselected
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::List1MouseMove(TObject *Sender,short   Button,short   Shift,int   X,int   Y)
{
	long i = List1->ItemFromPoint[-1,-1,c,hit];
	Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
		OutputDebugString( PChar(var_Items->get_SelectItem(i)) );
}

List1->Columns->Add(L"Header");
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant("Item 1"));
	var_Items->set_SelectItem(var_Items->Add(TVariant("Item 2")),true);
	var_Items->Add(TVariant("Item 3"));

477:
How do I sort the index column as numeric

// AddItem event - Occurs after a new Item is inserted to Items collection.
void __fastcall TForm1::List1AddItem(TObject *Sender,long   Item)
{
	Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
		var_Items->set_CellData(Item,TVariant(1),TVariant(Item));
}

List1->BeginUpdate();
List1->DrawGridLines = Exlistlib_tlb::GridLinesEnum::exAllLines;
List1->ColumnAutoResize = true;
List1->ShowFocusRect = false;
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Next");
	var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellPaddingLeft,TVariant(4));
	var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exHeaderPaddingLeft,TVariant(4));
Exlistlib_tlb::IColumnPtr var_Column1 = List1->Columns->Add(L"Index");
	var_Column1->AllowSizing = false;
	var_Column1->Width = 48;
	var_Column1->FormatColumn = L"(((0 := (1 index ``)) mod 3) case ( default: ``; 0 : `<r><fgcolor=B0B0B0>`; 1: ``; 2 : `<c><fgcolor=808080>` )) + str(=:0)";
	var_Column1->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1));
	var_Column1->SortType = Exlistlib_tlb::SortTypeEnum::SortUserData;
	var_Column1->Position = 0;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant("Item 1"));
	var_Items->Add(TVariant("Item 2"));
	var_Items->Add(TVariant("Item 3"));
	var_Items->Add(TVariant("Item 4"));
	var_Items->Add(TVariant("Item 5"));
	var_Items->Add(TVariant("Item 6"));
	var_Items->Add(TVariant("Item 7"));
	var_Items->Add(TVariant("Item 8"));
	var_Items->Add(TVariant("Item 9"));
	var_Items->Add(TVariant("Item 10"));
List1->EndUpdate();

476:
How can I put icons/images into buttons

List1->BeginUpdate();
List1->ColumnAutoResize = true;
List1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"C+B");
	var_Column->AllowSizing = false;
	var_Column->Width = 48;
	var_Column->FormatColumn = L"` <img>` + ( 1 + (1 index ``) mod 3 ) + `</img> `";
	var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1));
	var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasButton,TVariant(true));
	var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasButton | Exlistlib_tlb::DefColumnEnum::exCellHasRadioButton,TVariant(true));
List1->Columns->Add(L"");
List1->DrawGridLines = Exlistlib_tlb::GridLinesEnum::exVLines;
List1->DefaultItemHeight = 20;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant(""));
	var_Items->Add(TVariant(""));
	var_Items->Add(TVariant(""));
	var_Items->Add(TVariant(""));
	var_Items->Add(TVariant(""));
	var_Items->Add(TVariant(""));
	var_Items->Add(TVariant(""));
	var_Items->Add(TVariant(""));
List1->EndUpdate();

475:
Is it possible to have a CheckBox and Button TOGETHER on all cells in a column

// CellButtonClick event - Fired after the user clicks the cell's button.
void __fastcall TForm1::List1CellButtonClick(TObject *Sender,long   Item,long   ColIndex)
{
	OutputDebugString( L"CellButtonClick" );
	OutputDebugString( L"Item" );
}

// CellStateChanged event - Fired after cell's state is changed.
void __fastcall TForm1::List1CellStateChanged(TObject *Sender,long   Item,long   ColIndex)
{
	OutputDebugString( L"CellStateChanged" );
	OutputDebugString( L"Item" );
}

List1->BeginUpdate();
List1->ColumnAutoResize = true;
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"");
	var_Column->AllowSizing = false;
	var_Column->Width = 32;
	var_Column->FormatColumn = L"1 index ``";
Exlistlib_tlb::IColumnPtr var_Column1 = List1->Columns->Add(L"Def");
	var_Column1->AllowSizing = false;
	var_Column1->Width = 48;
	var_Column1->FormatColumn = L"`     `";
	var_Column1->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column1->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasButton,TVariant(true));
	var_Column1->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasButton | Exlistlib_tlb::DefColumnEnum::exCellHasRadioButton,TVariant(true));
List1->Columns->Add(L"");
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant(""));
	var_Items->Add(TVariant(""));
	var_Items->Add(TVariant(""));
	var_Items->Add(TVariant(""));
	var_Items->Add(TVariant(""));
	var_Items->Add(TVariant(""));
	var_Items->Add(TVariant(""));
	var_Items->Add(TVariant(""));
List1->EndUpdate();

474:
Does filtering work with umlauts / accents characters
List1->BeginUpdate();
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Names");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterType = Exlistlib_tlb::FilterTypeEnum::exPattern;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant("Mantel"));
	var_Items->Add(TVariant("Mechanik"));
	var_Items->Add(TVariant("Motor"));
	var_Items->Add(TVariant("Murks"));
	var_Items->Add(TVariant("Märchen"));
	var_Items->Add(TVariant("Möhren"));
	var_Items->Add(TVariant("Mühle"));
	var_Items->Add(TVariant("Sérigraphie"));
List1->Columns->get_Item(TVariant(0))->Filter = L"*ä*";
List1->ApplyFilter();
List1->EndUpdate();

473:
Can I set the search box / filterbarprompt to invisible, so I can use my own input and *string* via VBA
List1->BeginUpdate();
List1->ColumnAutoResize = true;
List1->ContinueColumnScroll = false;
List1->MarkSearchColumn = false;
List1->SearchColumnIndex = 1;
List1->FilterBarHeight = 0;
List1->FilterBarPromptVisible = true;
Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns;
	var_Columns->Add(L"Name")->Width = 96;
	var_Columns->Add(L"Title")->Width = 96;
	var_Columns->Add(L"City");
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h0 = var_Items->Add(TVariant("Nancy Davolio"));
	var_Items->set_Caption(h0,TVariant(1),TVariant("Sales Representative"));
	var_Items->set_Caption(h0,TVariant(2),TVariant("Seattle"));
	h0 = var_Items->Add(TVariant("Andrew Fuller"));
	var_Items->set_Caption(h0,TVariant(1),TVariant("Vice President, Sales"));
	var_Items->set_Caption(h0,TVariant(2),TVariant("Tacoma"));
	var_Items->set_SelectItem(h0,true);
	h0 = var_Items->Add(TVariant("Janet Leverling"));
	var_Items->set_Caption(h0,TVariant(1),TVariant("Sales Representative"));
	var_Items->set_Caption(h0,TVariant(2),TVariant("Kirkland"));
	h0 = var_Items->Add(TVariant("Margaret Peacock"));
	var_Items->set_Caption(h0,TVariant(1),TVariant("Sales Representative"));
	var_Items->set_Caption(h0,TVariant(2),TVariant("Redmond"));
	h0 = var_Items->Add(TVariant("Steven Buchanan"));
	var_Items->set_Caption(h0,TVariant(1),TVariant("Sales Manager"));
	var_Items->set_Caption(h0,TVariant(2),TVariant("London"));
	h0 = var_Items->Add(TVariant("Michael Suyama"));
	var_Items->set_Caption(h0,TVariant(1),TVariant("Sales Representative"));
	var_Items->set_Caption(h0,TVariant(2),TVariant("London"));
	h0 = var_Items->Add(TVariant("Robert King"));
	var_Items->set_Caption(h0,TVariant(1),TVariant("Sales Representative"));
	var_Items->set_Caption(h0,TVariant(2),TVariant("London"));
	h0 = var_Items->Add(TVariant("Laura Callahan"));
	var_Items->set_Caption(h0,TVariant(1),TVariant("Inside Sales Coordinator"));
	var_Items->set_Caption(h0,TVariant(2),TVariant("Seattle"));
	h0 = var_Items->Add(TVariant("Anne Dodsworth"));
	var_Items->set_Caption(h0,TVariant(1),TVariant("Sales Representative"));
	var_Items->set_Caption(h0,TVariant(2),TVariant("London"));
List1->FilterBarPromptPattern = L"London";
List1->EndUpdate();

472:
How can I align captions of items with checkbox, with items with no checkbox

List1->BeginUpdate();
List1->Columns->Add(L"Default");
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->set_CellImages(var_Items->Add(TVariant(0)),TVariant(0),TVariant("1"));
	var_Items->set_CellHasCheckBox(var_Items->Add(TVariant(1)),TVariant(0),true);
	var_Items->set_CellImages(var_Items->Add(TVariant(2)),TVariant(0),TVariant("1"));
List1->EndUpdate();

471:
How do I programmatically scroll the control (method 2)
List1->BeginUpdate();
List1->ColumnAutoResize = false;
List1->ContinueColumnScroll = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Program Files\\Exontrol\\ExList\\Sample\\SAMPLE.MDB"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
List1->DataSource = (IDispatch*)rs;
List1->Layout = L"vscroll = 10";
List1->EndUpdate();

470:
How do I programmatically scroll the control (method 1)
List1->BeginUpdate();
List1->ColumnAutoResize = false;
List1->ContinueColumnScroll = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Program Files\\Exontrol\\ExList\\Sample\\SAMPLE.MDB"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
List1->DataSource = (IDispatch*)rs;
List1->ScrollPos[true] = 10;
List1->EndUpdate();

469:
How can I decode the Layout property
List1->BeginUpdate();
Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns;
	var_Columns->Add(L"C1");
	var_Columns->Add(L"C2")->Position = 1;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->set_Caption(var_Items->Add(TVariant("SubItem 1.1")),TVariant(1),TVariant("SubItem 1.2"));
	var_Items->set_Caption(var_Items->Add(TVariant("SubItem 2.1")),TVariant(1),TVariant("SubItem 2.2"));
List1->Columns->get_Item(TVariant("C2"))->SortOrder = Exlistlib_tlb::SortOrderEnum::SortDescending;
List1->EndUpdate();
OutputDebugString( L"Encoded:" );
OutputDebugString( List1->Layout );
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		ExPrint 1.0 Control Library

	TypeLib: ExPrint.dll

	to define the namespace: Exprintlib_tlb
*/
//#include "EXPRINTLIB_TLB.h"
Exprintlib_tlb::IExPrintPtr var_Print = Variant::CreateObject(L"Exontrol.Print");
	OutputDebugString( L"Decoded: " );
	OutputDebugString( var_Print->get_Decode64TextW(List1->Layout) );

468:
Does the title of the cell's tooltip supports HTML format

List1->BeginUpdate();
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"");
	var_Column->Caption = L"";
	var_Column->HTMLCaption = L"Column";
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant("tooltip w/h different title"));
	var_Items->set_CellToolTip(h,TVariant(0),TVariant(String("<c><b><fgcolor=FF0000>Title</fgcolor></b><br>This is bit of text that's shown when the user hovers the cell. This shows the tit") +
"le centered with a different color."));
List1->EndUpdate();

467:
How do I specify a different title for the cell's tooltip

List1->BeginUpdate();
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"");
	var_Column->Caption = L"This is the title";
	var_Column->HTMLCaption = L"Column";
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant("tooltip w/h different title"));
	var_Items->set_CellToolTip(h,TVariant(0),L"This is bit of text that's shown when the user hovers the cell.");
List1->EndUpdate();

466:
The cell's tooltip displays the column's caption in its title. How can I get ride of that

List1->BeginUpdate();
Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns;
	var_Columns->Add(L"C1");
	var_Columns->Add(L"C2");
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant("tooltip w/h caption"));
	var_Items->set_CellToolTip(h,TVariant(0),L"This is bit of text that's shown when the user hovers the cell. This shows the column's caption in the title.");
	var_Items->set_Caption(h,TVariant(1),TVariant("tooltip no caption"));
	var_Items->set_CellToolTip(h,TVariant(1),L"This is bit of text that's shown when the user hovers the cell. This shows no column's caption in the title.");
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->get_Item(TVariant("C2"));
	var_Column->HTMLCaption = var_Column->Caption;
	var_Column->Caption = L"";
List1->EndUpdate();

465:
When you click the cell it takes some time before the edit box appears, can this delay be removed

// Click event - Occurs when the user presses and then releases the left mouse button over the list control.
void __fastcall TForm1::List1Click(TObject *Sender)
{
	long h = List1->ItemFromPoint[-1,-1,ColIndex,HitTestInfo];
	List1->Items->Edit(h,TVariant(ColIndex));
}

List1->AllowEdit = true;
List1->Columns->Add(L"Default");
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant(""));
	var_Items->Add(TVariant("Edit"));
	var_Items->Add(TVariant(""));

464:
How can I programmatically show the column's filter

// RClick event - Fired when right mouse button is clicked
void __fastcall TForm1::List1RClick(TObject *Sender)
{
	long i = List1->ItemFromPoint[-1,-1,c,hit];
	List1->Columns->get_Item(TVariant(c))->ShowFilter(TVariant("-1,-1,128,128"));
}

List1->BeginUpdate();
List1->ShowFocusRect = false;
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Items ");
	var_Column->DisplayFilterPattern = false;
	var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude | Exlistlib_tlb::FilterListEnum::exShowFocusItem | Exlistlib_tlb::FilterListEnum::exShowCheckBox;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant("Item 1"));
	var_Items->Add(TVariant("Item 2"));
	var_Items->Add(TVariant("Item 3"));
List1->EndUpdate();

463:
I want to be able to click on one of the headers, and sort by other column. How can I do that

// ColumnClick event - Fired after the user clicks on column's header.
void __fastcall TForm1::List1ColumnClick(TObject *Sender,Exlistlib_tlb::IColumn   *Column)
{
	// Column.SortOrder = 1
	List1->SortOnClick = Exlistlib_tlb::SortOnClickEnum::exDefaultSort;
	List1->Columns->get_Item(TVariant("Sort"))->SortOrder = Exlistlib_tlb::SortOrderEnum::SortAscending;
	List1->SortOnClick = Exlistlib_tlb::SortOnClickEnum::exUserSort;
}

List1->BeginUpdate();
List1->SortOnClick = Exlistlib_tlb::SortOnClickEnum::exUserSort;
List1->Columns->Add(L"Items");
List1->Columns->Add(L"Sort")->Visible = false;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->set_Caption(var_Items->Add(TVariant("Item 1 (3)")),TVariant(1),TVariant(3));
	var_Items->set_Caption(var_Items->Add(TVariant("Item 2 (1)")),TVariant(1),TVariant(1));
	var_Items->set_Caption(var_Items->Add(TVariant("Item 3 (2)")),TVariant(1),TVariant(2));
List1->EndUpdate();

462:
How can I sort by two-columns, one by date and one by time

List1->BeginUpdate();
List1->SingleSort = false;
Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns;
	var_Columns->Add(L"Index")->FormatColumn = L"1 index ``";
	var_Columns->Add(L"Date")->SortType = Exlistlib_tlb::SortTypeEnum::SortDate;
	Exlistlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Time");
		var_Column->SortType = Exlistlib_tlb::SortTypeEnum::SortTime;
		var_Column->FormatColumn = L"time(value)";
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant(0));
	var_Items->set_Caption(h,TVariant(1),TVariant(TDateTime(2001,1,1).operator double()));
	var_Items->set_Caption(h,TVariant(2),TVariant(TDateTime(2001,1,1,10,00,00,0).operator double()));
	h = var_Items->Add(TVariant(0));
	var_Items->set_Caption(h,TVariant(1),TVariant(TDateTime(2000,12,31).operator double()));
	var_Items->set_Caption(h,TVariant(2),TVariant(TDateTime(2001,1,1,10,00,00,0).operator double()));
	h = var_Items->Add(TVariant(0));
	var_Items->set_Caption(h,TVariant(1),TVariant(TDateTime(2001,1,1).operator double()));
	var_Items->set_Caption(h,TVariant(2),TVariant(TDateTime(2001,1,1,6,00,00,0).operator double()));
	h = var_Items->Add(TVariant(0));
	var_Items->set_Caption(h,TVariant(1),TVariant(TDateTime(2000,12,31).operator double()));
	var_Items->set_Caption(h,TVariant(2),TVariant(TDateTime(2001,1,1,8,00,00,0).operator double()));
	h = var_Items->Add(TVariant(0));
	var_Items->set_Caption(h,TVariant(1),TVariant(TDateTime(2001,1,1).operator double()));
	var_Items->set_Caption(h,TVariant(2),TVariant(TDateTime(2001,1,1,8,00,00,0).operator double()));
	h = var_Items->Add(TVariant(0));
	var_Items->set_Caption(h,TVariant(1),TVariant(TDateTime(2000,12,31).operator double()));
	var_Items->set_Caption(h,TVariant(2),TVariant(TDateTime(2001,1,1,6,00,00,0).operator double()));
List1->Layout = L"multiplesort=\"C1:1 C2:1\"";
List1->EndUpdate();

461:
How can I connect to a DBF file
List1->BeginUpdate();
List1->ColumnAutoResize = false;
List1->ContinueColumnScroll = false;
List1->MarkSearchColumn = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADODB.Recordset");
	rs->Open(TVariant("Select * From foxcode.DBF"),TVariant("Provider=vfpoledb;Data Source=C:\\Program Files\\Microsoft Visual FoxPro 9\\"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
List1->DataSource = (IDispatch*)rs;
List1->EndUpdate();

460:
Does your control supports scrolling by touching the screen

List1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Program Files\\Exontrol\\ExTree\\Sample\\VB\\SAMPLE.MDB"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
List1->DataSource = (IDispatch*)rs;
List1->ContinueColumnScroll = true;
List1->ScrollBySingleLine = true;
List1->AutoDrag = Exlistlib_tlb::AutoDragEnum::exAutoDragScrollOnShortTouch | Exlistlib_tlb::AutoDragEnum::exAutoDragScroll;

459:
How can I enlarge the size of the control's scroll bars, for using on touch screens

List1->ScrollBars = Exlistlib_tlb::ScrollBarsEnum::DisableBoth;
List1->ScrollWidth = 32;
List1->ScrollHeight = 32;
List1->ScrollButtonHeight = 32;
List1->ScrollButtonWidth = 32;

458:
Is there a syntax for conditional formatting of items, based on CellState/CellStateChange

// CellStateChanged event - Fired after cell's state is changed.
void __fastcall TForm1::List1CellStateChanged(TObject *Sender,long   Item,long   ColIndex)
{
	Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
		var_Items->set_Caption(Item,TVariant(2),TVariant(var_Items->get_CellState(Item,TVariant(0))));
}

List1->BeginUpdate();
List1->ShowFocusRect = false;
List1->MarkSearchColumn = false;
List1->SelBackMode = Exlistlib_tlb::BackModeEnum::exTransparent;
Exlistlib_tlb::IConditionalFormatPtr var_ConditionalFormat = List1->ConditionalFormats->Add(L"%2 != 0",TNoParam());
	var_ConditionalFormat->Bold = true;
	var_ConditionalFormat->ForeColor = RGB(255,0,0);
	var_ConditionalFormat->ApplyTo = Exlistlib_tlb::FormatApplyToEnum::exFormatToItems;
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"");
	var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->Width = 16;
	var_Column->AllowSizing = false;
List1->Columns->Add(L"Information");
List1->Columns->Add(L"Hidden")->Visible = false;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->set_Caption(var_Items->Add(TVariant("")),TVariant(1),TVariant("This is a bit of text associated"));
	long h = var_Items->Add(TVariant(""));
	var_Items->set_Caption(h,TVariant(1),TVariant("This is a bit of text associated"));
	var_Items->set_CellState(h,TVariant(0),1);
	var_Items->set_Caption(var_Items->Add(TVariant("")),TVariant(1),TVariant("This is a bit of text associated"));
List1->EndUpdate();

457:
How can I display the caption bellow to picture

List1->BeginUpdate();
List1->ScrollBySingleLine = true;
List1->HTMLPicture[L"p1"] = TVariant("c:\\exontrol\\images\\zipdisk.gif");
List1->HTMLPicture[L"p2"] = TVariant("c:\\exontrol\\images\\auction.gif");
List1->Columns->Add(L"Default");
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant("<c><img>p1</img><br><c>your caption1"));
	var_Items->set_CellSingleLine(h,TVariant(0),false);
	var_Items->set_CaptionFormat(h,TVariant(0),Exlistlib_tlb::CaptionFormatEnum::exHTML);
	h = var_Items->Add(TVariant("<c><img>p2</img><br><c>your caption2"));
	var_Items->set_CellSingleLine(h,TVariant(0),false);
	var_Items->set_CaptionFormat(h,TVariant(0),Exlistlib_tlb::CaptionFormatEnum::exHTML);
List1->EndUpdate();

456:
How can I add a vertical padding

List1->BeginUpdate();
List1->DrawGridLines = Exlistlib_tlb::GridLinesEnum::exAllLines;
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Padding");
	var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(false));
	var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellPaddingLeft,TVariant(6));
	var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellPaddingRight,TVariant(6));
	var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellPaddingTop,TVariant(6));
	var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellPaddingBottom,TVariant(6));
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant("padding"));
	var_Items->Add(TVariant("padding"));
List1->EndUpdate();

455:
How do you embed HTML options into the anchor click string

// AnchorClick event - Occurs when an anchor element is clicked.
void __fastcall TForm1::List1AnchorClick(TObject *Sender,BSTR   AnchorID,BSTR   Options)
{
	OutputDebugString( L"AnchorID" );
	OutputDebugString( L"Options" );
}

List1->BeginUpdate();
Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns;
	var_Columns->Add(L"Car")->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1));
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant("<a mazda_1;options for 1>Mazda <b>1</b></a>"));
	var_Items->Add(TVariant("<a mazda_2;options for 2>Mazda <b>2</b></a>"));
	var_Items->Add(TVariant("<a mazda_3;options for 3a>Mazda <b>3.a</b></a>"));
	var_Items->Add(TVariant("<a mazda_3;options for 3b>Mazda <b>3.b</b></a>"));
List1->EndUpdate();

454:
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 3)

List1->BeginUpdate();
List1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAEGg4BVEIQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQCWIAzATGYBRfIUEgjBM6ExwG78e") +
"gBHp/ZpkACIJJAaRjHQdJxGKKMQB9DIhCZpeKhWgkKIJBzOEyBRC4ERBGqNGrsIgLEqWZpnWhaNpWXYTLyBN64LhuK46g53O6wLxvK6hEr2dJ/YBcIAOfghf4NQ7EMRx" +
"LC8Mw3BDvYDkOAABAIgI="));
List1->SelBackColor = 0x1fffffe;
List1->ShowFocusRect = false;
List1->Columns->Add(L"Items");
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->set_ItemBackColor(var_Items->Add(TVariant("red")),RGB(255,0,0));
	var_Items->set_ItemBackColor(var_Items->Add(TVariant("blue")),RGB(0,0,255));
	var_Items->set_ItemBackColor(var_Items->Add(TVariant("green")),RGB(0,255,0));
List1->EndUpdate();

453:
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 2)

List1->BeginUpdate();
List1->SelBackMode = Exlistlib_tlb::BackModeEnum::exTransparent;
List1->ShowFocusRect = false;
List1->Columns->Add(L"Items");
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->set_ItemBackColor(var_Items->Add(TVariant("red")),RGB(255,0,0));
	var_Items->set_ItemBackColor(var_Items->Add(TVariant("blue")),RGB(0,0,255));
	var_Items->set_ItemBackColor(var_Items->Add(TVariant("green")),RGB(0,255,0));
List1->EndUpdate();

452:
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 1)

List1->BeginUpdate();
List1->SelBackColor = List1->BackColor;
List1->SelForeColor = List1->ForeColor;
List1->ShowFocusRect = true;
List1->Columns->Add(L"Items");
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->set_ItemBackColor(var_Items->Add(TVariant("red")),RGB(255,0,0));
	var_Items->set_ItemBackColor(var_Items->Add(TVariant("blue")),RGB(0,0,255));
	var_Items->set_ItemBackColor(var_Items->Add(TVariant("green")),RGB(0,255,0));
List1->EndUpdate();

451:
I am using the FormatColumn property, but is it also possible to have a blank field when the value is '0'. I've tried the 'leading zero' flag in the FormatColumn, but that did not work

List1->Columns->Add(L"Currency")->FormatColumn = L"int(value) != 0 ? (value format `0||3|,`) : ``";
List1->Items->Add(TVariant(123456789));
List1->Items->Add(TVariant(1234));
List1->Items->Add(TVariant(0));
List1->Items->Add(TVariant(2345));

450:
Do you have a VB sample on how to use .FormatColumn to show this number '123456789' like '123,456,789'

List1->Columns->Add(L"Currency")->FormatColumn = L"value format `0||3|,`";
List1->Items->Add(TVariant(123456789));
List1->Items->Add(TVariant(1234));

449:
Is it possible to change the image while do OLE Drag and Drop operations

// OLEStartDrag event - Occurs when the OLEDrag method is called.
void __fastcall TForm1::List1OLEStartDrag(TObject *Sender,Exlistlib_tlb::IExDataObject   *Data,long *   AllowedEffects)
{
	// Data.SetData(Items.FocusItem)
}

List1->Columns->Add(L"Default");
List1->Items->Add(TVariant("Item 1"));
List1->Items->Add(TVariant("Item 2"));
List1->OLEDropMode = Exlistlib_tlb::exOLEDropModeEnum::exOLEDropManual;
List1->HTMLPicture[L"OLEDragDropImage"] = TVariant("C:\\Program Files\\Exontrol\\ExList\\Sample\\VB\\UNICODE\\unicode.jpg");

448:
Is it possible to change the image while do OLE Drag and Drop operations

// OLEStartDrag event - Occurs when the OLEDrag method is called.
void __fastcall TForm1::List1OLEStartDrag(TObject *Sender,Exlistlib_tlb::IExDataObject   *Data,long *   AllowedEffects)
{
	// Data.SetData(Items.FocusItem)
}

List1->Columns->Add(L"Default");
List1->Items->Add(TVariant("Item 1"));
List1->Items->Add(TVariant("Item 2"));
List1->OLEDropMode = Exlistlib_tlb::exOLEDropModeEnum::exOLEDropManual;
List1->VisualAppearance->Add(1,TVariant("C:\\Program Files\\Exontrol\\ExG2antt\\Sample\\EBN\\xpbselIcon.ebn"));
List1->Background[Exlistlib_tlb::BackgroundPartEnum::exDragDropAfter] = 0x1000000;
List1->Background[Exlistlib_tlb::BackgroundPartEnum::exDragDropBefore] = RGB(255,255,255);

447:
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a snapshot
List1->BeginUpdate();
List1->VisualAppearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn"));
List1->HTMLPicture[L"p1"] = TVariant("c:\\exontrol\\images\\card.png");
List1->HTMLPicture[L"p2"] = TVariant("c:\\exontrol\\images\\sun.png");
List1->AutoDrag = Exlistlib_tlb::AutoDragEnum::exAutoDragCopySnapShot;
List1->ShowFocusRect = false;
List1->DefaultItemHeight = 26;
List1->Columns->Add(L"Task");
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->set_CaptionFormat(var_Items->Add(TVariant("<img>p1:32</img> Group 1")),TVariant(0),Exlistlib_tlb::CaptionFormatEnum::exHTML);
	var_Items->set_CaptionFormat(var_Items->Add(TVariant("<img>p2:32</img> Group 2")),TVariant(0),Exlistlib_tlb::CaptionFormatEnum::exHTML);
List1->EndUpdate();

446:
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a image

List1->BeginUpdate();
List1->HTMLPicture[L"p1"] = TVariant("c:\\exontrol\\images\\card.png");
List1->HTMLPicture[L"p2"] = TVariant("c:\\exontrol\\images\\sun.png");
List1->HeaderHeight = 24;
List1->DefaultItemHeight = 48;
List1->DrawGridLines = Exlistlib_tlb::GridLinesEnum(0xfffffffc | Exlistlib_tlb::GridLinesEnum::exVLines);
List1->GridLineColor = RGB(240,240,240);
List1->SelBackMode = Exlistlib_tlb::BackModeEnum::exTransparent;
List1->ColumnAutoResize = false;
List1->ContinueColumnScroll = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Program Files\\Exontrol\\ExList\\Sample\\SAMPLE.MDB"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
List1->DataSource = (IDispatch*)rs;
List1->Columns->get_Item(TVariant(0))->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1));
List1->Columns->get_Item(TVariant(0))->FormatColumn = L"value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>`";
List1->Columns->get_Item(TVariant(0))->Width = 112;
List1->AutoDrag = Exlistlib_tlb::AutoDragEnum::exAutoDragCopyImage;
List1->SingleSel = false;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->set_SelectItem(1,true);
	var_Items->set_SelectItem(2,true);
	var_Items->set_SelectItem(3,true);
List1->EndUpdate();

445:
How can copy and paste the selection to Microsoft Word, Excel or any OLE compliant application, as a text

List1->BeginUpdate();
List1->ColumnAutoResize = false;
List1->ContinueColumnScroll = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Program Files\\Exontrol\\ExList\\Sample\\SAMPLE.MDB"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
List1->DataSource = (IDispatch*)rs;
List1->AutoDrag = Exlistlib_tlb::AutoDragEnum::exAutoDragCopyText;
List1->SingleSel = false;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->set_SelectItem(1,true);
	var_Items->set_SelectItem(3,true);
	var_Items->set_SelectItem(4,true);
	var_Items->set_SelectItem(5,true);
List1->EndUpdate();

444:
How can I change the row's position to another, by drag and drop. Is it possible

List1->BeginUpdate();
List1->AutoDrag = Exlistlib_tlb::AutoDragEnum::exAutoDragPosition;
List1->Columns->Add(L"Task");
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant("Item 1"));
	var_Items->Add(TVariant("Item 2"));
	var_Items->Add(TVariant("Item 3"));
	var_Items->Add(TVariant("Item 4"));
List1->EndUpdate();

443:
Does your control support subscript or superscript, in HTML captions

List1->Columns->Add(L"Column")->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1));
List1->Items->Add(TVariant("<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1"));

442:
Is there any property I can save and restore automatically the current setting, column position, size, and so on (2)

List1->BeginUpdate();
List1->Columns->Add(L"Column");
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant("Item 1"));
	var_Items->Add(TVariant("Item 2"));
	var_Items->Add(TVariant("Item 3"));
List1->Layout = L"Select=\"0\";SingleSort=\"C0:2\";Columns=1";
List1->EndUpdate();

441:
Is there any property I can save and restore automatically the current setting, column position, size, and so on (1)

List1->BeginUpdate();
List1->Columns->Add(L"Column");
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant("Item 1"));
	var_Items->Add(TVariant("Item 2"));
	var_Items->Add(TVariant("Item 3"));
List1->Layout = TVariant(String("gBjAAwAAuABmABpABsAB0ABlAByhoAPIAOEPAA9gYABoABQAgUEg0XN4AOcJicKkpujMbjsfkMFk0YhkQgUOjUEl8gjcGO0ok8KMULjEaGMcj08kQAO8oMkTNEtGwAG") +
"QAqc7gUlhh1ABtAEsk9GpEfhElgVcsMupNlnlonlaAFcr0shUsp8QPEtnVJqJhmcIhUMh0QiU5sYAqMngUSuEMw07k8Qv0SgVRrNEuVflF2jF5x9JyNEm0TjQijemyE0" +
"jE3t+YruauoAu4Az1qj9BzRn0UzksSnAA0xDjY6qnAw8OiUQ0dwzN0zWz2t7j8/xURAGNvWH6k8xlEhklhEI0O/6QAgI=");
List1->EndUpdate();

440:
Is there any public method to export the selected data

List1->BeginUpdate();
Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns;
	var_Columns->Add(L"C1");
	var_Columns->Add(L"C2")->FormatColumn = L"1 index `A-Z`";
	var_Columns->Add(L"C3")->FormatColumn = L"100 index ``";
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant("Item 1"));
	var_Items->set_SelectItem(var_Items->Add(TVariant("Item 2")),true);
	var_Items->Add(TVariant("Item 3"));
List1->EndUpdate();
OutputDebugString( L"Export CSV Selected Items Only:" );
OutputDebugString( PChar(List1->Export(TVariant(""),TVariant("sel"))) );

439:
How can I change the visual aspect of the links in the sort bar

List1->BeginUpdate();
List1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\SAMPLE.MDB"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
List1->DataSource = (IDispatch*)rs;
List1->SortBarHeight = 24;
List1->HeaderHeight = 24;
List1->BackColorSortBar = RGB(240,240,240);
List1->BackColorSortBarCaption = List1->BackColor;
List1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAEGg4BdsIQAAYAQGKIYBkAKBQAGaAoDDgNw0QwAAxjMK0EwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpA") +
"AWL4tCyMc7QHKAWhrEAbJjgQYJUh+TQAAZCIJRXRQAL/K6rKwnSCQIgkUBpGKdBynEYoYxAfyESCJWyIahWAwoQjUMB1HLQAAxC5kKbkIxyBABFBdVjVeBYG78Bz+ABj" +
"EovbAMEwPBqAMwmIAZDheA4FR4AGhTXKcbxrFaXZSzKckPRoADSZq1Sg5LjDJI2ABqU6ABqNLZtJKsZS4apABrWeZ3Q7QMLdFTwA4PH6EZhxXAYbTVeaPZjQIBAgI"));
List1->SortBarVisible = true;
List1->SortBarCaption = L"Drag a <b>column</b> header here to group by that column.";
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->get_Item(TVariant(1));
	var_Column->Alignment = Exlistlib_tlb::AlignmentEnum::CenterAlignment;
	var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellBackColor,TVariant(15790320));
	var_Column->SortOrder = true;
Exlistlib_tlb::IColumnPtr var_Column1 = List1->Columns->get_Item(TVariant(5));
	var_Column1->Alignment = Exlistlib_tlb::AlignmentEnum::CenterAlignment;
	var_Column1->set_Def(Exlistlib_tlb::DefColumnEnum::exCellBackColor,TVariant(16119285));
	var_Column1->SortOrder = true;
List1->Background[Exlistlib_tlb::BackgroundPartEnum::exSortBarLinkColor] = 0x1000000;
List1->EndUpdate();

438:
How can I have a case-insensitive filter (exFilterDoCaseSensitive flag is not set)

List1->BeginUpdate();
List1->MarkSearchColumn = false;
Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns;
	Exlistlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Car");
		var_Column->DisplayFilterButton = true;
		var_Column->FilterType = Exlistlib_tlb::FilterTypeEnum::exFilter;
		var_Column->Filter = L"MAZDA";
	Exlistlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Equipment");
		var_Column1->DisplayFilterButton = true;
		var_Column1->DisplayFilterPattern = false;
		var_Column1->CustomFilter = L"Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*";
		var_Column1->FilterType = Exlistlib_tlb::FilterTypeEnum::exPattern;
		var_Column1->Filter = L"AIR BAG";
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->set_Caption(var_Items->Add(TVariant("Mazda")),TVariant(1),TVariant("Air Bag"));
	var_Items->set_Caption(var_Items->Add(TVariant("Toyota")),TVariant(1),TVariant("Air Bag,Air condition"));
	var_Items->set_Caption(var_Items->Add(TVariant("Ford")),TVariant(1),TVariant("Air condition"));
	var_Items->set_Caption(var_Items->Add(TVariant("Nissan")),TVariant(1),TVariant("Air Bag,ABS,ESP"));
	var_Items->set_Caption(var_Items->Add(TVariant("Mazda")),TVariant(1),TVariant("Air Bag, ABS,ESP"));
	var_Items->set_Caption(var_Items->Add(TVariant("Mazda")),TVariant(1),TVariant("ABS,ESP"));
List1->ApplyFilter();
List1->EndUpdate();

437:
How can I have a case-sensitive filter

List1->BeginUpdate();
List1->MarkSearchColumn = false;
Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns;
	Exlistlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Car");
		var_Column->DisplayFilterButton = true;
		var_Column->FilterType = Exlistlib_tlb::FilterTypeEnum::exFilterDoCaseSensitive | Exlistlib_tlb::FilterTypeEnum::exFilter;
		var_Column->Filter = L"Mazda";
	Exlistlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Equipment");
		var_Column1->DisplayFilterButton = true;
		var_Column1->DisplayFilterPattern = false;
		var_Column1->CustomFilter = L"Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*";
		var_Column1->FilterType = Exlistlib_tlb::FilterTypeEnum::exFilterDoCaseSensitive | Exlistlib_tlb::FilterTypeEnum::exPattern;
		var_Column1->Filter = L"Air Bag";
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->set_Caption(var_Items->Add(TVariant("Mazda")),TVariant(1),TVariant("Air Bag"));
	var_Items->set_Caption(var_Items->Add(TVariant("Toyota")),TVariant(1),TVariant("Air Bag,Air condition"));
	var_Items->set_Caption(var_Items->Add(TVariant("Ford")),TVariant(1),TVariant("Air condition"));
	var_Items->set_Caption(var_Items->Add(TVariant("Nissan")),TVariant(1),TVariant("Air Bag,ABS,ESP"));
	var_Items->set_Caption(var_Items->Add(TVariant("Mazda")),TVariant(1),TVariant("Air Bag, ABS,ESP"));
	var_Items->set_Caption(var_Items->Add(TVariant("Mazda")),TVariant(1),TVariant("ABS,ESP"));
List1->ApplyFilter();
List1->EndUpdate();

436:
I have several columns, but noticed that the filter is using AND between columns, but I need OR clause for filtering. Is it possible

List1->BeginUpdate();
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Item");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->Filter = L"Child 1";
	var_Column->FilterType = Exlistlib_tlb::FilterTypeEnum::exFilter;
Exlistlib_tlb::IColumnPtr var_Column1 = List1->Columns->Add(L"Date");
	var_Column1->DisplayFilterButton = true;
	var_Column1->DisplayFilterPattern = false;
	var_Column1->DisplayFilterDate = true;
	var_Column1->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude | Exlistlib_tlb::FilterListEnum::exShowFocusItem | Exlistlib_tlb::FilterListEnum::exShowCheckBox | Exlistlib_tlb::FilterListEnum::exNoItems;
	var_Column1->Filter = L"TDateTime(2010,12,28).operator double()";
	var_Column1->FilterType = Exlistlib_tlb::FilterTypeEnum::exDate;
List1->FilterCriteria = L"%0 or %1";
List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarOr] = L"<font ;18><fgcolor=FF0000>or</fgcolor></font>";
List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = L"<font ;18><fgcolor=FF0000>and</fgcolor></font>";
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant("Root 1"));
	var_Items->set_Caption(var_Items->Add(TVariant("Child 1")),TVariant(1),TVariant(TDateTime(2010,12,27).operator double()));
	var_Items->set_Caption(var_Items->Add(TVariant("Child 2")),TVariant(1),TVariant(TDateTime(2010,12,28).operator double()));
	h = var_Items->Add(TVariant("Root 2"));
	var_Items->set_Caption(var_Items->Add(TVariant("Child 1")),TVariant(1),TVariant(TDateTime(2010,12,29).operator double()));
	var_Items->set_Caption(var_Items->Add(TVariant("Child 2")),TVariant(1),TVariant(TDateTime(2010,12,30).operator double()));
List1->ApplyFilter();
List1->EndUpdate();

435:
Is it possible exclude the dates being selected in the drop down filter window

List1->BeginUpdate();
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Date");
	var_Column->SortType = Exlistlib_tlb::SortTypeEnum::SortDate;
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->DisplayFilterDate = true;
	var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude | Exlistlib_tlb::FilterListEnum::exShowFocusItem | Exlistlib_tlb::FilterListEnum::exShowCheckBox | Exlistlib_tlb::FilterListEnum::exNoItems;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant(TDateTime(2010,12,27).operator double()));
	var_Items->Add(TVariant(TDateTime(2010,12,28).operator double()));
	var_Items->Add(TVariant(TDateTime(2010,12,29).operator double()));
	var_Items->Add(TVariant(TDateTime(2010,12,30).operator double()));
	var_Items->Add(TVariant(TDateTime(2010,12,31).operator double()));
List1->EndUpdate();

434:
How can I display a calendar control inside the drop down filter window

List1->BeginUpdate();
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Date");
	var_Column->SortType = Exlistlib_tlb::SortTypeEnum::SortDate;
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->DisplayFilterDate = true;
	var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowFocusItem | Exlistlib_tlb::FilterListEnum::exShowCheckBox | Exlistlib_tlb::FilterListEnum::exNoItems;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant(TDateTime(2010,12,27).operator double()));
	var_Items->Add(TVariant(TDateTime(2010,12,28).operator double()));
	var_Items->Add(TVariant(TDateTime(2010,12,29).operator double()));
	var_Items->Add(TVariant(TDateTime(2010,12,30).operator double()));
	var_Items->Add(TVariant(TDateTime(2010,12,31).operator double()));
List1->EndUpdate();

433:
Is it possible to include the dates as checkb-boxes in the drop down filter window

List1->BeginUpdate();
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Dates");
	var_Column->SortType = Exlistlib_tlb::SortTypeEnum::SortDate;
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = true;
	var_Column->DisplayFilterDate = true;
	var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowFocusItem | Exlistlib_tlb::FilterListEnum::exShowCheckBox;
	var_Column->Filter = L"to 12/27/2010";
	var_Column->FilterType = Exlistlib_tlb::FilterTypeEnum::exDate;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant(TDateTime(2010,12,27).operator double()));
	var_Items->Add(TVariant(TDateTime(2010,12,28).operator double()));
	var_Items->Add(TVariant(TDateTime(2010,12,29).operator double()));
	var_Items->Add(TVariant(TDateTime(2010,12,30).operator double()));
	var_Items->Add(TVariant(TDateTime(2010,12,31).operator double()));
List1->ApplyFilter();
List1->EndUpdate();

432:
How can I filter items for dates before a specified date

List1->BeginUpdate();
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Dates");
	var_Column->SortType = Exlistlib_tlb::SortTypeEnum::SortDate;
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = true;
	var_Column->DisplayFilterDate = true;
	var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowFocusItem | Exlistlib_tlb::FilterListEnum::exNoItems;
	var_Column->Filter = L"to 12/27/2010";
	var_Column->FilterType = Exlistlib_tlb::FilterTypeEnum::exDate;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant(TDateTime(2010,12,27).operator double()));
	var_Items->Add(TVariant(TDateTime(2010,12,28).operator double()));
	var_Items->Add(TVariant(TDateTime(2010,12,29).operator double()));
	var_Items->Add(TVariant(TDateTime(2010,12,30).operator double()));
	var_Items->Add(TVariant(TDateTime(2010,12,31).operator double()));
List1->ApplyFilter();
List1->EndUpdate();

431:
Is it possible to filter dates

List1->BeginUpdate();
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Dates");
	var_Column->SortType = Exlistlib_tlb::SortTypeEnum::SortDate;
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = true;
	var_Column->DisplayFilterDate = true;
	var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowFocusItem | Exlistlib_tlb::FilterListEnum::exNoItems;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant(TDateTime(2010,12,27).operator double()));
	var_Items->Add(TVariant(TDateTime(2010,12,28).operator double()));
	var_Items->Add(TVariant(TDateTime(2010,12,29).operator double()));
	var_Items->Add(TVariant(TDateTime(2010,12,30).operator double()));
	var_Items->Add(TVariant(TDateTime(2010,12,31).operator double()));
List1->EndUpdate();

430:
Is it possible to change the Exclude field name to something different, in the drop down filter window

List1->BeginUpdate();
List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarExclude] = L"Leaving out";
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Items");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude | Exlistlib_tlb::FilterListEnum::exShowFocusItem | Exlistlib_tlb::FilterListEnum::exShowCheckBox;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant("Root 1"));
	var_Items->Add(TVariant("Child 1"));
	var_Items->Add(TVariant("Child 2"));
	h = var_Items->Add(TVariant("Root 2"));
	var_Items->Add(TVariant("Child 1"));
List1->EndUpdate();

429:
How can I display the Exclude field in the drop down filter window

List1->BeginUpdate();
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Items");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude | Exlistlib_tlb::FilterListEnum::exShowFocusItem | Exlistlib_tlb::FilterListEnum::exShowCheckBox;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant("Root 1"));
	var_Items->Add(TVariant("Child 1"));
	var_Items->Add(TVariant("Child 2"));
	h = var_Items->Add(TVariant("Root 2"));
	var_Items->Add(TVariant("Child 1"));
List1->EndUpdate();

428:
Is it possible to show and ensure the focused item from the control, in the drop down filter window

List1->BeginUpdate();
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Items");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowFocusItem | Exlistlib_tlb::FilterListEnum::exShowCheckBox;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant("Root 1"));
	var_Items->Add(TVariant("Child 1"));
	var_Items->Add(TVariant("Child 2"));
	h = var_Items->Add(TVariant("Root 2"));
	var_Items->Add(TVariant("Child 1"));
	var_Items->set_SelectItem(var_Items->Add(TVariant("Child 2")),true);
List1->EndUpdate();

427:
Is it possible to show only blanks items with no listed items from the control

List1->BeginUpdate();
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Items");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowBlanks | Exlistlib_tlb::FilterListEnum::exNoItems;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant("Root 1"));
	var_Items->Add(TVariant("Child 1"));
	var_Items->Add(TVariant("Child 2"));
	h = var_Items->Add(TVariant("Root 2"));
	var_Items->Add(TVariant("Child 1"));
	var_Items->Add(TVariant("Child 2"));
List1->EndUpdate();

426:
How can I include the blanks items in the drop down filter window

List1->BeginUpdate();
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Items");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowBlanks | Exlistlib_tlb::FilterListEnum::exShowCheckBox;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant("Root 1"));
	var_Items->Add(TVariant("Child 1"));
	var_Items->Add(TVariant("Child 2"));
	h = var_Items->Add(TVariant("Root 2"));
	var_Items->Add(TVariant("Child 1"));
	var_Items->Add(TVariant("Child 2"));
List1->EndUpdate();

425:
How can I select multiple items in the drop down filter window, using check-boxes

List1->BeginUpdate();
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Items");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowCheckBox;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant("Root 1"));
	var_Items->Add(TVariant("Child 1"));
	var_Items->Add(TVariant("Child 2"));
	h = var_Items->Add(TVariant("Root 2"));
	var_Items->Add(TVariant("Child 1"));
	var_Items->Add(TVariant("Child 2"));
List1->EndUpdate();

424:
Is it possible to allow a single item being selected in the drop down filter window

List1->BeginUpdate();
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Items");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exSingleSel;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant("Root 1"));
	var_Items->Add(TVariant("Child 1"));
	var_Items->Add(TVariant("Child 2"));
	h = var_Items->Add(TVariant("Root 2"));
	var_Items->Add(TVariant("Child 1"));
	var_Items->Add(TVariant("Child 2"));
List1->EndUpdate();

423:
How can I display no (All) item in the drop down filter window

List1->BeginUpdate();
List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAll] = L"";
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Items");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = true;
	var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exNoItems;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant("Root 1"));
	var_Items->Add(TVariant("Child 1"));
	var_Items->Add(TVariant("Child 2"));
	h = var_Items->Add(TVariant("Root 2"));
	var_Items->Add(TVariant("Child 1"));
	var_Items->Add(TVariant("Child 2"));
List1->EndUpdate();

422:
Is it possible to display no items in the drop down filter window, so only the pattern is visible

List1->BeginUpdate();
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Items");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = true;
	var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exNoItems;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant("Root 1"));
	var_Items->Add(TVariant("Child 1"));
	var_Items->Add(TVariant("Child 2"));
	h = var_Items->Add(TVariant("Root 2"));
	var_Items->Add(TVariant("Child 1"));
	var_Items->Add(TVariant("Child 2"));
List1->EndUpdate();

421:
How can I sort the value gets listed in the drop down filter window

List1->MarkSearchColumn = false;
List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAll] = L"";
List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarBlanks] = L"";
List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarNonBlanks] = L"";
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"P1");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exSortItemsDesc;
Exlistlib_tlb::IColumnPtr var_Column1 = List1->Columns->Add(L"P2");
	var_Column1->DisplayFilterButton = true;
	var_Column1->DisplayFilterPattern = false;
	var_Column1->FilterList = Exlistlib_tlb::FilterListEnum::exSortItemsAsc;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant("Z3"));
	var_Items->set_Caption(h,TVariant(1),TVariant("C"));
	var_Items->set_Caption(var_Items->Add(TVariant("Z1")),TVariant(1),TVariant("B"));
	var_Items->set_Caption(var_Items->Add(TVariant("Z2")),TVariant(1),TVariant("A"));

420:
How can I add or change the padding (spaces) for captions in the control's header

List1->BeginUpdate();
List1->Columns->Add(L"Padding-Left")->set_Def(Exlistlib_tlb::DefColumnEnum::exHeaderPaddingLeft,TVariant(18));
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Padding-Right");
	var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exHeaderPaddingRight,TVariant(18));
	var_Column->HeaderAlignment = Exlistlib_tlb::AlignmentEnum::RightAlignment;
List1->EndUpdate();

419:
Do you have any plans to add cell spacing and cell padding to the cells

List1->BeginUpdate();
List1->DrawGridLines = Exlistlib_tlb::GridLinesEnum(0xfffffffc | Exlistlib_tlb::GridLinesEnum::exVLines);
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Padding-Left");
	var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellPaddingLeft,TVariant(18));
List1->Columns->Add(L"No-Padding")->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
List1->Columns->Add(L"Empty")->Position = 0;
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->set_Caption(var_Items->Add(TVariant("Item A.1")),TVariant(1),TVariant("Item A.2"));
	var_Items->set_Caption(var_Items->Add(TVariant("Item B.1")),TVariant(1),TVariant("Item B.2"));
	var_Items->set_Caption(var_Items->Add(TVariant("Item C.1")),TVariant(1),TVariant("Item C.2"));
List1->EndUpdate();

418:
Is it possible display numbers in the same format no matter of regional settings in the control panel

List1->BeginUpdate();
List1->Columns->Add(L"Def")->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1));
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant(100000.27));
	var_Items->set_FormatCell(h,TVariant(0),L"(value format '') +  ' <fgcolor=808080>(default positive)'");
	h = var_Items->Add(TVariant(100000.27));
	var_Items->set_FormatCell(h,TVariant(0),L"(value format '2|.|3|,|1|1')");
	h = var_Items->Add(TVariant(-100000.27));
	var_Items->set_FormatCell(h,TVariant(0),L"(value format '') +  ' <fgcolor=808080>(default negative)'");
	h = var_Items->Add(TVariant(-100000.27));
	var_Items->set_FormatCell(h,TVariant(0),L"(value format '2|.|3|,|1|1')");
List1->EndUpdate();

417:
Is it possible to add a 0 for numbers less than 1 instead .7 to show 0.8

List1->BeginUpdate();
List1->Columns->Add(L"Def")->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1));
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant(0.27));
	var_Items->set_FormatCell(h,TVariant(0),L"(value format '') +  ' <fgcolor=808080>(default)'");
	h = var_Items->Add(TVariant(0.27));
	var_Items->set_FormatCell(h,TVariant(0),L"(value format '|||||0') +  ' <fgcolor=808080>(Display no leading zeros)'");
List1->EndUpdate();

416:
How can I specify the format for negative numbers

List1->BeginUpdate();
List1->Columns->Add(L"Def")->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1));
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant(-100000.27));
	var_Items->set_FormatCell(h,TVariant(0),L"(value format '') +  ' <fgcolor=808080>(default)'");
	h = var_Items->Add(TVariant(-100000.27));
	var_Items->set_FormatCell(h,TVariant(0),L"(value format '||||1') +  ' <fgcolor=808080>(Negative sign, number; for example, -1.1)'");
List1->EndUpdate();

415:
Is it possible to change the grouping character when display numbers

List1->BeginUpdate();
List1->Columns->Add(L"Def")->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1));
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant(100000.27));
	var_Items->set_FormatCell(h,TVariant(0),L"(value format '') +  ' <fgcolor=808080>(default)'");
	h = var_Items->Add(TVariant(100000.27));
	var_Items->set_FormatCell(h,TVariant(0),L"(value format '|||-') +  ' <fgcolor=808080>(grouping character is -)'");
List1->EndUpdate();

414:
How can I display numbers with 2 digits in each group

List1->BeginUpdate();
List1->Columns->Add(L"Def")->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1));
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant(100000.27));
	var_Items->set_FormatCell(h,TVariant(0),L"(value format '') +  ' <fgcolor=808080>(default)'");
	h = var_Items->Add(TVariant(100000.27));
	var_Items->set_FormatCell(h,TVariant(0),L"(value format '||2') +  ' <fgcolor=808080>(grouping by 2 digits)'");
List1->EndUpdate();

413:
How can I display my numbers using a different decimal separator

List1->BeginUpdate();
List1->Columns->Add(L"Def")->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1));
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant(100.27));
	var_Items->set_FormatCell(h,TVariant(0),L"(value format '') +  ' <fgcolor=808080>(default)'");
	h = var_Items->Add(TVariant(100.27));
	var_Items->set_FormatCell(h,TVariant(0),L"(value format '|;') +  ' <fgcolor=808080>(decimal separator is <b>;</b>)'");
List1->EndUpdate();

412:
Is it possible to display the numbers using 3 (three) digits

List1->BeginUpdate();
List1->Columns->Add(L"Def")->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1));
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant(100.27));
	var_Items->set_FormatCell(h,TVariant(0),L"(value format '') +  ' <fgcolor=808080>(default)'");
	h = var_Items->Add(TVariant(100.27));
	var_Items->set_FormatCell(h,TVariant(0),L"(value format '3') +  ' <fgcolor=808080>(3 digits)'");
	h = var_Items->Add(TVariant(100.27));
	var_Items->set_FormatCell(h,TVariant(0),L"(value format 2) +  '  <fgcolor=808080>(2 digits)'");
	h = var_Items->Add(TVariant(100.27));
	var_Items->set_FormatCell(h,TVariant(0),L"(value format 1) +  ' <fgcolor=808080>(1 digit)'");
List1->EndUpdate();

411:
Is it possible to format numbers

List1->BeginUpdate();
List1->MarkSearchColumn = false;
List1->SelBackColor = List1->BackColor;
List1->SelForeColor = List1->ForeColor;
List1->ShowFocusRect = true;
Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns;
	var_Columns->Add(L"Name");
	Exlistlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"A");
		var_Column->SortType = Exlistlib_tlb::SortTypeEnum::SortNumeric;
		var_Column->AllowSizing = false;
		var_Column->Width = 36;
		var_Column->FormatColumn = L"len(value) ? value + ' +'";
	Exlistlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"B");
		var_Column1->SortType = Exlistlib_tlb::SortTypeEnum::SortNumeric;
		var_Column1->AllowSizing = false;
		var_Column1->Width = 36;
		var_Column1->FormatColumn = L"len(value) ? value + ' +'";
	Exlistlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"C");
		var_Column2->SortType = Exlistlib_tlb::SortTypeEnum::SortNumeric;
		var_Column2->AllowSizing = false;
		var_Column2->Width = 36;
		var_Column2->FormatColumn = L"len(value) ? value + ' ='";
	Exlistlib_tlb::IColumnPtr var_Column3 = var_Columns->Add(L"A+B+C");
		var_Column3->SortType = Exlistlib_tlb::SortTypeEnum::SortNumeric;
		var_Column3->Width = 64;
		var_Column3->ComputedField = L"dbl(%1)+dbl(%2)+dbl(%3)";
		var_Column3->FormatColumn = TVariant(String("type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00") +
"00FF>+'+(value format '2|.|3|,' ): '0.00') )");
		var_Column3->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1));
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	long h = var_Items->Add(TVariant("Item"));
	var_Items->set_CaptionFormat(h,TVariant(4),Exlistlib_tlb::CaptionFormatEnum::exComputedField);
	h = var_Items->Add(TVariant("Item 1"));
	var_Items->set_Caption(h,TVariant(1),TVariant(7));
	var_Items->set_Caption(h,TVariant(2),TVariant(3));
	var_Items->set_Caption(h,TVariant(3),TVariant(1));
	h = var_Items->Add(TVariant("Item 2"));
	var_Items->set_Caption(h,TVariant(1),TVariant(-2));
	var_Items->set_Caption(h,TVariant(2),TVariant(-2));
	var_Items->set_Caption(h,TVariant(3),TVariant(-4));
	h = var_Items->Add(TVariant("Item 3"));
	var_Items->set_Caption(h,TVariant(1),TVariant(2));
	var_Items->set_Caption(h,TVariant(2),TVariant(2));
	var_Items->set_Caption(h,TVariant(3),TVariant(-4));
List1->EndUpdate();

410:
Is it possible background color displayed when the mouse passes over an item

List1->BeginUpdate();
List1->Columns->Add(L"Def");
List1->HotBackColor = RGB(0,0,128);
List1->HotForeColor = RGB(255,255,255);
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant("Item A"));
	var_Items->Add(TVariant("Item B"));
	var_Items->Add(TVariant("Item C"));
List1->EndUpdate();

409:
Is it possible to specify the cell's value but still want to display some formatted text instead the value

List1->BeginUpdate();
List1->MarkSearchColumn = false;
Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns;
	var_Columns->Add(L"Name");
	Exlistlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Values");
		var_Column->SortType = Exlistlib_tlb::SortTypeEnum::SortNumeric;
		var_Column->AllowSizing = false;
		var_Column->Width = 64;
		var_Column->FormatColumn = L"((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)";
		var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1));
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->set_FormatCell(var_Items->Add(TVariant("Item A")),TVariant(1),L"`<none>`");
	var_Items->set_Caption(var_Items->Add(TVariant("Item 1")),TVariant(1),TVariant(10));
	var_Items->set_Caption(var_Items->Add(TVariant("Item 2")),TVariant(1),TVariant(15));
	var_Items->set_Caption(var_Items->Add(TVariant("Item 3")),TVariant(1),TVariant(25));
List1->EndUpdate();

408:
I am using the FormatColumn to display the current currency, but would like hide some values. Is it possible

List1->BeginUpdate();
List1->MarkSearchColumn = false;
Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns;
	var_Columns->Add(L"Name");
	Exlistlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Values");
		var_Column->SortType = Exlistlib_tlb::SortTypeEnum::SortNumeric;
		var_Column->AllowSizing = false;
		var_Column->Width = 64;
		var_Column->FormatColumn = L"((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)";
		var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1));
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->set_FormatCell(var_Items->Add(TVariant("Item A")),TVariant(1),L" ");
	var_Items->set_Caption(var_Items->Add(TVariant("Item 1")),TVariant(1),TVariant(10));
	var_Items->set_Caption(var_Items->Add(TVariant("Item 2")),TVariant(1),TVariant(15));
	var_Items->set_Caption(var_Items->Add(TVariant("Item 3")),TVariant(1),TVariant(25));
List1->EndUpdate();

407:
I am using the FormatColumn to format my columns. Is it possible to ignore the SelForeColor, so the foreground color for selected items does not override my settings

// SelectionChanged event - Fired after a new item is selected.
void __fastcall TForm1::List1SelectionChanged(TObject *Sender)
{
	Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
		var_Items->ClearItemBackColor(-1);
		var_Items->set_ItemBackColor(var_Items->get_SelectedItem(0),RGB(128,255,255));
}

List1->BeginUpdate();
List1->MarkSearchColumn = false;
List1->SelForeColor = List1->ForeColor;
List1->SelBackColor = List1->BackColor;
List1->ShowFocusRect = false;
Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns;
	Exlistlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Format");
		var_Column->FormatColumn = TVariant(String("type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00") +
"00FF>+'+(value format '2|.|3|,' ): '0.00') )");
		var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1));
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant(10));
	var_Items->Add(TVariant(-8));
List1->EndUpdate();

406:
Is it possible to change the height for all items at once

List1->BeginUpdate();
List1->Columns->Add(L"Items");
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant("Item 1"));
	var_Items->Add(TVariant("Item 2"));
	var_Items->Add(TVariant("Item 3"));
	var_Items->Add(TVariant("Item 4"));
List1->EndUpdate();
List1->DefaultItemHeight = 12;
List1->Items->set_ItemHeight(-1,12);

405:
How can I change the shape of the line to be shown when user drag and drop data over the control

// OLEStartDrag event - Occurs when the OLEDrag method is called.
void __fastcall TForm1::List1OLEStartDrag(TObject *Sender,Exlistlib_tlb::IExDataObject   *Data,long *   AllowedEffects)
{
	// Data.SetData("data to be dragged")
}

List1->OLEDropMode = Exlistlib_tlb::exOLEDropModeEnum::exOLEDropManual;
List1->VisualAppearance->Add(1,TVariant("C:\\Program Files\\Exontrol\\ExList\\Sample\\VB\\DragDrop\\insert_bottom.ebn"));
List1->Background[Exlistlib_tlb::BackgroundPartEnum::exListOLEDropPosition] = 0x1000000;
List1->Columns->Add(L"Default");
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant("Item 1"));
	var_Items->Add(TVariant("Item 2"));

404:
How can I highlight the item from cursor when the user drag and drop data over the control

// OLEStartDrag event - Occurs when the OLEDrag method is called.
void __fastcall TForm1::List1OLEStartDrag(TObject *Sender,Exlistlib_tlb::IExDataObject   *Data,long *   AllowedEffects)
{
	// Data.SetData("data to be dragged")
}

List1->OLEDropMode = Exlistlib_tlb::exOLEDropModeEnum::exOLEDropManual;
List1->Background[Exlistlib_tlb::BackgroundPartEnum::exListOLEDropPosition] = RGB(1,0,0);
List1->Columns->Add(L"Default");
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant("Item 1"));
	var_Items->Add(TVariant("Item 2"));

403:
How can I start drag and drop items

// OLEStartDrag event - Occurs when the OLEDrag method is called.
void __fastcall TForm1::List1OLEStartDrag(TObject *Sender,Exlistlib_tlb::IExDataObject   *Data,long *   AllowedEffects)
{
	// Data.SetData("to be carried by drag and drop")
	AllowedEffects = 1;
}

List1->BeginUpdate();
List1->OLEDropMode = Exlistlib_tlb::exOLEDropModeEnum::exOLEDropManual;
List1->Columns->Add(L"Default");
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant("Item 1"));
	var_Items->Add(TVariant("Item 2"));
List1->EndUpdate();

402:
When I'm trying to show string with "line break" character (vbCrLF) in a textbox, it shows 2 squares. Is there any way to hide these squares

Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns;
	var_Columns->Add(L"Value");
	Exlistlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"CellSingleLine = False");
		var_Column->ComputedField = L"%0";
		var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(false));
	Exlistlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"FormatColumn/replace CRLF");
		var_Column1->ComputedField = L"%0";
		var_Column1->FormatColumn = L"value replace `\\r\\n` with ``";
	Exlistlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"FormatColumn/replace TAB,CRLF");
		var_Column2->ComputedField = L"%0";
		var_Column2->FormatColumn = L"(value replace `\\t` with ``) replace `\\r\\n` with ``";
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant("a\\ta\\r\\nb\\tb"));

401:
The Column.Alignment property does not seem to work for cells with images in them. What can be done

List1->BeginUpdate();
List1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
List1->DrawGridLines = Exlistlib_tlb::GridLinesEnum::exAllLines;
List1->HeaderHeight = 24;
List1->DefaultItemHeight = 24;
Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Image");
	var_Column->AllowSizing = false;
	var_Column->Width = 32;
	var_Column->HTMLCaption = L"<img>1</img>";
	var_Column->HeaderAlignment = Exlistlib_tlb::AlignmentEnum::CenterAlignment;
	var_Column->Alignment = Exlistlib_tlb::AlignmentEnum::CenterAlignment;
	var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1));
List1->Columns->Add(L"Rest");
Exlistlib_tlb::IItemsPtr var_Items = List1->Items;
	var_Items->Add(TVariant("<img>1</img>"));
	var_Items->Add(TVariant("<img>2</img>"));
	var_Items->Add(TVariant("<img>3</img>"));
List1->EndUpdate();