957:
Type of wraps the cell's caption support (Sample 2)

Gantt1->BeginUpdate();
Gantt1->HeaderSingleLine = false;
Gantt1->HeaderHeight = 36;
Gantt1->DrawGridLines = Exganttlib_tlb::GridLinesEnum::exRowLines;
Gantt1->ColumnAutoResize = false;
Gantt1->ScrollBySingleLine = true;
Exganttlib_tlb::IColumnsPtr var_Columns = Gantt1->Columns;
	Exganttlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Single-Line (exCaptionSingleLine)");
		var_Column->Width = 96;
		var_Column->set_Def(Exganttlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
		var_Column->set_Def(Exganttlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(-1));
	Exganttlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Word-Wrap (exCaptionWordWrap)");
		var_Column1->Width = 96;
		var_Column1->set_Def(Exganttlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
		var_Column1->set_Def(Exganttlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(0));
		var_Column1->FormatColumn = L"%0";
	Exganttlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"Break-Wrap (exCaptionBreakWrap)");
		var_Column2->Width = 96;
		var_Column2->set_Def(Exganttlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
		var_Column2->set_Def(Exganttlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(1));
		var_Column2->FormatColumn = L"%0";
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line."));
	var_Items->AddItem(TVariant("This is the <b>first</b> line.\\r\\nThis is the <b>second</b> line.\\r\\nThis is the <b>third</b> line."));
Gantt1->EndUpdate();

956:
Type of wraps the cell's caption support (Sample 1)

Gantt1->BeginUpdate();
Gantt1->HeaderSingleLine = false;
Gantt1->HeaderHeight = 36;
Gantt1->DrawGridLines = Exganttlib_tlb::GridLinesEnum::exRowLines;
Gantt1->ColumnAutoResize = false;
Gantt1->ScrollBySingleLine = true;
Gantt1->Columns->Add(L"Default")->Width = 128;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	long h = var_Items->AddItem(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line."));
	h = var_Items->AddItem(TVariant("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line."));
	var_Items->set_CellCaptionFormat(TVariant(h),TVariant(0),Exganttlib_tlb::CaptionFormatEnum::exHTML);
	h = var_Items->AddItem(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line."));
	var_Items->set_CellSingleLine(TVariant(h),TVariant(0),Exganttlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
	h = var_Items->AddItem(TVariant("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line."));
	var_Items->set_CellCaptionFormat(TVariant(h),TVariant(0),Exganttlib_tlb::CaptionFormatEnum::exHTML);
	var_Items->set_CellSingleLine(TVariant(h),TVariant(0),Exganttlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
	h = var_Items->AddItem(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line."));
	var_Items->set_CellSingleLine(TVariant(h),TVariant(0),Exganttlib_tlb::CellSingleLineEnum::exCaptionBreakWrap);
	h = var_Items->AddItem(TVariant("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line."));
	var_Items->set_CellCaptionFormat(TVariant(h),TVariant(0),Exganttlib_tlb::CaptionFormatEnum::exHTML);
	var_Items->set_CellSingleLine(TVariant(h),TVariant(0),Exganttlib_tlb::CellSingleLineEnum::exCaptionBreakWrap);
Gantt1->EndUpdate();

955:
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)

Gantt1->BeginUpdate();
Gantt1->DrawGridLines = Exganttlib_tlb::GridLinesEnum::exRowLines;
Gantt1->ColumnAutoResize = false;
Gantt1->ScrollBySingleLine = true;
Gantt1->Columns->Add(L"Default")->Width = 128;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->set_CellSingleLine(TVariant(var_Items->AddItem(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line."))),TVariant(0),Exganttlib_tlb::CellSingleLineEnum::exCaptionBreakWrap);
	var_Items->AddItem(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line."));
Gantt1->EndUpdate();

954:
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)

Gantt1->BeginUpdate();
Gantt1->DrawGridLines = Exganttlib_tlb::GridLinesEnum::exRowLines;
Gantt1->ColumnAutoResize = false;
Gantt1->ScrollBySingleLine = true;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Default");
	var_Column->Width = 128;
	var_Column->set_Def(Exganttlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(1));
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line."));
	var_Items->AddItem(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line."));
Gantt1->EndUpdate();

953:
How can I change the visual appearance/color of the Filter For ... field

Gantt1->BeginUpdate();
Gantt1->LinesAtRoot = Exganttlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Gantt1->BackColorHeader = RGB(1,0,0);
Gantt1->ForeColorHeader = RGB(255,255,255);
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exBackColorFilter] = Gantt1->BackColorHeader;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exForeColorFilter] = Gantt1->ForeColorHeader;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = RGB(240,240,240);
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Gantt1->HeaderAppearance = Exganttlib_tlb::AppearanceEnum::Bump;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Items");
	var_Column->FilterOnType = true;
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Exganttlib_tlb::FilterListEnum::exNoItems;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
Gantt1->EndUpdate();

952:
How can I display the cell's caption without spaces on both sides

Gantt1->BeginUpdate();
Gantt1->ColumnAutoResize = true;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Default");
	var_Column->set_Def(Exganttlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
	var_Column->FormatColumn = L"((trim(value) replace `   ` with ` `) replace `  ` with ` `) replace ` ` with `<bgcolor=FF0000> </bgcolor>`";
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant(""));
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("    Item B"));
	var_Items->AddItem(TVariant("        Item   C    "));
Gantt1->EndUpdate();

951:
How can I highlight the spaces within the column (sample 2)

Gantt1->BeginUpdate();
Gantt1->ColumnAutoResize = true;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Default");
	var_Column->set_Def(Exganttlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
	var_Column->FormatColumn = L"`'` + ( value replace ` ` with `_` ) + `'`";
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant(""));
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("    Item B"));
	var_Items->AddItem(TVariant("        Item   C    "));
Gantt1->EndUpdate();

950:
How can I highlight the spaces within the column (sample 1)

Gantt1->BeginUpdate();
Gantt1->ColumnAutoResize = true;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Default");
	var_Column->set_Def(Exganttlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
	var_Column->FormatColumn = L"len(value) = 0 ? `<bgcolor=FF0000> </bgcolor>` : ( value replace ` ` with `<bgcolor=FF0000> </bgcolor>` )";
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant(""));
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("    Item B"));
	var_Items->AddItem(TVariant("        Item   C    "));
Gantt1->EndUpdate();

949:
How can I change the visual aspect of the drop down filter-calendar

Gantt1->BeginUpdate();
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exBackColorFilter] = RGB(0,0,1);
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exForeColorFilter] = RGB(255,255,255);
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exDateScrollRange] = RGB(255,255,255);
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exDateHeader] = Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exBackColorFilter];
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exDateScrollThumb] = RGB(128,128,128);
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Date");
	var_Column->FilterType = Exganttlib_tlb::FilterTypeEnum::exDate;
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterDate = true;
	var_Column->DisplayFilterPattern = false;
Gantt1->EndUpdate();

948:
Export Data in HTML format

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
		long i = var_Items->get_ItemToIndex(Item);
		var_Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2008,1,2).operator double()),TVariant(TDateTime(2008,1,9).operator double()),TVariant(""),TNoParam());
		var_Items->set_ItemBar(Item,TVariant(""),Exganttlib_tlb::ItemBarPropertyEnum::exBarDuration,TVariant(i));
		var_Items->set_ItemBar(Item,TVariant(""),Exganttlib_tlb::ItemBarPropertyEnum::exBarMove,TVariant(i));
		var_Items->set_CellCaption(TVariant(Item),TVariant(1),TVariant(var_Items->get_ItemBar(Item,TVariant(""),Exganttlib_tlb::ItemBarPropertyEnum::exBarStart)));
		var_Items->set_CellCaption(TVariant(Item),TVariant(2),TVariant(var_Items->get_ItemBar(Item,TVariant(""),Exganttlib_tlb::ItemBarPropertyEnum::exBarEnd)));
}

Gantt1->BeginUpdate();
Gantt1->BackColorAlternate = RGB(240,240,240);
Gantt1->DrawGridLines = Exganttlib_tlb::GridLinesEnum::exAllLines;
Gantt1->HeaderAppearance = Exganttlib_tlb::AppearanceEnum::Etched;
Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(Gantt1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam()));
Gantt1->FilterBarCaption = TVariant(String("(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace ") +
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" +
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" +
"nt + ` item(s)`) )))");
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseIfRequired | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Gantt1->FilterBarPromptType = Exganttlib_tlb::FilterPromptEnum::exFilterPromptContainsAny;
Gantt1->DrawGridLines = Exganttlib_tlb::GridLinesEnum::exAllLines;
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->DrawGridLines = Exganttlib_tlb::GridLinesEnum::exAllLines;
	var_Chart->set_PaneWidth(false,196);
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2008,1,1).operator double()));
	var_Chart->FirstWeekDay = Exganttlib_tlb::WeekDayEnum::exMonday;
Exganttlib_tlb::IConditionalFormatPtr var_ConditionalFormat = Gantt1->ConditionalFormats->Add(L"(%2 - %1) = 3",TVariant("K3"));
	var_ConditionalFormat->ForeColor = RGB(255,0,0);
	var_ConditionalFormat->BarColor = var_ConditionalFormat->ForeColor;
	var_ConditionalFormat->ApplyToBars = L"Task";
Exganttlib_tlb::IConditionalFormatPtr var_ConditionalFormat1 = Gantt1->ConditionalFormats->Add(L"(%2 - %1) = 5",TVariant("K5"));
	var_ConditionalFormat1->ForeColor = RGB(0,255,0);
	var_ConditionalFormat1->BarColor = var_ConditionalFormat1->ForeColor;
	var_ConditionalFormat1->ApplyToBars = L"Task";
Exganttlib_tlb::IColumnsPtr var_Columns = Gantt1->Columns;
	var_Columns->Add(L"Tasks")->set_Def(Exganttlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Columns->Add(L"Start");
	var_Columns->Add(L"End");
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Task 1"));
	var_Items->AddItem(TVariant("Task 2"));
	var_Items->AddItem(TVariant("Task 3"));
	var_Items->AddItem(TVariant("Task 4"));
	var_Items->AddItem(TVariant("Task 5"));
	var_Items->AddItem(TVariant("Task 6"));
	var_Items->AddItem(TVariant("Task 7"));
	var_Items->AddItem(TVariant("Task 8"));
Gantt1->EndUpdate();
String sFile = "c:/temp/export.html";
Gantt1->Export(TVariant(sFile),TVariant("vis"));
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft Internet Controls

	TypeLib: ieframe.dll

	to define the namespace: Shdocvw_tlb
*/
//#include "SHDOCVW_TLB.h"
Shdocvw_tlb::IWebBrowser2Ptr var_ShellBrowserWindow = Variant::CreateObject(L"InternetExplorer.Application");
	var_ShellBrowserWindow->Navigate2(sFile,TNoParam(),TNoParam(),TNoParam(),TNoParam());

947:
Export Data in CSV format

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
		long i = var_Items->get_ItemToIndex(Item);
		var_Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2008,1,2).operator double()),TVariant(TDateTime(2008,1,9).operator double()),TVariant(""),TNoParam());
		var_Items->set_ItemBar(Item,TVariant(""),Exganttlib_tlb::ItemBarPropertyEnum::exBarDuration,TVariant(i));
		var_Items->set_ItemBar(Item,TVariant(""),Exganttlib_tlb::ItemBarPropertyEnum::exBarMove,TVariant(i));
		var_Items->set_CellCaption(TVariant(Item),TVariant(1),TVariant(var_Items->get_ItemBar(Item,TVariant(""),Exganttlib_tlb::ItemBarPropertyEnum::exBarStart)));
		var_Items->set_CellCaption(TVariant(Item),TVariant(2),TVariant(var_Items->get_ItemBar(Item,TVariant(""),Exganttlib_tlb::ItemBarPropertyEnum::exBarEnd)));
}

Gantt1->BeginUpdate();
Gantt1->BackColorAlternate = RGB(240,240,240);
Gantt1->DrawGridLines = Exganttlib_tlb::GridLinesEnum::exAllLines;
Gantt1->HeaderAppearance = Exganttlib_tlb::AppearanceEnum::Etched;
Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(Gantt1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam()));
Gantt1->FilterBarCaption = TVariant(String("(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace ") +
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" +
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" +
"nt + ` item(s)`) )))");
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseIfRequired | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Gantt1->FilterBarPromptType = Exganttlib_tlb::FilterPromptEnum::exFilterPromptContainsAny;
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->set_PaneWidth(false,196);
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2008,1,1).operator double()));
Exganttlib_tlb::IConditionalFormatPtr var_ConditionalFormat = Gantt1->ConditionalFormats->Add(L"(%2 - %1) = 3",TVariant("K3"));
	var_ConditionalFormat->ForeColor = RGB(255,0,0);
	var_ConditionalFormat->BarColor = var_ConditionalFormat->ForeColor;
	var_ConditionalFormat->ApplyToBars = L"Task";
Exganttlib_tlb::IConditionalFormatPtr var_ConditionalFormat1 = Gantt1->ConditionalFormats->Add(L"(%2 - %1) = 5",TVariant("K5"));
	var_ConditionalFormat1->ForeColor = RGB(0,255,0);
	var_ConditionalFormat1->BarColor = var_ConditionalFormat1->ForeColor;
	var_ConditionalFormat1->ApplyToBars = L"Task";
Exganttlib_tlb::IColumnsPtr var_Columns = Gantt1->Columns;
	var_Columns->Add(L"Tasks")->set_Def(Exganttlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Columns->Add(L"Start");
	var_Columns->Add(L"End");
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Task 1"));
	var_Items->AddItem(TVariant("Task 2"));
	var_Items->AddItem(TVariant("Task 3"));
	var_Items->AddItem(TVariant("Task 4"));
	var_Items->AddItem(TVariant("Task 5"));
	var_Items->AddItem(TVariant("Task 6"));
	var_Items->AddItem(TVariant("Task 7"));
	var_Items->AddItem(TVariant("Task 8"));
Gantt1->EndUpdate();
OutputDebugString( PChar(Gantt1->Export(TVariant(""),TVariant("vis"))) );

946:
Is it possible to check multiple-items at once
// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	TVariant bHasParent = TVariant(Gantt1->FormatABC(L"value != 0",Gantt1->Items->get_ItemParent(Item),TNoParam(),TNoParam()));
	Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
		var_Items->set_CellHasCheckBox(TVariant(Item),TVariant(0),false);
}

Gantt1->BeginUpdate();
Gantt1->LinesAtRoot = Exganttlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Tasks");
	var_Column->set_Def(Exganttlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
	var_Column->FormatColumn = L"value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)";
Gantt1->HeaderVisible = true;
Gantt1->SingleSel = false;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	long h = var_Items->AddItem(TVariant("Project"));
	long hChild = var_Items->InsertItem(h,TNoParam(),TVariant("Task 1"));
	hChild = var_Items->InsertItem(h,TNoParam(),TVariant("Task 2"));
	hChild = var_Items->InsertItem(h,TNoParam(),TVariant("Task 3"));
	var_Items->set_ExpandItem(h,true);
	var_Items->set_LockedItemCount(Exganttlib_tlb::VAlignmentEnum::TopAlignment,1);
	var_Items->set_CellCaption(TVariant(var_Items->get_LockedItem(Exganttlib_tlb::VAlignmentEnum::TopAlignment,0)),TVariant(0),TVariant("<c>Select multiple items and press the <b>SPACE</b> key"));
Gantt1->EndUpdate();

945:
How can I get the icon from the cell when using the Items.CellImages property (icon index)

// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::Gantt1MouseMove(TObject *Sender,short   Button,short   Shift,int   X,int   Y)
{
	long i = Gantt1->ItemFromPoint[-1,-1,c,hit];
	OutputDebugString( PChar(Gantt1->FormatABC(L"( 0x44 = ( value bitand 0x44 ) ) ? ( ( (value bitand 0xFFFF0000) bitshift 16 ) array B split `,` )  : `no image`",TVariant(hit),Gantt1->Items->get_CellImages(TVariant(i),TVariant(c)),TNoParam())) );
}

Gantt1->BeginUpdate();
Gantt1->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="));
Gantt1->Chart->set_PaneWidth(true,0);
Gantt1->Columns->Add(L"Default");
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->set_CellImages(TVariant(var_Items->AddItem(TVariant("Item 1"))),TVariant(0),TVariant("3,2,1"));
	var_Items->set_CellImages(TVariant(var_Items->AddItem(TVariant("Item 2"))),TVariant(0),TVariant("2,3"));
	var_Items->set_CellImages(TVariant(var_Items->AddItem(TVariant("Item 3"))),TVariant(0),TVariant("2,"));
Gantt1->EndUpdate();

944:
How can I get the icon from the cell when using the Items.CellImages property (icon position within the cell)

// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::Gantt1MouseMove(TObject *Sender,short   Button,short   Shift,int   X,int   Y)
{
	long i = Gantt1->ItemFromPoint[-1,-1,c,hit];
	OutputDebugString( PChar(Gantt1->FormatABC(L"( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",TVariant(hit),TNoParam(),TNoParam())) );
}

Gantt1->BeginUpdate();
Gantt1->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="));
Gantt1->Chart->set_PaneWidth(true,0);
Gantt1->Columns->Add(L"Default");
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->set_CellImages(TVariant(var_Items->AddItem(TVariant("Item 1"))),TVariant(0),TVariant("3,2,1"));
	var_Items->set_CellImages(TVariant(var_Items->AddItem(TVariant("Item 2"))),TVariant(0),TVariant("2,3"));
	var_Items->set_CellImages(TVariant(var_Items->AddItem(TVariant("Item 3"))),TVariant(0),TVariant("2"));
Gantt1->EndUpdate();

943:
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop
Gantt1->BeginUpdate();
Gantt1->HeaderAppearance = Exganttlib_tlb::AppearanceEnum::Etched;
Exganttlib_tlb::IColumnsPtr var_Columns = Gantt1->Columns;
	var_Columns->Add(L"Column 1");
	var_Columns->Add(L"Column 2");
	var_Columns->Add(L"Column 3");
Exganttlib_tlb::IAppearancePtr var_Appearance = Gantt1->VisualAppearance;
	var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV") +
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" +
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" +
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" +
"BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" +
"GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI="));
	var_Appearance->Add(2,TVariant("CP:1 0 -36 0 0"));
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exColumnsPositionSign] = 0x2000000;
Gantt1->EndUpdate();

942:
A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do

Gantt1->BeginUpdate();
Gantt1->ColumnAutoResize = true;
Gantt1->DefaultItemHeight = 20;
Gantt1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1m") +
"Y1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2h" +
"hWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY" +
"6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQR" +
"JSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd" +
"0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA=="));
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Default");
	var_Column->set_Def(Exganttlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->PartialCheck = true;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->Add(L"Position");
	var_Column1->FormatColumn = L"1 rindex ``";
	var_Column1->Visible = false;
Exganttlib_tlb::IConditionalFormatPtr var_ConditionalFormat = Gantt1->ConditionalFormats->Add(L"%C1 mod 2",TNoParam());
	var_ConditionalFormat->BackColor = 0x1000000;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Item 1"));
	var_Items->AddItem(TVariant("Item 2"));
	var_Items->AddItem(TVariant("Item 3"));
	var_Items->AddItem(TVariant("Item 4"));
Gantt1->EndUpdate();

941:
How can I specify alternate background colors for each root item, similar with BackColorAlternate

Gantt1->BeginUpdate();
Gantt1->LinesAtRoot = Exganttlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Default");
	var_Column->set_Def(Exganttlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->PartialCheck = true;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->Add(L"Position");
	var_Column1->FormatColumn = L"( ( 1:=( ( 0:=(1 rpos '') ) lfind `.`) ) < 0 ? =:0 : (=:0 left =:1) )";
	var_Column1->Visible = false;
Exganttlib_tlb::IConditionalFormatPtr var_ConditionalFormat = Gantt1->ConditionalFormats->Add(L"%C1 mod 2",TNoParam());
	var_ConditionalFormat->BackColor = RGB(240,240,240);
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	h = var_Items->AddItem(TVariant("Root 3"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
Gantt1->EndUpdate();

940:
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 4)

Gantt1->BeginUpdate();
Gantt1->LinesAtRoot = Exganttlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Gantt1->VisualDesign = TVariant(String("gBFLBWIgBAEHhEJAEGg6VAkHeLpgwChAOhULB8XAUUg8MAAREEHGMcgRCJ0ei8dhABDEcQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGc") +
"TSBCIZBqEqSZLiEZRQiiCYsS5GQBRWAkEwiBiEQTjea5CgOIAFS7LIqjRQEBxhIaZYIGaiQADENo9TxIMZAfBIHShK6NJABCCSQKkYx0HScRijDIEFwGIQmbKiej4DCi" +
"CQQW7OYYRVCNMQSfa8HivJyrcamfp/YBgOBYHb1eLVPR5LwfPCGUw1P6PLxkORZHimK4tSLHV7xVpMIwZFafIQhCCoHomS5NU7UNR0TQUFx9FaGX7rDDsGwLAJ6XRgF4" +
"bg2VpnHePpenAN4bH2GwHFmApSjEGBLnWOpRGOTBZHOegrE6BxPiWVJqCweQrn0LgJAWJBjwgaw1gKO5HmWch5h+fovF+G5bmich4BgfZkB8dynRUVYqiUR5rnmex/F6" +
"N4tn2AJfnebZ3DEXw3HWXgzAyIwgicKJKBKEIhCeCgiHyHYFEmSAFmqBghFIdgSCeIJygYDAyAgJx6AoIINAMOJNCgCZCGoGoLmMCI+CwJoihMNglCCIhzFCUg0EmMhg" +
"hWDBkAiQg9CUY4jEYN4Jk2IxklYJoJHIUg+CSZJSESFwkkkGI+FOFIJEIRhPhMCRJCSVoRrSBhiDgTZjHYT4PEkYhwhgJYm0SaIaiaSYuE+GQNlmCIBGCJxjhiZQ5AkM" +
"hAg6ExJCkPhPguaAiFYUAlAkKZ0g6HoOEmWR/GHcA4m0OwIlIJIHCRgQshGJhpjoaocieaZiC6GAimkUgehIOwnGYGYIGkah6jaE4rg6SpCjKK5rEOMYlGIGIihKOggl" +
"oFoqj6L5aGaBo6CkGIkAQjiPpCAAaJILCTJQlKPACDaXJgmSaJsnCdJ4nygKEoijKQpSmKcqCpKoqysK0rivLAsSyLMtC1LYty4Lkui7LwvS+L8wDBMIwzEMUxjHMgyT" +
"KMszDNM4zzQNE0jTNQ1TWNc2DZNo2zcN03jfOA4TiOM5DlOY5zoOk6jrOw7TuO88DxPI8z0PU9j3Pg+T6Ps/D9P4/0AQFAkDQRBUGQdCEJQpC0MQ1DkPRBEUSRNFEVBh" +
"FkXRhGQ9D6Dxfh+W5gGGd4QH2XQjCmDpFFaKoVB+D5Xmed5+H8YAHnIAh9EwV5Fl0d4MkMKJICmSgygSJAoEmMUCIPgnDCCIOQFYCxJjwFoCcA4kxoF+AIJkAgExegDE" +
"gEYQInAzCUAIOEGgfxiiRDYF1Q4EQ2BSCaEQYwbAiKREMpRSymFNDIAkAxT6oVRgSA2qdVKq1WqvVirMZQUhSCnBUMoIgoQRgnGSIQUgkg1hIHYAkAYMROAmHiLsE4xx" +
"SCxBwEwCQ0wmDdBsE0GYXBtg2CSPMFIuwYiQBYBQeAcwOCnBCCZgw0g0glBONAQgqQThCGgPQGoBQfiRGmOEZIPAXjsBoPAO4HRThhA0EQSA5BAgaCKJIGg3QdhOCmNU" +
"BoQAijTCIF0FwQxpCHDIPAYYMQGgtCmFcaQtRAjZCyFYSojQ2B2BoKwIYFApBXEIBsIQ1QsAWAWEwaA1xCgjAoIAQBAQ=");
Gantt1->Columns->Add(L"Column");
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child"));
Gantt1->EndUpdate();

939:
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 3)

Gantt1->BeginUpdate();
Exganttlib_tlb::IAppearancePtr var_Appearance = Gantt1->VisualAppearance;
	var_Appearance->Add(3,TVariant(String("gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS") +
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" +
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" +
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" +
"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" +
"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" +
"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA="));
	var_Appearance->Add(1,TVariant("CP:3 -2 -2 2 2"));
	var_Appearance->Add(4,TVariant(String("gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS") +
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" +
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" +
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" +
"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" +
"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" +
"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI="));
	var_Appearance->Add(2,TVariant("CP:4 -2 -2 2 2"));
Gantt1->LinesAtRoot = Exganttlib_tlb::LinesAtRootEnum::exGroupLinesAtRoot;
Gantt1->HasButtons = Exganttlib_tlb::ExpandButtonEnum::exCustom;
Gantt1->HasButtonsCustom[false] = 16777216;
Gantt1->HasButtonsCustom[true] = 33554432;
Gantt1->Columns->Add(L"Column");
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child"));
Gantt1->EndUpdate();

938:
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 2)

Gantt1->BeginUpdate();
Exganttlib_tlb::IAppearancePtr var_Appearance = Gantt1->VisualAppearance;
	var_Appearance->Add(1,TVariant("XP:TREEVIEW 2 1"));
	var_Appearance->Add(2,TVariant("XP:TREEVIEW 2 2"));
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exTreeGlyphOpen] = 0x1000000;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exTreeGlyphClose] = 0x2000000;
Gantt1->LinesAtRoot = Exganttlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Gantt1->Columns->Add(L"Column");
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child"));
Gantt1->EndUpdate();

937:
How can I find if the control is running in DPI mode
OutputDebugString( PChar(Gantt1->FormatABC(L"dpi = 1 ? `normal/stretch mode` : `dpi mode`",TNoParam(),TNoParam(),TNoParam())) );

936:
How can I change the visual appearance of the +/- buttons (method 1)

Gantt1->BeginUpdate();
Exganttlib_tlb::IAppearancePtr var_Appearance = Gantt1->VisualAppearance;
	var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS") +
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" +
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" +
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" +
"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" +
"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" +
"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA="));
	var_Appearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS") +
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" +
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" +
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" +
"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" +
"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" +
"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI="));
Gantt1->LinesAtRoot = Exganttlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exTreeGlyphOpen] = 0x1000000;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exTreeGlyphClose] = 0x2000000;
Gantt1->Columns->Add(L"Column");
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child"));
Gantt1->EndUpdate();

935:
How can I display the control's filter bar in the Items section only, as it was displayed before

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Col-1");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->Add(L"Col-2");
	var_Column1->DisplayFilterButton = true;
	var_Column1->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
Exganttlib_tlb::IColumnPtr var_Column2 = Gantt1->Columns->Add(L"Pos");
	var_Column2->AllowSizing = false;
	var_Column2->AllowSort = false;
	var_Column2->Width = 32;
	var_Column2->FormatColumn = L"1 apos ``";
	var_Column2->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item A"))),TVariant(1),TVariant("Sub-Item A"));
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item B"))),TVariant(1),TVariant("Sub-Item B"));
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item C"))),TVariant(1),TVariant("Sub-Item C"));
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarShort;
Exganttlib_tlb::IColumnPtr var_Column3 = Gantt1->Columns->get_Item(TVariant(1));
	var_Column3->FilterType = Exganttlib_tlb::FilterTypeEnum::exPattern;
	var_Column3->Filter = L"*B";
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

934:
FilterBarCaption ALL Keyword ( sample 2, result )

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	TVariant i = TVariant(Gantt1->FormatABC(L"value + 1",Gantt1->Items->get_ItemToIndex(Item),TNoParam(),TNoParam()));
	Gantt1->Items->set_CellImage(TVariant(Item),TVariant(3),i);
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->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="));
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Col-1");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->Add(L"Col-2");
	var_Column1->DisplayFilterButton = true;
	var_Column1->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
Exganttlib_tlb::IColumnPtr var_Column2 = Gantt1->Columns->Add(L"Check");
	var_Column2->set_Def(Exganttlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column2->DisplayFilterButton = true;
	var_Column2->DisplayFilterPattern = false;
	var_Column2->FilterType = Exganttlib_tlb::FilterTypeEnum::exCheck;
Exganttlib_tlb::IColumnPtr var_Column3 = Gantt1->Columns->Add(L"Image");
	var_Column3->DisplayFilterButton = true;
	var_Column3->FilterType = Exganttlib_tlb::FilterTypeEnum::exImage;
	var_Column3->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox;
Exganttlib_tlb::IColumnPtr var_Column4 = Gantt1->Columns->Add(L"Pos");
	var_Column4->AllowSizing = false;
	var_Column4->AllowSort = false;
	var_Column4->Width = 32;
	var_Column4->FormatColumn = L"1 apos ``";
	var_Column4->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item A"))),TVariant(1),TVariant("Sub-Item A"));
	long h = var_Items->AddItem(TVariant("Item B"));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Sub-Item B"));
	var_Items->set_CellState(TVariant(h),TVariant(2),1);
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item C"))),TVariant(1),TVariant("Sub-Item C"));
Gantt1->FilterBarFont = (IFontDisp*)(Gantt1->Font);
Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(Gantt1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam()));
Gantt1->FilterBarCaption = TVariant(String("(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[") +
"<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchi" +
"temcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount" +
" + ` item(s)`) )))");
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Exganttlib_tlb::IColumnPtr var_Column5 = Gantt1->Columns->get_Item(TVariant(0));
	var_Column5->FilterType = Exganttlib_tlb::FilterTypeEnum::exFilter;
	var_Column5->Filter = L"Item A|Item B";
Gantt1->Columns->get_Item(TVariant(2))->Filter = L"1";
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

933:
FilterBarCaption ALL Keyword ( sample 1 )

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	TVariant i = TVariant(Gantt1->FormatABC(L"value + 1",Gantt1->Items->get_ItemToIndex(Item),TNoParam(),TNoParam()));
	Gantt1->Items->set_CellImage(TVariant(Item),TVariant(3),i);
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->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="));
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Col-1");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->Add(L"Col-2");
	var_Column1->DisplayFilterButton = true;
	var_Column1->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
Exganttlib_tlb::IColumnPtr var_Column2 = Gantt1->Columns->Add(L"Check");
	var_Column2->set_Def(Exganttlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column2->DisplayFilterButton = true;
	var_Column2->DisplayFilterPattern = false;
	var_Column2->FilterType = Exganttlib_tlb::FilterTypeEnum::exCheck;
Exganttlib_tlb::IColumnPtr var_Column3 = Gantt1->Columns->Add(L"Image");
	var_Column3->DisplayFilterButton = true;
	var_Column3->FilterType = Exganttlib_tlb::FilterTypeEnum::exImage;
	var_Column3->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox;
Exganttlib_tlb::IColumnPtr var_Column4 = Gantt1->Columns->Add(L"Pos");
	var_Column4->AllowSizing = false;
	var_Column4->AllowSort = false;
	var_Column4->Width = 32;
	var_Column4->FormatColumn = L"1 apos ``";
	var_Column4->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item A"))),TVariant(1),TVariant("Sub-Item A"));
	long h = var_Items->AddItem(TVariant("Item B"));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Sub-Item B"));
	var_Items->set_CellState(TVariant(h),TVariant(2),1);
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item C"))),TVariant(1),TVariant("Sub-Item C"));
Gantt1->FilterBarFont = (IFontDisp*)(Gantt1->Font);
Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(Gantt1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam()));
Gantt1->FilterBarCaption = L"all";
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Exganttlib_tlb::IColumnPtr var_Column5 = Gantt1->Columns->get_Item(TVariant(0));
	var_Column5->FilterType = Exganttlib_tlb::FilterTypeEnum::exFilter;
	var_Column5->Filter = L"Item A|Item B";
Gantt1->Columns->get_Item(TVariant(2))->Filter = L"1";
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

932:
FilterBarCaption ALLUI Keyword ( sample 2, result )

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	TVariant i = TVariant(Gantt1->FormatABC(L"value + 1",Gantt1->Items->get_ItemToIndex(Item),TNoParam(),TNoParam()));
	Gantt1->Items->set_CellImage(TVariant(Item),TVariant(3),i);
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->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="));
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Col-1");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->Add(L"Col-2");
	var_Column1->DisplayFilterButton = true;
	var_Column1->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
Exganttlib_tlb::IColumnPtr var_Column2 = Gantt1->Columns->Add(L"Check");
	var_Column2->set_Def(Exganttlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column2->DisplayFilterButton = true;
	var_Column2->DisplayFilterPattern = false;
	var_Column2->FilterType = Exganttlib_tlb::FilterTypeEnum::exCheck;
Exganttlib_tlb::IColumnPtr var_Column3 = Gantt1->Columns->Add(L"Image");
	var_Column3->DisplayFilterButton = true;
	var_Column3->FilterType = Exganttlib_tlb::FilterTypeEnum::exImage;
	var_Column3->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox;
Exganttlib_tlb::IColumnPtr var_Column4 = Gantt1->Columns->Add(L"Pos");
	var_Column4->AllowSizing = false;
	var_Column4->AllowSort = false;
	var_Column4->Width = 32;
	var_Column4->FormatColumn = L"1 apos ``";
	var_Column4->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item A"))),TVariant(1),TVariant("Sub-Item A"));
	long h = var_Items->AddItem(TVariant("Item B"));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Sub-Item B"));
	var_Items->set_CellState(TVariant(h),TVariant(2),1);
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item C"))),TVariant(1),TVariant("Sub-Item C"));
Gantt1->FilterBarFont = (IFontDisp*)(Gantt1->Font);
Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(Gantt1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam()));
Gantt1->FilterBarCaption = TVariant(String("(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace ") +
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" +
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" +
"nt + ` item(s)`) )))");
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Exganttlib_tlb::IColumnPtr var_Column5 = Gantt1->Columns->get_Item(TVariant(0));
	var_Column5->FilterType = Exganttlib_tlb::FilterTypeEnum::exFilter;
	var_Column5->Filter = L"Item A|Item B";
Gantt1->Columns->get_Item(TVariant(2))->Filter = L"1";
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

931:
FilterBarCaption ALLUI Keyword ( sample 1 )

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	TVariant i = TVariant(Gantt1->FormatABC(L"value + 1",Gantt1->Items->get_ItemToIndex(Item),TNoParam(),TNoParam()));
	Gantt1->Items->set_CellImage(TVariant(Item),TVariant(3),i);
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->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="));
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Col-1");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->Add(L"Col-2");
	var_Column1->DisplayFilterButton = true;
	var_Column1->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
Exganttlib_tlb::IColumnPtr var_Column2 = Gantt1->Columns->Add(L"Check");
	var_Column2->set_Def(Exganttlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column2->DisplayFilterButton = true;
	var_Column2->DisplayFilterPattern = false;
	var_Column2->FilterType = Exganttlib_tlb::FilterTypeEnum::exCheck;
Exganttlib_tlb::IColumnPtr var_Column3 = Gantt1->Columns->Add(L"Image");
	var_Column3->DisplayFilterButton = true;
	var_Column3->FilterType = Exganttlib_tlb::FilterTypeEnum::exImage;
	var_Column3->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox;
Exganttlib_tlb::IColumnPtr var_Column4 = Gantt1->Columns->Add(L"Pos");
	var_Column4->AllowSizing = false;
	var_Column4->AllowSort = false;
	var_Column4->Width = 32;
	var_Column4->FormatColumn = L"1 apos ``";
	var_Column4->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item A"))),TVariant(1),TVariant("Sub-Item A"));
	long h = var_Items->AddItem(TVariant("Item B"));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Sub-Item B"));
	var_Items->set_CellState(TVariant(h),TVariant(2),1);
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item C"))),TVariant(1),TVariant("Sub-Item C"));
Gantt1->FilterBarFont = (IFontDisp*)(Gantt1->Font);
Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(Gantt1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam()));
Gantt1->FilterBarCaption = L"allui";
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Exganttlib_tlb::IColumnPtr var_Column5 = Gantt1->Columns->get_Item(TVariant(0));
	var_Column5->FilterType = Exganttlib_tlb::FilterTypeEnum::exFilter;
	var_Column5->Filter = L"Item A|Item B";
Gantt1->Columns->get_Item(TVariant(2))->Filter = L"1";
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

930:
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	TVariant i = TVariant(Gantt1->FormatABC(L"value + 1",Gantt1->Items->get_ItemToIndex(Item),TNoParam(),TNoParam()));
	Gantt1->Items->set_CellImage(TVariant(Item),TVariant(3),i);
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->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="));
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Col-1");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->Add(L"Col-2");
	var_Column1->DisplayFilterButton = true;
	var_Column1->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
Exganttlib_tlb::IColumnPtr var_Column2 = Gantt1->Columns->Add(L"Check");
	var_Column2->set_Def(Exganttlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column2->DisplayFilterButton = true;
	var_Column2->DisplayFilterPattern = false;
	var_Column2->FilterType = Exganttlib_tlb::FilterTypeEnum::exCheck;
Exganttlib_tlb::IColumnPtr var_Column3 = Gantt1->Columns->Add(L"Image");
	var_Column3->DisplayFilterButton = true;
	var_Column3->FilterType = Exganttlib_tlb::FilterTypeEnum::exImage;
	var_Column3->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox;
Exganttlib_tlb::IColumnPtr var_Column4 = Gantt1->Columns->Add(L"Pos");
	var_Column4->AllowSizing = false;
	var_Column4->AllowSort = false;
	var_Column4->Width = 32;
	var_Column4->FormatColumn = L"1 apos ``";
	var_Column4->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item A"))),TVariant(1),TVariant("Sub-Item A"));
	long h = var_Items->AddItem(TVariant("Item B"));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Sub-Item B"));
	var_Items->set_CellState(TVariant(h),TVariant(2),1);
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item C"))),TVariant(1),TVariant("Sub-Item C"));
Gantt1->FilterBarFont = (IFontDisp*)(Gantt1->Font);
Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(Gantt1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam()));
Gantt1->FilterBarCaption = TVariant(String("(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( ava") +
"ilable replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `" +
"` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount" +
" + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))");
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Exganttlib_tlb::IColumnPtr var_Column5 = Gantt1->Columns->get_Item(TVariant(0));
	var_Column5->FilterType = Exganttlib_tlb::FilterTypeEnum::exFilter;
	var_Column5->Filter = L"Item A|Item B";
Gantt1->Columns->get_Item(TVariant(2))->Filter = L"1";
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

929:
FilterBarCaption AVAILABLE Keyword ( sample 1 )

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	TVariant i = TVariant(Gantt1->FormatABC(L"value + 1",Gantt1->Items->get_ItemToIndex(Item),TNoParam(),TNoParam()));
	Gantt1->Items->set_CellImage(TVariant(Item),TVariant(3),i);
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->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="));
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Col-1");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->Add(L"Col-2");
	var_Column1->DisplayFilterButton = true;
	var_Column1->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
Exganttlib_tlb::IColumnPtr var_Column2 = Gantt1->Columns->Add(L"Check");
	var_Column2->set_Def(Exganttlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column2->DisplayFilterButton = true;
	var_Column2->DisplayFilterPattern = false;
	var_Column2->FilterType = Exganttlib_tlb::FilterTypeEnum::exCheck;
Exganttlib_tlb::IColumnPtr var_Column3 = Gantt1->Columns->Add(L"Image");
	var_Column3->DisplayFilterButton = true;
	var_Column3->FilterType = Exganttlib_tlb::FilterTypeEnum::exImage;
	var_Column3->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox;
Exganttlib_tlb::IColumnPtr var_Column4 = Gantt1->Columns->Add(L"Pos");
	var_Column4->AllowSizing = false;
	var_Column4->AllowSort = false;
	var_Column4->Width = 32;
	var_Column4->FormatColumn = L"1 apos ``";
	var_Column4->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item A"))),TVariant(1),TVariant("Sub-Item A"));
	long h = var_Items->AddItem(TVariant("Item B"));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Sub-Item B"));
	var_Items->set_CellState(TVariant(h),TVariant(2),1);
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item C"))),TVariant(1),TVariant("Sub-Item C"));
Gantt1->FilterBarFont = (IFontDisp*)(Gantt1->Font);
Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(Gantt1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam()));
Gantt1->FilterBarCaption = L"value + ` ` + available";
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Exganttlib_tlb::IColumnPtr var_Column5 = Gantt1->Columns->get_Item(TVariant(0));
	var_Column5->FilterType = Exganttlib_tlb::FilterTypeEnum::exFilter;
	var_Column5->Filter = L"Item A|Item B";
Gantt1->Columns->get_Item(TVariant(2))->Filter = L"1";
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

928:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 3, results )

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Col-1");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->Add(L"Col-2");
	var_Column1->DisplayFilterButton = true;
	var_Column1->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
Exganttlib_tlb::IColumnPtr var_Column2 = Gantt1->Columns->Add(L"Pos");
	var_Column2->AllowSizing = false;
	var_Column2->AllowSort = false;
	var_Column2->Width = 32;
	var_Column2->FormatColumn = L"1 apos ``";
	var_Column2->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item A"))),TVariant(1),TVariant("Sub-Item A"));
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item B"))),TVariant(1),TVariant("Sub-Item B"));
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item C"))),TVariant(1),TVariant("Sub-Item C"));
Gantt1->FilterBarFont = (IFontDisp*)(Gantt1->Font);
Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(Gantt1->FormatABC(L"`<fgcolor=808080>` + value + `</fgcolor>`",TVariant(Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam()));
Gantt1->FilterBarCaption = TVariant(String("(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) +") +
" ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replac" +
"e `]` with ` </b></bgcolor></fgcolor>`");
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarToggle;
Exganttlib_tlb::IColumnPtr var_Column3 = Gantt1->Columns->get_Item(TVariant(0));
	var_Column3->FilterType = Exganttlib_tlb::FilterTypeEnum::exFilter;
	var_Column3->Filter = L"Item A|Item B";
Exganttlib_tlb::IColumnPtr var_Column4 = Gantt1->Columns->get_Item(TVariant(1));
	var_Column4->FilterType = Exganttlib_tlb::FilterTypeEnum::exPattern;
	var_Column4->Filter = L"*B";
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

927:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Col-1");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->Add(L"Col-2");
	var_Column1->DisplayFilterButton = true;
	var_Column1->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
Exganttlib_tlb::IColumnPtr var_Column2 = Gantt1->Columns->Add(L"Pos");
	var_Column2->AllowSizing = false;
	var_Column2->AllowSort = false;
	var_Column2->Width = 32;
	var_Column2->FormatColumn = L"1 apos ``";
	var_Column2->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item A"))),TVariant(1),TVariant("Sub-Item A"));
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item B"))),TVariant(1),TVariant("Sub-Item B"));
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item C"))),TVariant(1),TVariant("Sub-Item C"));
Gantt1->FilterBarFont = (IFontDisp*)(Gantt1->Font);
Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(Gantt1->FormatABC(L"`<fgcolor=808080>` + value + `</fgcolor>`",TVariant(Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam()));
Gantt1->FilterBarCaption = L"value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`";
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarToggle;
Exganttlib_tlb::IColumnPtr var_Column3 = Gantt1->Columns->get_Item(TVariant(0));
	var_Column3->FilterType = Exganttlib_tlb::FilterTypeEnum::exFilter;
	var_Column3->Filter = L"Item A|Item B";
Exganttlib_tlb::IColumnPtr var_Column4 = Gantt1->Columns->get_Item(TVariant(1));
	var_Column4->FilterType = Exganttlib_tlb::FilterTypeEnum::exPattern;
	var_Column4->Filter = L"*B";
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

926:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Col-1");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->Add(L"Col-2");
	var_Column1->DisplayFilterButton = true;
	var_Column1->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
Exganttlib_tlb::IColumnPtr var_Column2 = Gantt1->Columns->Add(L"Pos");
	var_Column2->AllowSizing = false;
	var_Column2->AllowSort = false;
	var_Column2->Width = 32;
	var_Column2->FormatColumn = L"1 apos ``";
	var_Column2->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item A"))),TVariant(1),TVariant("Sub-Item A"));
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item B"))),TVariant(1),TVariant("Sub-Item B"));
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item C"))),TVariant(1),TVariant("Sub-Item C"));
Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(Gantt1->FormatABC(L"`<fgcolor=808080>` + value + `</fgcolor>`",TVariant(Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam()));
Gantt1->FilterBarCaption = L"value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`";
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarToggle;
Exganttlib_tlb::IColumnPtr var_Column3 = Gantt1->Columns->get_Item(TVariant(0));
	var_Column3->FilterType = Exganttlib_tlb::FilterTypeEnum::exFilter;
	var_Column3->Filter = L"Item A|Item B";
Exganttlib_tlb::IColumnPtr var_Column4 = Gantt1->Columns->get_Item(TVariant(1));
	var_Column4->FilterType = Exganttlib_tlb::FilterTypeEnum::exPattern;
	var_Column4->Filter = L"*B";
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

925:
Is it possible to automatically displays the control's filter label to the right

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Item");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->Add(L"Pos");
	var_Column1->AllowSizing = false;
	var_Column1->AllowSort = false;
	var_Column1->Width = 32;
	var_Column1->FormatColumn = L"1 apos ``";
	var_Column1->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Gantt1->FilterBarCaption = L"`<r>` + value";
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseOnRight | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarToggle;
Exganttlib_tlb::IColumnPtr var_Column2 = Gantt1->Columns->get_Item(TVariant(0));
	var_Column2->FilterType = Exganttlib_tlb::FilterTypeEnum::exFilter;
	var_Column2->Filter = L"Item B";
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

924:
How can I get the number of results/items being shown in the control's filter bar (sample 4)

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Item");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->Add(L"Pos");
	var_Column1->AllowSizing = false;
	var_Column1->AllowSort = false;
	var_Column1->Width = 32;
	var_Column1->FormatColumn = L"1 apos ``";
	var_Column1->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Gantt1->FilterBarFont = (IFontDisp*)(Gantt1->Font);
Gantt1->FilterBarPrompt = PChar(Gantt1->FormatABC(L"`<b>` + value",TVariant(Gantt1->FilterBarPrompt),TNoParam(),TNoParam()));
Gantt1->FilterBarCaption = TVariant(String("`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount ") +
"+ 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )");
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseOnRight | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseIfRequired | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Gantt1->EndUpdate();

923:
How can I get the number of results being shown in the control's filter bar (sample 3)

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->Columns->Add(L"Item")->DisplayFilterButton = true;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Pos");
	var_Column->AllowSizing = false;
	var_Column->AllowSort = false;
	var_Column->Width = 32;
	var_Column->FormatColumn = L"1 apos ``";
	var_Column->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Gantt1->FilterBarFont = (IFontDisp*)(Gantt1->Font);
Gantt1->FilterBarCaption = TVariant(String("`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount ") +
"+ 1) + ` result(s)` ) : ``)");
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->get_Item(TVariant(0));
	var_Column1->FilterType = Exganttlib_tlb::FilterTypeEnum::exFilter;
	var_Column1->Filter = L"Item A|Item B";
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

922:
How can I get the number of results being shown in the control's filter bar (sample 2, compact)

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->Columns->Add(L"Item")->DisplayFilterButton = true;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Pos");
	var_Column->AllowSizing = false;
	var_Column->AllowSort = false;
	var_Column->Width = 32;
	var_Column->FormatColumn = L"1 apos ``";
	var_Column->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Gantt1->FilterBarFont = (IFontDisp*)(Gantt1->Font);
Gantt1->FilterBarCaption = L"`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)";
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->get_Item(TVariant(0));
	var_Column1->FilterType = Exganttlib_tlb::FilterTypeEnum::exFilter;
	var_Column1->Filter = L"Item A|Item B";
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

921:
How can I get the number of results being shown in the control's filter bar (sample 1)

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->Columns->Add(L"Item")->DisplayFilterButton = true;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Pos");
	var_Column->AllowSizing = false;
	var_Column->AllowSort = false;
	var_Column->Width = 32;
	var_Column->FormatColumn = L"1 apos ``";
	var_Column->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Gantt1->FilterBarFont = (IFontDisp*)(Gantt1->Font);
Gantt1->FilterBarCaption = L"`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)";
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->get_Item(TVariant(0));
	var_Column1->FilterType = Exganttlib_tlb::FilterTypeEnum::exFilter;
	var_Column1->Filter = L"Item A|Item B";
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

920:
FilterBarCaption Predefined Keywords

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

// AfterExpandItem event - Fired after an item is expanded (collapsed).
void __fastcall TForm1::Gantt1AfterExpandItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Refresh();
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->LinesAtRoot = Exganttlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Gantt1->Columns->Add(L"Item")->DisplayFilterButton = true;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Check");
	var_Column->set_Def(Exganttlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->FilterType = Exganttlib_tlb::FilterTypeEnum::exCheck;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->Add(L"Pos");
	var_Column1->AllowSizing = false;
	var_Column1->AllowSort = false;
	var_Column1->Width = 32;
	var_Column1->FormatColumn = L"1 apos ``";
	var_Column1->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Item A"));
	long h = var_Items->AddItem(TVariant("Item B"));
	var_Items->set_CellState(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Sub-Item B1"))),TVariant(1),1);
	var_Items->InsertItem(h,TNoParam(),TVariant("Sub-Item B2"));
	var_Items->set_ExpandItem(h,true);
	var_Items->AddItem(TVariant("Item C"));
Gantt1->FilterInclude = Exganttlib_tlb::FilterIncludeEnum::exItemsWithChilds;
Gantt1->FilterBarFont = (IFontDisp*)(Gantt1->Font);
Gantt1->FilterBarCaption = TVariant(String("`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</") +
"i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>" +
": ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF>" +
"<i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</" +
"i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=8" +
"08080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount +" +
" `</fgcolor>`");
Gantt1->FilterBarPromptPattern = L"B";
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Exganttlib_tlb::IColumnPtr var_Column2 = Gantt1->Columns->get_Item(TVariant(0));
	var_Column2->FilterType = Exganttlib_tlb::FilterTypeEnum::exFilter;
	var_Column2->Filter = L"Item A|Item B";
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

919:
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->Columns->Add(L"Item")->DisplayFilterButton = true;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Pos");
	var_Column->AllowSizing = false;
	var_Column->AllowSort = false;
	var_Column->Width = 32;
	var_Column->FormatColumn = L"1 apos ``";
	var_Column->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Gantt1->FilterBarFont = (IFontDisp*)(Gantt1->Font);
Gantt1->FilterBarCaption = L"`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value";
Gantt1->FilterBarPromptPattern = L"B";
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->get_Item(TVariant(0));
	var_Column1->FilterType = Exganttlib_tlb::FilterTypeEnum::exFilter;
	var_Column1->Filter = L"Item A|Item B";
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

918:
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->Columns->Add(L"Item")->DisplayFilterButton = true;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Pos");
	var_Column->AllowSizing = false;
	var_Column->AllowSort = false;
	var_Column->Width = 32;
	var_Column->FormatColumn = L"1 apos ``";
	var_Column->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseOnRight | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarToggle | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Gantt1->FilterBarPrompt = PChar(Gantt1->FormatABC(L"`<r>` + value",TVariant(Gantt1->FilterBarPrompt),TNoParam(),TNoParam()));
Gantt1->EndUpdate();

917:
Just wondering if it is possible to show the filter bar's close button on the right ( sample 1 )

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->RightToLeft = true;
Gantt1->Columns->Add(L"Item")->DisplayFilterButton = true;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Pos");
	var_Column->AllowSizing = false;
	var_Column->AllowSort = false;
	var_Column->Width = 32;
	var_Column->FormatColumn = L"1 apos ``";
	var_Column->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarToggle | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Gantt1->EndUpdate();

916:
How can I change the visual appearance of the filter bar's close button (EBN)

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Exganttlib_tlb::IAppearancePtr var_Appearance = Gantt1->VisualAppearance;
	var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJ") +
"jyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKm" +
"SZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OR" +
"OicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2" +
"DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJX" +
"AiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaK" +
"JDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G" +
"0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEA" +
"kjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRS" +
"MRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhA" +
"QHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ"));
Gantt1->Columns->Add(L"Item")->DisplayFilterButton = true;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Pos");
	var_Column->AllowSizing = false;
	var_Column->AllowSort = false;
	var_Column->Width = 32;
	var_Column->FormatColumn = L"1 apos ``";
	var_Column->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarToggle | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exFooterFilterBarButton] = 0x1000000;
Gantt1->EndUpdate();

915:
How can I change the visual appearance of the filter bar's close button (solid)

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->Columns->Add(L"Item")->DisplayFilterButton = true;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Pos");
	var_Column->AllowSizing = false;
	var_Column->AllowSort = false;
	var_Column->Width = 32;
	var_Column->FormatColumn = L"1 apos ``";
	var_Column->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exFooterFilterBarButton] = RGB(255,0,0);
Gantt1->EndUpdate();

914:
Is it possible to prevent definitely showing the filter bar's close button

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->Columns->Add(L"Item")->DisplayFilterButton = true;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Pos");
	var_Column->AllowSizing = false;
	var_Column->AllowSort = false;
	var_Column->Width = 32;
	var_Column->FormatColumn = L"1 apos ``";
	var_Column->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exFooterFilterBarButton] = -1;
Gantt1->EndUpdate();

913:
Is it possible to show the close button only if there is a filter applied

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->Columns->Add(L"Item")->DisplayFilterButton = true;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Pos");
	var_Column->AllowSizing = false;
	var_Column->AllowSort = false;
	var_Column->Width = 32;
	var_Column->FormatColumn = L"1 apos ``";
	var_Column->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseIfRequired | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Gantt1->EndUpdate();

912:
The control's filter bar is not closed once I click the close button (toggle)

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->Columns->Add(L"Item")->DisplayFilterButton = true;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Pos");
	var_Column->AllowSizing = false;
	var_Column->AllowSort = false;
	var_Column->Width = 32;
	var_Column->FormatColumn = L"1 apos ``";
	var_Column->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
	var_Items->set_LockedItemCount(Exganttlib_tlb::VAlignmentEnum::BottomAlignment,1);
	long h = var_Items->get_LockedItem(Exganttlib_tlb::VAlignmentEnum::BottomAlignment,0);
	var_Items->set_ItemDivider(h,0);
	var_Items->set_CellCaption(TVariant(h),TVariant(0),TVariant("<c><fgcolor=808080>Press the CTRL + F to turn on/off the control's filter bar. ALT + Up/Down moves the focus."));
	var_Items->set_CellCaptionFormat(TVariant(h),TVariant(0),Exganttlib_tlb::CaptionFormatEnum::exHTML);
Gantt1->FilterBarCaption = L"`<r><fgcolor=808080>` + value";
Gantt1->FilterBarPromptPattern = L"B";
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarToggle | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->get_Item(TVariant(0));
	var_Column1->FilterType = Exganttlib_tlb::FilterTypeEnum::exFilter;
	var_Column1->Filter = L"Item B";
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

911:
How can I display the control's filter on a single line

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->Columns->Add(L"Item")->DisplayFilterButton = true;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Pos");
	var_Column->AllowSizing = false;
	var_Column->AllowSort = false;
	var_Column->Width = 32;
	var_Column->FormatColumn = L"1 apos ``";
	var_Column->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Gantt1->FilterBarCaption = L"len(value) ? `filter for: <fgcolor 808080>` + value  : `<fgcolor 808080>no filter`";
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarVisible;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->get_Item(TVariant(0));
	var_Column1->FilterType = Exganttlib_tlb::FilterTypeEnum::exFilter;
	var_Column1->Filter = L"Item A|Item B";
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

910:
How can I display the control's filter on a single line (prompt-combined)

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->Columns->Add(L"Item")->DisplayFilterButton = true;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Pos");
	var_Column->AllowSizing = false;
	var_Column->AllowSort = false;
	var_Column->Width = 32;
	var_Column->FormatColumn = L"1 apos ``";
	var_Column->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Gantt1->FilterBarCaption = L"`<r>` + value";
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->get_Item(TVariant(0));
	var_Column1->FilterType = Exganttlib_tlb::FilterTypeEnum::exFilter;
	var_Column1->Filter = L"Item A|Item B";
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

909:
How can I get the number of results after a filter is applied

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

// Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
void __fastcall TForm1::Gantt1Click(TObject *Sender)
{
	Gantt1->ClearFilter();
}

// FilterChange event - Occurs when the filter was changed.
void __fastcall TForm1::Gantt1FilterChange(TObject *Sender)
{
	OutputDebugString( L"Items.MatchItemCount" );
	OutputDebugString( PChar(Gantt1->Items->MatchItemCount) );
	OutputDebugString( PChar(Gantt1->FormatABC(L"value < 0 ? `filter applied: ` + abs(value + 1) + ` result(s)` : `no filter`",Gantt1->Items->MatchItemCount,TNoParam(),TNoParam())) );
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->Columns->Add(L"Item")->DisplayFilterButton = true;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Pos");
	var_Column->AllowSizing = false;
	var_Column->AllowSort = false;
	var_Column->Width = 32;
	var_Column->FormatColumn = L"1 apos ``";
	var_Column->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Gantt1->FilterBarPromptPattern = L"Item";
Gantt1->EndUpdate();

908:
How can I programmatically clear the control's filter
// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

// Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
void __fastcall TForm1::Gantt1Click(TObject *Sender)
{
	Gantt1->ClearFilter();
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->Columns->Add(L"Item")->DisplayFilterButton = true;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Pos");
	var_Column->AllowSizing = false;
	var_Column->AllowSort = false;
	var_Column->Width = 32;
	var_Column->FormatColumn = L"1 apos ``";
	var_Column->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Gantt1->FilterBarPromptPattern = L"B";
Gantt1->EndUpdate();

907:
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->Columns->Add(L"Item")->DisplayFilterButton = true;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Pos");
	var_Column->AllowSizing = false;
	var_Column->AllowSort = false;
	var_Column->Width = 32;
	var_Column->FormatColumn = L"1 apos ``";
	var_Column->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Gantt1->FilterBarPromptPattern = L"B";
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->get_Item(TVariant(0));
	var_Column1->FilterType = Exganttlib_tlb::FilterTypeEnum::exFilter;
	var_Column1->Filter = L"Item B";
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

906:
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->Columns->Add(L"Item")->DisplayFilterButton = true;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Pos");
	var_Column->AllowSizing = false;
	var_Column->AllowSort = false;
	var_Column->Width = 32;
	var_Column->FormatColumn = L"1 apos ``";
	var_Column->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Gantt1->FilterBarPromptPattern = L"B";
Gantt1->EndUpdate();

905:
Is it possible to prevent closing the control's filter bar, so it is always shown

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Gantt1AddItem(TObject *Sender,Exganttlib_tlb::HITEM   Item)
{
	Gantt1->Items->AddBar(Item,TVariant("Task"),TVariant(TDateTime(2017,12,4).operator double()),TVariant(TDateTime(2017,12,14).operator double()),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2017,12,2).operator double()));
	var_Chart->set_PaneWidth(false,256);
Gantt1->Columns->Add(L"Item")->DisplayFilterButton = true;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Pos");
	var_Column->AllowSizing = false;
	var_Column->AllowSort = false;
	var_Column->Width = 32;
	var_Column->FormatColumn = L"1 apos ``";
	var_Column->Position = 0;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Gantt1->FilterBarCaption = L"len(value) = 0 ? `<fgcolor=808080>no filter` : value";
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarVisible;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->get_Item(TVariant(0));
	var_Column1->FilterType = Exganttlib_tlb::FilterTypeEnum::exFilter;
	var_Column1->Filter = L"Item B";
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

904:
How do I change the drop down filter icon/button (black)

Gantt1->BeginUpdate();
Exganttlib_tlb::IAppearancePtr var_Appearance = Gantt1->VisualAppearance;
	var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ") +
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" +
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA"));
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x1000000;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exSplitBar] = RGB(240,240,240);
Gantt1->HeaderAppearance = Exganttlib_tlb::AppearanceEnum::None2;
Gantt1->BackColorHeader = RGB(0,0,0);
Gantt1->ForeColorHeader = RGB(255,255,255);
Gantt1->HeaderVisible = true;
Gantt1->BackColorLevelHeader = Gantt1->BackColor;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Filter");
	var_Column->DisplayFilterButton = true;
	var_Column->AllowSort = false;
	var_Column->AllowDragging = false;
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->set_PaneWidth(false,196);
	var_Chart->LevelCount = 2;
	var_Chart->BackColorLevelHeader = Gantt1->BackColorHeader;
	var_Chart->ForeColorLevelHeader = Gantt1->ForeColorHeader;
Gantt1->EndUpdate();

903:
How do I change the drop down filter icon/button (white)

Gantt1->BeginUpdate();
Exganttlib_tlb::IAppearancePtr var_Appearance = Gantt1->VisualAppearance;
	var_Appearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN") +
"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" +
"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" +
"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" +
"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" +
"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI="));
	var_Appearance->Add(1,TVariant("CP:2 -4 -4 2 4"));
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x1000000;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = Gantt1->BackColor;
Gantt1->HeaderAppearance = Exganttlib_tlb::AppearanceEnum::None2;
Gantt1->BackColorHeader = RGB(255,255,255);
Gantt1->BackColorLevelHeader = Gantt1->BackColor;
Gantt1->HeaderHeight = 24;
Gantt1->HeaderVisible = true;
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->set_PaneWidth(false,196);
	var_Chart->LevelCount = 2;
	var_Chart->BackColorLevelHeader = Gantt1->BackColorHeader;
	var_Chart->ForeColorLevelHeader = Gantt1->ForeColorHeader;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Filter");
	var_Column->DisplayFilterButton = true;
	var_Column->AllowSort = false;
	var_Column->AllowDragging = false;
Gantt1->EndUpdate();

902:
How can I display the week-number in ISO8601 format

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->set_PaneWidth(false,0);
	var_Chart->LevelCount = 2;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2007,12,12).operator double()));
	var_Chart->DrawGridLines = Exganttlib_tlb::GridLinesEnum::exAllLines;
	var_Chart->UnitScale = Exganttlib_tlb::UnitEnum::exWeek;
	var_Chart->WeekNumberAs = Exganttlib_tlb::WeekNumberAsEnum::exISO8601WeekNumber;
	var_Chart->FirstWeekDay = Exganttlib_tlb::WeekDayEnum::exMonday;
Gantt1->EndUpdate();

901:
How can I include the child items, when a filter is applied

Gantt1->BeginUpdate();
Gantt1->ColumnAutoResize = true;
Gantt1->ContinueColumnScroll = false;
Gantt1->MarkSearchColumn = false;
Gantt1->SearchColumnIndex = 1;
Gantt1->Indent = 16;
Gantt1->LinesAtRoot = Exganttlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Gantt1->FilterBarPromptVisible = true;
Gantt1->FilterBarPromptPattern = L"Nancy";
Gantt1->FilterInclude = Exganttlib_tlb::FilterIncludeEnum::exItemsWithChilds;
Gantt1->Chart->LevelCount = 2;
Exganttlib_tlb::IColumnsPtr var_Columns = Gantt1->Columns;
	var_Columns->Add(L"Name")->Width = 96;
	var_Columns->Add(L"Title")->Width = 96;
	var_Columns->Add(L"City");
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	long h0 = var_Items->AddItem(TVariant("Nancy Davolio"));
	var_Items->set_CellCaption(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
	var_Items->set_CellCaption(TVariant(h0),TVariant(2),TVariant("Seattle"));
	h0 = var_Items->InsertItem(h0,TNoParam(),TVariant("Andrew Fuller"));
	var_Items->set_CellCaption(TVariant(h0),TVariant(1),TVariant("Vice President, Sales"));
	var_Items->set_CellCaption(TVariant(h0),TVariant(2),TVariant("Tacoma"));
	h0 = var_Items->InsertItem(h0,TNoParam(),TVariant("Michael Suyama"));
	var_Items->set_CellCaption(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
	var_Items->set_CellCaption(TVariant(h0),TVariant(2),TVariant("London"));
	h0 = var_Items->AddItem(TVariant("Janet Leverling"));
	var_Items->set_CellCaption(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
	var_Items->set_CellCaption(TVariant(h0),TVariant(2),TVariant("Kirkland"));
	h0 = var_Items->InsertItem(h0,TNoParam(),TVariant("Margaret Peacock"));
	var_Items->set_CellCaption(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
	var_Items->set_CellCaption(TVariant(h0),TVariant(2),TVariant("Redmond"));
Gantt1->ApplyFilter();
Gantt1->EndUpdate();