991
Highlight the match once the filter is applied

// FilterChange event - Occurs when the filter was changed.
void __fastcall TForm1::Gantt1FilterChange(TObject *Sender)
{
	TVariant format = TVariant(Gantt1->FormatABC(L"`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`",TVariant(Gantt1->FilterBarPromptPattern),TNoParam(),TNoParam()));
	Gantt1->Columns->get_Item(TVariant(0))->FormatColumn = L"format";
	Gantt1->Columns->get_Item(TVariant(1))->FormatColumn = L"format";
	Gantt1->Columns->get_Item(TVariant(2))->FormatColumn = L"format";
}

Gantt1->BeginUpdate();
Gantt1->SelBackColor = Gantt1->BackColor;
Gantt1->SelForeColor = Gantt1->ForeColor;
Gantt1->ColumnAutoResize = true;
Gantt1->ContinueColumnScroll = false;
Gantt1->MarkSearchColumn = false;
Gantt1->SearchColumnIndex = 1;
Gantt1->HeaderAppearance = Exganttlib_tlb::AppearanceEnum::Etched;
Gantt1->HeaderHeight = 23;
Gantt1->BackColorLevelHeader = Gantt1->BackColor;
Gantt1->FilterBarCaption = L"`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)";
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Gantt1->FilterBarBackColor = Gantt1->BackColor;
Gantt1->FilterBarPromptPattern = L"and";
Exganttlib_tlb::IColumnsPtr var_Columns = Gantt1->Columns;
	Exganttlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Name");
		var_Column->set_Def(Exganttlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
		var_Column->FormatColumn = L"lower(value)";
	Exganttlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Title");
		var_Column1->set_Def(Exganttlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
		var_Column1->FormatColumn = L"lower(value)";
	Exganttlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"City");
		var_Column2->set_Def(Exganttlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
		var_Column2->FormatColumn = L"lower(value)";
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->AddItem(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"));
	var_Items->set_SelectItem(h0,true);
	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->AddItem(TVariant("Margaret Peacock"));
	var_Items->set_CellCaption(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
	var_Items->set_CellCaption(TVariant(h0),TVariant(2),TVariant("Redmond"));
	h0 = var_Items->AddItem(TVariant("Steven Buchanan"));
	var_Items->set_CellCaption(TVariant(h0),TVariant(1),TVariant("Sales Manager"));
	var_Items->set_CellCaption(TVariant(h0),TVariant(2),TVariant("London"));
	h0 = var_Items->AddItem(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("Robert King"));
	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("Laura Callahan"));
	var_Items->set_CellCaption(TVariant(h0),TVariant(1),TVariant("Inside Sales Coordinator"));
	var_Items->set_CellCaption(TVariant(h0),TVariant(2),TVariant("Seattle"));
	h0 = var_Items->AddItem(TVariant("Anne Dodsworth"));
	var_Items->set_CellCaption(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
	var_Items->set_CellCaption(TVariant(h0),TVariant(2),TVariant("London"));
Gantt1->EndUpdate();

990
ADOR, MDB (JET)

// 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;
		var_Items->AddBar(Item,TVariant("Task"),TVariant(var_Items->get_CellCaption(TVariant(Item),TVariant(2))),TVariant(var_Items->get_CellCaption(TVariant(Item),TVariant(4))),TNoParam(),TNoParam());
}

Gantt1->BeginUpdate();
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->set_PaneWidth(false,256);
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(1994,8,10).operator double()));
	var_Chart->LevelCount = 2;
Gantt1->ColumnAutoResize = false;
Gantt1->ContinueColumnScroll = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

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

989
Re-order the cell's caption, icons and images/pictures

Gantt1->BeginUpdate();
Gantt1->ColumnAutoResize = true;
Gantt1->Images(TVariant(String("gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmD" +
"cD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB"));
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"ToLeft");
	var_Column->set_Def(Exganttlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->Add(L"ToRight");
	var_Column1->set_Def(Exganttlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column1->set_Def(Exganttlib_tlb::DefColumnEnum::exCellDrawPartsOrder,TVariant("caption,picture,icons,icon,check"));
Gantt1->DefaultItemHeight = 32;
Gantt1->DrawGridLines = Exganttlib_tlb::GridLinesEnum::exVLines;
Gantt1->HeaderAppearance = Exganttlib_tlb::AppearanceEnum::Etched;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	long h = var_Items->AddItem(TVariant("Caption"));
	var_Items->set_CellImage(TVariant(h),TVariant(0),2);
	var_Items->set_CellImages(TVariant(h),TVariant(0),TVariant("1,2"));
	var_Items->set_CellPicture(TVariant(h),TVariant(0),Gantt1->ExecuteTemplate(TVariant(String("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLs") +
"GL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7" +
"FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0F" +
"CjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4" +
"wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/Ay" +
"QJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" +
"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSF" +
"pTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5si" +
"qbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8Yx" +
"XhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8D" +
"PH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZA" +
"mBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" +
"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rBy" +
"jJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0W" +
"gLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTH" +
"CBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB" +
"1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHw" +
"L4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" +
"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYd" +
"guhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCG" +
"USNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmh" +
"AFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg" +
"6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GF" +
"ZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" +
"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsA" +
"YAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg" +
"5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARA" +
"SA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9A" +
"IBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcA" +
"dAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" +
"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzA" +
"hhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARB" +
"vgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURA" +
"Ghvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh" +
"/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3s" +
"UhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" +
"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8x" +
"MhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA" +
"2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXB" +
"WhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBag" +
"xAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9B" +
"tnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" +
"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDA" +
"jAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBih" +
"Fh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdA" +
"uAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeA" +
"FBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg" +
"3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" +
"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCB" +
"QAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxh" +
"Tg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5" +
"WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJA" +
"kgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEg" +
"qgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" +
"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADB" +
"Wh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMA" +
"GAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFO" +
"rC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZT" +
"WP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwd" +
"i4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" +
"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnL" +
"Cs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIy" +
"DQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhO" +
"ApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj" +
"5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)")));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant(var_Items->get_CellCaption(TVariant(h),TVariant(0))));
	var_Items->set_CellHAlignment(TVariant(h),TVariant(1),Exganttlib_tlb::AlignmentEnum::RightAlignment);
	var_Items->set_CellImage(TVariant(h),TVariant(1),var_Items->get_CellImage(TVariant(h),TVariant(0)));
	var_Items->set_CellImages(TVariant(h),TVariant(1),TVariant("2,1"));
	var_Items->set_CellPicture(TVariant(h),TVariant(1),var_Items->get_CellPicture(TVariant(h),TVariant(0)));
	h = var_Items->AddItem(TVariant("<b>HTML</b> <off 4>Caption"));
	var_Items->set_CellCaptionFormat(TVariant(h),TVariant(0),Exganttlib_tlb::CaptionFormatEnum::exHTML);
	var_Items->set_CellImage(TVariant(h),TVariant(0),2);
	var_Items->set_CellImages(TVariant(h),TVariant(0),TVariant("1,2"));
	var_Items->set_CellPicture(TVariant(h),TVariant(0),Gantt1->ExecuteTemplate(TVariant(String("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLs") +
"GL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7" +
"FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0F" +
"CjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4" +
"wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/Ay" +
"QJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" +
"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSF" +
"pTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5si" +
"qbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8Yx" +
"XhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8D" +
"PH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZA" +
"mBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" +
"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rBy" +
"jJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0W" +
"gLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTH" +
"CBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB" +
"1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHw" +
"L4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" +
"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYd" +
"guhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCG" +
"USNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmh" +
"AFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg" +
"6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GF" +
"ZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" +
"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsA" +
"YAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg" +
"5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARA" +
"SA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9A" +
"IBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcA" +
"dAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" +
"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzA" +
"hhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARB" +
"vgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURA" +
"Ghvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh" +
"/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3s" +
"UhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" +
"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8x" +
"MhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA" +
"2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXB" +
"WhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBag" +
"xAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9B" +
"tnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" +
"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDA" +
"jAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBih" +
"Fh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdA" +
"uAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeA" +
"FBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg" +
"3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" +
"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCB" +
"QAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxh" +
"Tg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5" +
"WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJA" +
"kgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEg" +
"qgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" +
"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADB" +
"Wh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMA" +
"GAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFO" +
"rC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZT" +
"WP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwd" +
"i4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" +
"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnL" +
"Cs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIy" +
"DQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhO" +
"ApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj" +
"5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)")));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant(var_Items->get_CellCaption(TVariant(h),TVariant(0))));
	var_Items->set_CellCaptionFormat(TVariant(h),TVariant(1),Exganttlib_tlb::CaptionFormatEnum::exHTML);
	var_Items->set_CellHAlignment(TVariant(h),TVariant(1),Exganttlib_tlb::AlignmentEnum::RightAlignment);
	var_Items->set_CellImage(TVariant(h),TVariant(1),var_Items->get_CellImage(TVariant(h),TVariant(0)));
	var_Items->set_CellImages(TVariant(h),TVariant(1),TVariant("2,1"));
	var_Items->set_CellPicture(TVariant(h),TVariant(1),var_Items->get_CellPicture(TVariant(h),TVariant(0)));
Gantt1->EndUpdate();

988
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)

// AddColumn event - Fired after a new column has been added.
void __fastcall TForm1::Gantt1AddColumn(TObject *Sender,Exganttlib_tlb::IColumn   *Column)
{
	// Column.Def(48) = 2
	// Column.Def(49) = 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(2022,1,2).operator double()),TVariant(TDateTime(2022,1,8).operator double()),TNoParam(),TVariant("<img>1</img>"));
}

Gantt1->BeginUpdate();
Gantt1->ImageSize = 32;
Gantt1->DefaultItemHeight = 36;
Gantt1->HeaderHeight = Gantt1->DefaultItemHeight;
Gantt1->SortBarHeight = Gantt1->DefaultItemHeight;
Gantt1->Font->Size = TVariant(long(16));
Gantt1->FilterBarFont->Size = TVariant(Gantt1->Font->Size);
Gantt1->ToolTipFont->Size = TVariant(Gantt1->Font->Size);
Gantt1->Indent = 26;
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(2022,1,1).operator double()));
	var_Chart->Bars->get_Item(TVariant("Task"))->Height = 22;
Gantt1->Images(TVariant(String("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq") +
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" +
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" +
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" +
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" +
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" +
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" +
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" +
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" +
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" +
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" +
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" +
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" +
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" +
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" +
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" +
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA=="));
Exganttlib_tlb::IAppearancePtr var_Appearance = Gantt1->VisualAppearance;
	var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj") +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" +
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" +
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" +
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" +
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" +
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" +
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" +
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="));
	var_Appearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj") +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" +
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" +
"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" +
"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" +
"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" +
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" +
"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" +
"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" +
"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" +
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" +
"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" +
"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" +
"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" +
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" +
"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" +
"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" +
"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" +
"gRBCCQAgQEA=="));
	var_Appearance->Add(3,TVariant(String("gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj") +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" +
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" +
"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" +
"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" +
"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" +
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" +
"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" +
"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" +
"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" +
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" +
"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" +
"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" +
"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" +
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" +
"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" +
"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI="));
	var_Appearance->Add(4,TVariant(String("gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH") +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="));
Gantt1->BackColorHeader = 0x4c6c6c6;
Gantt1->SelBackColor = 0x4000000;
Gantt1->SelForeColor = RGB(0,0,1);
Gantt1->CheckImage[Exganttlib_tlb::CheckStateEnum::Unchecked] = 16777216;
Gantt1->CheckImage[Exganttlib_tlb::CheckStateEnum::Checked] = 33554432;
Gantt1->CheckImage[Exganttlib_tlb::CheckStateEnum::PartialChecked] = 50331648;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exSelBackColorFilter] = Gantt1->SelBackColor;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exSelForeColorFilter] = Gantt1->SelForeColor;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exBackColorFilter] = Gantt1->BackColor;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exForeColorFilter] = Gantt1->ForeColor;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x4000000;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x4010101;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exFooterFilterBarButton] = 0x40000ff;
Gantt1->HeaderAppearance = Exganttlib_tlb::AppearanceEnum::Etched;
Gantt1->ShowFocusRect = false;
Gantt1->SortBarVisible = true;
Gantt1->BackColorSortBar = Gantt1->BackColor;
Gantt1->BackColorLevelHeader = Gantt1->BackColor;
Gantt1->FilterBarDropDownHeight = 1;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Check");
	var_Column->set_Def(Exganttlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->PartialCheck = true;
	var_Column->Width = 128;
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Exganttlib_tlb::FilterListEnum::exShowCheckBox;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->Add(L"Pos");
	var_Column1->FormatColumn = L"1 pos ``";
	var_Column1->AllowSort = false;
	var_Column1->Width = 48;
	var_Column1->AllowSizing = false;
	var_Column1->Alignment = Exganttlib_tlb::AlignmentEnum::CenterAlignment;
	var_Column1->HeaderAlignment = Exganttlib_tlb::AlignmentEnum::CenterAlignment;
Exganttlib_tlb::IColumnPtr var_Column2 = Gantt1->Columns->Add(L"Image");
	var_Column2->DisplayFilterButton = true;
	var_Column2->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
	var_Column2->FilterType = Exganttlib_tlb::FilterTypeEnum::exImage;
	var_Column2->DisplayExpandButton = true;
	var_Column2->ExpandColumns = L"1,2,3";
	var_Column2->Width = 128;
	var_Column2->HeaderImage = 1;
Exganttlib_tlb::IColumnPtr var_Column3 = Gantt1->Columns->Add(L"Images");
	var_Column3->set_Def(Exganttlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column3->Width = 196;
	var_Column3->HTMLCaption = L"<img>1</img><img>2</img><img>3</img> Images";
Gantt1->Columns->get_Item(TVariant("Pos"))->Position = 3;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	long hR = var_Items->AddItem(TVariant("Root"));
	var_Items->set_ItemDivider(hR,0);
	var_Items->set_ItemDividerLine(hR,Exganttlib_tlb::DividerLineEnum::EmptyLine);
	long h = var_Items->InsertItem(hR,TNoParam(),TVariant("Child A"));
	var_Items->set_CellImage(TVariant(h),TVariant(2),1);
	var_Items->set_CellImages(TVariant(h),TVariant(3),TVariant("1,2,3"));
	var_Items->set_CellCaption(TVariant(h),TVariant(3),TVariant("123"));
	h = var_Items->InsertItem(hR,TNoParam(),TVariant("Child B"));
	var_Items->set_CellState(TVariant(h),TVariant(0),1);
	var_Items->set_CellImage(TVariant(h),TVariant(2),3);
	var_Items->set_CellImages(TVariant(h),TVariant(3),TVariant("2,3,1"));
	var_Items->set_CellCaption(TVariant(h),TVariant(3),TVariant("231"));
	var_Items->set_SelectItem(h,true);
	h = var_Items->InsertItem(hR,TNoParam(),TVariant("Child C"));
	var_Items->set_CellImage(TVariant(h),TVariant(2),2);
	var_Items->set_CellState(TVariant(h),TVariant(3),1);
	var_Items->set_CellCaption(TVariant(h),TVariant(3),TVariant("312"));
	var_Items->set_CellImages(TVariant(h),TVariant(3),TVariant("3,1,2"));
	var_Items->set_ExpandItem(hR,true);
Gantt1->EndUpdate();

987
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)

// AddColumn event - Fired after a new column has been added.
void __fastcall TForm1::Gantt1AddColumn(TObject *Sender,Exganttlib_tlb::IColumn   *Column)
{
	// Column.Def(48) = 2
	// Column.Def(49) = 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(2022,1,2).operator double()),TVariant(TDateTime(2022,1,8).operator double()),TNoParam(),TVariant("<img>1</img>"));
}

Gantt1->BeginUpdate();
Gantt1->Chart->set_FirstVisibleDate(TVariant(TDateTime(2022,1,1).operator double()));
Gantt1->ImageSize = 16;
Gantt1->Images(TVariant(String("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq") +
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" +
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" +
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" +
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" +
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="));
Exganttlib_tlb::IAppearancePtr var_Appearance = Gantt1->VisualAppearance;
	var_Appearance->Add(4,TVariant(String("gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH") +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="));
Gantt1->BackColorHeader = 0x4c6c6c6;
Gantt1->SelBackColor = 0x4000000;
Gantt1->SelForeColor = RGB(0,0,1);
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exSelBackColorFilter] = Gantt1->SelBackColor;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exSelForeColorFilter] = Gantt1->SelForeColor;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exBackColorFilter] = Gantt1->BackColor;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exForeColorFilter] = Gantt1->ForeColor;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x4000000;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x4010101;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exFooterFilterBarButton] = 0x40000ff;
Gantt1->HeaderAppearance = Exganttlib_tlb::AppearanceEnum::Etched;
Gantt1->ShowFocusRect = false;
Gantt1->SortBarVisible = true;
Gantt1->BackColorSortBar = Gantt1->BackColor;
Gantt1->BackColorLevelHeader = Gantt1->BackColor;
Gantt1->FilterBarDropDownHeight = 1;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Check");
	var_Column->set_Def(Exganttlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->PartialCheck = true;
	var_Column->Width = 128;
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Exganttlib_tlb::FilterListEnum::exShowCheckBox;
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->Add(L"Pos");
	var_Column1->FormatColumn = L"1 pos ``";
	var_Column1->AllowSort = false;
	var_Column1->Width = 48;
	var_Column1->AllowSizing = false;
	var_Column1->Alignment = Exganttlib_tlb::AlignmentEnum::CenterAlignment;
	var_Column1->HeaderAlignment = Exganttlib_tlb::AlignmentEnum::CenterAlignment;
Exganttlib_tlb::IColumnPtr var_Column2 = Gantt1->Columns->Add(L"Image");
	var_Column2->DisplayFilterButton = true;
	var_Column2->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
	var_Column2->FilterType = Exganttlib_tlb::FilterTypeEnum::exImage;
	var_Column2->DisplayExpandButton = true;
	var_Column2->ExpandColumns = L"1,2,3";
	var_Column2->Width = 128;
	var_Column2->HeaderImage = 1;
Exganttlib_tlb::IColumnPtr var_Column3 = Gantt1->Columns->Add(L"Images");
	var_Column3->set_Def(Exganttlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column3->Width = 196;
	var_Column3->HTMLCaption = L"<img>1</img><img>2</img><img>3</img> Images";
Gantt1->Columns->get_Item(TVariant("Pos"))->Position = 3;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	long hR = var_Items->AddItem(TVariant("Root"));
	var_Items->set_ItemDivider(hR,0);
	var_Items->set_ItemDividerLine(hR,Exganttlib_tlb::DividerLineEnum::EmptyLine);
	long h = var_Items->InsertItem(hR,TNoParam(),TVariant("Child A"));
	var_Items->set_CellImage(TVariant(h),TVariant(2),1);
	var_Items->set_CellImages(TVariant(h),TVariant(3),TVariant("1,2,3"));
	var_Items->set_CellCaption(TVariant(h),TVariant(3),TVariant("123"));
	h = var_Items->InsertItem(hR,TNoParam(),TVariant("Child B"));
	var_Items->set_CellState(TVariant(h),TVariant(0),1);
	var_Items->set_CellImage(TVariant(h),TVariant(2),3);
	var_Items->set_CellImages(TVariant(h),TVariant(3),TVariant("2,3,1"));
	var_Items->set_CellCaption(TVariant(h),TVariant(3),TVariant("231"));
	var_Items->set_SelectItem(h,true);
	h = var_Items->InsertItem(hR,TNoParam(),TVariant("Child C"));
	var_Items->set_CellImage(TVariant(h),TVariant(2),2);
	var_Items->set_CellState(TVariant(h),TVariant(3),1);
	var_Items->set_CellCaption(TVariant(h),TVariant(3),TVariant("312"));
	var_Items->set_CellImages(TVariant(h),TVariant(3),TVariant("3,1,2"));
	var_Items->set_ExpandItem(hR,true);
Gantt1->EndUpdate();

986
The user clicks the drop-down filter, select a value and the control's list filters for the selected item(s). Is there a way for when the user then goes to the next column to add another filter and the drop down arrow is clicked for the list of values they can filter by to be limited to what is being displayed in the list due to the first filter they set

// AddColumn event - Fired after a new column has been added.
void __fastcall TForm1::Gantt1AddColumn(TObject *Sender,Exganttlib_tlb::IColumn   *Column)
{
}

// 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;
		var_Items->AddBar(Item,TVariant("Task"),TVariant(var_Items->get_CellCaption(TVariant(Item),TVariant(2))),TVariant(var_Items->get_CellCaption(TVariant(Item),TVariant(4))),TNoParam(),TNoParam());
}

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

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGantt\\Sample\\Access2007\\sample.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Gantt1->DataSource = (IDispatch*)rs;
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->set_FirstVisibleDate(TVariant(TDateTime(1994,8,4).operator double()));
	var_Chart->LevelCount = 2;
	var_Chart->set_PaneWidth(false,290);
Gantt1->Columns->get_Item(TVariant("ShipVia"))->Position = 2;
Gantt1->EndUpdate();

985
Is it possible to set from code, a column sort without being inserted in the sortbar

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

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGantt\\Sample\\Access2007\\sample.accdb"),Adodb_tlb::CursorTypeEnum::adOpenKeyset,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Gantt1->DataSource = (IDispatch*)rs;
Gantt1->SortBarVisible = true;
Gantt1->Layout = L"singlesort=\"C1:1\"";
Gantt1->EndUpdate();

984
Is it possible to view all events the control fires
// 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());
}

// Event event - Notifies the application once the control fires an event.
void __fastcall TForm1::Gantt1Event(TObject *Sender,long   EventID)
{
	OutputDebugString( PChar(Gantt1->EventParam[-2]) );
}

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();

983
How can I prevent expanding/collapsing the child items

// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
void __fastcall TForm1::Gantt1BeforeExpandItem(TObject *Sender,Exganttlib_tlb::HITEM   Item,Variant *   Cancel)
{
	Cancel = Gantt1->Items->get_ItemParent(Item);
}

Gantt1->BeginUpdate();
Gantt1->SingleSel = false;
Gantt1->Columns->Add(L"Default");
Gantt1->LinesAtRoot = Exganttlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(var_Items->InsertItem(h,TNoParam(),TVariant("Child 1.1")),TNoParam(),TVariant("Child"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1.2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(var_Items->InsertItem(h,TNoParam(),TVariant("Child 2.1")),TNoParam(),TVariant("Child"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2.2"));
	var_Items->set_ExpandItem(h,true);
Gantt1->EndUpdate();

982
How can I display an item of picture type

Gantt1->BeginUpdate();
Gantt1->LinesAtRoot = Exganttlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Gantt1->ScrollBySingleLine = false;
Gantt1->HeaderAppearance = Exganttlib_tlb::AppearanceEnum::Etched;
Gantt1->HeaderHeight = 24;
Gantt1->Columns->Add(L"Artikel")->HTMLCaption = L"<u>Artikel";
Gantt1->Columns->Add(L"Waarde")->HTMLCaption = L"<u>Waarde";
Gantt1->HTMLPicture[L"T22128"] = TVariant("c:\\exontrol\\images\\zipdisk.gif");
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	long h = var_Items->AddItem(TVariant("T22128-28)2D"));
	long h1 = var_Items->InsertItem(h,TNoParam(),TVariant("<img>T22128:128</img>"));
	var_Items->set_CellCaptionFormat(TVariant(h1),TVariant(0),Exganttlib_tlb::CaptionFormatEnum::exHTML);
	var_Items->set_ItemHeight(h1,128);
	h1 = var_Items->InsertItem(h,TNoParam(),TVariant("werkvoorbereiding"));
	var_Items->set_CellCaption(TVariant(h1),TVariant(1),TVariant("5.80"));
	var_Items->set_CellBold(TVariant(h1),TVariant(1),true);
	var_Items->set_CellCaption(TVariant(var_Items->InsertItem(h1,TNoParam(),TVariant("Type"))),TVariant(1),TVariant("Eenvoudig"));
	var_Items->set_CellCaption(TVariant(var_Items->InsertItem(h1,TNoParam(),TVariant("Prijs p/uur"))),TVariant(1),TVariant("60,00"));
	var_Items->set_CellCaption(TVariant(var_Items->InsertItem(h1,TNoParam(),TVariant("Marhe"))),TVariant(1),TVariant("15,00%"));
	var_Items->set_CellCaption(TVariant(var_Items->InsertItem(h1,TNoParam(),TVariant("Insteltijd min."))),TVariant(1),TVariant("5,00"));
	var_Items->set_CellCaption(TVariant(var_Items->InsertItem(h1,TNoParam(),TVariant("Aantal"))),TVariant(1),TVariant(1));
	var_Items->set_CellCaption(TVariant(var_Items->InsertItem(h1,TNoParam(),TVariant("Kostprije"))),TVariant(1),TVariant("5,00"));
	var_Items->set_ExpandItem(h1,true);
	h1 = var_Items->InsertItem(h,TNoParam(),TVariant("materiall"));
	var_Items->set_CellCaption(TVariant(h1),TVariant(1),TVariant("14.82"));
	var_Items->set_CellBold(TVariant(h1),TVariant(1),true);
	var_Items->set_ItemHasChildren(h1,true);
	h1 = var_Items->InsertItem(h,TNoParam(),TVariant("snijden"));
	var_Items->set_CellCaption(TVariant(h1),TVariant(1),TVariant("3.13"));
	var_Items->set_CellBold(TVariant(h1),TVariant(1),true);
	var_Items->set_ItemHasChildren(h1,true);
	var_Items->set_ExpandItem(h,true);
Gantt1->EndUpdate();

981
Dark mode

Gantt1->BeginUpdate();
String back = 65536;
String fore = 16777215;
Gantt1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ") +
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" +
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA"));
Gantt1->VisualAppearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAAEhABPMIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwHCMIhiGwcAChEZYHgkMYmDAMUhSE78axHG6PY7kKZ4b") +
"iaKIqQLLEhSfJ0YyBECBZpfebIbjmIZMSLEIxDKItJSpCIaRgqWS6ahGO4JUbUFLQHT9IR4daIYRgEEBA"));
Gantt1->VisualAppearance->Add(3,TVariant(String("gBFLBCJwBAEHhEJAAEhABUUIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwGAsEwjAoYAChEaILgkMw2DBIQwgJIMEr/G6RZxjeL5C") +
"jmG4nDhKMpybAcXxjBIYZJgOQpXb+PobTrNNLzfRFAxVAaWJikcZ4HpIAJNVLFdQ0XYMNSBISsBqrKiKcpeIIDWBZMbRZT1ZABCIZBpEW6LahENQwXrCN74DYkNTdKax" +
"bbuaaXLhGCYBgIA=="));
Gantt1->HeaderAppearance = Exganttlib_tlb::AppearanceEnum::Bump;
Gantt1->BackColor = back;
Gantt1->BackColorHeader = back;
Gantt1->BackColorLevelHeader = back;
Gantt1->BackColorSortBar = back;
Gantt1->BackColorSortBarCaption = back;
Gantt1->FilterBarBackColor = back;
Gantt1->FilterBarForeColor = fore;
Gantt1->ForeColor = fore;
Gantt1->ForeColorHeader = fore;
Gantt1->ForeColorSortBar = fore;
Gantt1->SelBackColor = fore;
Gantt1->SelForeColor = back;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x1000000;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exToolTipAppearance] = 0x3000000;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exToolTipBackColor] = back;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exToolTipForeColor] = fore;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exSelBackColorFilter] = fore;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exSelForeColorFilter] = back;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exBackColorFilter] = back;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exForeColorFilter] = fore;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exSortBarLinkColor] = back;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exTreeLinesColor] = fore;
Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarExclude] = L"<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>";
Exganttlib_tlb::IChartPtr var_Chart = Gantt1->Chart;
	var_Chart->BackColor = back;
	var_Chart->BackColorLevelHeader = back;
	var_Chart->ForeColor = fore;
	var_Chart->ForeColorLevelHeader = fore;
Gantt1->EndUpdate();

980
How can I specify the cell's outline, border or lines around, when the cell gets selected

Gantt1->BeginUpdate();
Gantt1->AttachTemplate(TVariant("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}"));
Exganttlib_tlb::IAppearancePtr var_Appearance = Gantt1->VisualAppearance;
	var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH") +
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" +
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" +
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" +
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA="));
	var_Appearance->Add(2,TVariant("CP:1 -4 0 0 0"));
Gantt1->SelBackColor = 0x2000000;
Gantt1->SelForeColor = RGB(0,0,1);
Gantt1->FullRowSelect = false;
Gantt1->ShowFocusRect = false;
Gantt1->DefaultItemHeight = 24;
Gantt1->HeaderHeight = 24;
Gantt1->DrawGridLines = Exganttlib_tlb::GridLinesEnum::exVLines;
Gantt1->Columns->Add(L"C1");
Gantt1->Columns->Add(L"C2");
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Cell 1"))),TVariant(1),TVariant("Cell 2"));
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Cell 3"))),TVariant(1),TVariant("Cell 4"));
Gantt1->Items->set_SelectPos(TVariant(1));
Gantt1->SelectColumnIndex = 1;
Gantt1->EndUpdate();

979
How can I specify the cell's outline, border or lines around, when the item gets selected

Gantt1->BeginUpdate();
Gantt1->AttachTemplate(TVariant("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}"));
Gantt1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH") +
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" +
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" +
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" +
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA="));
Gantt1->SelBackColor = 0x1000000;
Gantt1->SelForeColor = RGB(0,0,1);
Gantt1->ShowFocusRect = false;
Gantt1->DefaultItemHeight = 24;
Gantt1->HeaderHeight = 24;
Gantt1->DrawGridLines = Exganttlib_tlb::GridLinesEnum::exVLines;
Gantt1->Columns->Add(L"C1");
Gantt1->Columns->Add(L"C2");
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Cell 1"))),TVariant(1),TVariant("Cell 2"));
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Cell 3"))),TVariant(1),TVariant("Cell 4"));
	var_Items->set_SelectPos(TVariant(1));
Gantt1->EndUpdate();

978
How can I specify the cell's outline, border or lines around

Gantt1->BeginUpdate();
Gantt1->AttachTemplate(TVariant("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}"));
Gantt1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH") +
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" +
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" +
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" +
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA="));
Gantt1->SelBackMode = Exganttlib_tlb::BackModeEnum::exTransparent;
Gantt1->ShowFocusRect = false;
Gantt1->DefaultItemHeight = 24;
Gantt1->HeaderHeight = 24;
Gantt1->DrawGridLines = Exganttlib_tlb::GridLinesEnum::exVLines;
Gantt1->Columns->Add(L"C1");
Gantt1->Columns->Add(L"C2");
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Cell 1"))),TVariant(1),TVariant("Cell 2"));
	long h = var_Items->AddItem(TVariant("Cell 2"));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Cell 3"));
	var_Items->set_CellBackColor(TVariant(h),TVariant(1),0x1000000);
Gantt1->EndUpdate();

977
Is it possible to highligth the match while a filter is applied

// AddColumn event - Fired after a new column has been added.
void __fastcall TForm1::Gantt1AddColumn(TObject *Sender,Exganttlib_tlb::IColumn   *Column)
{
	// Column.Def(17) = 1
}

// FilterChange event - Occurs when the filter was changed.
void __fastcall TForm1::Gantt1FilterChange(TObject *Sender)
{
	TVariant format = TVariant(Gantt1->FormatABC(L"`value replace '` + value + `' with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`",TVariant(Gantt1->FilterBarPromptPattern),TNoParam(),TNoParam()));
	Gantt1->Columns->get_Item(TVariant(0))->FormatColumn = L"format";
	Gantt1->Columns->get_Item(TVariant(1))->FormatColumn = L"format";
}

Gantt1->BeginUpdate();
Gantt1->DrawGridLines = Exganttlib_tlb::GridLinesEnum::exVLines;
Gantt1->HeaderAppearance = Exganttlib_tlb::AppearanceEnum::Etched;
Gantt1->Columns->Add(L"Col 1");
Gantt1->Columns->Add(L"Col 2");
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("219 Smith"))),TVariant(1),TVariant("Ignacio 1234"));
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("1666 County Road 309A"))),TVariant(1),TVariant("897 Manassa"));
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("38 Lone Pine"))),TVariant(1),TVariant("Durango 11"));
	var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("612 Jachim Street"))),TVariant(1),TVariant("Lamar 222"));
Gantt1->FilterBarPromptPattern = L"1";
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Gantt1->FilterBarPromptType = Exganttlib_tlb::FilterPromptEnum::exFilterPromptCaseSensitive | Exganttlib_tlb::FilterPromptEnum::exFilterPromptContainsAll;
Gantt1->EndUpdate();

976
Is it possible to highlight the column's header once a filter is applied (sample 2)

Gantt1->BeginUpdate();
Exganttlib_tlb::IAppearancePtr var_Appearance = Gantt1->VisualAppearance;
	var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABO8GACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwQgmNYDSBMcbwS") +
"AsXRYFocJ5gOT6AjKBA2UclEZpajiTY3ABUEgUS5oOBIACqariaQJAAiCRQGiYZyHKaRSwPBKFYDIIjbJheTIDChNVxUcDENQjJqLBIDRzbarye59YBfeBXdgmA4LQbD" +
"MRwNgMMQTDqKYbkOQZHbeGKAWTMEZzJj8cxTEqIaBhGTLfojSZMS7UGK1LLtMyHI6kP7sOiLfi2W4/W7XV72F79TzXIa2ZBuO57bhnAZ/VzGNj4PRNezfRqicjsGxcZw" +
"Xg+TpQj0ew6gSOw7wSbozjsfYXi8PwMnSc52leHotl+MxjmoXh2nybxOH+SQtnYXx+D2P4vGMB56hQf5PCgBYeDwYBCEo1xggebgKH6IIDBYBgkiAQ5FgYPAhEIRgWGq" +
"DBoC4GoCiGCBYhGBQPAWdIQp0eIUiWCZigiJgqgqYpIioJQhmIMhBH0NxjEMag2g2Y4ImYOoOmOSJeDQNxXlOLR3ECUAQICA="));
	var_Appearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAAEhABgsHQAAYAQGKIcBiAKBQAGaAoDDYNwwQwAAxDAKcEwsACEIrjKCRShyCYZRrGUgRCKQahLEiTIhGUYJHgmK4tRoAUgxWCEExrAaQJjjeCQF") +
"i6LAtDhPMByfQEZQIGyjkgjNLUcSbG4AKgkCiXfpUAJVP7FcgSABEEigNIxToOU4jFgeCYLQKQRK2RC9GQGFCbLhpYKIahGTYWVheN5XXblez9P7ABQwKCcAwXBp7YIK" +
"AT4XBIdYdQ7IL4xGA0AJPFoJC7mOQ5XiYAIBAZ/RL0LCcbxHHafVboQj6JouD5PUDVNY1XBdPynI6CbLhWy6Dq4UZzPwzeBifSHfDjRoJcCZe71KY3GwSEboNA6Kp+QB" +
"HAmZoZjSPYIEiF47lOLJVnuYofBwJJHmaQoYj0MIRHeM4/m6cJ8B+fpBHQJ5SGKPYYH8OYMk+P5Bn4fxaAYZAvEIX4RgUWBGgCCAmAqApgkgNgOgMEYlGASoEkQeBWBa" +
"BZhggZgagaYRoEwShWA6NZZAMQBAICA=="));
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x1000000;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x2000000;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Gantt1->HeaderHeight = 28;
Gantt1->BackColorHeader = RGB(255,255,255);
Gantt1->DrawGridLines = Exganttlib_tlb::GridLinesEnum::exRowLines;
Gantt1->HeaderVisible = true;
Exganttlib_tlb::IColumnsPtr var_Columns = Gantt1->Columns;
	var_Columns->Add(L"C1")->DisplayFilterButton = true;
	Exganttlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"C2");
		var_Column->DisplayFilterButton = true;
		var_Column->Filter = L"Item 2";
		var_Column->FilterType = Exganttlib_tlb::FilterTypeEnum::exFilter;
	var_Columns->Add(L"C3")->DisplayFilterButton = true;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	long h = var_Items->AddItem(TVariant("Item 1"));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Item 2"));
	var_Items->set_CellCaption(TVariant(h),TVariant(2),TVariant("Item 3"));
	h = var_Items->AddItem(TVariant("Item 4"));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Item 5"));
	var_Items->set_CellCaption(TVariant(h),TVariant(2),TVariant("Item 6"));
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

975
How can I make the expand/collapse glyphs DPI aware

String size = 2;
Gantt1->BeginUpdate();
Exganttlib_tlb::IAppearancePtr var_Appearance = Gantt1->VisualAppearance;
	var_Appearance->Add(3,TVariant(String("gBFLBCJwBAEHhEJAAEhEGAUHQAAYAQGKIcBiAKBQAGaAoDDYOA4QwAAxDAKcEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBRfIUEghGyNZjgNzQc") +
"CQAI8T5IUgARBJIDSMY6DpOIxYHgmC4DEITNLxOK0EhRHCBZrgOCAYhqEY1Ro+dhPFYjVTMdK0LRtKy7Mq2aJmOpZDxWE7dZKpO5fbxXS67cr2fp/YBed4rfa7KTlOBK" +
"cRQRBEFQPDqPZBkORZHh2FoLRJKbgtHJmHYNQWhVyYBbNCyTI6lahpeuHBx1QaWWxjbCMEr6bpoWLbFi3Ha1UzrPa8b5vSw7Gr+HzYQTHGPXGqaYJdZrnea6B7+U5XUJ" +
"rnSOZciYHwhAeR5HDK+JVGqKRRmScx5HyfRei+H5bmmcp4Fi8o/CGGJKGQKZUGoFQigUPIiCeSZXnyHB6l0SAJn8JxfkIeZ5CgXxjCCAhyB8QgIlAM4MlKAIcCaIBIGY" +
"GoGGEYhqBMMxgnICgRDUDQjESGwmAkWBuCqBoiHIVgkDQYgYESWg2E0YhohcJQigITg3CQSRyEyEYGGOWJwhQJD4FiFIMk0aJFGsIBkkOBJeDc+AchYJwJgIWhSgYZQp" +
"FIVoVGOGQ4l2EwIBWMhgDmDhThCEwkAiaJchKDhjhgZhsCUY4iFCEoZkiaYQmSGAWhWQhgDuDpTjCDQiEgchAg0IpJBoDoFiEKBqCaCAimgIguH8IZnkPUhcBcJg+hGJ" +
"ZnloYJsiaKZKGa24YnWSR0CkKhCA2CxlCqColhAYpqEKER0DqVZ0A0ASAgA=="));
	var_Appearance->Add(4,TVariant(String("gBFLBCJwBAEHhEJAAEhABAQCg6AADACAxRDgMQBQKAAzQFAYbBwHCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACjeQYJBCNYbTJAbqhY") +
"IgAR3HqQZABCCSQKkYx0HScRiwPBMFwGIQmaaicZoJCiN4DTZAcIBRDUIxpDR9bBeKw3KqVaZnWhaNpWXZlTzKdSxXisF67RZSdi/XgvF5XXblez9P69LwXe5mUrGbyV" +
"YghCCIKgeG4dR7IMhyLDcKQXCCVW7aGSsOwbAqAXpdGAXTQdDyLJKnaZqOi6BjjA4rNbHGIYJb1XTRMa1LJuG5LJrOeZ3Xre4BLfh1VoFRpjWIYNY1QS7TLOczzfRdDx" +
"TiGVpkjCeJoD4Ng1hSRxiisVRKg8D4PkWZJznmPQ+F8Xx5guWpjHGWYMiYQodEaIRSCgU5KCSeh3naHB/iAAh9n8fwfgIeZ1CgXwjCCAhxl8AgIlAM4MlKAIcCaD54FY" +
"FoFmGCBmBaBIJigPJNgKSAoDSVC+BIbIYCUYYoiYKoJgkWIMlGCAglMaJZDWCYiFyFIJkkOJYhEJc7G4PYPCOaJshQJBjgiVIUgyDRokEaggGSQ4El4N1CBiFgnAmAha" +
"FKFZlFkShUhWJRYmITg3GSQgFGuGBOGOFJkCSSQCDoNgkiOCY0hUJJmmmQhvhqZtYmUOQmBWIRvhgTpjjSbAjEiEgchBZgyEaBIhigWgegqIhIjoDILiACB5nTL5WnWR" +
"YOiSKYJnqGQ7CmOh2hqJ5OkYORxFyShKhSAxihkOomioY5YiqFIkFyTo1HkAxAEAgIA=="));
	var_Appearance->Add(1,TVariant(Gantt1->FormatABC(L"`CP:3 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` +  int(value*dpi) + ` ` + int(value*dpi)",TVariant(size),TNoParam(),TNoParam())));
	var_Appearance->Add(2,TVariant(Gantt1->FormatABC(L"`CP:4 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` +  int(value*dpi) + ` ` + int(value*dpi)",TVariant(size),TNoParam(),TNoParam())));
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();

974
Is it possible to highlight the column's header once a filter is applied (sample 1)

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 -8 -4 2 4"));
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x1fefefe;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x1010101;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Gantt1->HeaderHeight = 28;
Gantt1->BackColorHeader = RGB(255,255,255);
Gantt1->DrawGridLines = Exganttlib_tlb::GridLinesEnum::exRowLines;
Gantt1->HeaderVisible = true;
Exganttlib_tlb::IColumnsPtr var_Columns = Gantt1->Columns;
	var_Columns->Add(L"C1")->DisplayFilterButton = true;
	Exganttlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"C2");
		var_Column->DisplayFilterButton = true;
		var_Column->Filter = L"Item 2";
		var_Column->FilterType = Exganttlib_tlb::FilterTypeEnum::exFilter;
	var_Columns->Add(L"C3")->DisplayFilterButton = true;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	long h = var_Items->AddItem(TVariant("Item 1"));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Item 2"));
	var_Items->set_CellCaption(TVariant(h),TVariant(2),TVariant("Item 3"));
	h = var_Items->AddItem(TVariant("Item 4"));
	var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Item 5"));
	var_Items->set_CellCaption(TVariant(h),TVariant(2),TVariant("Item 6"));
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

973
Is it possible to show the filterbar on top of the rows

Gantt1->BeginUpdate();
Gantt1->FilterBarPromptVisible = Exganttlib_tlb::FilterBarVisibleEnum::exFilterBarTop;
Gantt1->HeaderHeight = 24;
Gantt1->FilterBarHeight = Gantt1->HeaderHeight;
Gantt1->HeaderAppearance = Exganttlib_tlb::AppearanceEnum::Flat;
Gantt1->DrawGridLines = Exganttlib_tlb::GridLinesEnum::exAllLines;
Gantt1->GridLineStyle = Exganttlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Column");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterType = Exganttlib_tlb::FilterTypeEnum::exPattern;
	var_Column->Filter = L"B*";
Exganttlib_tlb::IColumnPtr var_Column1 = Gantt1->Columns->Add(L"Index");
	var_Column1->FormatColumn = L"1 index ``";
	var_Column1->Position = 0;
	var_Column1->Width = 48;
	var_Column1->AllowSizing = false;
	var_Column1->SortType = Exganttlib_tlb::SortTypeEnum::SortNumeric;
	var_Column1->set_Def(Exganttlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("A.1"));
	var_Items->AddItem(TVariant("A.2"));
	var_Items->AddItem(TVariant("B.1"));
	var_Items->AddItem(TVariant("B.2"));
	var_Items->AddItem(TVariant("B.3"));
	var_Items->AddItem(TVariant("C"));
Gantt1->ApplyFilter();
Gantt1->EndUpdate();

972
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header (non-clickable)

Gantt1->BeginUpdate();
Gantt1->HeaderAppearance = Exganttlib_tlb::AppearanceEnum::Etched;
Exganttlib_tlb::IColumnsPtr var_Columns = Gantt1->Columns;
	var_Columns->Add(L"Item");
	Exganttlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Pos");
		var_Column->Position = 0;
		var_Column->Width = 32;
		var_Column->AllowSizing = false;
		var_Column->FormatColumn = L"1 index ``";
		var_Column->AllowSort = false;
		var_Column->AllowDragging = false;
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->EndUpdate();

971
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header

Gantt1->BeginUpdate();
Gantt1->HeaderAppearance = Exganttlib_tlb::AppearanceEnum::Etched;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Exganttlib_tlb::IColumnsPtr var_Columns = Gantt1->Columns;
	var_Columns->Add(L"Item");
	Exganttlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Pos");
		var_Column->Position = 0;
		var_Column->Width = 32;
		var_Column->AllowSizing = false;
		var_Column->FormatColumn = L"1 index ``";
		var_Column->AllowSort = false;
		var_Column->AllowDragging = false;
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->EndUpdate();

970
I would like to display a solid line between "root" items, and dotted lines (default) between child items. How can I do that

Gantt1->BeginUpdate();
Gantt1->LinesAtRoot = Exganttlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Gantt1->DrawGridLines = Exganttlib_tlb::GridLinesEnum::exHLines;
Gantt1->GridLineStyle = Exganttlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Gantt1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABMsIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIXRpFMbxAKQahLEiTIgGUYJHgmK4tQLHb7zGAABRDDSOIDnGQJX") +
"haI4JQSMMQDGLAZxVFiPRhAWLpBh+PQATrOdLUfSjVwhBKAQEBA=="));
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 ``) contains `.`) = 0";
	var_Column1->Visible = false;
Exganttlib_tlb::IConditionalFormatPtr var_ConditionalFormat = Gantt1->ConditionalFormats->Add(L"%C1",TNoParam());
	var_ConditionalFormat->BackColor = 0x1e0e0e0;
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->InsertItem(h,TNoParam(),TVariant("Child 3"));
	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();

969
I can not center or align the cell's caption and icon, when it displays the hierarchy

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="));
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Tasks");
	var_Column->set_Def(Exganttlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
Gantt1->HeaderVisible = true;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	long h = var_Items->AddItem(TVariant("Project"));
	long hChild = var_Items->InsertItem(h,TNoParam(),TVariant("<img>1</img> Task (left)"));
	hChild = var_Items->InsertItem(h,TNoParam(),TVariant("<c><img>2</img> Task (center)"));
	hChild = var_Items->InsertItem(h,TNoParam(),TVariant("<r>Task (right) <img>3</img>"));
	var_Items->set_ExpandItem(h,true);
Gantt1->EndUpdate();

968
How do I set an extra data for each item
// 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( L"i" );
	OutputDebugString( PChar(Gantt1->Items->get_ItemData(i)) );
}

Gantt1->BeginUpdate();
Gantt1->ColumnAutoResize = true;
Gantt1->Columns->Add(L"Default");
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->set_ItemData(var_Items->AddItem(TVariant("method 1")),TVariant("your extra data of method 1"));
	var_Items->InsertItem(0,TVariant("your extra data of method 2"),TVariant("method 2"));
Exganttlib_tlb::IItemsPtr var_Items1 = Gantt1->Items;
	var_Items1->DefaultItem = var_Items1->AddItem(TVariant("method 3"));
	var_Items1->set_ItemData(0,TVariant("your extra data of method 3"));
Gantt1->EndUpdate();

967
I do not like to specify the item padding for every column I add. The question is how can I do it automatically

Gantt1->BeginUpdate();
Gantt1->AttachTemplate(TVariant("handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}"));
Gantt1->HeaderAppearance = Exganttlib_tlb::AppearanceEnum::Etched;
Gantt1->DrawGridLines = Exganttlib_tlb::GridLinesEnum::exAllLines;
Gantt1->GridLineStyle = Exganttlib_tlb::GridLinesStyleEnum::exGridLinesVSolid;
Exganttlib_tlb::IColumnsPtr var_Columns = Gantt1->Columns;
	var_Columns->Add(L"Item");
	Exganttlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Pos");
		var_Column->Position = 0;
		var_Column->Width = 32;
		var_Column->AllowSizing = false;
		var_Column->FormatColumn = L"1 index ``";
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->EndUpdate();

966
Can I sort the column by check-state

Gantt1->BeginUpdate();
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Check");
	var_Column->set_Def(Exganttlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->SortType = Exganttlib_tlb::SortTypeEnum::exSortByState;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TNoParam());
	var_Items->set_CellState(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),1);
	var_Items->set_CellState(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),1);
	var_Items->AddItem(TNoParam());
Gantt1->Columns->get_Item(TVariant(0))->SortOrder = Exganttlib_tlb::SortOrderEnum::SortAscending;
Gantt1->EndUpdate();

965
Can I sort the column by image

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="));
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Image");
	var_Column->SortType = Exganttlib_tlb::SortTypeEnum::exSortByImage;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->set_CellImage(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),3);
	var_Items->AddItem(TNoParam());
	var_Items->set_CellImage(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),1);
	var_Items->set_CellImage(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),2);
Gantt1->Columns->get_Item(TVariant(0))->SortOrder = Exganttlib_tlb::SortOrderEnum::SortAscending;
Gantt1->EndUpdate();

964
How can I display UNICODE characters

Gantt1->BeginUpdate();
Gantt1->Chart->set_PaneWidth(true,0);
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		OLE Automation

	TypeLib: stdole2.tlb

	to define the namespace: Stdole_tlb
*/
//#include "STDOLE_TLB.h"
Stdole_tlb::FontPtr var_StdFont = Gantt1->Font;
	var_StdFont->Name = L"Arial Unicode";
	var_StdFont->Size = TVariant(long(22));
Gantt1->HeaderVisible = false;
Gantt1->DefaultItemHeight = 48;
Gantt1->Columns->Add(L"")->set_Def(Exganttlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("Ӓӓ"));
	var_Items->AddItem(TVariant("ᦜᦝ;ᦞ"));
	var_Items->AddItem(TVariant("ɮɭ;ɯ"));
	var_Items->AddItem(TVariant("勳勴勵勶"));
	var_Items->set_FormatCell(TVariant(var_Items->AddItem(TVariant(Gantt1->Version))),TVariant(0),L"(value lfind `UNICODE`) < 0 ? `<fgcolor=FF0000><b>!UNICODE!</b> version</fgcolor> required: ` + value : `` ");
Gantt1->EndUpdate();

963
How do I display the position of the item with 0-padding

Gantt1->BeginUpdate();
Gantt1->Columns->Add(L"Items")->FormatColumn = L"((1 apos ``) lpad `00`) + `. `  + value";
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->AddItem(TVariant("Item D"));
Gantt1->EndUpdate();

962
Can't get the +/- to be displayed on a divider item. What else can I do

Gantt1->BeginUpdate();
Gantt1->LinesAtRoot = Exganttlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Gantt1->DrawGridLines = Exganttlib_tlb::GridLinesEnum::exAllLines;
Gantt1->TreeColumnIndex = 0;
Gantt1->MarkSearchColumn = false;
Gantt1->FullRowSelect = false;
Gantt1->HeaderAppearance = Exganttlib_tlb::AppearanceEnum(0xfffffff8 | Exganttlib_tlb::AppearanceEnum::Bump | Exganttlib_tlb::AppearanceEnum::Sunken);
Gantt1->Chart->set_PaneWidth(true,0);
Exganttlib_tlb::IColumnsPtr var_Columns = Gantt1->Columns;
	var_Columns->Add(L"C1")->Width = 32;
	var_Columns->Add(L"C2")->FormatColumn = L"1 index ``";
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	long h = var_Items->AddItem(TVariant("Cell 1"));
	var_Items->set_CellSingleLine(TVariant(h),TVariant(1),Exganttlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
	h = var_Items->AddItem(TVariant("This is bit of text merges all cells in the item (divider shows no +/-)"));
	var_Items->set_ItemDivider(h,0);
	var_Items->set_ItemBackColor(h,RGB(240,240,240));
	var_Items->set_ItemDividerLine(h,Exganttlib_tlb::DividerLineEnum::EmptyLine);
	var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Exganttlib_tlb::AlignmentEnum::CenterAlignment);
	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("Cell 3"));
	h = var_Items->AddItem(TVariant("This is bit of text merges all cells in the item (merge shows +/-)"));
	var_Items->set_ItemBackColor(h,RGB(240,240,240));
	var_Items->set_CellMerge(TVariant(h),TVariant(0),TVariant(1));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 4"));
	var_Items->set_ExpandItem(h,true);
Gantt1->EndUpdate();

961
ADODB Requery sample

// CellButtonClick event - Fired after the user clicks on the cell of button type. 
void __fastcall TForm1::Gantt1CellButtonClick(TObject *Sender,Exganttlib_tlb::HITEM   Item,long   ColIndex)
{
	/*
		Select the Component\Import Component...\Import a Type Library,
		to import the following Type Library:
			Microsoft ActiveX Data Objects 6.1 Library
		TypeLib: msado15.dll
		to define the namespace: Adodb_tlb
	*/
	//#include "ADODB_TLB.h"
	Adodb_tlb::_CommandPtr cmd = Variant::CreateObject(L"ADODB.Command");
		cmd->set_ActiveConnection(Gantt1(IDispatch*)->DataSource->get_ActiveConnection());
		cmd->CommandText = L"INSERT INTO Orders (EmployeeID) VALUES(12345)";
		cmd->CommandType = Adodb_tlb::CommandTypeEnum::adCmdText;
		cmd->Execute(TNoParam(),TNoParam(),0);
	(IDispatch*)Gantt1->DataSource->Requery(0);
}

Gantt1->BeginUpdate();
Gantt1->HeaderAppearance = Exganttlib_tlb::AppearanceEnum::Etched;
Gantt1->ColumnAutoResize = false;
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADODB.Recordset");
	rs->Open(TVariant("Select * From Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGantt\\Sample\\Access2007\\sample.accdb"),Adodb_tlb::CursorTypeEnum::adOpenKeyset,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Gantt1->DataSource = (IDispatch*)rs;
Gantt1->ConditionalFormats->Add(L"%1=12345",TNoParam())->BackColor = RGB(240,240,240);
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->set_LockedItemCount(Exganttlib_tlb::VAlignmentEnum::TopAlignment,1);
	long h = var_Items->get_LockedItem(Exganttlib_tlb::VAlignmentEnum::TopAlignment,0);
	var_Items->set_ItemDivider(h,0);
	var_Items->set_CellHasButton(TVariant(h),TVariant(0),true);
	var_Items->set_CellCaption(TVariant(h),TVariant(0),TVariant("Requery (add a new record, using ADODB.Command)"));
	var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Exganttlib_tlb::AlignmentEnum::CenterAlignment);
Gantt1->EndUpdate();

960
I am skinning the control's header-bar, but the background of the header-bar is shown on each item in the filter-bar drop down panel. What can I do

Gantt1->BeginUpdate();
Exganttlib_tlb::IAppearancePtr var_Appearance = Gantt1->VisualAppearance;
	var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH") +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQGhsCYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU8lORLUi+M4zSBPcZVTRtGShPDB" +
"KTjMKKYgkG4lVpRNa0PC1GTzQ6mazkKQLRADDIDVbAeL3LiMBy9LyLLItQALByua5mWhbcZyBCOPgBTrRb5zO58FjuTK7YLjMB7NrUNYtFaUMy2OpOCADIaecTNcaWLx" +
"PF2MY1HWYxVj2Jw3DuRJonKYBgggSRAlIYw6B0ThGFgPAkFUDAhBMfZRiGNAkFECZnm4YQdneJwqnsSQrGAAhWAIJBJBIQgFCQIBiEIAglgqYo0i4V4MEgRI9gSToYFS" +
"b4Fk6Y4+BmBZhFOJgTC8TBogQAArgqco4muCZOkOMJtgmYpIjYKg7GKE4uCUK4AAKKg2DwI4DiCZw5k6KJ2D6D4OHiag4DwIxiiQAArAqMosnEPBPAOIhOg+DozjIJ4P" +
"GSY4iEwPAkhKLhHUUSQsnKFCnkYU9MjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDya" +
"ICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tE" +
"sHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQg" +
"pDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAA" +
"MR1EOZxWi+bx7HcWQ8msfRYnnDhQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARViHH" +
"4HQOYmxuCpF2MsecEQVBvGQCcIQvA6i2CAAIARAQ="));
	var_Appearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMwwDhEIwjHCEEhsGIbJAGQBJCjWGodQLOEgzN") +
"C0IxNFCQILhEZJADKII8TTOU5UPRESwTE4cKBmKhQCo2NpKR7VUTxCKQahLLivoCjBT8EzHMqtIzrCA6MpaP4pQjKcqwHJ8YyHEi0ZrjazKaj6T5AXDUcaWbbNVx3PK3" +
"aioOpLZrqOZZYzYFoABTuJzPMSyIhxXD8cweaZvSpLExVYK9BY3PbKMgxC77QgTIpDaQMNS6PjtF43PAALLFUaNYzoOKzABMHATBIXAYJCwIIR5G7ID4BbQcCQAHL9DB" +
"aEEIAEEISgGhMGZQmocgymmIRQkIEQ2BcGgbEIRQci8XaMBqTRVgSAZHG+S5pnOep+D6f4vjec5zn0fpfmgBgAH6TRoBYBoAh+eAmAiAgPFgNArgOQpIESdoEmCOAOAq" +
"BYfFGAgaEaBgYHYFYFmIB5UiGCJUgKCgmgeYoHk4BgCmKRQiCwApgHgYgyH8B54lQU4NkMeJlBoDgjkiXBTg0R54iYIR+koeQVBoKpkgkChKhEJBkF4SFEjkDgJhFQoe" +
"EmDJlBeehUhWJQJGIXoICWOQ6FeFIlhkfhlDsSJpiQVoamaSY2G6G5nAmRhpCOH5pkwVYdmeCZmHqHpnkmdhzhmaAIFiax8AABAEICA=="));
Gantt1->BackColorHeader = 0x1000000;
Gantt1->ForeColorHeader = RGB(128,128,128);
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x2000000;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exBackColorFilter] = RGB(255,255,255);
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exForeColorFilter] = RGB(0,0,1);
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exSelBackColorFilter] = 0x1ff8000;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exSelForeColorFilter] = RGB(240,240,240);
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Gantt1->HeaderHeight = 24;
Gantt1->BackColorLevelHeader = Gantt1->BackColor;
Exganttlib_tlb::IColumnPtr var_Column = Gantt1->Columns->Add(L"Filter");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowFocusItem | Exganttlib_tlb::FilterListEnum::exShowCheckBox | Exganttlib_tlb::FilterListEnum::exSortItemsAsc;
	var_Column->set_Def(Exganttlib_tlb::DefColumnEnum::exHeaderPaddingLeft,TVariant(2));
	var_Column->set_Def(Exganttlib_tlb::DefColumnEnum::exHeaderPaddingRight,TVariant(2));
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("A"));
	var_Items->AddItem(TVariant("B"));
	var_Items->AddItem(TVariant("C"));
	var_Items->AddItem(TVariant("D"));
Gantt1->EndUpdate();

959
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeCheckColumns

Gantt1->BeginUpdate();
Gantt1->ColumnAutoResize = false;
Gantt1->HeaderAppearance = Exganttlib_tlb::AppearanceEnum::Etched;
Exganttlib_tlb::IColumnsPtr var_Columns = Gantt1->Columns;
	var_Columns->Add(L"City");
	var_Columns->Add(L"Start")->Visible = false;
	var_Columns->Add(L"End")->Visible = false;
Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exColumnsFloatBar] = L"Show/Hide";
Gantt1->ColumnsFloatBarSortOrder = Exganttlib_tlb::SortOrderEnum::SortAscending;
Gantt1->ColumnsFloatBarVisible = Exganttlib_tlb::ColumnsFloatBarVisibleEnum::exColumnsFloatBarVisibleIncludeCheckColumns;
Gantt1->EndUpdate();

958
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeHiddenColumn

Gantt1->BeginUpdate();
Gantt1->ColumnAutoResize = false;
Gantt1->HeaderAppearance = Exganttlib_tlb::AppearanceEnum::Etched;
Exganttlib_tlb::IColumnsPtr var_Columns = Gantt1->Columns;
	var_Columns->Add(L"City");
	var_Columns->Add(L"Start")->Visible = false;
	var_Columns->Add(L"End")->Visible = false;
Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exColumnsFloatBar] = L"Show";
Gantt1->ColumnsFloatBarVisible = Exganttlib_tlb::ColumnsFloatBarVisibleEnum::exColumnsFloatBarVisibleIncludeHiddenColumns;
Gantt1->ColumnsFloatBarSortOrder = Exganttlib_tlb::SortOrderEnum::SortAscending;
Gantt1->EndUpdate();

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");

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::exCursorHoverColumn] = -1;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x1000000;
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exBackColorFilter] = RGB(0,0,1);
Gantt1->Background[Exganttlib_tlb::BackgroundPartEnum::exForeColorFilter] = RGB(255,255,255);
Gantt1->Description[Exganttlib_tlb::DescriptionTypeEnum::exFilterBarExclude] = L"<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>";
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->FilterList = Exganttlib_tlb::FilterListEnum::exShowExclude | Exganttlib_tlb::FilterListEnum::exShowCheckBox;
	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;
Exganttlib_tlb::IItemsPtr var_Items = Gantt1->Items;
	var_Items->AddItem(TVariant("One"));
	var_Items->AddItem(TVariant("Two"));
	var_Items->AddItem(TVariant("Three"));
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();