1002
Highlight the leaf items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.ConditionalFormats.Add("%CC0=0",null).ForeColor = 8421504;
	Gantt1.HeaderAppearance = 4;
	Gantt1.HeaderHeight = 24;
	Gantt1.LinesAtRoot = -1;
	var var_Columns = Gantt1.Columns;
		var_Columns.Add("Item").Width = 16;
		var_Columns.Add("Desc");
	var var_Items = Gantt1.Items;
		var hR = var_Items.AddItem("Root");
		var_Items.CellCaption(hR,1) = "The root directory /";
		var h = var_Items.InsertItem(hR,null,"Home");
		var_Items.CellCaption(h,1) = "The home directory with user directories Alice and Bob";
		var_Items.InsertItem(h,null,"Alice");
		var_Items.InsertItem(h,null,"Bob");
		var_Items.ExpandItem(h) = true;
		h = var_Items.InsertItem(hR,null,"Etc");
		var_Items.CellCaption(h,1) = "The etc directory with one configuration file";
		h = var_Items.InsertItem(h,null,"nginx.conf");
		var_Items.CellCaption(var_Items.InsertItem(hR,null,"Var"),1) = "The var directory";
		var_Items.ExpandItem(hR) = true;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

1001
Highlight the parent items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.ConditionalFormats.Add("%CC0",null).ForeColor = 255;
	Gantt1.HeaderAppearance = 4;
	Gantt1.HeaderHeight = 24;
	Gantt1.LinesAtRoot = -1;
	var var_Columns = Gantt1.Columns;
		var_Columns.Add("Item").Width = 16;
		var_Columns.Add("Desc");
	var var_Items = Gantt1.Items;
		var hR = var_Items.AddItem("Root");
		var_Items.CellCaption(hR,1) = "The root directory /";
		var h = var_Items.InsertItem(hR,null,"Home");
		var_Items.CellCaption(h,1) = "The home directory with user directories Alice and Bob";
		var_Items.InsertItem(h,null,"Alice");
		var_Items.InsertItem(h,null,"Bob");
		var_Items.ExpandItem(h) = true;
		h = var_Items.InsertItem(hR,null,"Etc");
		var_Items.CellCaption(h,1) = "The etc directory with one configuration file";
		h = var_Items.InsertItem(h,null,"nginx.conf");
		var_Items.CellCaption(var_Items.InsertItem(hR,null,"Var"),1) = "The var directory";
		var_Items.ExpandItem(hR) = true;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

1000
Highlight the item being expanded or collapsed

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.ConditionalFormats.Add("%CX0",null).Bold = true;
	Gantt1.HeaderAppearance = 4;
	Gantt1.HeaderHeight = 24;
	Gantt1.LinesAtRoot = -1;
	var var_Columns = Gantt1.Columns;
		var_Columns.Add("Item").Width = 16;
		var_Columns.Add("Desc");
	var var_Items = Gantt1.Items;
		var hR = var_Items.AddItem("Root");
		var_Items.CellCaption(hR,1) = "The root directory /";
		var h = var_Items.InsertItem(hR,null,"Home");
		var_Items.CellCaption(h,1) = "The home directory with user directories Alice and Bob";
		var_Items.InsertItem(h,null,"Alice");
		var_Items.InsertItem(h,null,"Bob");
		var_Items.ExpandItem(h) = true;
		h = var_Items.InsertItem(hR,null,"Etc");
		var_Items.CellCaption(h,1) = "The etc directory with one configuration file";
		h = var_Items.InsertItem(h,null,"nginx.conf");
		var_Items.CellCaption(var_Items.InsertItem(hR,null,"Var"),1) = "The var directory";
		var_Items.ExpandItem(hR) = true;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

999
Disable temporarily the column's sort, resize and drag and drop

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.OnResizeControl = 1;
	Gantt1.SortBarVisible = true;
	Gantt1.SortBarCaption = "<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)";
	Gantt1.HeaderEnabled = false;
	Gantt1.HeaderAppearance = 4;
	Gantt1.Columns.Add("Index").FormatColumn = "1 index ``";
	Gantt1.Columns.Add("Pos").FormatColumn = "1 apos ``";
	Gantt1.Columns.Add("Edit");
	Gantt1.GridLineStyle = 512;
	Gantt1.DrawGridLines = 2;
	Gantt1.GridLineColor = 14737632;
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/28/2000";
		var_Chart.PaneWidth(false) = 196;
		var_Chart.GridLineStyle = 512;
		var_Chart.DrawGridLines = -1;
		var var_Level = var_Chart.Level(1);
			var_Level.DrawGridLines = true;
			var_Level.GridLineColor = Gantt1.GridLineColor;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

998
Expandable-caption

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AnchorClick(AnchorID,Options)" LANGUAGE="JScript">
	alert( AnchorID );
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.ColumnAutoResize = true;
	Gantt1.TreeColumnIndex = -1;
	Gantt1.DrawGridLines = -1;
	Gantt1.GridLineStyle = 512;
	Gantt1.BackColorAlternate = 15790320;
	Gantt1.ShowFocusRect = false;
	Gantt1.Columns.Add("Default");
	var var_Items = Gantt1.Items;
		var_Items.AddItem("before item");
		var h = var_Items.AddItem("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4Aj" +
	"MGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEB" +
	"A==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DAB" +
	"vABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>	" +
	"650;</a><br>+ withdraw(amount: Currency)");
		var_Items.CellCaptionFormat(h,0) = 1;
		var_Items.CellSingleLine(h,0) = false;
		var_Items.AddItem("after item");
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

997
Expandable-caption

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.ColumnAutoResize = true;
	Gantt1.TreeColumnIndex = -1;
	Gantt1.DrawGridLines = -1;
	Gantt1.GridLineStyle = 512;
	Gantt1.BackColorAlternate = 15790320;
	Gantt1.ShowFocusRect = false;
	Gantt1.Columns.Add("Default");
	var var_Items = Gantt1.Items;
		var_Items.AddItem("before item");
		var h = var_Items.AddItem("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3");
		var_Items.CellCaptionFormat(h,0) = 1;
		var_Items.CellSingleLine(h,0) = false;
		var_Items.AddItem("after item");
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

996
Force hover-all feature
<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.Background(500) = -1;
}
</SCRIPT>
</BODY>

995
Disable hover-all feature (Windows 11 or greater)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.Background(500) = 1;
}
</SCRIPT>
</BODY>

994
Display a custom tooltip
<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="MouseMove(Button,Shift,X,Y)" LANGUAGE="JScript">
	Gantt1.ShowToolTip("new content","",null,"+8","+8");
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
}
</SCRIPT>
</BODY>

993
Shows the tooltip of the object moved relative to its default position
<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="MouseMove(Button,Shift,X,Y)" LANGUAGE="JScript">
	Gantt1.ShowToolTip("<null>","<null>",null,"+8","+8");
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.ColumnAutoResize = false;
	Gantt1.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column";
}
</SCRIPT>
</BODY>

992
How do I prevent changing the cell's state ( check-box state )
<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="CellStateChanging(Item,ColIndex,NewState)" LANGUAGE="JScript">
	var var_Items = Gantt1.Items;
		NewState = var_Items.CellState(Item,ColIndex);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.LinesAtRoot = -1;
	var var_Column = Gantt1.Columns.Add("P1");
		var_Column.Def(0) = true;
		var_Column.PartialCheck = true;
	var var_Column1 = Gantt1.Columns.Add("P2");
		var_Column1.Def(0) = true;
		var_Column1.PartialCheck = true;
	var var_Items = Gantt1.Items;
		var h = var_Items.AddItem("Root");
		var_Items.InsertItem(h,null,"Child 1");
		var_Items.InsertItem(h,null,"Child 2");
		var_Items.ExpandItem(h) = true;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

991
Highlight the match once the filter is applied

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="FilterChange()" LANGUAGE="JScript">
	var format = Gantt1.FormatABC("`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`",Gantt1.FilterBarPromptPattern,null,null);
	Gantt1.Columns.Item(0).FormatColumn = format;
	Gantt1.Columns.Item(1).FormatColumn = format;
	Gantt1.Columns.Item(2).FormatColumn = format;
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.SelBackColor = Gantt1.BackColor;
	Gantt1.SelForeColor = Gantt1.ForeColor;
	Gantt1.ColumnAutoResize = true;
	Gantt1.ContinueColumnScroll = 0;
	Gantt1.MarkSearchColumn = false;
	Gantt1.SearchColumnIndex = 1;
	Gantt1.HeaderAppearance = 4;
	Gantt1.HeaderHeight = 23;
	Gantt1.BackColorLevelHeader = Gantt1.BackColor;
	Gantt1.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)";
	Gantt1.FilterBarPromptVisible = 2055;
	Gantt1.FilterBarBackColor = Gantt1.BackColor;
	Gantt1.FilterBarPromptPattern = "and";
	var var_Columns = Gantt1.Columns;
		var var_Column = var_Columns.Add("Name");
			var_Column.Def(17) = 1;
			var_Column.FormatColumn = "lower(value)";
		var var_Column1 = var_Columns.Add("Title");
			var_Column1.Def(17) = 1;
			var_Column1.FormatColumn = "lower(value)";
		var var_Column2 = var_Columns.Add("City");
			var_Column2.Def(17) = 1;
			var_Column2.FormatColumn = "lower(value)";
	var var_Items = Gantt1.Items;
		var h0 = var_Items.AddItem("Nancy Davolio");
		var_Items.CellCaption(h0,1) = "Sales Representative";
		var_Items.CellCaption(h0,2) = "Seattle";
		h0 = var_Items.AddItem("Andrew Fuller");
		var_Items.CellCaption(h0,1) = "Vice President, Sales";
		var_Items.CellCaption(h0,2) = "Tacoma";
		var_Items.SelectItem(h0) = 1;
		h0 = var_Items.AddItem("Janet Leverling");
		var_Items.CellCaption(h0,1) = "Sales Representative";
		var_Items.CellCaption(h0,2) = "Kirkland";
		h0 = var_Items.AddItem("Margaret Peacock");
		var_Items.CellCaption(h0,1) = "Sales Representative";
		var_Items.CellCaption(h0,2) = "Redmond";
		h0 = var_Items.AddItem("Steven Buchanan");
		var_Items.CellCaption(h0,1) = "Sales Manager";
		var_Items.CellCaption(h0,2) = "London";
		h0 = var_Items.AddItem("Michael Suyama");
		var_Items.CellCaption(h0,1) = "Sales Representative";
		var_Items.CellCaption(h0,2) = "London";
		h0 = var_Items.AddItem("Robert King");
		var_Items.CellCaption(h0,1) = "Sales Representative";
		var_Items.CellCaption(h0,2) = "London";
		h0 = var_Items.AddItem("Laura Callahan");
		var_Items.CellCaption(h0,1) = "Inside Sales Coordinator";
		var_Items.CellCaption(h0,2) = "Seattle";
		h0 = var_Items.AddItem("Anne Dodsworth");
		var_Items.CellCaption(h0,1) = "Sales Representative";
		var_Items.CellCaption(h0,2) = "London";
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

990
ADOR, MDB (JET)

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	var var_Items = Gantt1.Items;
		var_Items.AddBar(Item,"Task",var_Items.CellCaption(Item,2),var_Items.CellCaption(Item,4),null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.PaneWidth(false) = 256;
		var_Chart.FirstVisibleDate = "8/10/1994";
		var_Chart.LevelCount = 2;
	Gantt1.ColumnAutoResize = false;
	Gantt1.ContinueColumnScroll = false;
	var rs = new ActiveXObject("ADOR.Recordset");
		rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Program Files\\Exontrol\\ExGantt\\Sample\\Access\\SAMPLE.MDB",3,3,null);
	Gantt1.DataSource = rs;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.ColumnAutoResize = true;
	Gantt1.Images("gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmD" +
	"cD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB");
	var var_Column = Gantt1.Columns.Add("ToLeft");
		var_Column.Def(0) = true;
	var var_Column1 = Gantt1.Columns.Add("ToRight");
		var_Column1.Def(0) = true;
		var_Column1.Def(34) = "caption,picture,icons,icon,check";
	Gantt1.DefaultItemHeight = 32;
	Gantt1.DrawGridLines = 2;
	Gantt1.HeaderAppearance = 4;
	var var_Items = Gantt1.Items;
		var h = var_Items.AddItem("Caption");
		var_Items.CellImage(h,0) = 2;
		var_Items.CellImages(h,0) = "1,2";
		var_Items.CellPicture(h,0) = Gantt1.ExecuteTemplate("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.CellCaption(h,1) = var_Items.CellCaption(h,0);
		var_Items.CellHAlignment(h,1) = 2;
		var_Items.CellImage(h,1) = var_Items.CellImage(h,0);
		var_Items.CellImages(h,1) = "2,1";
		var_Items.CellPicture(h,1) = var_Items.CellPicture(h,0);
		h = var_Items.AddItem("<b>HTML</b> <off 4>Caption");
		var_Items.CellCaptionFormat(h,0) = 1;
		var_Items.CellImage(h,0) = 2;
		var_Items.CellImages(h,0) = "1,2";
		var_Items.CellPicture(h,0) = Gantt1.ExecuteTemplate("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.CellCaption(h,1) = var_Items.CellCaption(h,0);
		var_Items.CellCaptionFormat(h,1) = 1;
		var_Items.CellHAlignment(h,1) = 2;
		var_Items.CellImage(h,1) = var_Items.CellImage(h,0);
		var_Items.CellImages(h,1) = "2,1";
		var_Items.CellPicture(h,1) = var_Items.CellPicture(h,0);
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddColumn(Column)" LANGUAGE="JScript">
	// Column.Def(48) = 2
	// Column.Def(49) = 2
</SCRIPT>

<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","1/2/2022","1/8/2022",null,"<img>1</img>");
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.ImageSize = 32;
	Gantt1.DefaultItemHeight = 36;
	Gantt1.HeaderHeight = Gantt1.DefaultItemHeight;
	Gantt1.SortBarHeight = Gantt1.DefaultItemHeight;
	Gantt1.Font.Size = 16;
	Gantt1.FilterBarFont.Size = Gantt1.Font.Size;
	Gantt1.ToolTipFont.Size = Gantt1.Font.Size;
	Gantt1.Indent = 26;
	var var_Chart = Gantt1.Chart;
		var_Chart.FirstVisibleDate = "1/1/2022";
		var_Chart.Bars.Item("Task").Height = 22;
	Gantt1.Images("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==");
	var var_Appearance = Gantt1.VisualAppearance;
		var_Appearance.Add(1,"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,"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,"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,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" +
	"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
	"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
	"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
	"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
	"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
	"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
	"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
	"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==");
	Gantt1.BackColorHeader = 80135878;
	Gantt1.SelBackColor = 67108864;
	Gantt1.SelForeColor = 65536;
	Gantt1.CheckImage(0) = 16777216;
	Gantt1.CheckImage(1) = 33554432;
	Gantt1.CheckImage(2) = 50331648;
	Gantt1.Background(20) = Gantt1.SelBackColor;
	Gantt1.Background(21) = Gantt1.SelForeColor;
	Gantt1.Background(26) = Gantt1.BackColor;
	Gantt1.Background(27) = Gantt1.ForeColor;
	Gantt1.Background(32) = -1;
	Gantt1.Background(0) = 67108864;
	Gantt1.Background(41) = 67174657;
	Gantt1.Background(1) = 67109119;
	Gantt1.HeaderAppearance = 4;
	Gantt1.ShowFocusRect = false;
	Gantt1.SortBarVisible = true;
	Gantt1.BackColorSortBar = Gantt1.BackColor;
	Gantt1.BackColorLevelHeader = Gantt1.BackColor;
	Gantt1.FilterBarDropDownHeight = 1;
	var var_Column = Gantt1.Columns.Add("Check");
		var_Column.Def(0) = true;
		var_Column.PartialCheck = true;
		var_Column.Width = 128;
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 256;
	var var_Column1 = Gantt1.Columns.Add("Pos");
		var_Column1.FormatColumn = "1 pos ``";
		var_Column1.AllowSort = false;
		var_Column1.Width = 48;
		var_Column1.AllowSizing = false;
		var_Column1.Alignment = 1;
		var_Column1.HeaderAlignment = 1;
	var var_Column2 = Gantt1.Columns.Add("Image");
		var_Column2.DisplayFilterButton = true;
		var_Column2.FilterList = 8480;
		var_Column2.FilterType = 10;
		var_Column2.DisplayExpandButton = true;
		var_Column2.ExpandColumns = "1,2,3";
		var_Column2.Width = 128;
		var_Column2.HeaderImage = 1;
	var var_Column3 = Gantt1.Columns.Add("Images");
		var_Column3.Def(0) = true;
		var_Column3.Width = 196;
		var_Column3.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images";
	Gantt1.Columns.Item("Pos").Position = 3;
	var var_Items = Gantt1.Items;
		var hR = var_Items.AddItem("Root");
		var_Items.ItemDivider(hR) = 0;
		var_Items.ItemDividerLine(hR) = 0;
		var h = var_Items.InsertItem(hR,null,"Child A");
		var_Items.CellImage(h,2) = 1;
		var_Items.CellImages(h,3) = "1,2,3";
		var_Items.CellCaption(h,3) = "123";
		h = var_Items.InsertItem(hR,null,"Child B");
		var_Items.CellState(h,0) = 1;
		var_Items.CellImage(h,2) = 3;
		var_Items.CellImages(h,3) = "2,3,1";
		var_Items.CellCaption(h,3) = "231";
		var_Items.SelectItem(h) = true;
		h = var_Items.InsertItem(hR,null,"Child C");
		var_Items.CellImage(h,2) = 2;
		var_Items.CellState(h,3) = 1;
		var_Items.CellCaption(h,3) = "312";
		var_Items.CellImages(h,3) = "3,1,2";
		var_Items.ExpandItem(hR) = true;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddColumn(Column)" LANGUAGE="JScript">
	// Column.Def(48) = 2
	// Column.Def(49) = 2
</SCRIPT>

<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","1/2/2022","1/8/2022",null,"<img>1</img>");
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.Chart.FirstVisibleDate = "1/1/2022";
	Gantt1.ImageSize = 16;
	Gantt1.Images("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==");
	var var_Appearance = Gantt1.VisualAppearance;
		var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" +
	"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
	"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
	"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
	"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
	"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
	"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
	"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
	"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==");
	Gantt1.BackColorHeader = 80135878;
	Gantt1.SelBackColor = 67108864;
	Gantt1.SelForeColor = 65536;
	Gantt1.Background(20) = Gantt1.SelBackColor;
	Gantt1.Background(21) = Gantt1.SelForeColor;
	Gantt1.Background(26) = Gantt1.BackColor;
	Gantt1.Background(27) = Gantt1.ForeColor;
	Gantt1.Background(32) = -1;
	Gantt1.Background(0) = 67108864;
	Gantt1.Background(41) = 67174657;
	Gantt1.Background(1) = 67109119;
	Gantt1.HeaderAppearance = 4;
	Gantt1.ShowFocusRect = false;
	Gantt1.SortBarVisible = true;
	Gantt1.BackColorSortBar = Gantt1.BackColor;
	Gantt1.BackColorLevelHeader = Gantt1.BackColor;
	Gantt1.FilterBarDropDownHeight = 1;
	var var_Column = Gantt1.Columns.Add("Check");
		var_Column.Def(0) = true;
		var_Column.PartialCheck = true;
		var_Column.Width = 128;
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 256;
	var var_Column1 = Gantt1.Columns.Add("Pos");
		var_Column1.FormatColumn = "1 pos ``";
		var_Column1.AllowSort = false;
		var_Column1.Width = 48;
		var_Column1.AllowSizing = false;
		var_Column1.Alignment = 1;
		var_Column1.HeaderAlignment = 1;
	var var_Column2 = Gantt1.Columns.Add("Image");
		var_Column2.DisplayFilterButton = true;
		var_Column2.FilterList = 8480;
		var_Column2.FilterType = 10;
		var_Column2.DisplayExpandButton = true;
		var_Column2.ExpandColumns = "1,2,3";
		var_Column2.Width = 128;
		var_Column2.HeaderImage = 1;
	var var_Column3 = Gantt1.Columns.Add("Images");
		var_Column3.Def(0) = true;
		var_Column3.Width = 196;
		var_Column3.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images";
	Gantt1.Columns.Item("Pos").Position = 3;
	var var_Items = Gantt1.Items;
		var hR = var_Items.AddItem("Root");
		var_Items.ItemDivider(hR) = 0;
		var_Items.ItemDividerLine(hR) = 0;
		var h = var_Items.InsertItem(hR,null,"Child A");
		var_Items.CellImage(h,2) = 1;
		var_Items.CellImages(h,3) = "1,2,3";
		var_Items.CellCaption(h,3) = "123";
		h = var_Items.InsertItem(hR,null,"Child B");
		var_Items.CellState(h,0) = 1;
		var_Items.CellImage(h,2) = 3;
		var_Items.CellImages(h,3) = "2,3,1";
		var_Items.CellCaption(h,3) = "231";
		var_Items.SelectItem(h) = true;
		h = var_Items.InsertItem(hR,null,"Child C");
		var_Items.CellImage(h,2) = 2;
		var_Items.CellState(h,3) = 1;
		var_Items.CellCaption(h,3) = "312";
		var_Items.CellImages(h,3) = "3,1,2";
		var_Items.ExpandItem(hR) = true;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddColumn(Column)" LANGUAGE="JScript">
</SCRIPT>

<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	var var_Items = Gantt1.Items;
		var_Items.AddBar(Item,"Task",var_Items.CellCaption(Item,2),var_Items.CellCaption(Item,4),null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.ColumnAutoResize = false;
	var rs = new ActiveXObject("ADOR.Recordset");
		rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGantt\\Sample\\Access\\sample.accdb",3,3,null);
	Gantt1.DataSource = rs;
	var var_Chart = Gantt1.Chart;
		var_Chart.FirstVisibleDate = "8/4/1994";
		var_Chart.LevelCount = 2;
		var_Chart.PaneWidth(false) = 290;
	Gantt1.Columns.Item("ShipVia").Position = 2;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.ColumnAutoResize = false;
	var rs = new ActiveXObject("ADOR.Recordset");
		rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGantt\\Sample\\Access\\sample.accdb",1,3,null);
	Gantt1.DataSource = rs;
	Gantt1.SortBarVisible = true;
	Gantt1.Layout = "singlesort=\"C1:1\"";
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

984
Is it possible to view all events the control fires
<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<SCRIPT FOR="Gantt1" EVENT="Event(EventID)" LANGUAGE="JScript">
	alert( Gantt1.EventParam(-2) );
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = Gantt1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
	Gantt1.FilterBarCaption = "`<r>` + value";
	Gantt1.FilterBarPromptVisible = 2067;
	var var_Column1 = Gantt1.Columns.Item(0);
		var_Column1.FilterType = 240;
		var_Column1.Filter = "Item A|Item B";
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

983
How can I prevent expanding/collapsing the child items

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="BeforeExpandItem(Item,Cancel)" LANGUAGE="JScript">
	Cancel = Gantt1.Items.ItemParent(Item);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.SingleSel = false;
	Gantt1.Columns.Add("Default");
	Gantt1.LinesAtRoot = -1;
	var var_Items = Gantt1.Items;
		var h = var_Items.AddItem("Root 1");
		var_Items.InsertItem(var_Items.InsertItem(h,null,"Child 1.1"),null,"Child");
		var_Items.InsertItem(h,null,"Child 1.2");
		var_Items.ExpandItem(h) = true;
		h = var_Items.AddItem("Root 2");
		var_Items.InsertItem(var_Items.InsertItem(h,null,"Child 2.1"),null,"Child");
		var_Items.InsertItem(h,null,"Child 2.2");
		var_Items.ExpandItem(h) = true;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

982
How can I display an item of picture type

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.LinesAtRoot = -1;
	Gantt1.ScrollBySingleLine = false;
	Gantt1.HeaderAppearance = 4;
	Gantt1.HeaderHeight = 24;
	Gantt1.Columns.Add("Artikel").HTMLCaption = "<u>Artikel";
	Gantt1.Columns.Add("Waarde").HTMLCaption = "<u>Waarde";
	Gantt1.HTMLPicture("T22128") = "c:\\exontrol\\images\\zipdisk.gif";
	var var_Items = Gantt1.Items;
		var h = var_Items.AddItem("T22128-28)2D");
		var h1 = var_Items.InsertItem(h,null,"<img>T22128:128</img>");
		var_Items.CellCaptionFormat(h1,0) = 1;
		var_Items.ItemHeight(h1) = 128;
		h1 = var_Items.InsertItem(h,null,"werkvoorbereiding");
		var_Items.CellCaption(h1,1) = "5.80";
		var_Items.CellBold(h1,1) = true;
		var_Items.CellCaption(var_Items.InsertItem(h1,null,"Type"),1) = "Eenvoudig";
		var_Items.CellCaption(var_Items.InsertItem(h1,null,"Prijs p/uur"),1) = "60,00";
		var_Items.CellCaption(var_Items.InsertItem(h1,null,"Marhe"),1) = "15,00%";
		var_Items.CellCaption(var_Items.InsertItem(h1,null,"Insteltijd min."),1) = "5,00";
		var_Items.CellCaption(var_Items.InsertItem(h1,null,"Aantal"),1) = 1;
		var_Items.CellCaption(var_Items.InsertItem(h1,null,"Kostprije"),1) = "5,00";
		var_Items.ExpandItem(h1) = true;
		h1 = var_Items.InsertItem(h,null,"materiall");
		var_Items.CellCaption(h1,1) = "14.82";
		var_Items.CellBold(h1,1) = true;
		var_Items.ItemHasChildren(h1) = true;
		h1 = var_Items.InsertItem(h,null,"snijden");
		var_Items.CellCaption(h1,1) = "3.13";
		var_Items.CellBold(h1,1) = true;
		var_Items.ItemHasChildren(h1) = true;
		var_Items.ExpandItem(h) = true;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

981
Dark mode

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var back = 65536;
	var fore = 16777215;
	Gantt1.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" +
	"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" +
	"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA");
	Gantt1.VisualAppearance.Add(2,"gBFLBCJwBAEHhEJAAEhABPMIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwHCMIhiGwcAChEZYHgkMYmDAMUhSE78axHG6PY7kKZ4b" +
	"iaKIqQLLEhSfJ0YyBECBZpfebIbjmIZMSLEIxDKItJSpCIaRgqWS6ahGO4JUbUFLQHT9IR4daIYRgEEBA");
	Gantt1.VisualAppearance.Add(3,"gBFLBCJwBAEHhEJAAEhABUUIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwGAsEwjAoYAChEaILgkMw2DBIQwgJIMEr/G6RZxjeL5C" +
	"jmG4nDhKMpybAcXxjBIYZJgOQpXb+PobTrNNLzfRFAxVAaWJikcZ4HpIAJNVLFdQ0XYMNSBISsBqrKiKcpeIIDWBZMbRZT1ZABCIZBpEW6LahENQwXrCN74DYkNTdKax" +
	"bbuaaXLhGCYBgIA==");
	Gantt1.HeaderAppearance = 5;
	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(0) = 16777216;
	Gantt1.Background(32) = -1;
	Gantt1.Background(64) = 50331648;
	Gantt1.Background(65) = back;
	Gantt1.Background(66) = fore;
	Gantt1.Background(20) = fore;
	Gantt1.Background(21) = back;
	Gantt1.Background(26) = back;
	Gantt1.Background(27) = fore;
	Gantt1.Background(28) = back;
	Gantt1.Background(186) = fore;
	Gantt1.Description(25) = "<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>";
	var var_Chart = Gantt1.Chart;
		var_Chart.BackColor = back;
		var_Chart.BackColorLevelHeader = back;
		var_Chart.ForeColor = fore;
		var_Chart.ForeColorLevelHeader = fore;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.AttachTemplate("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}");
	var var_Appearance = Gantt1.VisualAppearance;
		var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH" +
	"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" +
	"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" +
	"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" +
	"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA=");
		var_Appearance.Add(2,"CP:1 -4 0 0 0");
	Gantt1.SelBackColor = 33554432;
	Gantt1.SelForeColor = 65536;
	Gantt1.FullRowSelect = 0;
	Gantt1.ShowFocusRect = false;
	Gantt1.DefaultItemHeight = 24;
	Gantt1.HeaderHeight = 24;
	Gantt1.DrawGridLines = 2;
	Gantt1.Columns.Add("C1");
	Gantt1.Columns.Add("C2");
	var var_Items = Gantt1.Items;
		var_Items.CellCaption(var_Items.AddItem("Cell 1"),1) = "Cell 2";
		var_Items.CellCaption(var_Items.AddItem("Cell 3"),1) = "Cell 4";
	Gantt1.Items.SelectPos = 1;
	Gantt1.SelectColumnIndex = 1;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.AttachTemplate("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}");
	Gantt1.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH" +
	"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" +
	"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" +
	"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" +
	"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA=");
	Gantt1.SelBackColor = 16777216;
	Gantt1.SelForeColor = 65536;
	Gantt1.ShowFocusRect = false;
	Gantt1.DefaultItemHeight = 24;
	Gantt1.HeaderHeight = 24;
	Gantt1.DrawGridLines = 2;
	Gantt1.Columns.Add("C1");
	Gantt1.Columns.Add("C2");
	var var_Items = Gantt1.Items;
		var_Items.CellCaption(var_Items.AddItem("Cell 1"),1) = "Cell 2";
		var_Items.CellCaption(var_Items.AddItem("Cell 3"),1) = "Cell 4";
		var_Items.SelectPos = 1;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.AttachTemplate("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}");
	Gantt1.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH" +
	"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" +
	"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" +
	"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" +
	"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA=");
	Gantt1.SelBackMode = 1;
	Gantt1.ShowFocusRect = false;
	Gantt1.DefaultItemHeight = 24;
	Gantt1.HeaderHeight = 24;
	Gantt1.DrawGridLines = 2;
	Gantt1.Columns.Add("C1");
	Gantt1.Columns.Add("C2");
	var var_Items = Gantt1.Items;
		var_Items.CellCaption(var_Items.AddItem("Cell 1"),1) = "Cell 2";
		var h = var_Items.AddItem("Cell 2");
		var_Items.CellCaption(h,1) = "Cell 3";
		var_Items.CellBackColor(h,1) = 16777216;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddColumn(Column)" LANGUAGE="JScript">
	// Column.Def(17) = 1
</SCRIPT>

<SCRIPT FOR="Gantt1" EVENT="FilterChange()" LANGUAGE="JScript">
	var format = Gantt1.FormatABC("`value replace '` + value + `' with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`",Gantt1.FilterBarPromptPattern,null,null);
	Gantt1.Columns.Item(0).FormatColumn = format;
	Gantt1.Columns.Item(1).FormatColumn = format;
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.DrawGridLines = 2;
	Gantt1.HeaderAppearance = 4;
	Gantt1.Columns.Add("Col 1");
	Gantt1.Columns.Add("Col 2");
	var var_Items = Gantt1.Items;
		var_Items.CellCaption(var_Items.AddItem("219 Smith"),1) = "Ignacio 1234";
		var_Items.CellCaption(var_Items.AddItem("1666 County Road 309A"),1) = "897 Manassa";
		var_Items.CellCaption(var_Items.AddItem("38 Lone Pine"),1) = "Durango 11";
		var_Items.CellCaption(var_Items.AddItem("612 Jachim Street"),1) = "Lamar 222";
	Gantt1.FilterBarPromptPattern = "1";
	Gantt1.FilterBarPromptVisible = 2067;
	Gantt1.FilterBarPromptType = 257;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Appearance = Gantt1.VisualAppearance;
		var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABO8GACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwQgmNYDSBMcbwS" +
	"AsXRYFocJ5gOT6AjKBA2UclEZpajiTY3ABUEgUS5oOBIACqariaQJAAiCRQGiYZyHKaRSwPBKFYDIIjbJheTIDChNVxUcDENQjJqLBIDRzbarye59YBfeBXdgmA4LQbD" +
	"MRwNgMMQTDqKYbkOQZHbeGKAWTMEZzJj8cxTEqIaBhGTLfojSZMS7UGK1LLtMyHI6kP7sOiLfi2W4/W7XV72F79TzXIa2ZBuO57bhnAZ/VzGNj4PRNezfRqicjsGxcZw" +
	"Xg+TpQj0ew6gSOw7wSbozjsfYXi8PwMnSc52leHotl+MxjmoXh2nybxOH+SQtnYXx+D2P4vGMB56hQf5PCgBYeDwYBCEo1xggebgKH6IIDBYBgkiAQ5FgYPAhEIRgWGq" +
	"DBoC4GoCiGCBYhGBQPAWdIQp0eIUiWCZigiJgqgqYpIioJQhmIMhBH0NxjEMag2g2Y4ImYOoOmOSJeDQNxXlOLR3ECUAQICA=");
		var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABgsHQAAYAQGKIcBiAKBQAGaAoDDYNwwQwAAxDAKcEwsACEIrjKCRShyCYZRrGUgRCKQahLEiTIhGUYJHgmK4tRoAUgxWCEExrAaQJjjeCQF" +
	"i6LAtDhPMByfQEZQIGyjkgjNLUcSbG4AKgkCiXfpUAJVP7FcgSABEEigNIxToOU4jFgeCYLQKQRK2RC9GQGFCbLhpYKIahGTYWVheN5XXblez9P7ABQwKCcAwXBp7YIK" +
	"AT4XBIdYdQ7IL4xGA0AJPFoJC7mOQ5XiYAIBAZ/RL0LCcbxHHafVboQj6JouD5PUDVNY1XBdPynI6CbLhWy6Dq4UZzPwzeBifSHfDjRoJcCZe71KY3GwSEboNA6Kp+QB" +
	"HAmZoZjSPYIEiF47lOLJVnuYofBwJJHmaQoYj0MIRHeM4/m6cJ8B+fpBHQJ5SGKPYYH8OYMk+P5Bn4fxaAYZAvEIX4RgUWBGgCCAmAqApgkgNgOgMEYlGASoEkQeBWBa" +
	"BZhggZgagaYRoEwShWA6NZZAMQBAICA==");
	Gantt1.Background(0) = 16777216;
	Gantt1.Background(41) = 33554432;
	Gantt1.Background(32) = -1;
	Gantt1.HeaderHeight = 28;
	Gantt1.BackColorHeader = 16777215;
	Gantt1.DrawGridLines = -2;
	Gantt1.HeaderVisible = 1;
	var var_Columns = Gantt1.Columns;
		var_Columns.Add("C1").DisplayFilterButton = true;
		var var_Column = var_Columns.Add("C2");
			var_Column.DisplayFilterButton = true;
			var_Column.Filter = "Item 2";
			var_Column.FilterType = 240;
		var_Columns.Add("C3").DisplayFilterButton = true;
	var var_Items = Gantt1.Items;
		var h = var_Items.AddItem("Item 1");
		var_Items.CellCaption(h,1) = "Item 2";
		var_Items.CellCaption(h,2) = "Item 3";
		h = var_Items.AddItem("Item 4");
		var_Items.CellCaption(h,1) = "Item 5";
		var_Items.CellCaption(h,2) = "Item 6";
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	var size = 2;
	Gantt1.BeginUpdate();
	var var_Appearance = Gantt1.VisualAppearance;
		var_Appearance.Add(3,"gBFLBCJwBAEHhEJAAEhEGAUHQAAYAQGKIcBiAKBQAGaAoDDYOA4QwAAxDAKcEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBRfIUEghGyNZjgNzQc" +
	"CQAI8T5IUgARBJIDSMY6DpOIxYHgmC4DEITNLxOK0EhRHCBZrgOCAYhqEY1Ro+dhPFYjVTMdK0LRtKy7Mq2aJmOpZDxWE7dZKpO5fbxXS67cr2fp/YBed4rfa7KTlOBK" +
	"cRQRBEFQPDqPZBkORZHh2FoLRJKbgtHJmHYNQWhVyYBbNCyTI6lahpeuHBx1QaWWxjbCMEr6bpoWLbFi3Ha1UzrPa8b5vSw7Gr+HzYQTHGPXGqaYJdZrnea6B7+U5XUJ" +
	"rnSOZciYHwhAeR5HDK+JVGqKRRmScx5HyfRei+H5bmmcp4Fi8o/CGGJKGQKZUGoFQigUPIiCeSZXnyHB6l0SAJn8JxfkIeZ5CgXxjCCAhyB8QgIlAM4MlKAIcCaIBIGY" +
	"GoGGEYhqBMMxgnICgRDUDQjESGwmAkWBuCqBoiHIVgkDQYgYESWg2E0YhohcJQigITg3CQSRyEyEYGGOWJwhQJD4FiFIMk0aJFGsIBkkOBJeDc+AchYJwJgIWhSgYZQp" +
	"FIVoVGOGQ4l2EwIBWMhgDmDhThCEwkAiaJchKDhjhgZhsCUY4iFCEoZkiaYQmSGAWhWQhgDuDpTjCDQiEgchAg0IpJBoDoFiEKBqCaCAimgIguH8IZnkPUhcBcJg+hGJ" +
	"ZnloYJsiaKZKGa24YnWSR0CkKhCA2CxlCqColhAYpqEKER0DqVZ0A0ASAgA==");
		var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABAQCg6AADACAxRDgMQBQKAAzQFAYbBwHCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACjeQYJBCNYbTJAbqhY" +
	"IgAR3HqQZABCCSQKkYx0HScRiwPBMFwGIQmaaicZoJCiN4DTZAcIBRDUIxpDR9bBeKw3KqVaZnWhaNpWXZlTzKdSxXisF67RZSdi/XgvF5XXblez9P69LwXe5mUrGbyV" +
	"YghCCIKgeG4dR7IMhyLDcKQXCCVW7aGSsOwbAqAXpdGAXTQdDyLJKnaZqOi6BjjA4rNbHGIYJb1XTRMa1LJuG5LJrOeZ3Xre4BLfh1VoFRpjWIYNY1QS7TLOczzfRdDx" +
	"TiGVpkjCeJoD4Ng1hSRxiisVRKg8D4PkWZJznmPQ+F8Xx5guWpjHGWYMiYQodEaIRSCgU5KCSeh3naHB/iAAh9n8fwfgIeZ1CgXwjCCAhxl8AgIlAM4MlKAIcCaD54FY" +
	"FoFmGCBmBaBIJigPJNgKSAoDSVC+BIbIYCUYYoiYKoJgkWIMlGCAglMaJZDWCYiFyFIJkkOJYhEJc7G4PYPCOaJshQJBjgiVIUgyDRokEaggGSQ4El4N1CBiFgnAmAha" +
	"FKFZlFkShUhWJRYmITg3GSQgFGuGBOGOFJkCSSQCDoNgkiOCY0hUJJmmmQhvhqZtYmUOQmBWIRvhgTpjjSbAjEiEgchBZgyEaBIhigWgegqIhIjoDILiACB5nTL5WnWR" +
	"YOiSKYJnqGQ7CmOh2hqJ5OkYORxFyShKhSAxihkOomioY5YiqFIkFyTo1HkAxAEAgIA==");
		var_Appearance.Add(1,Gantt1.FormatABC("`CP:3 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` +  int(value*dpi) + ` ` + int(value*dpi)",size,null,null));
		var_Appearance.Add(2,Gantt1.FormatABC("`CP:4 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` +  int(value*dpi) + ` ` + int(value*dpi)",size,null,null));
	Gantt1.LinesAtRoot = 1;
	Gantt1.HasButtons = 4;
	Gantt1.HasButtonsCustom(0) = 16777216;
	Gantt1.HasButtonsCustom(1) = 33554432;
	Gantt1.Columns.Add("Column");
	var var_Items = Gantt1.Items;
		var h = var_Items.AddItem("Root 1");
		var_Items.InsertItem(h,null,"Child 1");
		var_Items.InsertItem(h,null,"Child 2");
		var_Items.ExpandItem(h) = true;
		h = var_Items.AddItem("Root 2");
		var_Items.InsertItem(h,null,"Child");
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Appearance = Gantt1.VisualAppearance;
		var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" +
	"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" +
	"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" +
	"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" +
	"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" +
	"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=");
		var_Appearance.Add(1,"CP:2 -8 -4 2 4");
	Gantt1.Background(0) = 33488638;
	Gantt1.Background(41) = 16843009;
	Gantt1.Background(32) = -1;
	Gantt1.HeaderHeight = 28;
	Gantt1.BackColorHeader = 16777215;
	Gantt1.DrawGridLines = -2;
	Gantt1.HeaderVisible = 1;
	var var_Columns = Gantt1.Columns;
		var_Columns.Add("C1").DisplayFilterButton = true;
		var var_Column = var_Columns.Add("C2");
			var_Column.DisplayFilterButton = true;
			var_Column.Filter = "Item 2";
			var_Column.FilterType = 240;
		var_Columns.Add("C3").DisplayFilterButton = true;
	var var_Items = Gantt1.Items;
		var h = var_Items.AddItem("Item 1");
		var_Items.CellCaption(h,1) = "Item 2";
		var_Items.CellCaption(h,2) = "Item 3";
		h = var_Items.AddItem("Item 4");
		var_Items.CellCaption(h,1) = "Item 5";
		var_Items.CellCaption(h,2) = "Item 6";
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.FilterBarPromptVisible = 8192;
	Gantt1.HeaderHeight = 24;
	Gantt1.FilterBarHeight = Gantt1.HeaderHeight;
	Gantt1.HeaderAppearance = 1;
	Gantt1.DrawGridLines = -1;
	Gantt1.GridLineStyle = 512;
	var var_Column = Gantt1.Columns.Add("Column");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterType = 3;
		var_Column.Filter = "B*";
	var var_Column1 = Gantt1.Columns.Add("Index");
		var_Column1.FormatColumn = "1 index ``";
		var_Column1.Position = 0;
		var_Column1.Width = 48;
		var_Column1.AllowSizing = false;
		var_Column1.SortType = 1;
		var_Column1.Def(0) = true;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("A.1");
		var_Items.AddItem("A.2");
		var_Items.AddItem("B.1");
		var_Items.AddItem("B.2");
		var_Items.AddItem("B.3");
		var_Items.AddItem("C");
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.HeaderAppearance = 4;
	var var_Columns = Gantt1.Columns;
		var_Columns.Add("Item");
		var var_Column = var_Columns.Add("Pos");
			var_Column.Position = 0;
			var_Column.Width = 32;
			var_Column.AllowSizing = false;
			var_Column.FormatColumn = "1 index ``";
			var_Column.AllowSort = false;
			var_Column.AllowDragging = false;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.HeaderAppearance = 4;
	Gantt1.Background(32) = -1;
	var var_Columns = Gantt1.Columns;
		var_Columns.Add("Item");
		var var_Column = var_Columns.Add("Pos");
			var_Column.Position = 0;
			var_Column.Width = 32;
			var_Column.AllowSizing = false;
			var_Column.FormatColumn = "1 index ``";
			var_Column.AllowSort = false;
			var_Column.AllowDragging = false;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.LinesAtRoot = -1;
	Gantt1.DrawGridLines = 1;
	Gantt1.GridLineStyle = 512;
	Gantt1.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABMsIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIXRpFMbxAKQahLEiTIgGUYJHgmK4tQLHb7zGAABRDDSOIDnGQJX" +
	"haI4JQSMMQDGLAZxVFiPRhAWLpBh+PQATrOdLUfSjVwhBKAQEBA==");
	var var_Column = Gantt1.Columns.Add("Default");
		var_Column.Def(0) = true;
		var_Column.PartialCheck = true;
	var var_Column1 = Gantt1.Columns.Add("Position");
		var_Column1.FormatColumn = "((1 rindex ``) contains `.`) = 0";
		var_Column1.Visible = false;
	var var_ConditionalFormat = Gantt1.ConditionalFormats.Add("%C1",null);
		var_ConditionalFormat.BackColor = 31514848;
	var var_Items = Gantt1.Items;
		var h = var_Items.AddItem("Root 1");
		var_Items.InsertItem(h,null,"Child 1");
		var_Items.InsertItem(h,null,"Child 2");
		var_Items.InsertItem(h,null,"Child 3");
		var_Items.ExpandItem(h) = true;
		h = var_Items.AddItem("Root 2");
		var_Items.InsertItem(h,null,"Child 1");
		var_Items.InsertItem(h,null,"Child 2");
		h = var_Items.AddItem("Root 3");
		var_Items.InsertItem(h,null,"Child 1");
		var_Items.InsertItem(h,null,"Child 2");
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
	var var_Column = Gantt1.Columns.Add("Tasks");
		var_Column.Def(17) = 1;
	Gantt1.HeaderVisible = 1;
	var var_Items = Gantt1.Items;
		var h = var_Items.AddItem("Project");
		var hChild = var_Items.InsertItem(h,null,"<img>1</img> Task (left)");
		hChild = var_Items.InsertItem(h,null,"<c><img>2</img> Task (center)");
		hChild = var_Items.InsertItem(h,null,"<r>Task (right) <img>3</img>");
		var_Items.ExpandItem(h) = true;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

968
How do I set an extra data for each item
<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="MouseMove(Button,Shift,X,Y)" LANGUAGE="JScript">
	var i = Gantt1.ItemFromPoint(-1,-1,c,hit);
	alert( i );
	alert( Gantt1.Items.ItemData(i) );
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.ColumnAutoResize = true;
	Gantt1.Columns.Add("Default");
	var var_Items = Gantt1.Items;
		var_Items.ItemData(var_Items.AddItem("method 1")) = "your extra data of method 1";
		var_Items.InsertItem(0,"your extra data of method 2","method 2");
	var var_Items1 = Gantt1.Items;
		var_Items1.DefaultItem = var_Items1.AddItem("method 3");
		var_Items1.ItemData(0) = "your extra data of method 3";
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.AttachTemplate("handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}");
	Gantt1.HeaderAppearance = 4;
	Gantt1.DrawGridLines = -1;
	Gantt1.GridLineStyle = 32;
	var var_Columns = Gantt1.Columns;
		var_Columns.Add("Item");
		var var_Column = var_Columns.Add("Pos");
			var_Column.Position = 0;
			var_Column.Width = 32;
			var_Column.AllowSizing = false;
			var_Column.FormatColumn = "1 index ``";
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

966
Can I sort the column by check-state

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Column = Gantt1.Columns.Add("Check");
		var_Column.Def(0) = true;
		var_Column.SortType = 32;
	var var_Items = Gantt1.Items;
		var_Items.AddItem(null);
		var_Items.CellState(var_Items.AddItem(null),0) = 1;
		var_Items.CellState(var_Items.AddItem(null),0) = 1;
		var_Items.AddItem(null);
	Gantt1.Columns.Item(0).SortOrder = 1;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

965
Can I sort the column by image

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
	var var_Column = Gantt1.Columns.Add("Image");
		var_Column.SortType = 48;
	var var_Items = Gantt1.Items;
		var_Items.CellImage(var_Items.AddItem(null),0) = 3;
		var_Items.AddItem(null);
		var_Items.CellImage(var_Items.AddItem(null),0) = 1;
		var_Items.CellImage(var_Items.AddItem(null),0) = 2;
	Gantt1.Columns.Item(0).SortOrder = 1;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

964
How can I display UNICODE characters

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.Chart.PaneWidth(true) = 0;
	var var_StdFont = Gantt1.Font;
		var_StdFont.Name = "Arial Unicode";
		var_StdFont.Size = 22;
	Gantt1.HeaderVisible = false;
	Gantt1.DefaultItemHeight = 48;
	Gantt1.Columns.Add("").Def(17) = 1;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Ӓӓ");
		var_Items.AddItem("ᦜᦝ;ᦞ");
		var_Items.AddItem("ɮɭ;ɯ");
		var_Items.AddItem("勳勴勵勶");
		var_Items.FormatCell(var_Items.AddItem(Gantt1.Version),0) = "(value lfind `UNICODE`) < 0 ? `<fgcolor=FF0000><b>!UNICODE!</b> version</fgcolor> required: ` + value : `` ";
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.Columns.Add("Items").FormatColumn = "((1 apos ``) lpad `00`) + `. `  + value";
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
		var_Items.AddItem("Item D");
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.LinesAtRoot = -1;
	Gantt1.DrawGridLines = -1;
	Gantt1.TreeColumnIndex = 0;
	Gantt1.MarkSearchColumn = false;
	Gantt1.FullRowSelect = 0;
	Gantt1.HeaderAppearance = -1;
	Gantt1.Chart.PaneWidth(true) = 0;
	var var_Columns = Gantt1.Columns;
		var_Columns.Add("C1").Width = 32;
		var_Columns.Add("C2").FormatColumn = "1 index ``";
	var var_Items = Gantt1.Items;
		var h = var_Items.AddItem("Cell 1");
		var_Items.CellSingleLine(h,1) = false;
		h = var_Items.AddItem("This is bit of text merges all cells in the item (divider shows no +/-)");
		var_Items.ItemDivider(h) = 0;
		var_Items.ItemBackColor(h) = 15790320;
		var_Items.ItemDividerLine(h) = 0;
		var_Items.CellHAlignment(h,0) = 1;
		var_Items.InsertItem(h,null,"Child 1");
		var_Items.InsertItem(h,null,"Child 2");
		var_Items.ExpandItem(h) = true;
		h = var_Items.AddItem("Cell 3");
		h = var_Items.AddItem("This is bit of text merges all cells in the item (merge shows +/-)");
		var_Items.ItemBackColor(h) = 15790320;
		var_Items.CellMerge(h,0) = 1;
		var_Items.InsertItem(h,null,"Child 3");
		var_Items.InsertItem(h,null,"Child 4");
		var_Items.ExpandItem(h) = true;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

961
ADODB Requery sample

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="CellButtonClick(Item,ColIndex)" LANGUAGE="JScript">
	var cmd = new ActiveXObject("ADODB.Command");
		cmd.ActiveConnection = Gantt1.DataSource.ActiveConnection;
		cmd.CommandText = "INSERT INTO Orders (EmployeeID) VALUES(12345)";
		cmd.CommandType = 1;
		cmd.Execute(null,null,null);
	Gantt1.DataSource.Requery(null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.HeaderAppearance = 4;
	Gantt1.ColumnAutoResize = false;
	var rs = new ActiveXObject("ADODB.Recordset");
		rs.Open("Select * From Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGantt\\Sample\\Access\\sample.accdb",1,3,null);
	Gantt1.DataSource = rs;
	Gantt1.ConditionalFormats.Add("%1=12345",null).BackColor = 15790320;
	var var_Items = Gantt1.Items;
		var_Items.LockedItemCount(0) = 1;
		var h = var_Items.LockedItem(0,0);
		var_Items.ItemDivider(h) = 0;
		var_Items.CellHasButton(h,0) = true;
		var_Items.CellCaption(h,0) = "Requery (add a new record, using ADODB.Command)";
		var_Items.CellHAlignment(h,0) = 1;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Appearance = Gantt1.VisualAppearance;
		var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" +
	"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQGhsCYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU8lORLUi+M4zSBPcZVTRtGShPDB" +
	"KTjMKKYgkG4lVpRNa0PC1GTzQ6mazkKQLRADDIDVbAeL3LiMBy9LyLLItQALByua5mWhbcZyBCOPgBTrRb5zO58FjuTK7YLjMB7NrUNYtFaUMy2OpOCADIaecTNcaWLx" +
	"PF2MY1HWYxVj2Jw3DuRJonKYBgggSRAlIYw6B0ThGFgPAkFUDAhBMfZRiGNAkFECZnm4YQdneJwqnsSQrGAAhWAIJBJBIQgFCQIBiEIAglgqYo0i4V4MEgRI9gSToYFS" +
	"b4Fk6Y4+BmBZhFOJgTC8TBogQAArgqco4muCZOkOMJtgmYpIjYKg7GKE4uCUK4AAKKg2DwI4DiCZw5k6KJ2D6D4OHiag4DwIxiiQAArAqMosnEPBPAOIhOg+DozjIJ4P" +
	"GSY4iEwPAkhKLhHUUSQsnKFCnkYU9MjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDya" +
	"ICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tE" +
	"sHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQg" +
	"pDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAA" +
	"MR1EOZxWi+bx7HcWQ8msfRYnnDhQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARViHH" +
	"4HQOYmxuCpF2MsecEQVBvGQCcIQvA6i2CAAIARAQ=");
		var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMwwDhEIwjHCEEhsGIbJAGQBJCjWGodQLOEgzN" +
	"C0IxNFCQILhEZJADKII8TTOU5UPRESwTE4cKBmKhQCo2NpKR7VUTxCKQahLLivoCjBT8EzHMqtIzrCA6MpaP4pQjKcqwHJ8YyHEi0ZrjazKaj6T5AXDUcaWbbNVx3PK3" +
	"aioOpLZrqOZZYzYFoABTuJzPMSyIhxXD8cweaZvSpLExVYK9BY3PbKMgxC77QgTIpDaQMNS6PjtF43PAALLFUaNYzoOKzABMHATBIXAYJCwIIR5G7ID4BbQcCQAHL9DB" +
	"aEEIAEEISgGhMGZQmocgymmIRQkIEQ2BcGgbEIRQci8XaMBqTRVgSAZHG+S5pnOep+D6f4vjec5zn0fpfmgBgAH6TRoBYBoAh+eAmAiAgPFgNArgOQpIESdoEmCOAOAq" +
	"BYfFGAgaEaBgYHYFYFmIB5UiGCJUgKCgmgeYoHk4BgCmKRQiCwApgHgYgyH8B54lQU4NkMeJlBoDgjkiXBTg0R54iYIR+koeQVBoKpkgkChKhEJBkF4SFEjkDgJhFQoe" +
	"EmDJlBeehUhWJQJGIXoICWOQ6FeFIlhkfhlDsSJpiQVoamaSY2G6G5nAmRhpCOH5pkwVYdmeCZmHqHpnkmdhzhmaAIFiax8AABAEICA==");
	Gantt1.BackColorHeader = 16777216;
	Gantt1.ForeColorHeader = 8421504;
	Gantt1.Background(0) = 33554432;
	Gantt1.Background(26) = 16777215;
	Gantt1.Background(27) = 65536;
	Gantt1.Background(20) = 33521664;
	Gantt1.Background(21) = 15790320;
	Gantt1.Background(32) = -1;
	Gantt1.HeaderHeight = 24;
	Gantt1.BackColorLevelHeader = Gantt1.BackColor;
	var var_Column = Gantt1.Columns.Add("Filter");
		var_Column.DisplayFilterButton = true;
		var_Column.DisplayFilterPattern = false;
		var_Column.FilterList = 9504;
		var_Column.Def(52) = 2;
		var_Column.Def(53) = 2;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("A");
		var_Items.AddItem("B");
		var_Items.AddItem("C");
		var_Items.AddItem("D");
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

959
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeCheckColumns

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.ColumnAutoResize = false;
	Gantt1.HeaderAppearance = 4;
	var var_Columns = Gantt1.Columns;
		var_Columns.Add("City");
		var_Columns.Add("Start").Visible = false;
		var_Columns.Add("End").Visible = false;
	Gantt1.Description(26) = "Show/Hide";
	Gantt1.ColumnsFloatBarSortOrder = 1;
	Gantt1.ColumnsFloatBarVisible = 2;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

958
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeHiddenColumn

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.ColumnAutoResize = false;
	Gantt1.HeaderAppearance = 4;
	var var_Columns = Gantt1.Columns;
		var_Columns.Add("City");
		var_Columns.Add("Start").Visible = false;
		var_Columns.Add("End").Visible = false;
	Gantt1.Description(26) = "Show";
	Gantt1.ColumnsFloatBarVisible = -1;
	Gantt1.ColumnsFloatBarSortOrder = 1;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.HeaderSingleLine = false;
	Gantt1.HeaderHeight = 36;
	Gantt1.DrawGridLines = -2;
	Gantt1.ColumnAutoResize = false;
	Gantt1.ScrollBySingleLine = true;
	var var_Columns = Gantt1.Columns;
		var var_Column = var_Columns.Add("Single-Line (exCaptionSingleLine)");
			var_Column.Width = 96;
			var_Column.Def(17) = 1;
			var_Column.Def(16) = -1;
		var var_Column1 = var_Columns.Add("Word-Wrap (exCaptionWordWrap)");
			var_Column1.Width = 96;
			var_Column1.Def(17) = 1;
			var_Column1.Def(16) = 0;
			var_Column1.FormatColumn = "%0";
		var var_Column2 = var_Columns.Add("Break-Wrap (exCaptionBreakWrap)");
			var_Column2.Width = 96;
			var_Column2.Def(17) = 1;
			var_Column2.Def(16) = 1;
			var_Column2.FormatColumn = "%0";
	var var_Items = Gantt1.Items;
		var_Items.AddItem("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("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();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.HeaderSingleLine = false;
	Gantt1.HeaderHeight = 36;
	Gantt1.DrawGridLines = -2;
	Gantt1.ColumnAutoResize = false;
	Gantt1.ScrollBySingleLine = true;
	Gantt1.Columns.Add("Default").Width = 128;
	var var_Items = Gantt1.Items;
		var h = var_Items.AddItem("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line.");
		h = var_Items.AddItem("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.CellCaptionFormat(h,0) = 1;
		h = var_Items.AddItem("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line.");
		var_Items.CellSingleLine(h,0) = 0;
		h = var_Items.AddItem("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.CellCaptionFormat(h,0) = 1;
		var_Items.CellSingleLine(h,0) = 0;
		h = var_Items.AddItem("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line.");
		var_Items.CellSingleLine(h,0) = 1;
		h = var_Items.AddItem("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.CellCaptionFormat(h,0) = 1;
		var_Items.CellSingleLine(h,0) = 1;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.DrawGridLines = -2;
	Gantt1.ColumnAutoResize = false;
	Gantt1.ScrollBySingleLine = true;
	Gantt1.Columns.Add("Default").Width = 128;
	var var_Items = Gantt1.Items;
		var_Items.CellSingleLine(var_Items.AddItem("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line."),0) = 1;
		var_Items.AddItem("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line.");
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.DrawGridLines = -2;
	Gantt1.ColumnAutoResize = false;
	Gantt1.ScrollBySingleLine = true;
	var var_Column = Gantt1.Columns.Add("Default");
		var_Column.Width = 128;
		var_Column.Def(16) = 1;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line.");
		var_Items.AddItem("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line.");
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.LinesAtRoot = -1;
	Gantt1.BackColorHeader = 1;
	Gantt1.ForeColorHeader = 16777215;
	Gantt1.Background(26) = Gantt1.BackColorHeader;
	Gantt1.Background(27) = Gantt1.ForeColorHeader;
	Gantt1.Background(0) = 15790320;
	Gantt1.Background(32) = -1;
	Gantt1.HeaderAppearance = 5;
	var var_Column = Gantt1.Columns.Add("Items");
		var_Column.FilterOnType = true;
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 2;
	var var_Items = Gantt1.Items;
		var h = var_Items.AddItem("Root 1");
		var_Items.InsertItem(h,null,"Child 1");
		var_Items.InsertItem(h,null,"Child 2");
		var_Items.ExpandItem(h) = true;
		h = var_Items.AddItem("Root 2");
		var_Items.InsertItem(h,null,"Child 1");
		var_Items.InsertItem(h,null,"Child 2");
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.ColumnAutoResize = true;
	var var_Column = Gantt1.Columns.Add("Default");
		var_Column.Def(17) = 1;
		var_Column.FormatColumn = "((trim(value) replace `   ` with ` `) replace `  ` with ` `) replace ` ` with `<bgcolor=FF0000> </bgcolor>`";
	var var_Items = Gantt1.Items;
		var_Items.AddItem("");
		var_Items.AddItem("Item A");
		var_Items.AddItem("    Item B");
		var_Items.AddItem("        Item   C    ");
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.ColumnAutoResize = true;
	var var_Column = Gantt1.Columns.Add("Default");
		var_Column.Def(17) = 1;
		var_Column.FormatColumn = "`'` + ( value replace ` ` with `_` ) + `'`";
	var var_Items = Gantt1.Items;
		var_Items.AddItem("");
		var_Items.AddItem("Item A");
		var_Items.AddItem("    Item B");
		var_Items.AddItem("        Item   C    ");
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.ColumnAutoResize = true;
	var var_Column = Gantt1.Columns.Add("Default");
		var_Column.Def(17) = 1;
		var_Column.FormatColumn = "len(value) = 0 ? `<bgcolor=FF0000> </bgcolor>` : ( value replace ` ` with `<bgcolor=FF0000> </bgcolor>` )";
	var var_Items = Gantt1.Items;
		var_Items.AddItem("");
		var_Items.AddItem("Item A");
		var_Items.AddItem("    Item B");
		var_Items.AddItem("        Item   C    ");
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.Background(26) = 65536;
	Gantt1.Background(27) = 16777215;
	Gantt1.Background(12) = 16777215;
	Gantt1.Background(8) = Gantt1.Background(26);
	Gantt1.Background(11) = 8421504;
	var var_Column = Gantt1.Columns.Add("Date");
		var_Column.FilterType = 4;
		var_Column.DisplayFilterButton = true;
		var_Column.DisplayFilterDate = true;
		var_Column.DisplayFilterPattern = false;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

948
Export Data in HTML format

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	var var_Items = Gantt1.Items;
		var i = var_Items.ItemToIndex(Item);
		var_Items.AddBar(Item,"Task","1/2/2008","1/9/2008","",null);
		var_Items.ItemBar(Item,"",514) = i;
		var_Items.ItemBar(Item,"",515) = i;
		var_Items.CellCaption(Item,1) = var_Items.ItemBar(Item,"",1);
		var_Items.CellCaption(Item,2) = var_Items.ItemBar(Item,"",2);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.BackColorAlternate = 15790320;
	Gantt1.DrawGridLines = -1;
	Gantt1.HeaderAppearance = 4;
	Gantt1.Description(11) = Gantt1.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Gantt1.Description(11),null,null);
	Gantt1.FilterBarCaption = "(( ( 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 = 2579;
	Gantt1.FilterBarPromptType = 2;
	Gantt1.DrawGridLines = -1;
	var var_Chart = Gantt1.Chart;
		var_Chart.DrawGridLines = -1;
		var_Chart.PaneWidth(false) = 196;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "1/1/2008";
		var_Chart.FirstWeekDay = 1;
	var var_ConditionalFormat = Gantt1.ConditionalFormats.Add("(%2 - %1) = 3","K3");
		var_ConditionalFormat.ForeColor = 255;
		var_ConditionalFormat.BarColor = var_ConditionalFormat.ForeColor;
		var_ConditionalFormat.ApplyToBars = "Task";
	var var_ConditionalFormat1 = Gantt1.ConditionalFormats.Add("(%2 - %1) = 5","K5");
		var_ConditionalFormat1.ForeColor = 65280;
		var_ConditionalFormat1.BarColor = var_ConditionalFormat1.ForeColor;
		var_ConditionalFormat1.ApplyToBars = "Task";
	var var_Columns = Gantt1.Columns;
		var_Columns.Add("Tasks").Def(0) = true;
		var_Columns.Add("Start");
		var_Columns.Add("End");
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Task 1");
		var_Items.AddItem("Task 2");
		var_Items.AddItem("Task 3");
		var_Items.AddItem("Task 4");
		var_Items.AddItem("Task 5");
		var_Items.AddItem("Task 6");
		var_Items.AddItem("Task 7");
		var_Items.AddItem("Task 8");
	Gantt1.EndUpdate();
	var sFile = "c:/temp/export.html";
	Gantt1.Export(sFile,"vis");
	var var_ShellBrowserWindow = new ActiveXObject("InternetExplorer.Application");
		var_ShellBrowserWindow.Navigate2(sFile,null,null,null,null);
}
</SCRIPT>
</BODY>

947
Export Data in CSV format

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	var var_Items = Gantt1.Items;
		var i = var_Items.ItemToIndex(Item);
		var_Items.AddBar(Item,"Task","1/2/2008","1/9/2008","",null);
		var_Items.ItemBar(Item,"",514) = i;
		var_Items.ItemBar(Item,"",515) = i;
		var_Items.CellCaption(Item,1) = var_Items.ItemBar(Item,"",1);
		var_Items.CellCaption(Item,2) = var_Items.ItemBar(Item,"",2);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.BackColorAlternate = 15790320;
	Gantt1.DrawGridLines = -1;
	Gantt1.HeaderAppearance = 4;
	Gantt1.Description(11) = Gantt1.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Gantt1.Description(11),null,null);
	Gantt1.FilterBarCaption = "(( ( 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 = 2579;
	Gantt1.FilterBarPromptType = 2;
	var var_Chart = Gantt1.Chart;
		var_Chart.PaneWidth(false) = 196;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "1/1/2008";
	var var_ConditionalFormat = Gantt1.ConditionalFormats.Add("(%2 - %1) = 3","K3");
		var_ConditionalFormat.ForeColor = 255;
		var_ConditionalFormat.BarColor = var_ConditionalFormat.ForeColor;
		var_ConditionalFormat.ApplyToBars = "Task";
	var var_ConditionalFormat1 = Gantt1.ConditionalFormats.Add("(%2 - %1) = 5","K5");
		var_ConditionalFormat1.ForeColor = 65280;
		var_ConditionalFormat1.BarColor = var_ConditionalFormat1.ForeColor;
		var_ConditionalFormat1.ApplyToBars = "Task";
	var var_Columns = Gantt1.Columns;
		var_Columns.Add("Tasks").Def(0) = true;
		var_Columns.Add("Start");
		var_Columns.Add("End");
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Task 1");
		var_Items.AddItem("Task 2");
		var_Items.AddItem("Task 3");
		var_Items.AddItem("Task 4");
		var_Items.AddItem("Task 5");
		var_Items.AddItem("Task 6");
		var_Items.AddItem("Task 7");
		var_Items.AddItem("Task 8");
	Gantt1.EndUpdate();
	alert( Gantt1.Export("","vis") );
}
</SCRIPT>
</BODY>

946
Is it possible to check multiple-items at once
<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	var bHasParent = Gantt1.FormatABC("value != 0",Gantt1.Items.ItemParent(Item),null,null);
	var var_Items = Gantt1.Items;
		var_Items.CellHasCheckBox(Item,0) = bHasParent;
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.LinesAtRoot = -1;
	var var_Column = Gantt1.Columns.Add("Tasks");
		var_Column.Def(17) = 1;
		var_Column.FormatColumn = "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)";
	Gantt1.HeaderVisible = 1;
	Gantt1.SingleSel = false;
	var var_Items = Gantt1.Items;
		var h = var_Items.AddItem("Project");
		var hChild = var_Items.InsertItem(h,null,"Task 1");
		hChild = var_Items.InsertItem(h,null,"Task 2");
		hChild = var_Items.InsertItem(h,null,"Task 3");
		var_Items.ExpandItem(h) = true;
		var_Items.LockedItemCount(0) = 1;
		var_Items.CellCaption(var_Items.LockedItem(0,0),0) = "<c>Select multiple items and press the <b>SPACE</b> key";
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="MouseMove(Button,Shift,X,Y)" LANGUAGE="JScript">
	var i = Gantt1.ItemFromPoint(-1,-1,c,hit);
	alert( Gantt1.FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? ( ( (value bitand 0xFFFF0000) bitshift 16 ) array B split `,` )  : `no image`",hit,Gantt1.Items.CellImages(i,c),null) );
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
	Gantt1.Chart.PaneWidth(true) = 0;
	Gantt1.Columns.Add("Default");
	var var_Items = Gantt1.Items;
		var_Items.CellImages(var_Items.AddItem("Item 1"),0) = "3,2,1";
		var_Items.CellImages(var_Items.AddItem("Item 2"),0) = "2,3";
		var_Items.CellImages(var_Items.AddItem("Item 3"),0) = "2,";
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="MouseMove(Button,Shift,X,Y)" LANGUAGE="JScript">
	var i = Gantt1.ItemFromPoint(-1,-1,c,hit);
	alert( Gantt1.FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit,null,null) );
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
	Gantt1.Chart.PaneWidth(true) = 0;
	Gantt1.Columns.Add("Default");
	var var_Items = Gantt1.Items;
		var_Items.CellImages(var_Items.AddItem("Item 1"),0) = "3,2,1";
		var_Items.CellImages(var_Items.AddItem("Item 2"),0) = "2,3";
		var_Items.CellImages(var_Items.AddItem("Item 3"),0) = "2";
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

943
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop
<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.HeaderAppearance = 4;
	var var_Columns = Gantt1.Columns;
		var_Columns.Add("Column 1");
		var_Columns.Add("Column 2");
		var_Columns.Add("Column 3");
	var var_Appearance = Gantt1.VisualAppearance;
		var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV" +
	"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" +
	"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" +
	"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" +
	"BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" +
	"GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=");
		var_Appearance.Add(2,"CP:1 0 -36 0 0");
	Gantt1.Background(182) = 33554432;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.ColumnAutoResize = true;
	Gantt1.DefaultItemHeight = 20;
	Gantt1.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1m" +
	"Y1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2h" +
	"hWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY" +
	"6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQR" +
	"JSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd" +
	"0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA==");
	var var_Column = Gantt1.Columns.Add("Default");
		var_Column.Def(0) = true;
		var_Column.PartialCheck = true;
	var var_Column1 = Gantt1.Columns.Add("Position");
		var_Column1.FormatColumn = "1 rindex ``";
		var_Column1.Visible = false;
	var var_ConditionalFormat = Gantt1.ConditionalFormats.Add("%C1 mod 2",null);
		var_ConditionalFormat.BackColor = 16777216;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item 1");
		var_Items.AddItem("Item 2");
		var_Items.AddItem("Item 3");
		var_Items.AddItem("Item 4");
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.LinesAtRoot = -1;
	var var_Column = Gantt1.Columns.Add("Default");
		var_Column.Def(0) = true;
		var_Column.PartialCheck = true;
	var var_Column1 = Gantt1.Columns.Add("Position");
		var_Column1.FormatColumn = "( ( 1:=( ( 0:=(1 rpos '') ) lfind `.`) ) < 0 ? =:0 : (=:0 left =:1) )";
		var_Column1.Visible = false;
	var var_ConditionalFormat = Gantt1.ConditionalFormats.Add("%C1 mod 2",null);
		var_ConditionalFormat.BackColor = 15790320;
	var var_Items = Gantt1.Items;
		var h = var_Items.AddItem("Root 1");
		var_Items.InsertItem(h,null,"Child 1");
		var_Items.InsertItem(h,null,"Child 2");
		var_Items.ExpandItem(h) = true;
		h = var_Items.AddItem("Root 2");
		var_Items.InsertItem(h,null,"Child 1");
		var_Items.InsertItem(h,null,"Child 2");
		h = var_Items.AddItem("Root 3");
		var_Items.InsertItem(h,null,"Child 1");
		var_Items.InsertItem(h,null,"Child 2");
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.LinesAtRoot = -1;
	Gantt1.VisualDesign = "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("Column");
	var var_Items = Gantt1.Items;
		var h = var_Items.AddItem("Root 1");
		var_Items.InsertItem(h,null,"Child 1");
		var_Items.InsertItem(h,null,"Child 2");
		var_Items.ExpandItem(h) = true;
		h = var_Items.AddItem("Root 2");
		var_Items.InsertItem(h,null,"Child");
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Appearance = Gantt1.VisualAppearance;
		var_Appearance.Add(3,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" +
	"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" +
	"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" +
	"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" +
	"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" +
	"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" +
	"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=");
		var_Appearance.Add(1,"CP:3 -2 -2 2 2");
		var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" +
	"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" +
	"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" +
	"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" +
	"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" +
	"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" +
	"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=");
		var_Appearance.Add(2,"CP:4 -2 -2 2 2");
	Gantt1.LinesAtRoot = 1;
	Gantt1.HasButtons = 4;
	Gantt1.HasButtonsCustom(0) = 16777216;
	Gantt1.HasButtonsCustom(1) = 33554432;
	Gantt1.Columns.Add("Column");
	var var_Items = Gantt1.Items;
		var h = var_Items.AddItem("Root 1");
		var_Items.InsertItem(h,null,"Child 1");
		var_Items.InsertItem(h,null,"Child 2");
		var_Items.ExpandItem(h) = true;
		h = var_Items.AddItem("Root 2");
		var_Items.InsertItem(h,null,"Child");
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Appearance = Gantt1.VisualAppearance;
		var_Appearance.Add(1,"XP:TREEVIEW 2 1");
		var_Appearance.Add(2,"XP:TREEVIEW 2 2");
	Gantt1.Background(180) = 16777216;
	Gantt1.Background(181) = 33554432;
	Gantt1.LinesAtRoot = -1;
	Gantt1.Columns.Add("Column");
	var var_Items = Gantt1.Items;
		var h = var_Items.AddItem("Root 1");
		var_Items.InsertItem(h,null,"Child 1");
		var_Items.InsertItem(h,null,"Child 2");
		var_Items.ExpandItem(h) = true;
		h = var_Items.AddItem("Root 2");
		var_Items.InsertItem(h,null,"Child");
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

937
How can I find if the control is running in DPI mode
<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	alert( Gantt1.FormatABC("dpi = 1 ? `normal/stretch mode` : `dpi mode`",null,null,null) );
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Appearance = Gantt1.VisualAppearance;
		var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" +
	"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" +
	"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" +
	"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" +
	"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" +
	"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" +
	"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=");
		var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" +
	"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" +
	"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" +
	"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" +
	"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" +
	"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" +
	"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=");
	Gantt1.LinesAtRoot = -1;
	Gantt1.Background(180) = 16777216;
	Gantt1.Background(181) = 33554432;
	Gantt1.Columns.Add("Column");
	var var_Items = Gantt1.Items;
		var h = var_Items.AddItem("Root 1");
		var_Items.InsertItem(h,null,"Child 1");
		var_Items.InsertItem(h,null,"Child 2");
		var_Items.ExpandItem(h) = true;
		h = var_Items.AddItem("Root 2");
		var_Items.InsertItem(h,null,"Child");
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	var var_Column = Gantt1.Columns.Add("Col-1");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 9504;
	var var_Column1 = Gantt1.Columns.Add("Col-2");
		var_Column1.DisplayFilterButton = true;
		var_Column1.FilterList = 9504;
	var var_Column2 = Gantt1.Columns.Add("Pos");
		var_Column2.AllowSizing = false;
		var_Column2.AllowSort = false;
		var_Column2.Width = 32;
		var_Column2.FormatColumn = "1 apos ``";
		var_Column2.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A";
		var_Items.CellCaption(var_Items.AddItem("Item B"),1) = "Sub-Item B";
		var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C";
	Gantt1.FilterBarPromptVisible = 4096;
	var var_Column3 = Gantt1.Columns.Item(1);
		var_Column3.FilterType = 3;
		var_Column3.Filter = "*B";
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

934
FilterBarCaption ALL Keyword ( sample 2, result )

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	var i = Gantt1.FormatABC("value + 1",Gantt1.Items.ItemToIndex(Item),null,null);
	Gantt1.Items.CellImage(Item,3) = i;
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
	var var_Column = Gantt1.Columns.Add("Col-1");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 9504;
	var var_Column1 = Gantt1.Columns.Add("Col-2");
		var_Column1.DisplayFilterButton = true;
		var_Column1.FilterList = 9504;
	var var_Column2 = Gantt1.Columns.Add("Check");
		var_Column2.Def(0) = true;
		var_Column2.DisplayFilterButton = true;
		var_Column2.DisplayFilterPattern = false;
		var_Column2.FilterType = 6;
	var var_Column3 = Gantt1.Columns.Add("Image");
		var_Column3.DisplayFilterButton = true;
		var_Column3.FilterType = 10;
		var_Column3.FilterList = 9472;
	var var_Column4 = Gantt1.Columns.Add("Pos");
		var_Column4.AllowSizing = false;
		var_Column4.AllowSort = false;
		var_Column4.Width = 32;
		var_Column4.FormatColumn = "1 apos ``";
		var_Column4.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A";
		var h = var_Items.AddItem("Item B");
		var_Items.CellCaption(h,1) = "Sub-Item B";
		var_Items.CellState(h,2) = 1;
		var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C";
	Gantt1.FilterBarFont = Gantt1.Font;
	Gantt1.Description(11) = Gantt1.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Gantt1.Description(11),null,null);
	Gantt1.FilterBarCaption = "(( ( 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 = 3;
	var var_Column5 = Gantt1.Columns.Item(0);
		var_Column5.FilterType = 240;
		var_Column5.Filter = "Item A|Item B";
	Gantt1.Columns.Item(2).Filter = 1;
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

933
FilterBarCaption ALL Keyword ( sample 1 )

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	var i = Gantt1.FormatABC("value + 1",Gantt1.Items.ItemToIndex(Item),null,null);
	Gantt1.Items.CellImage(Item,3) = i;
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
	var var_Column = Gantt1.Columns.Add("Col-1");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 9504;
	var var_Column1 = Gantt1.Columns.Add("Col-2");
		var_Column1.DisplayFilterButton = true;
		var_Column1.FilterList = 9504;
	var var_Column2 = Gantt1.Columns.Add("Check");
		var_Column2.Def(0) = true;
		var_Column2.DisplayFilterButton = true;
		var_Column2.DisplayFilterPattern = false;
		var_Column2.FilterType = 6;
	var var_Column3 = Gantt1.Columns.Add("Image");
		var_Column3.DisplayFilterButton = true;
		var_Column3.FilterType = 10;
		var_Column3.FilterList = 9472;
	var var_Column4 = Gantt1.Columns.Add("Pos");
		var_Column4.AllowSizing = false;
		var_Column4.AllowSort = false;
		var_Column4.Width = 32;
		var_Column4.FormatColumn = "1 apos ``";
		var_Column4.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A";
		var h = var_Items.AddItem("Item B");
		var_Items.CellCaption(h,1) = "Sub-Item B";
		var_Items.CellState(h,2) = 1;
		var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C";
	Gantt1.FilterBarFont = Gantt1.Font;
	Gantt1.Description(11) = Gantt1.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Gantt1.Description(11),null,null);
	Gantt1.FilterBarCaption = "all";
	Gantt1.FilterBarPromptVisible = 3;
	var var_Column5 = Gantt1.Columns.Item(0);
		var_Column5.FilterType = 240;
		var_Column5.Filter = "Item A|Item B";
	Gantt1.Columns.Item(2).Filter = 1;
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

932
FilterBarCaption ALLUI Keyword ( sample 2, result )

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	var i = Gantt1.FormatABC("value + 1",Gantt1.Items.ItemToIndex(Item),null,null);
	Gantt1.Items.CellImage(Item,3) = i;
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
	var var_Column = Gantt1.Columns.Add("Col-1");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 9504;
	var var_Column1 = Gantt1.Columns.Add("Col-2");
		var_Column1.DisplayFilterButton = true;
		var_Column1.FilterList = 9504;
	var var_Column2 = Gantt1.Columns.Add("Check");
		var_Column2.Def(0) = true;
		var_Column2.DisplayFilterButton = true;
		var_Column2.DisplayFilterPattern = false;
		var_Column2.FilterType = 6;
	var var_Column3 = Gantt1.Columns.Add("Image");
		var_Column3.DisplayFilterButton = true;
		var_Column3.FilterType = 10;
		var_Column3.FilterList = 9472;
	var var_Column4 = Gantt1.Columns.Add("Pos");
		var_Column4.AllowSizing = false;
		var_Column4.AllowSort = false;
		var_Column4.Width = 32;
		var_Column4.FormatColumn = "1 apos ``";
		var_Column4.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A";
		var h = var_Items.AddItem("Item B");
		var_Items.CellCaption(h,1) = "Sub-Item B";
		var_Items.CellState(h,2) = 1;
		var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C";
	Gantt1.FilterBarFont = Gantt1.Font;
	Gantt1.Description(11) = Gantt1.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Gantt1.Description(11),null,null);
	Gantt1.FilterBarCaption = "(( ( 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 = 3;
	var var_Column5 = Gantt1.Columns.Item(0);
		var_Column5.FilterType = 240;
		var_Column5.Filter = "Item A|Item B";
	Gantt1.Columns.Item(2).Filter = 1;
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

931
FilterBarCaption ALLUI Keyword ( sample 1 )

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	var i = Gantt1.FormatABC("value + 1",Gantt1.Items.ItemToIndex(Item),null,null);
	Gantt1.Items.CellImage(Item,3) = i;
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
	var var_Column = Gantt1.Columns.Add("Col-1");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 9504;
	var var_Column1 = Gantt1.Columns.Add("Col-2");
		var_Column1.DisplayFilterButton = true;
		var_Column1.FilterList = 9504;
	var var_Column2 = Gantt1.Columns.Add("Check");
		var_Column2.Def(0) = true;
		var_Column2.DisplayFilterButton = true;
		var_Column2.DisplayFilterPattern = false;
		var_Column2.FilterType = 6;
	var var_Column3 = Gantt1.Columns.Add("Image");
		var_Column3.DisplayFilterButton = true;
		var_Column3.FilterType = 10;
		var_Column3.FilterList = 9472;
	var var_Column4 = Gantt1.Columns.Add("Pos");
		var_Column4.AllowSizing = false;
		var_Column4.AllowSort = false;
		var_Column4.Width = 32;
		var_Column4.FormatColumn = "1 apos ``";
		var_Column4.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A";
		var h = var_Items.AddItem("Item B");
		var_Items.CellCaption(h,1) = "Sub-Item B";
		var_Items.CellState(h,2) = 1;
		var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C";
	Gantt1.FilterBarFont = Gantt1.Font;
	Gantt1.Description(11) = Gantt1.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Gantt1.Description(11),null,null);
	Gantt1.FilterBarCaption = "allui";
	Gantt1.FilterBarPromptVisible = 3;
	var var_Column5 = Gantt1.Columns.Item(0);
		var_Column5.FilterType = 240;
		var_Column5.Filter = "Item A|Item B";
	Gantt1.Columns.Item(2).Filter = 1;
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

930
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	var i = Gantt1.FormatABC("value + 1",Gantt1.Items.ItemToIndex(Item),null,null);
	Gantt1.Items.CellImage(Item,3) = i;
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
	var var_Column = Gantt1.Columns.Add("Col-1");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 9504;
	var var_Column1 = Gantt1.Columns.Add("Col-2");
		var_Column1.DisplayFilterButton = true;
		var_Column1.FilterList = 9504;
	var var_Column2 = Gantt1.Columns.Add("Check");
		var_Column2.Def(0) = true;
		var_Column2.DisplayFilterButton = true;
		var_Column2.DisplayFilterPattern = false;
		var_Column2.FilterType = 6;
	var var_Column3 = Gantt1.Columns.Add("Image");
		var_Column3.DisplayFilterButton = true;
		var_Column3.FilterType = 10;
		var_Column3.FilterList = 9472;
	var var_Column4 = Gantt1.Columns.Add("Pos");
		var_Column4.AllowSizing = false;
		var_Column4.AllowSort = false;
		var_Column4.Width = 32;
		var_Column4.FormatColumn = "1 apos ``";
		var_Column4.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A";
		var h = var_Items.AddItem("Item B");
		var_Items.CellCaption(h,1) = "Sub-Item B";
		var_Items.CellState(h,2) = 1;
		var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C";
	Gantt1.FilterBarFont = Gantt1.Font;
	Gantt1.Description(11) = Gantt1.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Gantt1.Description(11),null,null);
	Gantt1.FilterBarCaption = "(( ( 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 = 3;
	var var_Column5 = Gantt1.Columns.Item(0);
		var_Column5.FilterType = 240;
		var_Column5.Filter = "Item A|Item B";
	Gantt1.Columns.Item(2).Filter = 1;
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

929
FilterBarCaption AVAILABLE Keyword ( sample 1 )

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	var i = Gantt1.FormatABC("value + 1",Gantt1.Items.ItemToIndex(Item),null,null);
	Gantt1.Items.CellImage(Item,3) = i;
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
	var var_Column = Gantt1.Columns.Add("Col-1");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 9504;
	var var_Column1 = Gantt1.Columns.Add("Col-2");
		var_Column1.DisplayFilterButton = true;
		var_Column1.FilterList = 9504;
	var var_Column2 = Gantt1.Columns.Add("Check");
		var_Column2.Def(0) = true;
		var_Column2.DisplayFilterButton = true;
		var_Column2.DisplayFilterPattern = false;
		var_Column2.FilterType = 6;
	var var_Column3 = Gantt1.Columns.Add("Image");
		var_Column3.DisplayFilterButton = true;
		var_Column3.FilterType = 10;
		var_Column3.FilterList = 9472;
	var var_Column4 = Gantt1.Columns.Add("Pos");
		var_Column4.AllowSizing = false;
		var_Column4.AllowSort = false;
		var_Column4.Width = 32;
		var_Column4.FormatColumn = "1 apos ``";
		var_Column4.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A";
		var h = var_Items.AddItem("Item B");
		var_Items.CellCaption(h,1) = "Sub-Item B";
		var_Items.CellState(h,2) = 1;
		var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C";
	Gantt1.FilterBarFont = Gantt1.Font;
	Gantt1.Description(11) = Gantt1.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Gantt1.Description(11),null,null);
	Gantt1.FilterBarCaption = "value + ` ` + available";
	Gantt1.FilterBarPromptVisible = 3;
	var var_Column5 = Gantt1.Columns.Item(0);
		var_Column5.FilterType = 240;
		var_Column5.Filter = "Item A|Item B";
	Gantt1.Columns.Item(2).Filter = 1;
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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 )

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	var var_Column = Gantt1.Columns.Add("Col-1");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 9504;
	var var_Column1 = Gantt1.Columns.Add("Col-2");
		var_Column1.DisplayFilterButton = true;
		var_Column1.FilterList = 9504;
	var var_Column2 = Gantt1.Columns.Add("Pos");
		var_Column2.AllowSizing = false;
		var_Column2.AllowSort = false;
		var_Column2.Width = 32;
		var_Column2.FormatColumn = "1 apos ``";
		var_Column2.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A";
		var_Items.CellCaption(var_Items.AddItem("Item B"),1) = "Sub-Item B";
		var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C";
	Gantt1.FilterBarFont = Gantt1.Font;
	Gantt1.Description(11) = Gantt1.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",Gantt1.Description(11),null,null);
	Gantt1.FilterBarCaption = "(`<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 = 256;
	var var_Column3 = Gantt1.Columns.Item(0);
		var_Column3.FilterType = 240;
		var_Column3.Filter = "Item A|Item B";
	var var_Column4 = Gantt1.Columns.Item(1);
		var_Column4.FilterType = 3;
		var_Column4.Filter = "*B";
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	var var_Column = Gantt1.Columns.Add("Col-1");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 9504;
	var var_Column1 = Gantt1.Columns.Add("Col-2");
		var_Column1.DisplayFilterButton = true;
		var_Column1.FilterList = 9504;
	var var_Column2 = Gantt1.Columns.Add("Pos");
		var_Column2.AllowSizing = false;
		var_Column2.AllowSort = false;
		var_Column2.Width = 32;
		var_Column2.FormatColumn = "1 apos ``";
		var_Column2.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A";
		var_Items.CellCaption(var_Items.AddItem("Item B"),1) = "Sub-Item B";
		var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C";
	Gantt1.FilterBarFont = Gantt1.Font;
	Gantt1.Description(11) = Gantt1.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",Gantt1.Description(11),null,null);
	Gantt1.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`";
	Gantt1.FilterBarPromptVisible = 256;
	var var_Column3 = Gantt1.Columns.Item(0);
		var_Column3.FilterType = 240;
		var_Column3.Filter = "Item A|Item B";
	var var_Column4 = Gantt1.Columns.Item(1);
		var_Column4.FilterType = 3;
		var_Column4.Filter = "*B";
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	var var_Column = Gantt1.Columns.Add("Col-1");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 9504;
	var var_Column1 = Gantt1.Columns.Add("Col-2");
		var_Column1.DisplayFilterButton = true;
		var_Column1.FilterList = 9504;
	var var_Column2 = Gantt1.Columns.Add("Pos");
		var_Column2.AllowSizing = false;
		var_Column2.AllowSort = false;
		var_Column2.Width = 32;
		var_Column2.FormatColumn = "1 apos ``";
		var_Column2.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A";
		var_Items.CellCaption(var_Items.AddItem("Item B"),1) = "Sub-Item B";
		var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C";
	Gantt1.Description(11) = Gantt1.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",Gantt1.Description(11),null,null);
	Gantt1.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`";
	Gantt1.FilterBarPromptVisible = 256;
	var var_Column3 = Gantt1.Columns.Item(0);
		var_Column3.FilterType = 240;
		var_Column3.Filter = "Item A|Item B";
	var var_Column4 = Gantt1.Columns.Item(1);
		var_Column4.FilterType = 3;
		var_Column4.Filter = "*B";
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	var var_Column = Gantt1.Columns.Add("Item");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 9504;
	var var_Column1 = Gantt1.Columns.Add("Pos");
		var_Column1.AllowSizing = false;
		var_Column1.AllowSort = false;
		var_Column1.Width = 32;
		var_Column1.FormatColumn = "1 apos ``";
		var_Column1.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
	Gantt1.FilterBarCaption = "`<r>` + value";
	Gantt1.FilterBarPromptVisible = 1280;
	var var_Column2 = Gantt1.Columns.Item(0);
		var_Column2.FilterType = 240;
		var_Column2.Filter = "Item B";
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	var var_Column = Gantt1.Columns.Add("Item");
		var_Column.DisplayFilterButton = true;
		var_Column.FilterList = 9504;
	var var_Column1 = Gantt1.Columns.Add("Pos");
		var_Column1.AllowSizing = false;
		var_Column1.AllowSort = false;
		var_Column1.Width = 32;
		var_Column1.FormatColumn = "1 apos ``";
		var_Column1.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
	Gantt1.FilterBarFont = Gantt1.Font;
	Gantt1.FilterBarPrompt = Gantt1.FormatABC("`<b>` + value",Gantt1.FilterBarPrompt,null,null);
	Gantt1.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount " +
	"+ 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )";
	Gantt1.FilterBarPromptVisible = 3591;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = Gantt1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
	Gantt1.FilterBarFont = Gantt1.Font;
	Gantt1.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount " +
	"+ 1) + ` result(s)` ) : ``)";
	Gantt1.FilterBarPromptVisible = 2055;
	var var_Column1 = Gantt1.Columns.Item(0);
		var_Column1.FilterType = 240;
		var_Column1.Filter = "Item A|Item B";
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = Gantt1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
	Gantt1.FilterBarFont = Gantt1.Font;
	Gantt1.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)";
	Gantt1.FilterBarPromptVisible = 2071;
	var var_Column1 = Gantt1.Columns.Item(0);
		var_Column1.FilterType = 240;
		var_Column1.Filter = "Item A|Item B";
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = Gantt1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
	Gantt1.FilterBarFont = Gantt1.Font;
	Gantt1.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)";
	Gantt1.FilterBarPromptVisible = 7;
	var var_Column1 = Gantt1.Columns.Item(0);
		var_Column1.FilterType = 240;
		var_Column1.Filter = "Item A|Item B";
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

920
FilterBarCaption Predefined Keywords

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<SCRIPT FOR="Gantt1" EVENT="AfterExpandItem(Item)" LANGUAGE="JScript">
	Gantt1.Refresh();
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.LinesAtRoot = -1;
	Gantt1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = Gantt1.Columns.Add("Check");
		var_Column.Def(0) = true;
		var_Column.DisplayFilterButton = true;
		var_Column.DisplayFilterPattern = false;
		var_Column.FilterType = 6;
	var var_Column1 = Gantt1.Columns.Add("Pos");
		var_Column1.AllowSizing = false;
		var_Column1.AllowSort = false;
		var_Column1.Width = 32;
		var_Column1.FormatColumn = "1 apos ``";
		var_Column1.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var h = var_Items.AddItem("Item B");
		var_Items.CellState(var_Items.InsertItem(h,null,"Sub-Item B1"),1) = 1;
		var_Items.InsertItem(h,null,"Sub-Item B2");
		var_Items.ExpandItem(h) = true;
		var_Items.AddItem("Item C");
	Gantt1.FilterInclude = 1;
	Gantt1.FilterBarFont = Gantt1.Font;
	Gantt1.FilterBarCaption = "`<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 = "B";
	Gantt1.FilterBarPromptVisible = 7;
	var var_Column2 = Gantt1.Columns.Item(0);
		var_Column2.FilterType = 240;
		var_Column2.Filter = "Item A|Item B";
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = Gantt1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
	Gantt1.FilterBarFont = Gantt1.Font;
	Gantt1.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value";
	Gantt1.FilterBarPromptPattern = "B";
	Gantt1.FilterBarPromptVisible = 2067;
	var var_Column1 = Gantt1.Columns.Item(0);
		var_Column1.FilterType = 240;
		var_Column1.Filter = "Item A|Item B";
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = Gantt1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
	Gantt1.FilterBarPromptVisible = 1281;
	Gantt1.FilterBarPrompt = Gantt1.FormatABC("`<r>` + value",Gantt1.FilterBarPrompt,null,null);
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.RightToLeft = true;
	Gantt1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = Gantt1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
	Gantt1.FilterBarPromptVisible = 257;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	var var_Appearance = Gantt1.VisualAppearance;
		var_Appearance.Add(1,"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("Item").DisplayFilterButton = true;
	var var_Column = Gantt1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
	Gantt1.FilterBarPromptVisible = 257;
	Gantt1.Background(1) = 16777216;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = Gantt1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
	Gantt1.FilterBarPromptVisible = 1;
	Gantt1.Background(1) = 255;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = Gantt1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
	Gantt1.FilterBarPromptVisible = 1;
	Gantt1.Background(1) = -1;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = Gantt1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
	Gantt1.FilterBarPromptVisible = 513;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = Gantt1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
		var_Items.LockedItemCount(2) = 1;
		var h = var_Items.LockedItem(2,0);
		var_Items.ItemDivider(h) = 0;
		var_Items.CellCaption(h,0) = "<c><fgcolor=808080>Press the CTRL + F to turn on/off the control's filter bar. ALT + Up/Down moves the focus.";
		var_Items.CellCaptionFormat(h,0) = 1;
	Gantt1.FilterBarCaption = "`<r><fgcolor=808080>` + value";
	Gantt1.FilterBarPromptPattern = "B";
	Gantt1.FilterBarPromptVisible = 2323;
	var var_Column1 = Gantt1.Columns.Item(0);
		var_Column1.FilterType = 240;
		var_Column1.Filter = "Item B";
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = Gantt1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
	Gantt1.FilterBarCaption = "len(value) ? `filter for: <fgcolor 808080>` + value  : `<fgcolor 808080>no filter`";
	Gantt1.FilterBarPromptVisible = 18;
	var var_Column1 = Gantt1.Columns.Item(0);
		var_Column1.FilterType = 240;
		var_Column1.Filter = "Item A|Item B";
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = Gantt1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
	Gantt1.FilterBarCaption = "`<r>` + value";
	Gantt1.FilterBarPromptVisible = 2067;
	var var_Column1 = Gantt1.Columns.Item(0);
		var_Column1.FilterType = 240;
		var_Column1.Filter = "Item A|Item B";
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<SCRIPT FOR="Gantt1" EVENT="Click()" LANGUAGE="JScript">
	Gantt1.ClearFilter();
</SCRIPT>

<SCRIPT FOR="Gantt1" EVENT="FilterChange()" LANGUAGE="JScript">
	alert( "Items.MatchItemCount" );
	alert( Gantt1.Items.MatchItemCount );
	alert( Gantt1.FormatABC("value < 0 ? `filter applied: ` + abs(value + 1) + ` result(s)` : `no filter`",Gantt1.Items.MatchItemCount,null,null) );
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = Gantt1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
	Gantt1.FilterBarPromptVisible = 1;
	Gantt1.FilterBarPromptPattern = "Item";
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

908
How can I programmatically clear the control's filter
<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<SCRIPT FOR="Gantt1" EVENT="Click()" LANGUAGE="JScript">
	Gantt1.ClearFilter();
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = Gantt1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
	Gantt1.FilterBarPromptVisible = 1;
	Gantt1.FilterBarPromptPattern = "B";
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = Gantt1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
	Gantt1.FilterBarPromptPattern = "B";
	Gantt1.FilterBarPromptVisible = 3;
	var var_Column1 = Gantt1.Columns.Item(0);
		var_Column1.FilterType = 240;
		var_Column1.Filter = "Item B";
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = Gantt1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
	Gantt1.FilterBarPromptVisible = 1;
	Gantt1.FilterBarPromptPattern = "B";
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT FOR="Gantt1" EVENT="AddItem(Item)" LANGUAGE="JScript">
	Gantt1.Items.AddBar(Item,"Task","12/4/2017","12/14/2017",null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/2/2017";
		var_Chart.PaneWidth(false) = 256;
	Gantt1.Columns.Add("Item").DisplayFilterButton = true;
	var var_Column = Gantt1.Columns.Add("Pos");
		var_Column.AllowSizing = false;
		var_Column.AllowSort = false;
		var_Column.Width = 32;
		var_Column.FormatColumn = "1 apos ``";
		var_Column.Position = 0;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("Item A");
		var_Items.AddItem("Item B");
		var_Items.AddItem("Item C");
	Gantt1.FilterBarCaption = "len(value) = 0 ? `<fgcolor=808080>no filter` : value";
	Gantt1.FilterBarPromptVisible = 2;
	var var_Column1 = Gantt1.Columns.Item(0);
		var_Column1.FilterType = 240;
		var_Column1.Filter = "Item B";
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Appearance = Gantt1.VisualAppearance;
		var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" +
	"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" +
	"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA");
	Gantt1.Background(32) = -1;
	Gantt1.Background(0) = 16777216;
	Gantt1.Background(26) = 65536;
	Gantt1.Background(27) = 16777215;
	Gantt1.Description(25) = "<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>";
	Gantt1.HeaderAppearance = 0;
	Gantt1.BackColorHeader = 0;
	Gantt1.ForeColorHeader = 16777215;
	Gantt1.HeaderVisible = 1;
	Gantt1.BackColorLevelHeader = Gantt1.BackColor;
	var var_Column = Gantt1.Columns.Add("Filter");
		var_Column.FilterList = 8448;
		var_Column.DisplayFilterButton = true;
		var_Column.AllowSort = false;
		var_Column.AllowDragging = false;
	var var_Chart = Gantt1.Chart;
		var_Chart.PaneWidth(false) = 196;
		var_Chart.LevelCount = 2;
		var_Chart.BackColorLevelHeader = Gantt1.BackColorHeader;
		var_Chart.ForeColorLevelHeader = Gantt1.ForeColorHeader;
	var var_Items = Gantt1.Items;
		var_Items.AddItem("One");
		var_Items.AddItem("Two");
		var_Items.AddItem("Three");
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Appearance = Gantt1.VisualAppearance;
		var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" +
	"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" +
	"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" +
	"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" +
	"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" +
	"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=");
		var_Appearance.Add(1,"CP:2 -4 -4 2 4");
	Gantt1.Background(0) = 16777216;
	Gantt1.Background(32) = Gantt1.BackColor;
	Gantt1.HeaderAppearance = 0;
	Gantt1.BackColorHeader = 16777215;
	Gantt1.BackColorLevelHeader = Gantt1.BackColor;
	Gantt1.HeaderHeight = 24;
	Gantt1.HeaderVisible = true;
	var var_Chart = Gantt1.Chart;
		var_Chart.PaneWidth(false) = 196;
		var_Chart.LevelCount = 2;
		var_Chart.BackColorLevelHeader = Gantt1.BackColorHeader;
		var_Chart.ForeColorLevelHeader = Gantt1.ForeColorHeader;
	var var_Column = Gantt1.Columns.Add("Filter");
		var_Column.DisplayFilterButton = true;
		var_Column.AllowSort = false;
		var_Column.AllowDragging = false;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	var var_Chart = Gantt1.Chart;
		var_Chart.PaneWidth(false) = 0;
		var_Chart.LevelCount = 2;
		var_Chart.FirstVisibleDate = "12/12/2007";
		var_Chart.DrawGridLines = -1;
		var_Chart.UnitScale = 256;
		var_Chart.WeekNumberAs = 0;
		var_Chart.FirstWeekDay = 1;
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:09C0C400-3A0F-4CD3-8B93-8D42FCE66726" id="Gantt1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gantt1.BeginUpdate();
	Gantt1.ColumnAutoResize = true;
	Gantt1.ContinueColumnScroll = 0;
	Gantt1.MarkSearchColumn = false;
	Gantt1.SearchColumnIndex = 1;
	Gantt1.Indent = 16;
	Gantt1.LinesAtRoot = -1;
	Gantt1.FilterBarPromptVisible = true;
	Gantt1.FilterBarPromptPattern = "Nancy";
	Gantt1.FilterInclude = 1;
	Gantt1.Chart.LevelCount = 2;
	var var_Columns = Gantt1.Columns;
		var_Columns.Add("Name").Width = 96;
		var_Columns.Add("Title").Width = 96;
		var_Columns.Add("City");
	var var_Items = Gantt1.Items;
		var h0 = var_Items.AddItem("Nancy Davolio");
		var_Items.CellCaption(h0,1) = "Sales Representative";
		var_Items.CellCaption(h0,2) = "Seattle";
		h0 = var_Items.InsertItem(h0,null,"Andrew Fuller");
		var_Items.CellCaption(h0,1) = "Vice President, Sales";
		var_Items.CellCaption(h0,2) = "Tacoma";
		h0 = var_Items.InsertItem(h0,null,"Michael Suyama");
		var_Items.CellCaption(h0,1) = "Sales Representative";
		var_Items.CellCaption(h0,2) = "London";
		h0 = var_Items.AddItem("Janet Leverling");
		var_Items.CellCaption(h0,1) = "Sales Representative";
		var_Items.CellCaption(h0,2) = "Kirkland";
		h0 = var_Items.InsertItem(h0,null,"Margaret Peacock");
		var_Items.CellCaption(h0,1) = "Sales Representative";
		var_Items.CellCaption(h0,2) = "Redmond";
	Gantt1.ApplyFilter();
	Gantt1.EndUpdate();
}
</SCRIPT>
</BODY>