2027:
How can I add a summary bar once the user group by a column

/*begin event AddGroupItem(long  Item) - Occurs after a new Group Item has been inserted to Items collection.*/
/*
	OleObject var_Items
	any l
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		var_Items.ItemDividerLine(Item,0)
		var_Items.AddBar(Item,"Summary",2017-12-02,2017-12-02)
		var_Items.DefineSummaryBars(Item,"",-3,"")
		l = var_Items.GroupItem(Item)
		var_Items.CellSingleLine(Item,l,false)
		var_Items.CellBold(Item,l,true)
		var_Items.ItemBackColor(Item,RGB(190,190,190))
	oG2antt.Chart.ItemBackColor(Item,RGB(190,190,190))
*/
/*end event AddGroupItem*/

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-10)
*/
/*end event AddItem*/

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Column1,var_Columns,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABOUGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCMQwAFBIbhrE4ZBjHGQRUgyI43RhHUBzVIUBxDEaTZLlEYJBgeHYhDJPcaUVDcWQHGyeZwjSgpKoWSJIU5NcggPDgEwTKCmKlTAKoSzJMyEmwWRAdVTZLSEaxierKPhyWT/XgAF4PfDFKRXFqXY5mKZJFqKOI8TxINgxPQMGyrBqraLqKwQGrGCQKSBhUZ3dS2JR3OSlYRuQAMVgOXoDZhPWZXbDtSzPE63NgtOR5DiGWalABoeoxRa9cz3ViCJSrGTqIoINIzZLHFQbPpdAYdP6BeIjXhhZxBBuLZXmEOh9CcNoni2N4MjWVodh+DpfBeLJinsWR9AyYwVAkGBhEAFphGiRogDEGBamkFgtjcZgHiMbgehYaQhAIEIREAaQYkcQZUHIGRUGQDBOEaBAhDYDxGkMZAkCgeoagYZAYEYAYIAWGhemICIFj8WIiCiFR5gkIhogmBoKGKJx2C6C5hniMgggqYwog0UoNGMZJiDiCZRgOLY0ECUAQICA==")
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,342)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 1
		var_Bar.Color = 16777216 /*0x1000000*/
		var_Bar.Def(3,"<%=%513%>")
		var_Bar.Def(4,18)
var_Columns = oG2antt.Columns
	var_Columns.Add("C1")
	var_Columns.Add("C2")
	var_Columns.Add("C3")
	var_Column = var_Columns.Add("Pos")
		var_Column.FormatColumn = "1 pos ``"
		var_Column.AllowGroupBy = false
		var_Column.Position = 0
		var_Column.Width = 48
		var_Column.AllowSizing = false
oG2antt.SortBarVisible = true
oG2antt.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
oG2antt.AllowGroupBy = true
oG2antt.HasLines = 0
oG2antt.LinesAtRoot = 0
var_Items = oG2antt.Items
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item B")
	var_Items.CellValue(h,1,"SubItem B.1")
	var_Items.CellValue(h,2,"SubItem B.2")
	h = var_Items.AddItem("Item B")
	var_Items.CellValue(h,1,"SubItem B.1")
	var_Items.CellValue(h,2,"SubItem B.2")
var_Column1 = oG2antt.Columns.Item(0)
	var_Column1.SortOrder = 1
oG2antt.EndUpdate()

2026:
Is it possible to display no +/- button for grouped items

/*begin event AddGroupItem(long  Item) - Occurs after a new Group Item has been inserted to Items collection.*/
/*
	OleObject var_Items
	any l
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		var_Items.ItemDividerLine(Item,0)
		var_Items.AddBar(Item,"Progress",2017-12-02,2017-12-02)
		var_Items.DefineSummaryBars(Item,"",-3,"")
		l = var_Items.GroupItem(Item)
		var_Items.CellSingleLine(Item,l,false)
		var_Items.CellBold(Item,l,true)
		var_Items.ItemBackColor(Item,RGB(190,190,190))
	oG2antt.Chart.ItemBackColor(Item,RGB(190,190,190))
*/
/*end event AddGroupItem*/

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-10)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Columns,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,342)
var_Columns = oG2antt.Columns
	var_Columns.Add("C1")
	var_Columns.Add("C2")
	var_Columns.Add("C3")
	var_Column = var_Columns.Add("Pos")
		var_Column.FormatColumn = "1 pos ``"
		var_Column.AllowGroupBy = false
		var_Column.Position = 0
		var_Column.Width = 48
		var_Column.AllowSizing = false
oG2antt.SortBarVisible = true
oG2antt.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
oG2antt.AllowGroupBy = true
oG2antt.HasLines = 0
oG2antt.LinesAtRoot = 0
var_Items = oG2antt.Items
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item B")
	var_Items.CellValue(h,1,"SubItem B.1")
	var_Items.CellValue(h,2,"SubItem B.2")
	h = var_Items.AddItem("Item B")
	var_Items.CellValue(h,1,"SubItem B.1")
	var_Items.CellValue(h,2,"SubItem B.2")
var_Column1 = oG2antt.Columns.Item(0)
	var_Column1.SortOrder = 1
	var_Column1.Alignment = 1
	var_Column1.Def(4,15790320)
oG2antt.EndUpdate()

2025:
How can I change the label, caption or the formula of the grouped items

/*begin event AddGroupItem(long  Item) - Occurs after a new Group Item has been inserted to Items collection.*/
/*
	OleObject var_Items
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		var_Items.AddBar(Item,"Progress",2017-12-02,2017-12-02)
		var_Items.DefineSummaryBars(Item,"",-3,"")
*/
/*end event AddGroupItem*/

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-10)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Columns,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,342)
var_Columns = oG2antt.Columns
	var_Column = var_Columns.Add("C1")
		var_Column.GroupByFormatCell = "upper(value)"
	var_Columns.Add("C2")
	var_Columns.Add("C3")
	var_Column1 = var_Columns.Add("Pos")
		var_Column1.FormatColumn = "1 pos ``"
		var_Column1.AllowGroupBy = false
		var_Column1.Position = 0
		var_Column1.Width = 48
		var_Column1.AllowSizing = false
oG2antt.SortBarVisible = true
oG2antt.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
oG2antt.AllowGroupBy = true
var_Items = oG2antt.Items
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item B")
	var_Items.CellValue(h,1,"SubItem B.1")
	var_Items.CellValue(h,2,"SubItem B.2")
	h = var_Items.AddItem("Item B")
	var_Items.CellValue(h,1,"SubItem B.1")
	var_Items.CellValue(h,2,"SubItem B.2")
oG2antt.Columns.Item(0).SortOrder = 1
oG2antt.EndUpdate()

2024:
How can I change the aspect of grouped items

/*begin event AddGroupItem(long  Item) - Occurs after a new Group Item has been inserted to Items collection.*/
/*
	OleObject var_Items
	any l
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		var_Items.ItemDividerLine(Item,0)
		var_Items.AddBar(Item,"Progress",2017-12-02,2017-12-02)
		var_Items.DefineSummaryBars(Item,"",-3,"")
		l = var_Items.GroupItem(Item)
		var_Items.CellSingleLine(Item,l,false)
		var_Items.CellBold(Item,l,true)
		var_Items.ItemBackColor(Item,RGB(190,190,190))
	oG2antt.Chart.ItemBackColor(Item,RGB(190,190,190))
*/
/*end event AddGroupItem*/

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-10)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Columns,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,342)
var_Columns = oG2antt.Columns
	var_Columns.Add("C1")
	var_Columns.Add("C2")
	var_Columns.Add("C3")
	var_Column = var_Columns.Add("Pos")
		var_Column.FormatColumn = "1 pos ``"
		var_Column.AllowGroupBy = false
		var_Column.Position = 0
		var_Column.Width = 48
		var_Column.AllowSizing = false
oG2antt.SortBarVisible = true
oG2antt.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
oG2antt.AllowGroupBy = true
var_Items = oG2antt.Items
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item B")
	var_Items.CellValue(h,1,"SubItem B.1")
	var_Items.CellValue(h,2,"SubItem B.2")
	h = var_Items.AddItem("Item B")
	var_Items.CellValue(h,1,"SubItem B.1")
	var_Items.CellValue(h,2,"SubItem B.2")
oG2antt.Columns.Item(0).SortOrder = 1
oG2antt.EndUpdate()

2023:
How can I collapse all items when the user performs a grouping

/*begin event AddGroupItem(long  Item) - Occurs after a new Group Item has been inserted to Items collection.*/
/*
	OleObject var_Items
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		var_Items.ExpandItem(Item,false)
		var_Items.ItemDividerLine(Item,0)
		var_Items.AddBar(Item,"Progress",2017-12-02,2017-12-02)
		var_Items.DefineSummaryBars(Item,"",-3,"")
*/
/*end event AddGroupItem*/

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-10)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Columns,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,342)
var_Columns = oG2antt.Columns
	var_Columns.Add("C1")
	var_Columns.Add("C2")
	var_Columns.Add("C3")
	var_Column = var_Columns.Add("Pos")
		var_Column.FormatColumn = "1 pos ``"
		var_Column.AllowGroupBy = false
		var_Column.Position = 0
		var_Column.Width = 48
		var_Column.AllowSizing = false
oG2antt.SortBarVisible = true
oG2antt.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
oG2antt.AllowGroupBy = true
var_Items = oG2antt.Items
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item B")
	var_Items.CellValue(h,1,"SubItem B.1")
	var_Items.CellValue(h,2,"SubItem B.2")
	h = var_Items.AddItem("Item B")
	var_Items.CellValue(h,1,"SubItem B.1")
	var_Items.CellValue(h,2,"SubItem B.2")
oG2antt.Columns.Item(0).SortOrder = 1
oG2antt.EndUpdate()

2022:
Is it possible to select columns that user can drop to the sort bar, when using the Group By feature

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-10)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Columns,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,342)
var_Columns = oG2antt.Columns
	var_Columns.Add("C1")
	var_Columns.Add("C2")
	var_Columns.Add("C3")
	var_Column = var_Columns.Add("Pos")
		var_Column.FormatColumn = "1 pos ``"
		var_Column.AllowGroupBy = false
		var_Column.Position = 0
		var_Column.Width = 48
		var_Column.AllowSizing = false
oG2antt.SortBarVisible = true
oG2antt.SortBarCaption = "<fgcolor=FF0000>Try to drag the Pos column here."
oG2antt.AllowGroupBy = true
var_Items = oG2antt.Items
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item A")
	var_Items.CellValue(h,1,"SubItem A.1")
	var_Items.CellValue(h,2,"SubItem A.2")
	h = var_Items.AddItem("Item B")
	var_Items.CellValue(h,1,"SubItem B.1")
	var_Items.CellValue(h,2,"SubItem B.2")
	h = var_Items.AddItem("Item B")
	var_Items.CellValue(h,1,"SubItem B.1")
	var_Items.CellValue(h,2,"SubItem B.2")
oG2antt.EndUpdate()

2021:
How can I filter for the type of the bars I have in my chart

OleObject oG2antt,var_Bar,var_Bar1,var_Bar2,var_Chart,var_Column,var_Column1,var_Column2,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-11-28
	var_Chart.PaneWidth(false,0)
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.Def(3,"<%=%0%>")
		var_Bar.Def(4,18)
	var_Bar1 = var_Chart.Bars.Copy("Task","GTask")
		var_Bar1.Def(3,"<%=%0%>")
		var_Bar1.Def(4,18)
		var_Bar1.Color = RGB(0,255,0)
	var_Bar2 = var_Chart.Bars.Copy("Task","RTask")
		var_Bar2.Def(3,"<%=%0%>")
		var_Bar2.Def(4,18)
		var_Bar2.Color = RGB(255,0,0)
	var_Chart.ColumnsFormatLevel = "0"
oG2antt.OnResizeControl = 129 /*exDisableSplitter | exResizeChart*/
var_Column = oG2antt.Columns.Add("Default")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oG2antt.Columns.Add("Type")
	var_Column1.Def(19,"")
	var_Column1.Def(18,0)
	var_Column1.Visible = false
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Items = oG2antt.Items
	var_Items.AllowCellValueToItemBar = true
	var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2017-12-04,2017-12-12)
	var_Items.AddBar(var_Items.AddItem("Item 2"),"GTask",2017-12-04,2017-12-12)
	var_Items.AddBar(var_Items.AddItem("Item 3"),"RTask",2017-12-04,2017-12-12)
	var_Items.AddBar(var_Items.AddItem("Item 4"),"Task",2017-12-04,2017-12-12)
	var_Items.AddBar(var_Items.AddItem("Item 5"),"GTask",2017-12-04,2017-12-12)
	var_Items.AddBar(var_Items.AddItem("Item 6"),"RTask",2017-12-04,2017-12-12)
oG2antt.FilterBarFont = oG2antt.Font
oG2antt.Description(11,String(oG2antt.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oG2antt.Description(11))))
oG2antt.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>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oG2antt.FilterBarPromptVisible = 2579 /*exFilterBarCompact | exFilterBarShowCloseIfRequired | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column2 = oG2antt.Columns.Item(1)
	var_Column2.FilterType = 240
	var_Column2.Filter = "GTask|RTask"
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

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

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Column2,var_Column3,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
var_Column = oG2antt.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oG2antt.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oG2antt.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_Items = oG2antt.Items
	var_Items.CellValue(var_Items.AddItem("Item A"),1,"Sub-Item A")
	var_Items.CellValue(var_Items.AddItem("Item B"),1,"Sub-Item B")
	var_Items.CellValue(var_Items.AddItem("Item C"),1,"Sub-Item C")
oG2antt.FilterBarPromptVisible = 4096
var_Column3 = oG2antt.Columns.Item(1)
	var_Column3.FilterType = 3
	var_Column3.Filter = "*B"
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

2019:
FilterBarCaption ALL Keyword ( sample 2, result )

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	any i
	oG2antt = ole_1.Object
	i = oG2antt.FormatABC("value + 1",oG2antt.Items.ItemToIndex(Item))
	oG2antt.Items.CellImage(Item,3,i)
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Editor,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oG2antt.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oG2antt.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oG2antt.Columns.Add("Check")
	var_Editor = var_Column2.Editor
		var_Editor.EditType = 19
		var_Editor.Option(17,1)
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oG2antt.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oG2antt.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_Items = oG2antt.Items
	var_Items.CellValue(var_Items.AddItem("Item A"),1,"Sub-Item A")
	h = var_Items.AddItem("Item B")
	var_Items.CellValue(h,1,"Sub-Item B")
	var_Items.CellState(h,2,1)
	var_Items.CellValue(var_Items.AddItem("Item C"),1,"Sub-Item C")
oG2antt.FilterBarFont = oG2antt.Font
oG2antt.Description(11,String(oG2antt.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oG2antt.Description(11))))
oG2antt.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>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oG2antt.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oG2antt.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oG2antt.Columns.Item(2).Filter = String(1)
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

2018:
FilterBarCaption ALL Keyword ( sample 1 )

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	any i
	oG2antt = ole_1.Object
	i = oG2antt.FormatABC("value + 1",oG2antt.Items.ItemToIndex(Item))
	oG2antt.Items.CellImage(Item,3,i)
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Editor,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oG2antt.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oG2antt.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oG2antt.Columns.Add("Check")
	var_Editor = var_Column2.Editor
		var_Editor.EditType = 19
		var_Editor.Option(17,1)
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oG2antt.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oG2antt.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_Items = oG2antt.Items
	var_Items.CellValue(var_Items.AddItem("Item A"),1,"Sub-Item A")
	h = var_Items.AddItem("Item B")
	var_Items.CellValue(h,1,"Sub-Item B")
	var_Items.CellState(h,2,1)
	var_Items.CellValue(var_Items.AddItem("Item C"),1,"Sub-Item C")
oG2antt.FilterBarFont = oG2antt.Font
oG2antt.Description(11,String(oG2antt.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oG2antt.Description(11))))
oG2antt.FilterBarCaption = "all"
oG2antt.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oG2antt.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oG2antt.Columns.Item(2).Filter = String(1)
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

2017:
FilterBarCaption ALLUI Keyword ( sample 2, result )

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	any i
	oG2antt = ole_1.Object
	i = oG2antt.FormatABC("value + 1",oG2antt.Items.ItemToIndex(Item))
	oG2antt.Items.CellImage(Item,3,i)
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Editor,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oG2antt.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oG2antt.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oG2antt.Columns.Add("Check")
	var_Editor = var_Column2.Editor
		var_Editor.EditType = 19
		var_Editor.Option(17,1)
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oG2antt.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oG2antt.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_Items = oG2antt.Items
	var_Items.CellValue(var_Items.AddItem("Item A"),1,"Sub-Item A")
	h = var_Items.AddItem("Item B")
	var_Items.CellValue(h,1,"Sub-Item B")
	var_Items.CellState(h,2,1)
	var_Items.CellValue(var_Items.AddItem("Item C"),1,"Sub-Item C")
oG2antt.FilterBarFont = oG2antt.Font
oG2antt.Description(11,String(oG2antt.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oG2antt.Description(11))))
oG2antt.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>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oG2antt.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oG2antt.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oG2antt.Columns.Item(2).Filter = String(1)
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

2016:
FilterBarCaption ALLUI Keyword ( sample 1 )

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	any i
	oG2antt = ole_1.Object
	i = oG2antt.FormatABC("value + 1",oG2antt.Items.ItemToIndex(Item))
	oG2antt.Items.CellImage(Item,3,i)
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Editor,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oG2antt.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oG2antt.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oG2antt.Columns.Add("Check")
	var_Editor = var_Column2.Editor
		var_Editor.EditType = 19
		var_Editor.Option(17,1)
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oG2antt.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oG2antt.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_Items = oG2antt.Items
	var_Items.CellValue(var_Items.AddItem("Item A"),1,"Sub-Item A")
	h = var_Items.AddItem("Item B")
	var_Items.CellValue(h,1,"Sub-Item B")
	var_Items.CellState(h,2,1)
	var_Items.CellValue(var_Items.AddItem("Item C"),1,"Sub-Item C")
oG2antt.FilterBarFont = oG2antt.Font
oG2antt.Description(11,String(oG2antt.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oG2antt.Description(11))))
oG2antt.FilterBarCaption = "allui"
oG2antt.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oG2antt.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oG2antt.Columns.Item(2).Filter = String(1)
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

2015:
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	any i
	oG2antt = ole_1.Object
	i = oG2antt.FormatABC("value + 1",oG2antt.Items.ItemToIndex(Item))
	oG2antt.Items.CellImage(Item,3,i)
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Editor,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oG2antt.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oG2antt.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oG2antt.Columns.Add("Check")
	var_Editor = var_Column2.Editor
		var_Editor.EditType = 19
		var_Editor.Option(17,1)
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oG2antt.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oG2antt.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_Items = oG2antt.Items
	var_Items.CellValue(var_Items.AddItem("Item A"),1,"Sub-Item A")
	h = var_Items.AddItem("Item B")
	var_Items.CellValue(h,1,"Sub-Item B")
	var_Items.CellState(h,2,1)
	var_Items.CellValue(var_Items.AddItem("Item C"),1,"Sub-Item C")
oG2antt.FilterBarFont = oG2antt.Font
oG2antt.Description(11,String(oG2antt.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oG2antt.Description(11))))
oG2antt.FilterBarCaption = "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( available 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)`) )))"
oG2antt.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oG2antt.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oG2antt.Columns.Item(2).Filter = String(1)
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

2014:
FilterBarCaption AVAILABLE Keyword ( sample 1 )

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	any i
	oG2antt = ole_1.Object
	i = oG2antt.FormatABC("value + 1",oG2antt.Items.ItemToIndex(Item))
	oG2antt.Items.CellImage(Item,3,i)
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Editor,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oG2antt.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oG2antt.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oG2antt.Columns.Add("Check")
	var_Editor = var_Column2.Editor
		var_Editor.EditType = 19
		var_Editor.Option(17,1)
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oG2antt.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oG2antt.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_Items = oG2antt.Items
	var_Items.CellValue(var_Items.AddItem("Item A"),1,"Sub-Item A")
	h = var_Items.AddItem("Item B")
	var_Items.CellValue(h,1,"Sub-Item B")
	var_Items.CellState(h,2,1)
	var_Items.CellValue(var_Items.AddItem("Item C"),1,"Sub-Item C")
oG2antt.FilterBarFont = oG2antt.Font
oG2antt.Description(11,String(oG2antt.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oG2antt.Description(11))))
oG2antt.FilterBarCaption = "value + ` ` + available"
oG2antt.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oG2antt.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oG2antt.Columns.Item(2).Filter = String(1)
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

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

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
var_Column = oG2antt.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oG2antt.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oG2antt.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_Items = oG2antt.Items
	var_Items.CellValue(var_Items.AddItem("Item A"),1,"Sub-Item A")
	var_Items.CellValue(var_Items.AddItem("Item B"),1,"Sub-Item B")
	var_Items.CellValue(var_Items.AddItem("Item C"),1,"Sub-Item C")
oG2antt.FilterBarFont = oG2antt.Font
oG2antt.Description(11,String(oG2antt.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oG2antt.Description(11))))
oG2antt.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> ` replace `]` with ` </b></bgcolor></fgcolor>`"
oG2antt.FilterBarPromptVisible = 256
var_Column3 = oG2antt.Columns.Item(0)
	var_Column3.FilterType = 240
	var_Column3.Filter = "Item A|Item B"
var_Column4 = oG2antt.Columns.Item(1)
	var_Column4.FilterType = 3
	var_Column4.Filter = "*B"
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

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

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
var_Column = oG2antt.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oG2antt.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oG2antt.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_Items = oG2antt.Items
	var_Items.CellValue(var_Items.AddItem("Item A"),1,"Sub-Item A")
	var_Items.CellValue(var_Items.AddItem("Item B"),1,"Sub-Item B")
	var_Items.CellValue(var_Items.AddItem("Item C"),1,"Sub-Item C")
oG2antt.FilterBarFont = oG2antt.Font
oG2antt.Description(11,String(oG2antt.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oG2antt.Description(11))))
oG2antt.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
oG2antt.FilterBarPromptVisible = 256
var_Column3 = oG2antt.Columns.Item(0)
	var_Column3.FilterType = 240
	var_Column3.Filter = "Item A|Item B"
var_Column4 = oG2antt.Columns.Item(1)
	var_Column4.FilterType = 3
	var_Column4.Filter = "*B"
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

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

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
var_Column = oG2antt.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oG2antt.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oG2antt.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_Items = oG2antt.Items
	var_Items.CellValue(var_Items.AddItem("Item A"),1,"Sub-Item A")
	var_Items.CellValue(var_Items.AddItem("Item B"),1,"Sub-Item B")
	var_Items.CellValue(var_Items.AddItem("Item C"),1,"Sub-Item C")
oG2antt.Description(11,String(oG2antt.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oG2antt.Description(11))))
oG2antt.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
oG2antt.FilterBarPromptVisible = 256
var_Column3 = oG2antt.Columns.Item(0)
	var_Column3.FilterType = 240
	var_Column3.Filter = "Item A|Item B"
var_Column4 = oG2antt.Columns.Item(1)
	var_Column4.FilterType = 3
	var_Column4.Filter = "*B"
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

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

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Column2,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
var_Column = oG2antt.Columns.Add("Item")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oG2antt.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_Items = oG2antt.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oG2antt.FilterBarCaption = "`<r>` + value"
oG2antt.FilterBarPromptVisible = 1280 /*exFilterBarShowCloseOnRight | exFilterBarToggle*/
var_Column2 = oG2antt.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item B"
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

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

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
var_Column = oG2antt.Columns.Add("Item")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oG2antt.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_Items = oG2antt.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oG2antt.FilterBarFont = oG2antt.Font
oG2antt.FilterBarPrompt = String(oG2antt.FormatABC("`<b>` + value",oG2antt.FilterBarPrompt))
oG2antt.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
oG2antt.FilterBarPromptVisible = 3591 /*exFilterBarCompact | exFilterBarShowCloseOnRight | exFilterBarShowCloseIfRequired | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible*/
oG2antt.EndUpdate()

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

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.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_Items = oG2antt.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oG2antt.FilterBarFont = oG2antt.Font
oG2antt.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : ``)"
oG2antt.FilterBarPromptVisible = 2055 /*exFilterBarCompact | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column1 = oG2antt.Columns.Item(0)
	var_Column1.FilterType = 240
	var_Column1.Filter = "Item A|Item B"
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

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

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.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_Items = oG2antt.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oG2antt.FilterBarFont = oG2antt.Font
oG2antt.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)"
oG2antt.FilterBarPromptVisible = 2071 /*exFilterBarCompact | exFilterBarSingleLine | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column1 = oG2antt.Columns.Item(0)
	var_Column1.FilterType = 240
	var_Column1.Filter = "Item A|Item B"
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

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

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.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_Items = oG2antt.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oG2antt.FilterBarFont = oG2antt.Font
oG2antt.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
oG2antt.FilterBarPromptVisible = 7 /*exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column1 = oG2antt.Columns.Item(0)
	var_Column1.FilterType = 240
	var_Column1.Filter = "Item A|Item B"
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

2005:
FilterBarCaption Predefined Keywords

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

/*begin event AfterExpandItem(long  Item) - Fired after an item is expanded (collapsed).*/
/*
	oG2antt = ole_1.Object
	oG2antt.Refresh()
*/
/*end event AfterExpandItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Column2,var_Editor,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.LinesAtRoot = -1
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.Columns.Add("Check")
	var_Editor = var_Column.Editor
		var_Editor.EditType = 19
		var_Editor.Option(17,1)
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = false
	var_Column.FilterType = 6
var_Column1 = oG2antt.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_Items = oG2antt.Items
	var_Items.AddItem("Item A")
	h = var_Items.AddItem("Item B")
	var_Items.CellState(var_Items.InsertItem(h,,"Sub-Item B1"),1,1)
	var_Items.InsertItem(h,,"Sub-Item B2")
	var_Items.ExpandItem(h,true)
	var_Items.AddItem("Item C")
oG2antt.FilterInclude = 1
oG2antt.FilterBarFont = oG2antt.Font
oG2antt.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=808080>` + promptpattern + `</fgcolor>`"
oG2antt.FilterBarPromptPattern = "B"
oG2antt.FilterBarPromptVisible = 7 /*exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column2 = oG2antt.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item A|Item B"
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

2004:
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

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.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_Items = oG2antt.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oG2antt.FilterBarFont = oG2antt.Font
oG2antt.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
oG2antt.FilterBarPromptPattern = "B"
oG2antt.FilterBarPromptVisible = 2067 /*exFilterBarCompact | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column1 = oG2antt.Columns.Item(0)
	var_Column1.FilterType = 240
	var_Column1.Filter = "Item A|Item B"
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

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

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.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_Items = oG2antt.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oG2antt.FilterBarPromptVisible = 1281 /*exFilterBarShowCloseOnRight | exFilterBarToggle | exFilterBarPromptVisible*/
oG2antt.FilterBarPrompt = String(oG2antt.FormatABC("`<r>` + value",oG2antt.FilterBarPrompt))
oG2antt.EndUpdate()

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

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.RightToLeft = true
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.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_Items = oG2antt.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oG2antt.FilterBarPromptVisible = 257 /*exFilterBarToggle | exFilterBarPromptVisible*/
oG2antt.EndUpdate()

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

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Appearance,var_Chart,var_Column,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
var_Appearance = oG2antt.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJjyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmSZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OROicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXAiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaKJDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEA" &
 +"kjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSMRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ")
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.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_Items = oG2antt.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oG2antt.FilterBarPromptVisible = 257 /*exFilterBarToggle | exFilterBarPromptVisible*/
oG2antt.Background(1,16777216 /*0x1000000*/)
oG2antt.EndUpdate()

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

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.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_Items = oG2antt.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oG2antt.FilterBarPromptVisible = 1
oG2antt.Background(1,RGB(255,0,0))
oG2antt.EndUpdate()

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

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.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_Items = oG2antt.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oG2antt.FilterBarPromptVisible = 1
oG2antt.Background(1,-1)
oG2antt.EndUpdate()

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

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.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_Items = oG2antt.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oG2antt.FilterBarPromptVisible = 513 /*exFilterBarShowCloseIfRequired | exFilterBarPromptVisible*/
oG2antt.EndUpdate()

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

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.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_Items = oG2antt.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
	var_Items.LockedItemCount(2,1)
	h = var_Items.LockedItem(2,0)
	var_Items.ItemDivider(h,0)
	var_Items.CellValue(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.CellValueFormat(h,0,1)
oG2antt.FilterBarCaption = "`<r><fgcolor=808080>` + value"
oG2antt.FilterBarPromptPattern = "B"
oG2antt.FilterBarPromptVisible = 2323 /*exFilterBarCompact | exFilterBarToggle | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column1 = oG2antt.Columns.Item(0)
	var_Column1.FilterType = 240
	var_Column1.Filter = "Item B"
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

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

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.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_Items = oG2antt.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oG2antt.FilterBarCaption = "len(value) ? `filter for: <fgcolor 808080>` + value  : `<fgcolor 808080>no filter`"
oG2antt.FilterBarPromptVisible = 18 /*exFilterBarSingleLine | exFilterBarVisible*/
var_Column1 = oG2antt.Columns.Item(0)
	var_Column1.FilterType = 240
	var_Column1.Filter = "Item A|Item B"
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

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

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.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_Items = oG2antt.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oG2antt.FilterBarCaption = "`<r>` + value"
oG2antt.FilterBarPromptVisible = 2067 /*exFilterBarCompact | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column1 = oG2antt.Columns.Item(0)
	var_Column1.FilterType = 240
	var_Column1.Filter = "Item A|Item B"
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

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

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

/*begin event Click() - Occurs when the user presses and then releases the left mouse button over the tree control.*/
/*
	oG2antt = ole_1.Object
	oG2antt.ClearFilter()
*/
/*end event Click*/

/*begin event FilterChange() - Occurs when the filter was changed.*/
/*
	oG2antt = ole_1.Object
	MessageBox("Information",string( "Items.MatchItemCount" ))
	MessageBox("Information",string( String(oG2antt.Items.MatchItemCount) ))
	MessageBox("Information",string( String(oG2antt.FormatABC("value < 0 ? `filter applied: ` + abs(value + 1) + ` result(s)` : `no filter`",oG2antt.Items.MatchItemCount)) ))
*/
/*end event FilterChange*/

OleObject oG2antt,var_Chart,var_Column,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.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_Items = oG2antt.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oG2antt.FilterBarPromptVisible = 1
oG2antt.FilterBarPromptPattern = "Item"
oG2antt.EndUpdate()

1993:
How can I programmatically clear the control's filter
/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

/*begin event Click() - Occurs when the user presses and then releases the left mouse button over the tree control.*/
/*
	oG2antt = ole_1.Object
	oG2antt.ClearFilter()
*/
/*end event Click*/

OleObject oG2antt,var_Chart,var_Column,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.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_Items = oG2antt.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oG2antt.FilterBarPromptVisible = 1
oG2antt.FilterBarPromptPattern = "B"
oG2antt.EndUpdate()

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

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.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_Items = oG2antt.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oG2antt.FilterBarPromptPattern = "B"
oG2antt.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column1 = oG2antt.Columns.Item(0)
	var_Column1.FilterType = 240
	var_Column1.Filter = "Item B"
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

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

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.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_Items = oG2antt.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oG2antt.FilterBarPromptVisible = 1
oG2antt.FilterBarPromptPattern = "B"
oG2antt.EndUpdate()

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

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-12-02
	var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.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_Items = oG2antt.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oG2antt.FilterBarCaption = "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
oG2antt.FilterBarPromptVisible = 2
var_Column1 = oG2antt.Columns.Item(0)
	var_Column1.FilterType = 240
	var_Column1.Filter = "Item B"
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

1989:
What are the options to align the percent caption

OleObject oG2antt,var_Bar,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Clip")
oG2antt.ScrollBySingleLine = true
oG2antt.DrawGridLines = -2
var_Chart = oG2antt.Chart
	var_Chart.AllowResizeChart = 6 /*exAllowResizeChartMiddle | exAllowResizeChartHeader*/
	var_Chart.DrawGridLines = -2
	var_Chart.FirstVisibleDate = 2000-12-26
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,256)
	var_Bar = var_Chart.Bars.Add("Task%Progress")
		var_Bar.Shortcut = "Task"
		var_Bar.Pattern = 32
		var_Bar.Color = RGB(164,164,164)
		var_Bar.StartColor = RGB(240,240,240)
		var_Bar.EndColor = var_Bar.StartColor
		var_Bar.OverlaidType = 4611 /*exOverlaidBarsIncludeCaption | exOverlaidBarsStackAutoArrange | exOverlaidBarsStack*/
		var_Bar.Height = 15
		var_Bar.Def(12,0.5)
		var_Bar.Def(14,true)
		var_Bar.Def(13,"<sha ;;0>%p%")
var_Items = oG2antt.Items
	h = var_Items.AddItem("no clip, (0-2)")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1")
	var_Items.ItemBar(h,"K1",15,2)
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K2")
	var_Items.ItemBar(h,"K2",15,1)
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K3")
	var_Items.ItemBar(h,"K3",15,0)
	h = var_Items.AddItem("clip, inside (3-5)")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1")
	var_Items.ItemBar(h,"K1",15,5)
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K2")
	var_Items.ItemBar(h,"K2",15,4)
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K3")
	var_Items.ItemBar(h,"K3",15,3)
	h = var_Items.AddItem("hide on min width, clip if not fit, inside (6-8)")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1")
	var_Items.ItemBar(h,"K1",15,8)
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K2")
	var_Items.ItemBar(h,"K2",15,7)
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K3")
	var_Items.ItemBar(h,"K3",15,6)
	h = var_Items.AddItem("hide if not fit, no clip, inside (9-11)")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1")
	var_Items.ItemBar(h,"K1",15,11)
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K2")
	var_Items.ItemBar(h,"K2",15,10)
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K3")
	var_Items.ItemBar(h,"K3",15,9)
	h = var_Items.AddItem("no clip, inside, outside (12-14)")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1")
	var_Items.ItemBar(h,"K1",15,14)
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K2")
	var_Items.ItemBar(h,"K2",4,13)
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K3")
	var_Items.ItemBar(h,"K3",15,12)
	h = var_Items.AddItem("no clip, outside (16-18)")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1")
	var_Items.ItemBar(h,"K1",15,18)
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K2")
	var_Items.ItemBar(h,"K2",15,17)
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K3")
	var_Items.ItemBar(h,"K3",15,16)
oG2antt.EndUpdate()

1988:
Is it possible to determine whether a bar is in the current display area

/*begin event BarResizing(long  Item,any  Key) - Occurs when a bar is moving or resizing.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Refresh()
*/
/*end event BarResizing*/

/*begin event DateChange() - Occurs when the first visible date is changed.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Refresh()
*/
/*end event DateChange*/

/*begin event FormatColumn(long  Item,long  ColIndex,any  Value) - Fired when a cell requires to format its caption.*/
/*
	any e,l,r,s
	oG2antt = ole_1.Object
	s = oG2antt.Items.ItemBar(Item,"A",1)
	e = oG2antt.Items.ItemBar(Item,"A",2)
	l = oG2antt.FormatABC("A < B",e,oG2antt.Chart.FirstVisibleDate)
	r = oG2antt.FormatABC("A > B",s,oG2antt.Chart.DateFromPoint(1,-1))
	Value = oG2antt.FormatABC("( A or B ) ? `<fgcolor=C0C0C0>hidden` : `<b>visible`",l,r)
*/
/*end event FormatColumn*/

/*begin event LayoutChanged() - Occurs when column's position or column's size is changed.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Refresh()
*/
/*end event LayoutChanged*/

OleObject oG2antt,var_Chart,var_Column,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SelBackMode = 1
oG2antt.Columns.Add("Tasks")
var_Column = oG2antt.Columns.Add("Visible")
	var_Column.FireFormatColumn = true
	var_Column.Def(17,1)
var_Chart = oG2antt.Chart
	var_Chart.OverviewVisible = -1
	var_Chart.OverviewHeight = 64
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
oG2antt.SelBackColor = oG2antt.BackColor
oG2antt.SelForeColor = oG2antt.ForeColor
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-08,"A")
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2018-08-03,2018-08-10,"A")
	var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2019-08-04,2019-08-12,"A")
	var_Items.SelectItem(var_Items.FocusItem,true)
oG2antt.EndUpdate()

1987:
How can I ensure that the bar fits the control's client area

/*begin event SelectionChanged() - Fired after a new item has been selected.*/
/*
	any h,k,s
	oG2antt = ole_1.Object
	h = oG2antt.Items.FocusItem
	k = oG2antt.Items.FirstItemBar(h)
	s = oG2antt.FormatABC("(A+B)/2",oG2antt.Items.ItemBar(h,k,1),oG2antt.Items.ItemBar(h,k,2))
	oG2antt.Chart.ScrollTo(s,1)
*/
/*end event SelectionChanged*/

OleObject oG2antt,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SelBackMode = 1
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-08)
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2018-08-03,2018-08-10)
	var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2019-08-04,2019-08-12)
	var_Items.SelectItem(var_Items.FocusItem,true)
oG2antt.EndUpdate()

1986:
Is it possible to change the caption from a column without to remove the column and add it with the new caption
OleObject oG2antt

oG2antt = ole_1.Object
oG2antt.Columns.Add("ColumnName").Caption = "NewName"
oG2antt.Columns.Add("ColumnName").HTMLCaption = "<b>New</b>Name"

1985:
How can I display the bar's duration in days, minutes, and so so on

OleObject oG2antt,var_Chart,var_Column,var_Columns,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Columns = oG2antt.Columns
	var_Columns.Add("Tasks").AllowSizing = false
	var_Column = var_Columns.Add("Duration")
		var_Column.Def(18,513)
		var_Column.Def(19,"A")
		var_Column.FormatColumn = "trim((1:=int((0:=value)/365) ? =:1 + ` year(s) ` : ``)  + (1:=int((0:=(=:0 - (=:1*365)))/31) ? =:1 + ` month(s) ` : ``) + (1:=int((0:=(=:0 - (=:1*31)))/7) ? =:1 + ` week(s) ` : ``) + (1:=int((0:=(=:0 - (=:1*7)))/1) ? =:1 + ` day(s) ` : ``) + (1:=int((0:=(=:0 - =:1 + 1/24/60/60/2))*24) ? =:1 + ` hour(s) ` : ``) + (1:=int((0:=(=:0*24 - =:1))*60) ? =:1 + ` min(s) ` : ``) + (1:=int((0:=(=:0*60 - =:1))*60) ? =:1 + ` sec(s)` : ``))"
oG2antt.Items.AllowCellValueToItemBar = true
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-12-30
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,196)
	var_Chart.Bars.Add("Task:Split").Shortcut = "Task"
	var_Chart.OverviewVisible = -1
	var_Chart.OverviewHeight = 64
	var_Chart.ResizeUnitScale = 16777216
	var_Chart.AllowResizeChart = 262 /*exAllowChangeUnitScale | exAllowResizeChartMiddle | exAllowResizeChartHeader*/
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task",2001-12-31,2002-01-07,"A")
	h = var_Items.AddItem("Task 2")
	var_Items.AddBar(h,"Task",2002-01-01,2002-02-14,"A")
	h = var_Items.AddItem("Task 3")
	var_Items.AddBar(h,"Task",DateTime(2002-01-02,10:00:00),DateTime(2002-01-02,12:00:00),"A")
	h = var_Items.AddItem("Task 4")
	var_Items.AddBar(h,"Task",2002-01-03,DateTime(2002-01-04,08:30:30),"A")
oG2antt.EndUpdate()

1984:
How can I change the background color for checked items (EBN color, frame)

/*begin event CellStateChanged(long  Item,long  ColIndex) - Fired after cell's state has been changed.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Refresh()
*/
/*end event CellStateChanged*/

OleObject oG2antt,var_Appearance,var_Bar,var_Chart,var_Column,var_ConditionalFormat,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.SelBackMode = 1
oG2antt.DefaultItemHeight = 22
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_Appearance = oG2antt.VisualAppearance
	var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABUkIQAAYAQGKIcBiAKBQAGYBIJDEMQ3DjAUBjMK4ZwTC4AIQjCK4JDKHYJRpHEZgLBMJAAGIZYhhUYRUiYMkiJBGGDIDiGGI2SJAcbTVIEcx9EyUJSgSTJOjCMokTTIU4TTLYASbJafJJhWSaAiyMouDIOMg1BDNIw/Hika6jOgKUisNJXRzWIBTbDlOQ3JqnbCjOQRSrQBoNDAMAiiaKlbwJPK9RoieQXfwUAJrXJcFqXFSLVxNBKAQEBA=")
	var_Appearance.Add(1,"CP:2 1 1 -1 -1")
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%CS0 = 1")
	var_ConditionalFormat.BackColor = 16777216 /*0x1000000*/
	var_ConditionalFormat.ChartBackColor = var_ConditionalFormat.BackColor
oG2antt.HeaderVisible = 1
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	var_Items.CellState(hChild,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.CellState(hChild,1)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()

1983:
How can I change the caption of the checked items (sample 2)

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.SelBackColor = oG2antt.BackColor
oG2antt.SelForeColor = oG2antt.ForeColor
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
	var_Column.Def(17,1)
	var_Column.FormatColumn = "%CS0 = 1 ? `<bgcolor=000000><fgcolor=FFFFFF> ` + value + ` </fgcolor></bgcolor>` : value"
oG2antt.HeaderVisible = 1
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,256)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	var_Items.CellState(hChild,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.CellState(hChild,1)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()

1982:
How can I change the caption of the checked items (sample 1)

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
	var_Column.Def(17,1)
	var_Column.FormatColumn = "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
oG2antt.HeaderVisible = 1
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,256)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	var_Items.CellState(hChild,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.CellState(hChild,1)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()

1981:
How can I change the font for the checked items

/*begin event CellStateChanged(long  Item,long  ColIndex) - Fired after cell's state has been changed.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Refresh()
*/
/*end event CellStateChanged*/

OleObject f,oG2antt,var_Bar,var_Chart,var_Column,var_ConditionalFormat,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.DefaultItemHeight = 22
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%CS0 = 1")
	f = CREATE OLEObject
f.ConnectToNewObject("StdFont")
		f.Name = oG2antt.Font.Name
		f.Size = 12
	var_ConditionalFormat.Font = f
oG2antt.HeaderVisible = 1
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,196)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	var_Items.CellState(hChild,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.CellState(hChild,1)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()

1980:
How can I bold the checked items

/*begin event CellStateChanged(long  Item,long  ColIndex) - Fired after cell's state has been changed.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Refresh()
*/
/*end event CellStateChanged*/

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_ConditionalFormat,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%CS0 = 1")
	var_ConditionalFormat.Bold = true
oG2antt.HeaderVisible = 1
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	var_Items.CellState(hChild,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.CellState(hChild,1)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()

1979:
How can I change the foreground color for checked items

/*begin event CellStateChanged(long  Item,long  ColIndex) - Fired after cell's state has been changed.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Refresh()
*/
/*end event CellStateChanged*/

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_ConditionalFormat,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.SelBackMode = 1
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%CS0 = 1")
	var_ConditionalFormat.ForeColor = RGB(255,128,128)
oG2antt.HeaderVisible = 1
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	var_Items.CellState(hChild,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.CellState(hChild,1)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()

1978:
How can I change the background color for checked items (solid color)

/*begin event CellStateChanged(long  Item,long  ColIndex) - Fired after cell's state has been changed.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Refresh()
*/
/*end event CellStateChanged*/

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_ConditionalFormat,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.SelBackMode = 1
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%CS0 = 1")
	var_ConditionalFormat.BackColor = RGB(255,128,128)
	var_ConditionalFormat.ChartBackColor = var_ConditionalFormat.BackColor
oG2antt.HeaderVisible = 1
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	var_Items.CellState(hChild,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.CellState(hChild,1)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()

1977:
How can I change the color for checked Task bars

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_ConditionalFormat,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%CS0 = 1")
	var_ConditionalFormat.ApplyToBars = "Task,Summary"
	var_ConditionalFormat.BarColor = RGB(255,0,0)
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	var_Items.CellState(hChild,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.CellState(hChild,1)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()

1976:
I have defined "NonWorkingHours" for the Gantt, and the "exBarWorkingCount" properly excludes these hours as long as the Gantt is using "exDay" or "exHour" as the level unit. However when displaying a quarter or a year, I'm changing the unit to "exWeek", but then the "NonWorkingHours" are no longer excluded from the bars "exBarWorkingCount" and displays the wrong value

OleObject oG2antt,var_Chart,var_Chart1,var_Column,var_Columns,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Columns = oG2antt.Columns
	var_Columns.Add("Tasks").AllowSizing = false
	var_Column = var_Columns.Add("Working")
		var_Column.Def(18,258)
		var_Column.Def(19,"A")
		var_Column.FormatColumn = "((1:=int(0:=( 24*int(value) + (value - int(value) + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
oG2antt.Items.AllowCellValueToItemBar = true
var_Chart = oG2antt.Chart
	var_Chart.AllowResizeChart = 262 /*exAllowChangeUnitScale | exAllowResizeChartMiddle | exAllowResizeChartHeader*/
	var_Chart.PaneWidth(false,196)
	var_Chart.Bars.Add("Task:Split").Shortcut = "Task"
	var_Chart.FirstVisibleDate = 2002-01-03
	var_Chart.LevelCount = 2
	var_Chart.Level(0).Label = "<%ddd%>"
	var_Chart.Level(1).Label = "<%hh%>"
	var_Chart.NonworkingHours = 16761855
	var_Chart.ShowNonworkingUnits = false
	var_Chart.OverviewVisible = -1
	var_Chart.OverviewHeight = 64
	var_Chart.AllowOverviewZoom = 1
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task",2002-01-04,2002-01-08,"A")
	var_Items.ItemBar(h,"A",20,true)
	h = var_Items.AddItem("Task 2")
	var_Items.AddBar(h,"Task",2002-01-03,2002-01-04,"A")
	var_Items.ItemBar(h,"A",20,true)
var_Chart1 = oG2antt.Chart
	var_Chart1.UnitScale = 4096
	var_Chart1.ScrollTo(var_Chart1.FirstVisibleDate,1)
oG2antt.EndUpdate()

1975:
Is it possible to customize the editor selection colour of the built in text editor, from standard blue to black

OleObject oG2antt,var_Editor,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
oG2antt.SelBackColor = RGB(0,0,0)
oG2antt.SelForeColor = RGB(255,255,255)
oG2antt.Chart.PaneWidth(true,0)
var_Editor = oG2antt.Columns.Add("Edit").Editor
	var_Editor.EditType = 8
	var_Editor.Mask = ";;;rich"
var_Items = oG2antt.Items
	var_Items.AddItem("")
	var_Items.AddItem("Just a text")
	var_Items.AddItem("")
oG2antt.EndUpdate()

1974:
Is it possible to customize the editor selection colour of the built in dropdown editor, from standard blue to black

OleObject oG2antt,var_Editor,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SelBackColor = RGB(0,0,0)
oG2antt.SelForeColor = RGB(255,255,255)
oG2antt.Chart.PaneWidth(true,0)
var_Editor = oG2antt.Columns.Add("DropDown").Editor
	var_Editor.AddItem(1,"This is just the first item")
	var_Editor.AddItem(2,"This is just the second item")
	var_Editor.AddItem(3,"This is just the third item")
	var_Editor.EditType = 2
	var_Editor.Mask = ";;;rich"
var_Items = oG2antt.Items
	var_Items.AddItem("")
	var_Items.AddItem("Just a text")
	var_Items.AddItem("")
oG2antt.EndUpdate()

1973:
When I display the chart in the daily view, the histogram shows correctly the data while if the chart displays the data in weekly or monthly view, the histogram shows no data or incorrectly. What can be the problem

/*begin event OverviewZoom() - Occurs once the user selects a new time scale unit in the overview zoom area.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Chart.ResizeUnitScale = 4096
*/
/*end event OverviewZoom*/

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h1

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Column = oG2antt.Columns.Add("Effort")
	var_Column.Def(18,21)
	var_Column.Editor.EditType = 4
var_Chart = oG2antt.Chart
	var_Chart.AllowOverviewZoom = 1
	var_Chart.OverviewZoomCaption = "|||<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|||"
	var_Chart.Label(0,"")
	var_Chart.Label(1,"")
	var_Chart.Label(2,"")
	var_Chart.Label(17,"")
	var_Chart.Label(65536,"")
	var_Chart.Label(1048576,"")
	var_Chart.Label(16777216,"")
	var_Chart.OverviewZoomUnit = 64
	var_Chart.LevelCount = 2
	var_Chart.NonworkingDays = 0
	var_Chart.PaneWidth(false,96)
	var_Chart.FirstVisibleDate = 2005-06-20
	var_Chart.HistogramVisible = true
	var_Chart.HistogramHeight = 128
	var_Chart.HistogramView = 112
	var_Chart.OverviewVisible = -1
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.HistogramPattern = var_Bar.Pattern
		var_Bar.HistogramType = 0
		var_Bar.HistogramCriticalValue = 3
		var_Bar.HistogramItems = -7
		var_Bar.HistogramGridLinesColor = RGB(192,192,192)
		var_Bar.HistogramRulerLinesColor = RGB(0,0,1)
var_Items = oG2antt.Items
	var_Items.AllowCellValueToItemBar = true
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",2005-06-21,2005-06-23)
	var_Items.CellValue(h1,1,4)
	h1 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h1,"Task",2005-06-24,2005-06-26)
	var_Items.CellValue(h1,1,3)
	h1 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h1,"Task",2005-06-27,2005-06-29)
	var_Items.CellValue(h1,1,2)
	h1 = var_Items.AddItem("Task 4")
	var_Items.AddBar(h1,"Task",2005-06-30,2005-07-02)
	var_Items.CellValue(h1,1,1)
oG2antt.EndUpdate()

1972:
The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that
/*begin event BeforeExpandItem(long  Item,any  Cancel) - Fired before an item is about to be expanded (collapsed).*/
/*
	oG2antt = ole_1.Object
	MessageBox("Information",string( "BeforeExpandItem" ))
	MessageBox("Information",string( String(Item) ))
	MessageBox("Information",string( "ColumnFromPoint" ))
	MessageBox("Information",string( String(oG2antt.ColumnFromPoint(-1,-1)) ))
	MessageBox("Information",string( "ColumnFromPoint return -1, if the user clicks the +/- glitch, else it returns the index of the column where the click occurs." ))
	oG2antt.Items.InsertItem(Item,,"new child")
*/
/*end event BeforeExpandItem*/

OleObject oG2antt,var_Columns,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
oG2antt.LinesAtRoot = -1
var_Columns = oG2antt.Columns
	var_Columns.Add("Items").DisplayFilterButton = true
var_Items = oG2antt.Items
	var_Items.ItemHasChildren(var_Items.InsertItem(,,"Group 1"),true)
	var_Items.ItemHasChildren(var_Items.InsertItem(,,"Group 2"),true)
oG2antt.EndUpdate()

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

OleObject oG2antt,var_Appearance,var_Chart,var_Column

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Appearance = oG2antt.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQgmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYThdr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
oG2antt.Background(0,16777216 /*0x1000000*/)
oG2antt.Background(32,-1)
oG2antt.HeaderAppearance = 0
oG2antt.BackColorHeader = RGB(0,0,0)
oG2antt.ForeColorHeader = RGB(255,255,255)
oG2antt.HeaderVisible = true
oG2antt.BackColorLevelHeader = oG2antt.BackColor
var_Column = oG2antt.Columns.Add("Filter")
	var_Column.DisplayFilterButton = true
	var_Column.AllowSort = false
	var_Column.AllowDragging = false
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,196)
	var_Chart.LevelCount = 2
	var_Chart.BackColorLevelHeader = oG2antt.BackColorHeader
	var_Chart.ForeColorLevelHeader = oG2antt.ForeColorHeader
oG2antt.EndUpdate()

1970:
How do I change the z-order of the bars (percent)

/*begin event MouseMove(integer  Button,integer  Shift,long  X,long  Y) - Occurs when the user moves the mouse.*/
/*
	any b,i
	oG2antt = ole_1.Object
	b = oG2antt.Chart.BarFromPoint(-1,-1)
	i = oG2antt.ItemFromPoint(-1,-1,c,hit)
	MessageBox("Information",string( String(oG2antt.Items.ItemBar(i,b,6)) ))
*/
/*end event MouseMove*/

OleObject oG2antt,var_Bar,var_Bar1,var_Chart,var_Items
any h1

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
oG2antt.DefaultItemHeight = 52
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-10-10
	var_Chart.PaneWidth(false,0)
	var_Chart.NonworkingDays = 0
	var_Chart.MarkTodayColor = var_Chart.BackColor
	var_Chart.Bars.Add("Task%Progress").Shortcut = "Task"
	var_Bar = var_Chart.Bars.Copy("Task","T1")
		var_Bar.Color = RGB(255,0,0)
		var_Bar.Def(3,"<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>")
		var_Bar.Def(4,18)
		var_Bar.Def(12,0.25)
		var_Bar.Def(39,var_Bar.Color)
		var_Bar.Def(18,10)
		var_Bar.Def(14,true)
		var_Bar.Def(13,"<font ;6><b>%p%</b>")
	var_Bar1 = var_Chart.Bars.Copy("Task","T2")
		var_Bar1.Height = 26
		var_Bar1.Def(3,"<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>")
		var_Bar1.Def(5,16)
		var_Bar1.Def(12,0.25)
		var_Bar1.Def(39,var_Bar1.Color)
		var_Bar1.Def(14,true)
		var_Bar1.Def(13,"<font ;6><b>%p%</b>")
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task")
	var_Items.AddBar(h1,"T1",2017-10-15,2017-10-25,"2")
	var_Items.ItemBar(h1,"2",17,"Bar A")
	var_Items.ItemBar(h1,"2",6,"Bar A <b>Over</b> Bar B")
	var_Items.AddBar(h1,"T2",2017-10-18,2017-10-22,"1")
	var_Items.ItemBar(h1,"1",17,"Bar B")
	var_Items.ItemBar(h1,"1",6,"Bar B <b>Under</b> Bar A")
	h1 = var_Items.AddItem("Task")
	var_Items.AddBar(h1,"T1",2017-10-15,2017-10-25,"1")
	var_Items.ItemBar(h1,"1",17,"Bar A")
	var_Items.ItemBar(h1,"1",6,"Bar A <b>Under</b> Bar B")
	var_Items.AddBar(h1,"T2",2017-10-18,2017-10-22,"2")
	var_Items.ItemBar(h1,"2",17,"Bar B")
	var_Items.ItemBar(h1,"2",6,"Bar B <b>Over</b> Bar A")
oG2antt.EndUpdate()

1969:
How do I change the z-order of the bars

/*begin event MouseMove(integer  Button,integer  Shift,long  X,long  Y) - Occurs when the user moves the mouse.*/
/*
	any b,i
	oG2antt = ole_1.Object
	b = oG2antt.Chart.BarFromPoint(-1,-1)
	i = oG2antt.ItemFromPoint(-1,-1,c,hit)
	MessageBox("Information",string( String(oG2antt.Items.ItemBar(i,b,6)) ))
*/
/*end event MouseMove*/

OleObject oG2antt,var_Bar,var_Bar1,var_Chart,var_Items
any h1

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
oG2antt.DefaultItemHeight = 52
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2017-10-10
	var_Chart.PaneWidth(false,0)
	var_Chart.NonworkingDays = 0
	var_Chart.MarkTodayColor = var_Chart.BackColor
	var_Bar = var_Chart.Bars.Copy("Task","T1")
		var_Bar.Color = RGB(255,0,0)
		var_Bar.Def(3,"<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>")
		var_Bar.Def(4,18)
	var_Bar1 = var_Chart.Bars.Copy("Task","T2")
		var_Bar1.Height = 25
		var_Bar1.Def(3,"<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>")
		var_Bar1.Def(5,16)
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task")
	var_Items.AddBar(h1,"T1",2017-10-15,2017-10-25,"2")
	var_Items.ItemBar(h1,"2",17,"Bar A")
	var_Items.ItemBar(h1,"2",6,"Bar A <b>Over</b> Bar B")
	var_Items.AddBar(h1,"T2",2017-10-18,2017-10-22,"1")
	var_Items.ItemBar(h1,"1",17,"Bar B")
	var_Items.ItemBar(h1,"1",6,"Bar B <b>Under</b> Bar A")
	h1 = var_Items.AddItem("Task")
	var_Items.AddBar(h1,"T1",2017-10-15,2017-10-25,"1")
	var_Items.ItemBar(h1,"1",17,"Bar A")
	var_Items.ItemBar(h1,"1",6,"Bar A <b>Under</b> Bar B")
	var_Items.AddBar(h1,"T2",2017-10-18,2017-10-22,"2")
	var_Items.ItemBar(h1,"2",17,"Bar B")
	var_Items.ItemBar(h1,"2",6,"Bar B <b>Over</b> Bar A")
oG2antt.EndUpdate()

1968:
How do I get the duration/working count of the bar (sample 6,excrd)

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Column1,var_Column2,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 48
oG2antt.ShowFocusRect = false
oG2antt.SelBackMode = 1
oG2antt.BackColorLevelHeader = oG2antt.BackColor
oG2antt.DrawGridLines = -1
var_Chart = oG2antt.Chart
	var_Chart.DrawGridLines = 1
	var_Chart.PaneWidth(false,64)
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2001-12-26
	var_Bar = var_Chart.Bars.Add("Task:Split")
		var_Bar.Shortcut = "Task"
		var_Bar.Def(6,"<%=%263%>")
		var_Bar.Def(18,-12)
	var_Chart.ColumnsFormatLevel = "1,2/3"
oG2antt.Columns.Add("Tasks")
var_Column = oG2antt.Columns.Add("Duration")
	var_Column.Def(18,513)
	var_Column.Visible = false
	var_Column.Alignment = 0
	var_Column.FormatColumn = "value + `d`"
var_Column1 = oG2antt.Columns.Add("Working")
	var_Column1.Def(18,258)
	var_Column1.Visible = false
	var_Column1.Alignment = 2
	var_Column1.FormatColumn = "value + `w`"
var_Column2 = oG2antt.Columns.Add("Working-Period")
	var_Column2.Def(18,263)
	var_Column2.Visible = false
	var_Column2.Alignment = 1
	var_Column2.FormatColumn = "((value replace `\r\n` with `,`) replace `#` with ``) replace ` ` with ``"
var_Items = oG2antt.Items
	var_Items.AllowCellValueToItemBar = true
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2002-01-02,2002-01-11)
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2002-01-03,2002-01-15)
	var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2001-12-31,2002-01-13)
oG2antt.EndUpdate()

1967:
How do I get the duration/working count of the bar (sample 5)

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	OleObject var_Items
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		var_Items.ItemMaxHeight(Item,64)
*/
/*end event AddItem*/

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Column1,var_Column2,var_Column3,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.BackColorAlternate = RGB(240,240,240)
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,256)
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2002-01-01
	var_Bar = var_Chart.Bars.Add("Task:Split")
		var_Bar.Shortcut = "Task"
		var_Bar.Def(6,"<%=%263%>")
	var_Chart.ColumnsFormatLevel = "1,2"
	var_Chart.SelBackColor = oG2antt.SelBackColor
var_Column = oG2antt.Columns.Add("Task")
	var_Column.AllowSizing = false
	var_Column.Width = 48
var_Column1 = oG2antt.Columns.Add("Duration")
	var_Column1.Def(18,513)
	var_Column1.Visible = false
	var_Column1.Alignment = 0
var_Column2 = oG2antt.Columns.Add("Working")
	var_Column2.Def(18,258)
	var_Column2.Visible = false
	var_Column2.Alignment = 2
var_Column3 = oG2antt.Columns.Add("Working-Period")
	var_Column3.Def(18,263)
	var_Column3.Def(16,false)
var_Items = oG2antt.Items
	var_Items.AllowCellValueToItemBar = true
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2002-01-02,2002-01-12)
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2002-01-03,2002-01-15)
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2002-01-04,2002-01-16)
oG2antt.EndUpdate()

1966:
How do I get the duration/working count of the bar (sample 4)

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,64)
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2001-12-26
	var_Chart.Bars.Add("Task:Split").Shortcut = "Task"
	var_Chart.ColumnsFormatLevel = "1,2"
oG2antt.Columns.Add("Task").Width = 48
var_Column = oG2antt.Columns.Add("Duration")
	var_Column.Def(18,513)
	var_Column.Visible = false
	var_Column.Alignment = 0
	var_Column.FormatColumn = "value + `d`"
var_Column1 = oG2antt.Columns.Add("Working")
	var_Column1.Def(18,258)
	var_Column1.Visible = false
	var_Column1.Alignment = 2
	var_Column1.FormatColumn = "value + `w`"
var_Items = oG2antt.Items
	var_Items.AllowCellValueToItemBar = true
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2002-01-02,2002-01-12)
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2002-01-03,2002-01-15)
oG2antt.EndUpdate()

1965:
How do I get the duration/working count of the bar (sample 3)

/*begin event BarResizing(long  Item,any  Key) - Occurs when a bar is moving or resizing.*/
/*
	OleObject var_Items
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		MessageBox("Information",string( var_Items.CellCaption(Item,0) ))
		MessageBox("Information",string( "Working" ))
		MessageBox("Information",string( String(var_Items.ItemBar(Item,Key,258)) ))
		MessageBox("Information",string( var_Items.CellCaption(Item,0) ))
		MessageBox("Information",string( "Duration" ))
		MessageBox("Information",string( String(var_Items.ItemBar(Item,Key,513)) ))
*/
/*end event BarResizing*/

OleObject oG2antt,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,64)
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2001-12-26
	var_Chart.Bars.Add("Task:Split").Shortcut = "Task"
oG2antt.Columns.Add("Task").Width = 48
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2002-01-02,2002-01-12)
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2002-01-03,2002-01-15)
oG2antt.EndUpdate()

1964:
How do I get the duration/working count of the bar (sample 2)

OleObject oG2antt,var_Bar,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,64)
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2001-12-26
	var_Bar = var_Chart.Bars.Add("Task:Split")
		var_Bar.Shortcut = "Task"
		var_Bar.Def(3,"<%=%258%>w")
		var_Bar.Def(4,18)
		var_Bar.Def(44,"<%=%513%>d")
		var_Bar.Def(45,16)
oG2antt.Columns.Add("Task").Width = 48
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2002-01-02,2002-01-12)
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2002-01-03,2002-01-15)
oG2antt.EndUpdate()

1963:
How do I get the duration/working count of the bar (sample 1)

OleObject oG2antt,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,196)
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2002-01-01
	var_Chart.Bars.Add("Task:Split").Shortcut = "Task"
oG2antt.Columns.Add("Task").Width = 48
oG2antt.Columns.Add("Duration").Def(18,513)
oG2antt.Columns.Add("Working").Def(18,258)
var_Items = oG2antt.Items
	var_Items.AllowCellValueToItemBar = true
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2002-01-02,2002-01-12)
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2002-01-03,2002-01-15)
oG2antt.EndUpdate()

1962:
How can I draw a solid frame around the the focusing item

OleObject oG2antt,var_Appearance,var_Column,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SingleSel = false
oG2antt.DefaultItemHeight = 20
var_Appearance = oG2antt.VisualAppearance
	var_Appearance.RenderType = -1
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABOkGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeDYMiSNoYDJCM4wHIURRJFCUJSGWQpTgSIgyT5HFIxXKoASbJabZLhWS6EpWOotTbIQQRYCkEyfKKfZyGURZQqOKA1DBZErWTJESRFJqLazgO4LAhyQYrVgAErzVKVCRNOqbJzADApdpGQJTULDNTQHRFIyhOSnIRrWbMAhid6JUZiVT4dBOIYhSYANAqCwLFqrDJmWrpV5WZjlZ47V6BdAyXJsIrmFJEXaOGhyDDlGybSDZYryfZhUziUw4XjbWwZDqPF6DKTTdSGLREE8WZVlURZvDaep3C+AY8kAYRgGCCBJECUhjDoHROEYWgoAGTQ1CEEx9lGMY0CQUYSnuZQDBGBYFlOH5+H+igGAKAJgEgFgGgGVgDn4CoCmCSA2A6A5hAgDgQgSYRIE4EoFGGCBiBeBhhkgPgbgcYgICoH4IGGWIOCSBhiGiHgVgoYooFoAoLGIWI+DCCgjCiTgrgII4ImYOoOmOSJ2AYOpWlQDQBICA=")
oG2antt.ShowFocusRect = true
oG2antt.Background(19,16777216 /*0x1000000*/)
oG2antt.LinesAtRoot = -1
oG2antt.Chart.PaneWidth(true,1)
var_Column = oG2antt.Columns.Add("P1")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_Items = oG2antt.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()

1961:
The frame around the focusing item is not very clear. Can I show it larger or more cleared (sample 2)

OleObject oG2antt,var_Appearance,var_Column,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SingleSel = false
oG2antt.DefaultItemHeight = 20
oG2antt.ShowFocusRect = true
var_Appearance = oG2antt.VisualAppearance
	var_Appearance.RenderType = -1
	var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeCRUgyJI3RgMUIzVAcRRFEiUJQlIZZCjOAw0SIMU7xZRcNxsACnaZnCR4NiuRYiUhOcqzRIQIQ4CiEahqOgJbDUJYwWZKAyjBY8XTZFCSJCpeJ6egOc5jRxQUp1WAEXx3GSsJKvCZ5cADBY+VLQNS0JBtMSTKSLaiuWoIJqCPaDRheWKQJh1NSnLqEcjyYANDxDCZlWzAYxWTZ2Uz7N7PbB0HY4DyPGKZYrfESVRbQcZNS6nNigPI9XhfGq6VjRe63ZaOaYpWrnOJqTRWjOKYujWdZ2BGO5lkuBAAkmcQkDmDBEAwEQJCgGhMGcQ4pkiSxGAAOYmkQIhvkYNg2gSCgyj+LI4GIMIwF2XQoAYAoAmASAWAaAZgggJgKFiT54DYDoDmECBGBKBJgGgTgWgWYRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChiigYgsgsYYYBYMIKCMKJOCuDRjGiOgLg6Y5InYPoPmQCAkmsXAQDQBCAg=")
	var_Appearance.Add(3,"CP:2 -3 0 3 0")
oG2antt.Background(19,50397441 /*0x3010101*/)
oG2antt.LinesAtRoot = -1
oG2antt.Chart.PaneWidth(true,1)
var_Column = oG2antt.Columns.Add("P1")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_Items = oG2antt.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()

1960:
The frame around the focusing item is not very clear. Can I show it larger or more cleared (sample 1)

OleObject oG2antt,var_Appearance,var_Column,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SingleSel = false
oG2antt.ShowFocusRect = true
var_Appearance = oG2antt.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABHoDg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVAceAAGaUZrjSgobjmOYhAJCLqhYIgASXJqLaBlOCaAieSc+QhjQJIJoeCZXU5TFg1BTsOhqEqcRiseaRVDCaIJWzbdYWLDdNQHHKYLjnWorbpSJZ5XjNEySDQkMS9PrEJ7vST8FBCdAABLJUB2BR9RwxRafKpnWwJDpmCaOQLXEB5DK1PyVMTKYrtGy7GrIAJxWxbV4UHh+QABOzIMAvHKJMwvHYcUZne5XVLeF41HbONogPaJZyIAK2cLROq6Xo7GEcJZEcLASB4DwvgWUZlE6AQQhKAYkkYdA6hyDIwHgSoqFwQgmnsYxjGgSIiBOTpSEiAwRgOJI7j4JAHA6U5wm0MpPlOBIjD8TZiGYCICiCGAuA6AxhAgMgSgOYQ4DYBg/g6cw1n+ABOmMMJ9DmCwjnScw4RsVJngkYh4hoKIKmKKI2CmC5ikiQgqgiT5jhyMw8g4QwIn0OIKEiCJhD8DwTGyfA7k0WQOEWEQkGkJhIhKZB5DYSoTiSCQEn4PQOCOXJcCeIJjliaIQk0aRyF4O5llmAhfhgZhJg4ZoYiaAxYn4PZOhOZJaCUZYTiYQw1mcOZUm+HQnHmWh4h6Z4pnYeYfk0eYsmqG4nAgNJ2DqD5DkCWoiGiOgqgyI5omoRoNiSaQKFKEojCaM4ugSFhOjkAJcieKgDkaH4oioGoOiaKRqgqEoqDddwyhuAxPgOMJ8DyDZqk6NYtCsapmjiLprHqdo6i+K5K1oPhOlqPgKD4DpjnII4yiOewuk6MxtAsMpSjObQ7EaT4wk6ewYn0PgPAiCJkjeLgDk6X44i4G4OmaORuguEpqDkLAzkaWg+E8GIUmaPIvEOVpzj2Lxbl6eo+G+S5in4OYPmOaJyjuTwjnYWpBg6DAjAqQZwkwJw" &
 +"NkKcJsEcEJCDBEpaD6Dw8BiapGjGSgfB2RpxmyBwgkicZ8haBw/g+M5TBcPQPlOXJskscp8jsMJMnMLJXDGTZzEyYw2kwMoDlcFw9i2M4/EGUJPg0CxFlENBtCcSJSnQfQ0m+SgPHsaJ7lALZLG6XZVHWDRfFqVY1k0ZxdladYTnifJUGaeAWAeMnSGcGWgBObJ3lWbwdjKW5cHcTZPHaLkN4GxXDlFqFsA4uRbBOGAFAEIzAsDEFOBkfYqR4D6AOBEYo8QuBvAmMceInBDgcD0JwOIqQyJ1DMAwG4IANDnHSMoK4QhOgMBGNEIQvQWAdGenETIswGiddsAAQAgCAgA==")
	var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABeEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADDFIBQSLAYROGSDJBGODJDjWGIeQLOEhQHIMRxPE6UYLhWYpBDKPYcUbGc7yBBMVwGf59XzACoKSheQIVSDQkw6Fo6NYhAxHALyNRkBy8f60KjtGpodDUJYvW5JYyjBZ8EznOqbJBkeJ7BgOe5NQjaD72VgdWQJFSWJajWYYJDOJY2ZAAE5TVINEwxJbDaylChIdxaF6WAzZEBhBYoATPNLBMrhWqKDw2XaQWBCOgwHYeR5LU7BdRwbIrRq2eAAXbcVyXfDddZlBK+QA0SK9lRVTKvJZmKgBWw1COSxmAAGw4kcNx1iKFBiCAfQsG8lJemucg7nsXpUHOOxrm+DI3jOH4XAOBx2nscw0j2HhPG4L5uGEVIECQCBCEUAYkGMHQHFGSBlGaAxkEgQgTGCVBsDYQhCgQJZrHKUggGEShkFGNgIlsNpPnMHJHD+TADAIJIJiIWIeCqChikiIgmgiD5zHyXxgiACJKCuC4jHiZgtg6I4IlkCQwkwOIonMPJjEkFhGhGZBpA4KoMBCGJuEiE5lAkGg7hMY4JEYVoUCUNAOE6FZl0KWQACWOR2GKF5mBmChchkJRZhoXYaCKKYqGuDglEmNhuhWZpIiYc4dCcCRqGmHZlgm2YxAwSQKESHwkFkKgpiAIAIH4PIimOOg2DiChoiQJRRD+TZDHCfwyAyCgyg+JpiioYJ/DgDgIlECQ6lwRAEICA=")
	var_Appearance.Add(3,"CP:2 -2 0 2 0")
oG2antt.SelBackColor = 16777216 /*0x1000000*/
oG2antt.SelForeColor = RGB(0,0,0)
oG2antt.Chart.PaneWidth(true,1)
oG2antt.Background(19,67043328 /*0x3ff0000*/)
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("P1")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_Items = oG2antt.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()

1959:
How can I display the start/end margins of bars, when cursor hovers it like a tooltip

OleObject oG2antt,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("exBarToolTip")
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,96)
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.Bars.Item("Task").Def(6,"<b><%=%9 + '/' + %C0%></b><br><upline><dotline>Start: <%=%1%><br>End: <%=%2%><br>Duration: <%=(%2-%1)%><br>Working: <%=%258%>")
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Bar.Def"),"Task",2001-01-02,2001-01-09,"K1")
	var_Items.AddBar(var_Items.AddItem("Bar.Def"),"Task",2001-01-03,2001-01-10,"K1")
	h = var_Items.AddItem("Items.ItemBar")
	var_Items.AddBar(h,"Unknown",2001-01-04,2001-01-11,"K")
	var_Items.ItemBar(h,"K",6,"Start:<%=%1%><br>End:<%=%2%>")
oG2antt.EndUpdate()

1958:
Is it possible to define different kinds of summary bars with using the EBN files

OleObject oG2antt,var_Appearance,var_Bar,var_Bar1,var_Chart,var_Items
any hSummaryJ,hSummaryK,hSummaryZ,hTaskJ,hTaskK,hTaskZ

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Appearance = oG2antt.VisualAppearance
	var_Appearance.RenderType = -16777216
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABN0GACAADACAxRDAMgBQKAAzQFAYahuGSGAAGMYxQgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQyDAAUIjOKsIhkGYcZAGQBJCjWGodQLOEgwHIERQjEyUJAGGQIHhyPYbUbGUpQHKkeRtGqgBgoKhKEouNYgAbGYIwTRsdyfDSXBpEWwbDgkNQwWTDNoRDIUQStCysaYjOpnfrUAJ1P7FdQ1NJkXRhGSSK7maapaiCSZ6STCMj1FhVKSNJ7DQKhGpgKh/ApgYpQOK4fLNXyRBK4QAyKA6bgPFZOZbFViaXY1V5bNKrcjhHQwAyHJ4XXRdV4YRAkUT4GqiJKGSYcQhuXZWbRqO6ABhef6DRThc6jKpFHIE4llEcojHqSZNgoIxnlgd5thsLREleL43gsYZ9BkaAYkMAgAm+CxGDWWAtiKCRfjcdRgHoHYnicUwgAIEIREAaQYkcQZUHIGRUDQJBOEYRAhDYCxGgMZAkCgdYQhaXQIAYERwQuahXggdgeG6VZ4H4IhdiIGIOB8YIiGiHZZgqYpGF4KYHiKCI+CAU5jCiTQ2g0YhEFyax4gABAEIC")
	var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABU0IQAAYAQGKQYhiAKBQAGaAoDDcMA4QwAAyjAKMEwsACEIrjKCRShyCYZRhGcTAJBMIhiGQYAChEZxVhEMgzDjIAxSJAcQRFESaAABGCQGh+N4/S4NIi0CIsZQjCaiZ7pKA5bgMCo+UrNMixZQVCSOGChYRpCaZWpGGodQRUFbVHAlKypJKCKrEWSrDhuYAAW7XM7yBS1TzVNSuLZtaLqSroAJ1WTWMB0Ra8NzZEKfaZACj4arKejrRDCMAggI=")
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,128)
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.Def(4,18)
		var_Bar.Color = RGB(1,0,0)
	var_Bar1 = var_Chart.Bars.Item("Summary")
		var_Bar1.Def(4,18)
		var_Bar1.Color = 33554432 /*0x2000000*/
var_Items = oG2antt.Items
	hSummaryJ = var_Items.AddItem("Summary A")
	var_Items.AddBar(hSummaryJ,"Summary",2001-01-02,2001-01-02,"J")
	hTaskJ = var_Items.InsertItem(hSummaryJ,,"Task A.1")
	var_Items.AddBar(hTaskJ,"Task",2001-01-02,2001-01-05,"J1")
	hTaskJ = var_Items.InsertItem(hSummaryJ,,"Task A.2")
	var_Items.AddBar(hTaskJ,"Task",2001-01-04,2001-01-08,"J2")
	var_Items.DefineSummaryBars(hSummaryJ,"J",-1,"<*>")
	hSummaryK = var_Items.AddItem("Summary B")
	var_Items.AddBar(hSummaryK,"Summary",2001-01-02,2001-01-02,"K")
	hTaskK = var_Items.InsertItem(hSummaryK,,"Task B.1")
	var_Items.AddBar(hTaskK,"Task",2001-01-02,2001-01-05,"K1")
	hTaskK = var_Items.InsertItem(hSummaryK,,"Task B.2")
	var_Items.AddBar(hTaskK,"Task",2001-01-04,2001-01-08,"K2")
	var_Items.DefineSummaryBars(hSummaryK,"K",-1,"<*>")
	var_Items.ItemBar(0,"<K*>",33,255)
	hSummaryZ = var_Items.AddItem("Summary B")
	var_Items.AddBar(hSummaryZ,"Summary",2001-01-02,2001-01-02,"Z")
	hTaskZ = var_Items.InsertItem(hSummaryZ,,"Task B.1")
	var_Items.AddBar(hTaskZ,"Task",2001-01-02,2001-01-05,"Z1")
	hTaskZ = var_Items.InsertItem(hSummaryZ,,"Task B.2")
	var_Items.AddBar(hTaskZ,"Task",2001-01-04,2001-01-08,"Z2")
	var_Items.DefineSummaryBars(hSummaryZ,"Z",-1,"<*>")
	var_Items.ItemBar(hSummaryZ,"Z",33,16842496)
	var_Items.ItemBar(0,"<Z1>",33,50266112)
	var_Items.ItemBar(0,"<Z2>",33,33554176)
	var_Items.ExpandItem(0,true)
oG2antt.EndUpdate()

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

OleObject oG2antt,var_Chart

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,0)
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2007-12-12
	var_Chart.DrawGridLines = -1
	var_Chart.UnitScale = 256
	var_Chart.Level(0).FormatLabel = "value + `<r><off -4><fgcolor=808080><font ;6>` + year(dvalue)"
	var_Chart.Level(1).FormatLabel = "(value = 1 ? `<bgcolor=000000><fgcolor=FFFFFF>` : ``) + value"
	var_Chart.WeekNumberAs = 0
	var_Chart.FirstWeekDay = 1
oG2antt.EndUpdate()

1956:
I have a column right-aligned. How can I display its check box aligned to the right, as it appears to the left of the cell's caption

OleObject oG2antt,var_Column,var_Column1,var_Column2,var_Columns,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.ColumnAutoResize = true
oG2antt.Chart.PaneWidth(true,0)
oG2antt.DrawGridLines = 2
var_Columns = oG2antt.Columns
	var_Column = var_Columns.Add("Left")
		var_Column.AllowSizing = false
		var_Column.Width = 96
		var_Column.Def(0,true)
		var_Column.FormatColumn = "0 pos `A-Z`"
	var_Column1 = var_Columns.Add("Center")
		var_Column1.HeaderAlignment = 1
		var_Column1.Alignment = var_Column1.HeaderAlignment
		var_Column1.AllowSizing = false
		var_Column1.Width = 96
		var_Column1.Def(0,true)
		var_Column1.FormatColumn = "0 pos `A-Z`"
	var_Column2 = var_Columns.Add("Right")
		var_Column2.HeaderAlignment = 2
		var_Column2.Alignment = var_Column2.HeaderAlignment
		var_Column2.AllowSizing = false
		var_Column2.Width = 96
		var_Column2.Def(0,true)
		var_Column2.FormatColumn = "0 pos `A-Z`"
		var_Column2.Def(34,"caption,check,icon,icons,picture")
	var_Columns.Add("")
var_Items = oG2antt.Items
	var_Items.CellState(var_Items.AddItem("Item 1"),3,1)
	var_Items.CellState(var_Items.AddItem("Item 2"),2,1)
	var_Items.CellState(var_Items.AddItem("Item 3"),1,1)
oG2antt.EndUpdate()

1955:
Can I display the column's multiple-lines caption vertically oriented (method 2)

OleObject oG2antt,var_Column,var_Column1,var_Column2,var_Columns,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.HeaderHeight = 48
oG2antt.ColumnAutoResize = true
oG2antt.Chart.PaneWidth(true,0)
var_Columns = oG2antt.Columns
	var_Columns.Add("And others ...")
	var_Column = var_Columns.Add("")
		var_Column.HTMLCaption = "First Column"
		var_Column.HeaderVertical = true
		var_Column.Width = 36
		var_Column.AllowSizing = false
		var_Column.Def(0,true)
		var_Column.Def(48,8)
		var_Column.Position = 0
	var_Column1 = var_Columns.Add("")
		var_Column1.HTMLCaption = "<c><b>Second Column"
		var_Column1.HeaderVertical = true
		var_Column1.Width = 36
		var_Column1.AllowSizing = false
		var_Column1.Def(0,true)
		var_Column1.Def(48,8)
		var_Column1.Position = 1
	var_Column2 = var_Columns.Add("")
		var_Column2.HTMLCaption = "<r>Third Column"
		var_Column2.HeaderVertical = true
		var_Column2.Width = 36
		var_Column2.AllowSizing = false
		var_Column2.Def(0,true)
		var_Column2.Def(48,8)
		var_Column2.Position = 2
var_Items = oG2antt.Items
	var_Items.CellState(var_Items.AddItem("Item 1"),3,1)
	var_Items.CellState(var_Items.AddItem("Item 2"),2,1)
	var_Items.CellState(var_Items.AddItem("Item 3"),1,1)
oG2antt.EndUpdate()

1954:
Can I display the column's multiple-lines caption vertically oriented (method 1)

OleObject oG2antt,var_Column,var_Column1,var_Column2,var_Columns,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.HeaderHeight = 48
oG2antt.HeaderSingleLine = false
oG2antt.ColumnAutoResize = true
oG2antt.Chart.PaneWidth(true,0)
var_Columns = oG2antt.Columns
	var_Columns.Add("And others ...")
	var_Column = var_Columns.Add("First Column")
		var_Column.HeaderVertical = true
		var_Column.Width = 36
		var_Column.AllowSizing = false
		var_Column.Def(0,true)
		var_Column.Def(48,8)
		var_Column.Position = 0
	var_Column1 = var_Columns.Add("Second Column")
		var_Column1.HeaderBold = true
		var_Column1.HeaderVertical = true
		var_Column1.Width = 36
		var_Column1.AllowSizing = false
		var_Column1.Def(0,true)
		var_Column1.Def(48,8)
		var_Column1.Position = 1
	var_Column2 = var_Columns.Add("Third Column")
		var_Column2.HeaderVertical = true
		var_Column2.Width = 36
		var_Column2.AllowSizing = false
		var_Column2.Def(0,true)
		var_Column2.Def(48,8)
		var_Column2.Position = 2
var_Items = oG2antt.Items
	var_Items.CellState(var_Items.AddItem("Item 1"),3,1)
	var_Items.CellState(var_Items.AddItem("Item 2"),2,1)
	var_Items.CellState(var_Items.AddItem("Item 3"),1,1)
oG2antt.EndUpdate()

1953:
Can I display the column's caption vertically oriented (method 2)

OleObject oG2antt,var_Column,var_Column1,var_Column2,var_Columns,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.HeaderHeight = 48
oG2antt.ColumnAutoResize = true
oG2antt.Chart.PaneWidth(true,0)
var_Columns = oG2antt.Columns
	var_Columns.Add("And others ...")
	var_Column = var_Columns.Add("")
		var_Column.HTMLCaption = "First"
		var_Column.HeaderVertical = true
		var_Column.Width = 20
		var_Column.AllowSizing = false
		var_Column.Def(0,true)
		var_Column.Position = 0
	var_Column1 = var_Columns.Add("")
		var_Column1.HTMLCaption = "<c><b>Second"
		var_Column1.HeaderVertical = true
		var_Column1.Width = 20
		var_Column1.AllowSizing = false
		var_Column1.Def(0,true)
		var_Column1.Position = 1
	var_Column2 = var_Columns.Add("")
		var_Column2.HTMLCaption = "<r>Third"
		var_Column2.HeaderVertical = true
		var_Column2.Width = 20
		var_Column2.AllowSizing = false
		var_Column2.Def(0,true)
		var_Column2.Position = 2
var_Items = oG2antt.Items
	var_Items.CellState(var_Items.AddItem("Item 1"),3,1)
	var_Items.CellState(var_Items.AddItem("Item 2"),2,1)
	var_Items.CellState(var_Items.AddItem("Item 3"),1,1)
oG2antt.EndUpdate()

1952:
Can I display the column's caption vertically oriented (method 1)

OleObject oG2antt,var_Column,var_Column1,var_Column2,var_Columns,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.HeaderHeight = 48
oG2antt.ColumnAutoResize = true
oG2antt.Chart.PaneWidth(true,0)
var_Columns = oG2antt.Columns
	var_Columns.Add("And others ...")
	var_Column = var_Columns.Add("First")
		var_Column.HeaderVertical = true
		var_Column.Width = 20
		var_Column.AllowSizing = false
		var_Column.Def(0,true)
		var_Column.Position = 0
	var_Column1 = var_Columns.Add("Second")
		var_Column1.HeaderBold = true
		var_Column1.HeaderVertical = true
		var_Column1.Width = 20
		var_Column1.AllowSizing = false
		var_Column1.Def(0,true)
		var_Column1.Position = 1
	var_Column2 = var_Columns.Add("Third")
		var_Column2.HeaderVertical = true
		var_Column2.Width = 20
		var_Column2.AllowSizing = false
		var_Column2.Def(0,true)
		var_Column2.Position = 2
var_Items = oG2antt.Items
	var_Items.CellState(var_Items.AddItem("Item 1"),3,1)
	var_Items.CellState(var_Items.AddItem("Item 2"),2,1)
	var_Items.CellState(var_Items.AddItem("Item 3"),1,1)
oG2antt.EndUpdate()

1951:
How can I resize all task-bars 0-length

OleObject oG2antt,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-03)
	var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2017-08-04,2017-08-13)
	var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-05)
	var_Items.ItemBarEx("itembar(513) = 0 and itembar(0) = `Task`",33,255)
	var_Items.ItemBarEx("itembar(513) = 0 and itembar(0) = `Task`",513,"value + 1")
oG2antt.EndUpdate()

1950:
Is it possible to mark items that holds items with 0-length (zero,empty, sample 3)
OleObject oG2antt,var_Chart,var_Column,var_ConditionalFormat,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Column = oG2antt.Columns.Add("Duration")
	var_Column.Def(18,513)
	var_Column.Visible = false
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%1 = 0")
	var_ConditionalFormat.Bold = true
	var_ConditionalFormat.BackColor = RGB(190,190,190)
	var_ConditionalFormat.ChartBackColor = var_ConditionalFormat.BackColor
var_Items = oG2antt.Items
	var_Items.AllowCellValueToItemBar = true
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-03)
	var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2017-08-04,2017-08-13)
	var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-05)
oG2antt.EndUpdate()

1949:
Is it possible to mark items that holds items with 0-length (zero,empty, sample 2)

OleObject oG2antt,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-03)
	var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2017-08-04,2017-08-13)
	var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-05)
	var_Items.ItemBarEx("itembar(513) = 0",3,"`zero-length`")
oG2antt.EndUpdate()

1948:
Is it possible to mark items that holds items with 0-length (zero,empty, sample 1)

OleObject oG2antt,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-03)
	var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2017-08-04,2017-08-13)
	var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-05)
	var_Items.ItemBarEx("itembar(513) = 0",53,"`[frame=RGB(255,0,0),framethick,pattern=6,patterncolor=RGB(255,0,0)]`")
	var_Items.ItemBarEx("itembar(513) = 0",55,"`-4,-4,4,4`")
oG2antt.EndUpdate()

1947:
How can I find how many tasks/bars of 0-length (zero,empty) do I have

OleObject oG2antt,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-03)
	var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2017-08-04,2017-08-13)
	var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-05)
	MessageBox("Information",string( String(var_Items.ItemBarEx("itembar(513) = 0",256)) ))
oG2antt.EndUpdate()

1946:
How can I remove all bars from selected items

OleObject oG2antt,var_Bar,var_Bar1,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SingleSel = false
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Chart.SelBackColor = RGB(240,240,240)
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.OverlaidType = 3
		var_Bar.OverlaidGroup = "Task,Task-Diff"
		var_Bar.Def(3,"<font ;6><%=%0%>")
		var_Bar.Def(4,18)
	var_Bar1 = var_Chart.Bars.Copy("Task","Task-Diff")
		var_Bar1.Height = 4
		var_Bar1.Color = RGB(255,0,0)
		var_Bar1.Def(3,"<font ;6><%=%0%>")
		var_Bar1.Def(4,16)
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
	h = var_Items.AddItem("Task 2")
	var_Items.AddBar(h,"Task",2017-08-03,2017-08-09)
	var_Items.SelectItem(h,true)
	h = var_Items.AddItem("Task 3")
	var_Items.AddBar(h,"Task",2017-08-04,2017-08-13,"")
	var_Items.AddBar(h,"Task-Diff",2017-08-05,2017-08-14,"P")
	var_Items.SelectItem(h,true)
	var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-16)
	MessageBox("Information",string( "Bars before remove: " ))
	MessageBox("Information",string( String(var_Items.ItemBar(0,"<*>",256)) ))
	var_Items.ItemBarEx("itemisselected",9,"`toberemove` + value ")
	var_Items.RemoveBar(0,"<toberemove*>")
	MessageBox("Information",string( "Bars after remove: " ))
	MessageBox("Information",string( String(var_Items.ItemBar(0,"<*>",256)) ))
oG2antt.EndUpdate()

1945:
How can I remove task bars from selected items

OleObject oG2antt,var_Bar,var_Bar1,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SingleSel = false
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Chart.SelBackColor = RGB(240,240,240)
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.OverlaidType = 3
		var_Bar.OverlaidGroup = "Task,Task-Diff"
		var_Bar.Def(3,"<font ;6><%=%0%>")
		var_Bar.Def(4,18)
	var_Bar1 = var_Chart.Bars.Copy("Task","Task-Diff")
		var_Bar1.Height = 4
		var_Bar1.Color = RGB(255,0,0)
		var_Bar1.Def(3,"<font ;6><%=%0%>")
		var_Bar1.Def(4,16)
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
	h = var_Items.AddItem("Task 2")
	var_Items.AddBar(h,"Task",2017-08-03,2017-08-09)
	var_Items.SelectItem(h,true)
	h = var_Items.AddItem("Task 3")
	var_Items.AddBar(h,"Task",2017-08-04,2017-08-13,"")
	var_Items.AddBar(h,"Task-Diff",2017-08-05,2017-08-14,"P")
	var_Items.SelectItem(h,true)
	var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-16)
	MessageBox("Information",string( "Bars before remove: " ))
	MessageBox("Information",string( String(var_Items.ItemBar(0,"<*>",256)) ))
	var_Items.ItemBarEx("itemisselected and itembar(0) = `Task`",9,"`toberemove` + value ")
	var_Items.RemoveBar(0,"<toberemove*>")
	MessageBox("Information",string( "Bars after remove: " ))
	MessageBox("Information",string( String(var_Items.ItemBar(0,"<*>",256)) ))
oG2antt.EndUpdate()

1944:
How can I change the pattern for some bars only

OleObject oG2antt,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks").Def(0,true)
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
	h = var_Items.AddItem("Task 2")
	var_Items.AddBar(h,"Task",2017-08-03,2017-08-09)
	var_Items.CellState(h,0,1)
	h = var_Items.AddItem("Task 3")
	var_Items.AddBar(h,"Task",2017-08-04,2017-08-13)
	var_Items.CellState(h,0,1)
	var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-16)
	var_Items.ItemBarEx("cellstate(0)",42,6)
oG2antt.EndUpdate()

1943:
How do I apply the same effort to all bars

OleObject oG2antt,var_Bar,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Chart.HistogramView = 112
	var_Chart.HistogramVisible = true
	var_Chart.HistogramHeight = 64
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.HistogramPattern = 6
		var_Bar.HistogramType = 1
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-09)
	var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2017-08-04,2017-08-13)
	var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-16)
	var_Items.ItemBarEx(true,21,2)
oG2antt.EndUpdate()

1942:
How do I apply the same percent to all bars

OleObject oG2antt,var_Bar,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Bar = var_Chart.Bars.Add("Task%Progress")
		var_Bar.Shortcut = "Task"
		var_Bar.Def(14,true)
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-09)
	var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2017-08-04,2017-08-13)
	var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-16)
	var_Items.ItemBarEx(true,12,0.5)
oG2antt.EndUpdate()

1941:
How can I set the same duration for all bars

OleObject oG2antt,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-09)
	var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2017-08-04,2017-08-13)
	var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-16)
	var_Items.ItemBarEx(true,513,4)
oG2antt.EndUpdate()

1940:
How do I move all bars to end at the same date-time

OleObject oG2antt,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-09)
	var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2017-08-04,2017-08-13)
	var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-16)
	var_Items.ItemBarEx(true,545,"#8/15/2017#")
oG2antt.EndUpdate()

1939:
How do I move all bars to start at the same date-time

OleObject oG2antt,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-09)
	var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2017-08-04,2017-08-13)
	var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-16)
	var_Items.ItemBarEx(true,544,"#8/2/2017#")
oG2antt.EndUpdate()

1938:
How do I apply a new color for some bars, while others should be shown with a different color

OleObject oG2antt,var_Bar,var_Bar1,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Chart.SelBackColor = RGB(240,240,240)
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.OverlaidType = 3
		var_Bar.OverlaidGroup = "Task,Task-Diff"
		var_Bar.Def(3,"<font ;6><%=%0%>")
		var_Bar.Def(4,18)
	var_Bar1 = var_Chart.Bars.Copy("Task","Task-Diff")
		var_Bar1.Height = 4
		var_Bar1.Color = RGB(255,0,0)
		var_Bar1.Def(3,"<font ;6><%=%0%>")
		var_Bar1.Def(4,16)
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-09)
	h = var_Items.AddItem("Task 3")
	var_Items.AddBar(h,"Task",2017-08-04,2017-08-13,"")
	var_Items.AddBar(h,"Task-Diff",2017-08-05,2017-08-14,"P")
	var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-16)
	var_Items.ItemBarEx(true,33,"cellcaption(0) like `*2` ? 0x0000FF : 0x00FF00")
oG2antt.EndUpdate()

1937:
How do I hide some bars, and show others

OleObject oG2antt,var_Bar,var_Bar1,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SingleSel = false
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Chart.SelBackColor = RGB(240,240,240)
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.OverlaidType = 3
		var_Bar.OverlaidGroup = "Task,Task-Diff"
		var_Bar.Def(3,"<font ;6><%=%0%>")
		var_Bar.Def(4,18)
	var_Bar1 = var_Chart.Bars.Copy("Task","Task-Diff")
		var_Bar1.Height = 4
		var_Bar1.Color = RGB(255,0,0)
		var_Bar1.Def(3,"<font ;6><%=%0%>")
		var_Bar1.Def(4,16)
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
	h = var_Items.AddItem("Task 2")
	var_Items.AddBar(h,"Task",2017-08-03,2017-08-09)
	var_Items.SelectItem(h,true)
	h = var_Items.AddItem("Task 3")
	var_Items.AddBar(h,"Task",2017-08-04,2017-08-13,"")
	var_Items.AddBar(h,"Task-Diff",2017-08-05,2017-08-14,"P")
	var_Items.SelectItem(h,true)
	var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-16)
	var_Items.ItemBarEx("-1",19,"itembar(0) = `Task` ? 0 : 100")
oG2antt.EndUpdate()

1936:
I like how ItemBarEx works, the question is how can I remove the bars based on the same criteria

OleObject oG2antt,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-09)
	var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2017-08-04,2017-08-13)
	var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-16)
	MessageBox("Information",string( "Bars before remove: " ))
	MessageBox("Information",string( String(var_Items.ItemBar(0,"<*>",256)) ))
	var_Items.ItemBarEx("cellcaption(0) like `*2 *3`",9,"`toberemove` + value ")
	var_Items.RemoveBar(0,"<toberemove*>")
	MessageBox("Information",string( "Bars after remove: " ))
	MessageBox("Information",string( String(var_Items.ItemBar(0,"<*>",256)) ))
oG2antt.EndUpdate()

1935:
Is it possible to automatically color the bar being checked

/*begin event CellStateChanged(long  Item,long  ColIndex) - Fired after cell's state has been changed.*/
/*
	oG2antt = ole_1.Object
*/
/*end event CellStateChanged*/

OleObject oG2antt,var_Chart,var_Column,var_ConditionalFormat,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SelBackMode = 1
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,256)
	var_Chart.FirstVisibleDate = 2017-01-01
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%CS0","check")
	var_ConditionalFormat.Bold = true
	var_ConditionalFormat.ApplyToBars = "Task"
	var_ConditionalFormat.BarColor = RGB(0,0,1)
var_Column = oG2antt.Columns.Add("Items")
	var_Column.Def(0,true)
	var_Column.Width = 256
oG2antt.Columns.Add(oG2antt.ConditionalFormats.Item("check").Expression).FormatColumn = oG2antt.ConditionalFormats.Item("check").Expression
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2017-01-02,2017-01-12)
	h = var_Items.AddItem("Item 2")
	var_Items.AddBar(h,"Task",2017-01-03,2017-01-13)
	var_Items.CellState(h,0,1)
	h = var_Items.AddItem("Item 3")
	var_Items.AddBar(h,"Task",2017-01-04,2017-01-14)
	var_Items.CellState(h,0,1)
oG2antt.EndUpdate()

1934:
How do I automatically bold items being checked

/*begin event CellStateChanged(long  Item,long  ColIndex) - Fired after cell's state has been changed.*/
/*
	oG2antt = ole_1.Object
*/
/*end event CellStateChanged*/

OleObject oG2antt,var_ConditionalFormat,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SelBackMode = 1
oG2antt.Chart.PaneWidth(true,0)
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%CS0","check")
	var_ConditionalFormat.Bold = true
oG2antt.Columns.Add("Items").Def(0,true)
oG2antt.Columns.Add(oG2antt.ConditionalFormats.Item("check").Expression).FormatColumn = oG2antt.ConditionalFormats.Item("check").Expression
var_Items = oG2antt.Items
	var_Items.AddItem("Item 1")
	var_Items.CellState(var_Items.AddItem("Item 2"),0,1)
	var_Items.AddItem("Item 3")
oG2antt.EndUpdate()

1933:
Can I display the radio-button with a solid color

OleObject oG2antt,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
oG2antt.RadioImage(false,32699122)
oG2antt.RadioImage(true,16777216)
oG2antt.Columns.Add("Check").Def(1,true)
var_Items = oG2antt.Items
	var_Items.AddItem("Radio 1")
	var_Items.CellState(var_Items.AddItem("Radio 2"),0,1)
	var_Items.AddItem("Radio 1")
oG2antt.EndUpdate()

1932:
Can I display the check-box with a solid color

OleObject oG2antt,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
oG2antt.CheckImage(0,32699122)
oG2antt.CheckImage(1,16777216)
oG2antt.Columns.Add("Check").Def(0,true)
var_Items = oG2antt.Items
	var_Items.AddItem("Check 1")
	var_Items.CellState(var_Items.AddItem("Check 2"),0,1)
	var_Items.AddItem("Check 3")
oG2antt.EndUpdate()

1931:
How can I use the CellState with ConditionalFormat/ComputedField/FormatColumn

/*begin event CellStateChanged(long  Item,long  ColIndex) - Fired after cell's state has been changed.*/
/*
	oG2antt = ole_1.Object
*/
/*end event CellStateChanged*/

OleObject oG2antt,var_Column,var_Column1,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = 4
oG2antt.SelBackMode = 1
oG2antt.Chart.PaneWidth(true,0)
var_Column = oG2antt.Columns.Add("Items")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_Column1 = oG2antt.Columns.Add("Format")
	var_Column1.FormatColumn = "%CS0"
	var_Column1.Caption = var_Column1.FormatColumn
	var_Column1.Def(5,8421504)
	var_Column1.Def(8,var_Column1.Def(5))
var_Items = oG2antt.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Item 1")
	var_Items.CellState(var_Items.InsertItem(h,,"Item 2"),0,1)
	var_Items.CellState(var_Items.InsertItem(h,,"Item 3"),0,1)
	var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()

1930:
How can I use the CellData with ConditionalFormat/ComputedField/FormatColumn

OleObject oG2antt,var_Column,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
oG2antt.Columns.Add("Items")
var_Column = oG2antt.Columns.Add("Format")
	var_Column.FormatColumn = "%CD0"
	var_Column.Caption = var_Column.FormatColumn
	var_Column.Def(5,8421504)
	var_Column.Def(8,var_Column.Def(5))
var_Items = oG2antt.Items
	var_Items.CellData(var_Items.AddItem("Item 1"),0,1234)
	var_Items.CellData(var_Items.AddItem("Item 2"),0,"this is just an user data")
	var_Items.CellData(var_Items.AddItem("Item 3"),0,2001-01-01)
oG2antt.EndUpdate()

1929:
How can I use the CellValue/CellCaption with ConditionalFormat/ComputedField/FormatColumn

OleObject oG2antt,var_Column,var_Column1,var_Column2,var_Editor,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
var_Column = oG2antt.Columns.Add("Items")
	var_Editor = var_Column.Editor
		var_Editor.EditType = 3
		var_Editor.AddItem(1,"Item 1")
		var_Editor.AddItem(2,"Item 2")
		var_Editor.AddItem(3,"Item 3")
var_Column1 = oG2antt.Columns.Add("Format")
	var_Column1.FormatColumn = "%0"
	var_Column1.Caption = var_Column1.FormatColumn
	var_Column1.Def(5,8421504)
	var_Column1.Def(8,var_Column1.Def(5))
	var_Column1.AllowSizing = false
var_Column2 = oG2antt.Columns.Add("Format")
	var_Column2.FormatColumn = "%C0"
	var_Column2.Caption = var_Column2.FormatColumn
	var_Column2.Def(5,8421504)
	var_Column2.Def(8,var_Column2.Def(5))
	var_Column2.AllowSizing = false
var_Items = oG2antt.Items
	var_Items.AddItem(1)
	var_Items.CellValue(var_Items.AddItem(0),0,2)
	var_Items.AddItem(2)
oG2antt.EndUpdate()

1928:
How can I use the ShowNonworkingHours property (hide the non-working hours)

OleObject oG2antt,var_Chart

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,0)
	var_Chart.LevelCount = 2
	var_Chart.UnitScale = 65536
	var_Chart.NonworkingHours = 16253183
	var_Chart.ShowNonworkingHours = false
	var_Chart.ShowNonworkingUnits = false
oG2antt.EndUpdate()

1927:
How can I use the ShowNonworkingDates property (hide the non-working days)

OleObject oG2antt,var_Chart

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,0)
	var_Chart.LevelCount = 2
	var_Chart.UnitScale = 4096
	var_Chart.ShowNonworkingDates = false
	var_Chart.ShowNonworkingUnits = false
oG2antt.EndUpdate()

1926:
How can I show/hide bars once the user checks or un-checks a column

/*begin event CellStateChanged(long  Item,long  ColIndex) - Fired after cell's state has been changed.*/
/*
	OleObject var_Items
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		var_Items.ItemBarEx(true,19,"cellstate(0) = 1 ? 0 : 100")
*/
/*end event CellStateChanged*/

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	var_Items.CellState(hChild,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
	var_Items.ItemBarEx(true,19,"cellstate(0) = 1 ? 0 : 100")
oG2antt.EndUpdate()

1925:
How can I change the color for all Task bars

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	var_Items.CellState(hChild,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.CellState(hChild,1)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
	var_Items.ItemBarEx("itembar(0) = `Task`",33,65280)
oG2antt.EndUpdate()

1924:
Is it possible to automatically select bars only when user selects a new item

/*begin event SelectionChanged() - Fired after a new item has been selected.*/
/*
	OleObject var_Items
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		var_Items.ItemBarEx(true,257,"itemisselected")
*/
/*end event SelectionChanged*/

OleObject oG2antt,var_Bar,var_Chart,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.Columns.Add("Tasks")
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
	var_Chart.AllowSelectObjects = 0
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	var_Items.CellState(hChild,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.CellState(hChild,1)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()

1923:
Is it possible to automatically select bars only when the user clicks the column's checkbox

/*begin event CellStateChanged(long  Item,long  ColIndex) - Fired after cell's state has been changed.*/
/*
	OleObject var_Items
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		var_Items.ItemBarEx(true,257,"cellstate(0) = 1")
*/
/*end event CellStateChanged*/

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
	var_Chart.AllowSelectObjects = 0
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	var_Items.CellState(hChild,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.CellState(hChild,1)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()

1922:
How do I select all bars on leaf items

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	var_Items.CellState(hChild,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.CellState(hChild,1)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
	var_Items.ItemBarEx("itemlevel = 1",257,true)
oG2antt.EndUpdate()

1921:
How can I change the caption for all checked Task bars

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	var_Items.CellState(hChild,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.CellState(hChild,1)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
	var_Items.ItemBarEx("(cellstate(0) = 1) and (itembar(0) = `Task`)",3,"`new caption`")
oG2antt.EndUpdate()

1920:
How can I change the caption for all Task bars

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	var_Items.CellState(hChild,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.CellState(hChild,1)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
	var_Items.ItemBarEx("(itembar(0) = `Task`)",3,"`new caption`")
oG2antt.EndUpdate()

1919:
How can I change the caption for all bars

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	var_Items.CellState(hChild,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.CellState(hChild,1)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
	var_Items.ItemBarEx(true,3,"`new caption`")
oG2antt.EndUpdate()

1918:
How can I move all Task bars to end at the same date time

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	var_Items.CellState(hChild,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.CellState(hChild,1)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
	var_Items.ItemBarEx("(itembar(0) = `Task`)",514,"#8/14/2017# - itembar(2)")
oG2antt.EndUpdate()

1917:
How can I move all Task bars to start at the same date time

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	var_Items.CellState(hChild,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.CellState(hChild,1)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
	var_Items.ItemBarEx("(itembar(0) = `Task`)",514,"#8/3/2017# - itembar(1)")
oG2antt.EndUpdate()

1916:
How can I change the color for checked Task bars

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	var_Items.CellState(hChild,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.CellState(hChild,1)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
	var_Items.ItemBarEx("cellstate(0) = 1 and itembar(0) = `Task`",33,255)
oG2antt.EndUpdate()

1915:
How do I resize all Task bars programatically

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	var_Items.CellState(hChild,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.CellState(hChild,1)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
	var_Items.ItemBarEx("itembar(0) = `Task`",2,"value + 2")
oG2antt.EndUpdate()

1914:
How do I move just the checked Task bars in the chart

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	var_Items.CellState(hChild,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.CellState(hChild,1)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
	var_Items.ItemBarEx("cellstate(0) = 1 and itembar(0) = `Task`",514,-2)
oG2antt.EndUpdate()

1913:
How do I move all Task bars in the chart

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	var_Items.CellState(hChild,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.CellState(hChild,1)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
	var_Items.ItemBarEx("itembar(0) = `Task`",514,1)
oG2antt.EndUpdate()

1912:
How do I count all Task bars in the chart
OleObject oG2antt,var_Bar,var_Chart,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.Columns.Add("Tasks")
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
	MessageBox("Information",string( String(var_Items.ItemBarEx("itembar(0) = `Task`",256)) ))
oG2antt.EndUpdate()

1911:
How do I select bars whose items are checked

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2017-08-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Bar = var_Chart.Bars.Item("Summary")
		var_Bar.StartShape = 0
		var_Bar.EndShape = 0
		var_Bar.Shape = 20
	var_Chart.SelBackColor = oG2antt.SelBackColor
	var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
	var_Items.CellState(hChild,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
	var_Items.CellState(hChild,1)
	var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
	var_Items.DefineSummaryBars(h,"sum",-3,"")
	var_Items.ExpandItem(h,true)
	var_Items.ItemBarEx("cellstate(0) = 1",257,true)
oG2antt.EndUpdate()

1910:
How can I select all bars, where a specified column matches a specified criteria

OleObject oG2antt,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.PaneWidth(false,48)
oG2antt.Chart.SelBarColor = RGB(255,0,0)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1","K1")
	var_Items.AddBar(h,"Task",2001-01-05,2001-01-07,"K2","K2")
	var_Items.AddBar(h,"Task",2001-01-08,2001-01-10,"P","P")
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-02,2001-01-04,"Q","Q")
	var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2001-01-02,2001-01-04,"M","M")
	var_Items.ItemBarEx("cellcaption(0) = `Task 1`",257,true)
oG2antt.EndUpdate()

1909:
How can I select/unselect all bars

OleObject oG2antt,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.PaneWidth(false,48)
oG2antt.Chart.SelBarColor = RGB(255,0,0)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1","K1")
	var_Items.AddBar(h,"Task",2001-01-05,2001-01-07,"K2","K2")
	var_Items.AddBar(h,"Task",2001-01-08,2001-01-10,"P","P")
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-02,2001-01-04,"Q","Q")
	var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2001-01-02,2001-01-04,"M","M")
	var_Items.ItemBarEx(true,257,true)
oG2antt.EndUpdate()

1908:
Is it possible to set the background color of the chart for one item and one day
OleObject oG2antt,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Items")
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,96)
	var_Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
	var_Items.AddItem("Item")
	h = var_Items.AddItem("Item")
	var_Items.AddBar(h,"",2001-01-02,2001-01-03,"Back"," ")
	var_Items.ItemBar(h,"Back",7,255)
	var_Items.ItemBar(h,"Back",29,false)
	var_Items.AddItem("Item")
oG2antt.EndUpdate()

1907:
It is possible to search for an item ( inside the Editor ), case insensitive

OleObject oG2antt,var_Editor,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Editor = oG2antt.Columns.Add("DropDownList").Editor
	var_Editor.EditType = 3
	var_Editor.AddItem(1,"One")
	var_Editor.AddItem(2,"Two")
	var_Editor.AddItem(3,"Three")
var_Items = oG2antt.Items
	var_Items.AddItem(oG2antt.Columns.Item(0).Editor.FindItem(">ONE"))
	var_Items.AddItem(oG2antt.Columns.Item(0).Editor.FindItem(">ThRee"))
	var_Items.AddItem(oG2antt.Columns.Item(0).Editor.FindItem("ONE"))
	var_Items.AddItem(oG2antt.Columns.Item(0).Editor.FindItem(">tWo"))
oG2antt.EndUpdate()

1906:
The text after the BR-tag is in same line as the text before the BR-tag (entire column)

OleObject oG2antt,var_Column,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DrawGridLines = 1
oG2antt.Chart.PaneWidth(true,0)
var_Column = oG2antt.Columns.Add("Default")
	var_Column.Def(17,1)
	var_Column.Def(16,false)
var_Items = oG2antt.Items
	var_Items.AddItem("This is the first line.<br>This is the second line.")
	var_Items.AddItem("This is the first line.<br>This is the second line.")
	var_Items.AddItem("This is the first line.<br>This is the second line.")
oG2antt.EndUpdate()

1905:
The text after the BR-tag is in same line as the text before the BR-tag (individual)

OleObject oG2antt,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DrawGridLines = 1
oG2antt.Chart.PaneWidth(true,0)
oG2antt.Columns.Add("Default")
var_Items = oG2antt.Items
	var_Items.CellValueFormat(var_Items.AddItem("This is the first line.<br>This is the second line."),0,1)
	h = var_Items.AddItem("<b>This is the first line.<br>This is the second line.</b>")
	var_Items.CellValueFormat(h,0,1)
	var_Items.CellSingleLine(h,0,false)
	var_Items.CellValueFormat(var_Items.AddItem("This is the first line.<br>This is the second line."),0,1)
oG2antt.EndUpdate()

1904:
How do I prevent showing the control's BackColorAlternate property on empty / non-items part of the control

OleObject oG2antt,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DrawGridLines = -1
var_Chart = oG2antt.Chart
	var_Chart.DrawGridLines = -1
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,128)
	var_Chart.FirstVisibleDate = 2001-01-01
oG2antt.BackColorAlternate = 2146496752 /*0x7ff0f0f0*/
oG2antt.BackColorLevelHeader = oG2antt.BackColor
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-12)
	var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",2001-01-03,2001-01-13)
	var_Items.AddBar(var_Items.AddItem("Item 3"),"Task",2001-01-02,2001-01-12)
	var_Items.AddBar(var_Items.AddItem("Item 4"),"Task",2001-01-03,2001-01-13)
	var_Items.AddBar(var_Items.AddItem("Item 5"),"Task",2001-01-02,2001-01-12)
oG2antt.EndUpdate()

1903:
Can I disable an item once the user selects a new value into a different item

/*begin event Change(long  Item,long  ColIndex,any  NewValue) - Occurs when the user changes the cell's content.*/
/*
	OleObject var_Items
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		var_Items.EnableItem(var_Items.ItemByIndex(1),false)
*/
/*end event Change*/

OleObject oG2antt,var_Editor,var_Items
any h1,h2

oG2antt = ole_1.Object
oG2antt.FreezeEvents(true)
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
oG2antt.ScrollBySingleLine = true
oG2antt.DrawGridLines = -2
oG2antt.Columns.Add("Q")
oG2antt.Columns.Add("A")
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("What's your gender?")
	var_Editor = var_Items.CellEditor(h1,1)
		var_Editor.EditType = 3
		var_Editor.AddItem(1,"Male")
		var_Editor.AddItem(0,"Female")
	var_Items.CellValue(h1,1,1)
	h2 = var_Items.AddItem("What's pet name?")
	var_Items.CellValue(h2,1,"This is my pet favorite long long long name, that shoul break the line in multiple pieces")
	var_Items.CellSingleLine(h2,1,false)
oG2antt.EndUpdate()
oG2antt.FreezeEvents(false)

1902:
How can I get a row expanded / enlarged to fit the cell's text (entire column)

OleObject oG2antt,var_Column,var_Editor,var_Items
any h1,h2

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
oG2antt.ScrollBySingleLine = true
oG2antt.DrawGridLines = -2
oG2antt.Columns.Add("Q")
var_Column = oG2antt.Columns.Add("A")
	var_Column.Def(16,false)
	var_Editor = var_Column.Editor
		var_Editor.EditType = 5
		var_Editor.Appearance = 8
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("What's name?")
	var_Items.CellValue(h1,1,"This is my pet favorite long long long name, that shoul break the line in multiple pieces")
	h2 = var_Items.AddItem("What's your pet name?")
	var_Items.CellValue(h2,1,"This is my pet favorite long long long name, that shoul break the line in multiple pieces")
oG2antt.EndUpdate()

1901:
How can I get a row expanded / enlarged to fit the cell's text (individual cell)

OleObject oG2antt,var_Editor,var_Items
any h1,h2

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
oG2antt.ScrollBySingleLine = true
oG2antt.DrawGridLines = -2
oG2antt.Columns.Add("Q")
oG2antt.Columns.Add("A")
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("What's name?")
	var_Items.CellValue(h1,1,"This is my pet favorite long long long name, that shoul break the line in multiple pieces")
	h2 = var_Items.AddItem("What's your pet name?")
	var_Editor = var_Items.CellEditor(h2,1)
		var_Editor.EditType = 5
		var_Editor.Appearance = 8
	var_Items.CellValue(h2,1,"This is my pet favorite long long long name, that shoul break the line in multiple pieces")
	var_Items.CellSingleLine(h2,1,false)
oG2antt.EndUpdate()