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

METHOD OCX_Exontrol1AddGroupItem(Item) CLASS MainDialog
	// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
	local var_Items as IItems
	local l as USUAL
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:[ItemDividerLine,Item] := EmptyLine
		var_Items:AddBar(Item,"Summary",SToD("20171202"),SToD("20171202"),nil,nil)
		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)
	oDCOCX_Exontrol1:Chart:[ItemBackColor,Item] := RGB(190,190,190)
RETURN NIL

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171210"),nil,nil)
RETURN NIL

local var_Bar as IBar
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAAEhABOUGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCMQwAFBIbhrE4ZBjHGQRUgyI43RhHUBzVIUBxDEaTZLlEYJBgeHYhDJPcaUVDcWQHGyeZwjSgpKoWSJIU5NcggPDgEwTKCmKlTAKoSzJMyEmwWRAdVTZLSEaxierKPhyWT/XgAF4PfDFKRXFqXY5mKZJFqKOI8TxINgxPQMGyrBqraLqKwQGrGCQKSBhUZ3dS2JR3OSlYRuQAMVgOXoDZhPWZXbDtSzPE63NgtOR5DiGWalABoeoxRa9cz3ViCJSrGTqIoINIzZLHFQbPpdAYdP6BeIjXhhZxBBuLZXmEOh9CcNoni2N4MjWVodh+DpfBeLJinsWR9AyYwVAkGBhEAFphGiRogDEGBamkFgtjcZgHiMbgehYaQhAIEIREAaQYkcQZUHIGRUGQDBOEaBAhDYDxGkMZAkCgeoagYZAYEYAYIAWGhemICIFj8WIiCiFR5gkIhogmBoKGKJx2C6C5hniMgggqYwog0UoNGMZJiDiCZRgOLY0ECUAQICA==")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 342
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeSolid
		var_Bar:Color := 0x1000000
		var_Bar:[Def,exBarCaption] := "<%=%513%>"
		var_Bar:[Def,exBarHAlignCaption] := 18
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("C1")
	var_Columns:Add("C2")
	var_Columns:Add("C3")
	var_Column := IColumn{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
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarCaption := "Drag a <b>column</b> header here to group by that column."
oDCOCX_Exontrol1:AllowGroupBy := true
oDCOCX_Exontrol1:HasLines := exNoLine
oDCOCX_Exontrol1:LinesAtRoot := exNoLinesAtRoot
var_Items := oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column1:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddGroupItem(Item) CLASS MainDialog
	// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
	local var_Items as IItems
	local l as USUAL
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:[ItemDividerLine,Item] := EmptyLine
		var_Items:AddBar(Item,"Progress",SToD("20171202"),SToD("20171202"),nil,nil)
		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)
	oDCOCX_Exontrol1:Chart:[ItemBackColor,Item] := RGB(190,190,190)
RETURN NIL

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171210"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 342
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("C1")
	var_Columns:Add("C2")
	var_Columns:Add("C3")
	var_Column := IColumn{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
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarCaption := "Drag a <b>column</b> header here to group by that column."
oDCOCX_Exontrol1:AllowGroupBy := true
oDCOCX_Exontrol1:HasLines := exNoLine
oDCOCX_Exontrol1:LinesAtRoot := exNoLinesAtRoot
var_Items := oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column1:SortOrder := SortAscending
	var_Column1:Alignment := CenterAlignment
	var_Column1:[Def,exCellBackColor] := 15790320
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddGroupItem(Item) CLASS MainDialog
	// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
	local var_Items as IItems
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:AddBar(Item,"Progress",SToD("20171202"),SToD("20171202"),nil,nil)
		var_Items:DefineSummaryBars(Item,"",-3,"")
RETURN NIL

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171210"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 342
var_Columns := oDCOCX_Exontrol1:Columns
	var_Column := IColumn{var_Columns:Add("C1")}
		var_Column:GroupByFormatCell := "upper(value)"
	var_Columns:Add("C2")
	var_Columns:Add("C3")
	var_Column1 := IColumn{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
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarCaption := "Drag a <b>column</b> header here to group by that column."
oDCOCX_Exontrol1:AllowGroupBy := true
var_Items := oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Columns:[Item,0]:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()

2024:
How can I change the aspect of grouped items

METHOD OCX_Exontrol1AddGroupItem(Item) CLASS MainDialog
	// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
	local var_Items as IItems
	local l as USUAL
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:[ItemDividerLine,Item] := EmptyLine
		var_Items:AddBar(Item,"Progress",SToD("20171202"),SToD("20171202"),nil,nil)
		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)
	oDCOCX_Exontrol1:Chart:[ItemBackColor,Item] := RGB(190,190,190)
RETURN NIL

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171210"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 342
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("C1")
	var_Columns:Add("C2")
	var_Columns:Add("C3")
	var_Column := IColumn{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
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarCaption := "Drag a <b>column</b> header here to group by that column."
oDCOCX_Exontrol1:AllowGroupBy := true
var_Items := oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Columns:[Item,0]:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddGroupItem(Item) CLASS MainDialog
	// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
	local var_Items as IItems
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:[ExpandItem,Item] := false
		var_Items:[ItemDividerLine,Item] := EmptyLine
		var_Items:AddBar(Item,"Progress",SToD("20171202"),SToD("20171202"),nil,nil)
		var_Items:DefineSummaryBars(Item,"",-3,"")
RETURN NIL

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171210"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 342
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("C1")
	var_Columns:Add("C2")
	var_Columns:Add("C3")
	var_Column := IColumn{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
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarCaption := "Drag a <b>column</b> header here to group by that column."
oDCOCX_Exontrol1:AllowGroupBy := true
var_Items := oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Columns:[Item,0]:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171210"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 342
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("C1")
	var_Columns:Add("C2")
	var_Columns:Add("C3")
	var_Column := IColumn{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
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarCaption := "<fgcolor=FF0000>Try to drag the Pos column here."
oDCOCX_Exontrol1:AllowGroupBy := true
var_Items := oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:EndUpdate()

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

local var_Bar,var_Bar1,var_Bar2 as IBar
local var_Chart as IChart
local var_Column,var_Column1,var_Column2 as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171128")
	var_Chart:[PaneWidth,false] := 0
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:[Def,exBarCaption] := "<%=%0%>"
		var_Bar:[Def,exBarHAlignCaption] := 18
	var_Bar1 := var_Chart:Bars:Copy("Task","GTask")
		var_Bar1:[Def,exBarCaption] := "<%=%0%>"
		var_Bar1:[Def,exBarHAlignCaption] := 18
		var_Bar1:Color := RGB(0,255,0)
	var_Bar2 := var_Chart:Bars:Copy("Task","RTask")
		var_Bar2:[Def,exBarCaption] := "<%=%0%>"
		var_Bar2:[Def,exBarHAlignCaption] := 18
		var_Bar2:Color := RGB(255,0,0)
	var_Chart:ColumnsFormatLevel := "0"
oDCOCX_Exontrol1:OnResizeControl := exDisableSplitter | exResizeChart
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Default")}
	var_Column:DisplayFilterButton := true
	var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Type")}
	var_Column1:[Def,exCellValueToItemBarKey] := ""
	var_Column1:[Def,exCellValueToItemBarProperty] := 0
	var_Column1:Visible := false
	var_Column1:DisplayFilterButton := true
	var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20171204"),SToD("20171212"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 2"),"GTask",SToD("20171204"),SToD("20171212"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 3"),"RTask",SToD("20171204"),SToD("20171212"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 4"),"Task",SToD("20171204"),SToD("20171212"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 5"),"GTask",SToD("20171204"),SToD("20171212"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 6"),"RTask",SToD("20171204"),SToD("20171212"),nil,nil)
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := AsString(oDCOCX_Exontrol1:FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oDCOCX_Exontrol1:[Description,exFilterBarAnd],nil,nil))
oDCOCX_Exontrol1: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)`) )))"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCompact | exFilterBarShowCloseIfRequired | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible
var_Column2 := oDCOCX_Exontrol1:Columns:[Item,1]
	var_Column2:FilterType := exFilter
	var_Column2:Filter := "GTask|RTask"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3 as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-1")}
	var_Column:DisplayFilterButton := true
	var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-2")}
	var_Column1:DisplayFilterButton := true
	var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column2 := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarShort
var_Column3 := oDCOCX_Exontrol1:Columns:[Item,1]
	var_Column3:FilterType := exPattern
	var_Column3:Filter := "*B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

2019:
FilterBarCaption ALL Keyword ( sample 2, result )

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	local i as USUAL
	i := oDCOCX_Exontrol1:FormatABC("value + 1",oDCOCX_Exontrol1:Items:[ItemToIndex,Item],nil,nil)
	oDCOCX_Exontrol1:Items:[CellImage,Item,3] := i
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5 as IColumn
local var_Editor as IEditor
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-1")}
	var_Column:DisplayFilterButton := true
	var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-2")}
	var_Column1:DisplayFilterButton := true
	var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
	var_Editor := var_Column2:Editor
		var_Editor:EditType := CheckValueType
		var_Editor:[Option,exCheckValue2] := 1
	var_Column2:DisplayFilterButton := true
	var_Column2:DisplayFilterPattern := false
	var_Column2:FilterType := exCheck
var_Column3 := IColumn{oDCOCX_Exontrol1:Columns:Add("Image")}
	var_Column3:DisplayFilterButton := true
	var_Column3:FilterType := exImage
	var_Column3:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox
var_Column4 := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1: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"
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := AsString(oDCOCX_Exontrol1:FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oDCOCX_Exontrol1:[Description,exFilterBarAnd],nil,nil))
oDCOCX_Exontrol1: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)`) )))"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarVisible | exFilterBarPromptVisible
var_Column5 := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column5:FilterType := exFilter
	var_Column5:Filter := "Item A|Item B"
oDCOCX_Exontrol1:Columns:[Item,2]:Filter := AsString(1)
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

2018:
FilterBarCaption ALL Keyword ( sample 1 )

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	local i as USUAL
	i := oDCOCX_Exontrol1:FormatABC("value + 1",oDCOCX_Exontrol1:Items:[ItemToIndex,Item],nil,nil)
	oDCOCX_Exontrol1:Items:[CellImage,Item,3] := i
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5 as IColumn
local var_Editor as IEditor
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-1")}
	var_Column:DisplayFilterButton := true
	var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-2")}
	var_Column1:DisplayFilterButton := true
	var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
	var_Editor := var_Column2:Editor
		var_Editor:EditType := CheckValueType
		var_Editor:[Option,exCheckValue2] := 1
	var_Column2:DisplayFilterButton := true
	var_Column2:DisplayFilterPattern := false
	var_Column2:FilterType := exCheck
var_Column3 := IColumn{oDCOCX_Exontrol1:Columns:Add("Image")}
	var_Column3:DisplayFilterButton := true
	var_Column3:FilterType := exImage
	var_Column3:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox
var_Column4 := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1: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"
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := AsString(oDCOCX_Exontrol1:FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oDCOCX_Exontrol1:[Description,exFilterBarAnd],nil,nil))
oDCOCX_Exontrol1:FilterBarCaption := "all"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarVisible | exFilterBarPromptVisible
var_Column5 := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column5:FilterType := exFilter
	var_Column5:Filter := "Item A|Item B"
oDCOCX_Exontrol1:Columns:[Item,2]:Filter := AsString(1)
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

2017:
FilterBarCaption ALLUI Keyword ( sample 2, result )

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	local i as USUAL
	i := oDCOCX_Exontrol1:FormatABC("value + 1",oDCOCX_Exontrol1:Items:[ItemToIndex,Item],nil,nil)
	oDCOCX_Exontrol1:Items:[CellImage,Item,3] := i
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5 as IColumn
local var_Editor as IEditor
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-1")}
	var_Column:DisplayFilterButton := true
	var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-2")}
	var_Column1:DisplayFilterButton := true
	var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
	var_Editor := var_Column2:Editor
		var_Editor:EditType := CheckValueType
		var_Editor:[Option,exCheckValue2] := 1
	var_Column2:DisplayFilterButton := true
	var_Column2:DisplayFilterPattern := false
	var_Column2:FilterType := exCheck
var_Column3 := IColumn{oDCOCX_Exontrol1:Columns:Add("Image")}
	var_Column3:DisplayFilterButton := true
	var_Column3:FilterType := exImage
	var_Column3:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox
var_Column4 := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1: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"
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := AsString(oDCOCX_Exontrol1:FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oDCOCX_Exontrol1:[Description,exFilterBarAnd],nil,nil))
oDCOCX_Exontrol1: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)`) )))"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarVisible | exFilterBarPromptVisible
var_Column5 := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column5:FilterType := exFilter
	var_Column5:Filter := "Item A|Item B"
oDCOCX_Exontrol1:Columns:[Item,2]:Filter := AsString(1)
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

2016:
FilterBarCaption ALLUI Keyword ( sample 1 )

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	local i as USUAL
	i := oDCOCX_Exontrol1:FormatABC("value + 1",oDCOCX_Exontrol1:Items:[ItemToIndex,Item],nil,nil)
	oDCOCX_Exontrol1:Items:[CellImage,Item,3] := i
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5 as IColumn
local var_Editor as IEditor
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-1")}
	var_Column:DisplayFilterButton := true
	var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-2")}
	var_Column1:DisplayFilterButton := true
	var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
	var_Editor := var_Column2:Editor
		var_Editor:EditType := CheckValueType
		var_Editor:[Option,exCheckValue2] := 1
	var_Column2:DisplayFilterButton := true
	var_Column2:DisplayFilterPattern := false
	var_Column2:FilterType := exCheck
var_Column3 := IColumn{oDCOCX_Exontrol1:Columns:Add("Image")}
	var_Column3:DisplayFilterButton := true
	var_Column3:FilterType := exImage
	var_Column3:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox
var_Column4 := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1: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"
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := AsString(oDCOCX_Exontrol1:FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oDCOCX_Exontrol1:[Description,exFilterBarAnd],nil,nil))
oDCOCX_Exontrol1:FilterBarCaption := "allui"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarVisible | exFilterBarPromptVisible
var_Column5 := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column5:FilterType := exFilter
	var_Column5:Filter := "Item A|Item B"
oDCOCX_Exontrol1:Columns:[Item,2]:Filter := AsString(1)
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

2015:
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	local i as USUAL
	i := oDCOCX_Exontrol1:FormatABC("value + 1",oDCOCX_Exontrol1:Items:[ItemToIndex,Item],nil,nil)
	oDCOCX_Exontrol1:Items:[CellImage,Item,3] := i
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5 as IColumn
local var_Editor as IEditor
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-1")}
	var_Column:DisplayFilterButton := true
	var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-2")}
	var_Column1:DisplayFilterButton := true
	var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
	var_Editor := var_Column2:Editor
		var_Editor:EditType := CheckValueType
		var_Editor:[Option,exCheckValue2] := 1
	var_Column2:DisplayFilterButton := true
	var_Column2:DisplayFilterPattern := false
	var_Column2:FilterType := exCheck
var_Column3 := IColumn{oDCOCX_Exontrol1:Columns:Add("Image")}
	var_Column3:DisplayFilterButton := true
	var_Column3:FilterType := exImage
	var_Column3:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox
var_Column4 := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1: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"
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := AsString(oDCOCX_Exontrol1:FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oDCOCX_Exontrol1:[Description,exFilterBarAnd],nil,nil))
oDCOCX_Exontrol1: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)`) )))"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarVisible | exFilterBarPromptVisible
var_Column5 := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column5:FilterType := exFilter
	var_Column5:Filter := "Item A|Item B"
oDCOCX_Exontrol1:Columns:[Item,2]:Filter := AsString(1)
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

2014:
FilterBarCaption AVAILABLE Keyword ( sample 1 )

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	local i as USUAL
	i := oDCOCX_Exontrol1:FormatABC("value + 1",oDCOCX_Exontrol1:Items:[ItemToIndex,Item],nil,nil)
	oDCOCX_Exontrol1:Items:[CellImage,Item,3] := i
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5 as IColumn
local var_Editor as IEditor
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-1")}
	var_Column:DisplayFilterButton := true
	var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-2")}
	var_Column1:DisplayFilterButton := true
	var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
	var_Editor := var_Column2:Editor
		var_Editor:EditType := CheckValueType
		var_Editor:[Option,exCheckValue2] := 1
	var_Column2:DisplayFilterButton := true
	var_Column2:DisplayFilterPattern := false
	var_Column2:FilterType := exCheck
var_Column3 := IColumn{oDCOCX_Exontrol1:Columns:Add("Image")}
	var_Column3:DisplayFilterButton := true
	var_Column3:FilterType := exImage
	var_Column3:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox
var_Column4 := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1: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"
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := AsString(oDCOCX_Exontrol1:FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oDCOCX_Exontrol1:[Description,exFilterBarAnd],nil,nil))
oDCOCX_Exontrol1:FilterBarCaption := "value + ` ` + available"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarVisible | exFilterBarPromptVisible
var_Column5 := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column5:FilterType := exFilter
	var_Column5:Filter := "Item A|Item B"
oDCOCX_Exontrol1:Columns:[Item,2]:Filter := AsString(1)
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1: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 )

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4 as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-1")}
	var_Column:DisplayFilterButton := true
	var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-2")}
	var_Column1:DisplayFilterButton := true
	var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column2 := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1: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"
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := AsString(oDCOCX_Exontrol1:FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oDCOCX_Exontrol1:[Description,exFilterBarAnd],nil,nil))
oDCOCX_Exontrol1: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>`"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarToggle
var_Column3 := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column3:FilterType := exFilter
	var_Column3:Filter := "Item A|Item B"
var_Column4 := oDCOCX_Exontrol1:Columns:[Item,1]
	var_Column4:FilterType := exPattern
	var_Column4:Filter := "*B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1: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 )

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4 as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-1")}
	var_Column:DisplayFilterButton := true
	var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-2")}
	var_Column1:DisplayFilterButton := true
	var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column2 := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1: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"
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := AsString(oDCOCX_Exontrol1:FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oDCOCX_Exontrol1:[Description,exFilterBarAnd],nil,nil))
oDCOCX_Exontrol1:FilterBarCaption := "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarToggle
var_Column3 := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column3:FilterType := exFilter
	var_Column3:Filter := "Item A|Item B"
var_Column4 := oDCOCX_Exontrol1:Columns:[Item,1]
	var_Column4:FilterType := exPattern
	var_Column4:Filter := "*B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1: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 )

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4 as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-1")}
	var_Column:DisplayFilterButton := true
	var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-2")}
	var_Column1:DisplayFilterButton := true
	var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column2 := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := AsString(oDCOCX_Exontrol1:FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oDCOCX_Exontrol1:[Description,exFilterBarAnd],nil,nil))
oDCOCX_Exontrol1:FilterBarCaption := "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarToggle
var_Column3 := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column3:FilterType := exFilter
	var_Column3:Filter := "Item A|Item B"
var_Column4 := oDCOCX_Exontrol1:Columns:[Item,1]
	var_Column4:FilterType := exPattern
	var_Column4:Filter := "*B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1,var_Column2 as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}
	var_Column:DisplayFilterButton := true
	var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item A")
	var_Items:AddItem("Item B")
	var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarCaption := "`<r>` + value"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarShowCloseOnRight | exFilterBarToggle
var_Column2 := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column2:FilterType := exFilter
	var_Column2:Filter := "Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}
	var_Column:DisplayFilterButton := true
	var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item A")
	var_Items:AddItem("Item B")
	var_Items:AddItem("Item C")
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:FilterBarPrompt := AsString(oDCOCX_Exontrol1:FormatABC("`<b>` + value",oDCOCX_Exontrol1:FilterBarPrompt,nil,nil))
oDCOCX_Exontrol1:FilterBarCaption := "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCompact | exFilterBarShowCloseOnRight | exFilterBarShowCloseIfRequired | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item A")
	var_Items:AddItem("Item B")
	var_Items:AddItem("Item C")
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:FilterBarCaption := "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : ``)"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCompact | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column1:FilterType := exFilter
	var_Column1:Filter := "Item A|Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item A")
	var_Items:AddItem("Item B")
	var_Items:AddItem("Item C")
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:FilterBarCaption := "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCompact | exFilterBarSingleLine | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column1:FilterType := exFilter
	var_Column1:Filter := "Item A|Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item A")
	var_Items:AddItem("Item B")
	var_Items:AddItem("Item C")
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:FilterBarCaption := "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column1:FilterType := exFilter
	var_Column1:Filter := "Item A|Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

2005:
FilterBarCaption Predefined Keywords

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

METHOD OCX_Exontrol1AfterExpandItem(Item) CLASS MainDialog
	// AfterExpandItem event - Fired after an item is expanded (collapsed).
	oDCOCX_Exontrol1:Refresh()
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1,var_Column2 as IColumn
local var_Editor as IEditor
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
	var_Editor := var_Column:Editor
		var_Editor:EditType := CheckValueType
		var_Editor:[Option,exCheckValue2] := 1
	var_Column:DisplayFilterButton := true
	var_Column:DisplayFilterPattern := false
	var_Column:FilterType := exCheck
var_Column1 := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item A")
	h := var_Items:AddItem("Item B")
	var_Items:[CellState,var_Items:InsertItem(h,nil,"Sub-Item B1"),1] := 1
	var_Items:InsertItem(h,nil,"Sub-Item B2")
	var_Items:[ExpandItem,h] := true
	var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterInclude := exItemsWithChilds
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1: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>`"
oDCOCX_Exontrol1:FilterBarPromptPattern := "B"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible
var_Column2 := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column2:FilterType := exFilter
	var_Column2:Filter := "Item A|Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1: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

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item A")
	var_Items:AddItem("Item B")
	var_Items:AddItem("Item C")
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:FilterBarCaption := "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
oDCOCX_Exontrol1:FilterBarPromptPattern := "B"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCompact | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column1:FilterType := exFilter
	var_Column1:Filter := "Item A|Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item A")
	var_Items:AddItem("Item B")
	var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarShowCloseOnRight | exFilterBarToggle | exFilterBarPromptVisible
oDCOCX_Exontrol1:FilterBarPrompt := AsString(oDCOCX_Exontrol1:FormatABC("`<r>` + value",oDCOCX_Exontrol1:FilterBarPrompt,nil,nil))
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:RightToLeft := true
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item A")
	var_Items:AddItem("Item B")
	var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarToggle | exFilterBarPromptVisible
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Appearance as IAppearance
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJjyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmSZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OROicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXAiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaKJDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEAkjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSMRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ")
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item A")
	var_Items:AddItem("Item B")
	var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarToggle | exFilterBarPromptVisible
oDCOCX_Exontrol1:[Background,exFooterFilterBarButton] := 0x1000000
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item A")
	var_Items:AddItem("Item B")
	var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarPromptVisible
oDCOCX_Exontrol1:[Background,exFooterFilterBarButton] := RGB(255,0,0)
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item A")
	var_Items:AddItem("Item B")
	var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarPromptVisible
oDCOCX_Exontrol1:[Background,exFooterFilterBarButton] := -1
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item A")
	var_Items:AddItem("Item B")
	var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarShowCloseIfRequired | exFilterBarPromptVisible
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item A")
	var_Items:AddItem("Item B")
	var_Items:AddItem("Item C")
	var_Items:[LockedItemCount,exBottom] := 1
	h := var_Items:[LockedItem,exBottom,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] := exHTML
oDCOCX_Exontrol1:FilterBarCaption := "`<r><fgcolor=808080>` + value"
oDCOCX_Exontrol1:FilterBarPromptPattern := "B"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCompact | exFilterBarToggle | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column1:FilterType := exFilter
	var_Column1:Filter := "Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item A")
	var_Items:AddItem("Item B")
	var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarCaption := "len(value) ? `filter for: <fgcolor 808080>` + value  : `<fgcolor 808080>no filter`"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarSingleLine | exFilterBarVisible
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column1:FilterType := exFilter
	var_Column1:Filter := "Item A|Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item A")
	var_Items:AddItem("Item B")
	var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarCaption := "`<r>` + value"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCompact | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column1:FilterType := exFilter
	var_Column1:Filter := "Item A|Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

METHOD OCX_Exontrol1Click() CLASS MainDialog
	// Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
	oDCOCX_Exontrol1:ClearFilter()
RETURN NIL

METHOD OCX_Exontrol1FilterChange() CLASS MainDialog
	// FilterChange event - Occurs when the filter was changed.
	OutputDebugString(String2Psz( "Items.MatchItemCount" ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:MatchItemCount) ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:FormatABC("value < 0 ? `filter applied: ` + abs(value + 1) + ` result(s)` : `no filter`",oDCOCX_Exontrol1:Items:MatchItemCount,nil,nil)) ))
RETURN NIL

local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item A")
	var_Items:AddItem("Item B")
	var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarPromptVisible
oDCOCX_Exontrol1:FilterBarPromptPattern := "Item"
oDCOCX_Exontrol1:EndUpdate()

1993:
How can I programmatically clear the control's filter
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

METHOD OCX_Exontrol1Click() CLASS MainDialog
	// Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
	oDCOCX_Exontrol1:ClearFilter()
RETURN NIL

local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item A")
	var_Items:AddItem("Item B")
	var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarPromptVisible
oDCOCX_Exontrol1:FilterBarPromptPattern := "B"
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item A")
	var_Items:AddItem("Item B")
	var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarPromptPattern := "B"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarVisible | exFilterBarPromptVisible
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column1:FilterType := exFilter
	var_Column1:Filter := "Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item A")
	var_Items:AddItem("Item B")
	var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarPromptVisible
oDCOCX_Exontrol1:FilterBarPromptPattern := "B"
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171202")
	var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item A")
	var_Items:AddItem("Item B")
	var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarCaption := "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarVisible
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column1:FilterType := exFilter
	var_Column1:Filter := "Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

1989:
What are the options to align the percent caption

local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Clip")
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:DrawGridLines := exRowLines
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowResizeChart := exAllowResizeChartMiddle | exAllowResizeChartHeader
	var_Chart:DrawGridLines := exRowLines
	var_Chart:FirstVisibleDate := SToD("20001226")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 256
	var_Bar := var_Chart:Bars:Add("Task%Progress")
		var_Bar:Shortcut := "Task"
		var_Bar:Pattern := exPatternBox
		var_Bar:Color := RGB(164,164,164)
		var_Bar:StartColor := RGB(240,240,240)
		var_Bar:EndColor := var_Bar:StartColor
		var_Bar:OverlaidType := exOverlaidBarsIncludeCaption | exOverlaidBarsStackAutoArrange | exOverlaidBarsStack
		var_Bar:Height := 15
		var_Bar:[Def,exBarPercent] := 0.5
		var_Bar:[Def,exBarShowPercentCaption] := true
		var_Bar:[Def,exBarPercentCaptionFormat] := "<sha ;;0>%p%"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("no clip, (0-2)")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
	var_Items:[ItemBar,h,"K1",exBarAlignPercentCaption] := 2
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
	var_Items:[ItemBar,h,"K2",exBarAlignPercentCaption] := 1
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
	var_Items:[ItemBar,h,"K3",exBarAlignPercentCaption] := 0
	h := var_Items:AddItem("clip, inside (3-5)")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
	var_Items:[ItemBar,h,"K1",exBarAlignPercentCaption] := 5
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
	var_Items:[ItemBar,h,"K2",exBarAlignPercentCaption] := 4
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
	var_Items:[ItemBar,h,"K3",exBarAlignPercentCaption] := 3
	h := var_Items:AddItem("hide on min width, clip if not fit, inside (6-8)")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
	var_Items:[ItemBar,h,"K1",exBarAlignPercentCaption] := 8
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
	var_Items:[ItemBar,h,"K2",exBarAlignPercentCaption] := 7
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
	var_Items:[ItemBar,h,"K3",exBarAlignPercentCaption] := 6
	h := var_Items:AddItem("hide if not fit, no clip, inside (9-11)")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
	var_Items:[ItemBar,h,"K1",exBarAlignPercentCaption] := 11
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
	var_Items:[ItemBar,h,"K2",exBarAlignPercentCaption] := 10
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
	var_Items:[ItemBar,h,"K3",exBarAlignPercentCaption] := 9
	h := var_Items:AddItem("no clip, inside, outside (12-14)")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
	var_Items:[ItemBar,h,"K1",exBarAlignPercentCaption] := 14
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
	var_Items:[ItemBar,h,"K2",exBarHAlignCaption] := 13
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
	var_Items:[ItemBar,h,"K3",exBarAlignPercentCaption] := 12
	h := var_Items:AddItem("no clip, outside (16-18)")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
	var_Items:[ItemBar,h,"K1",exBarAlignPercentCaption] := 18
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
	var_Items:[ItemBar,h,"K2",exBarAlignPercentCaption] := 17
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
	var_Items:[ItemBar,h,"K3",exBarAlignPercentCaption] := 16
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1BarResizing(Item,Key) CLASS MainDialog
	// BarResizing event - Occurs when a bar is moving or resizing.
	oDCOCX_Exontrol1:Refresh()
RETURN NIL

METHOD OCX_Exontrol1DateChange() CLASS MainDialog
	// DateChange event - Occurs when the first visible date is changed.
	oDCOCX_Exontrol1:Refresh()
RETURN NIL

METHOD OCX_Exontrol1FormatColumn(Item,ColIndex,Value) CLASS MainDialog
	// FormatColumn event - Fired when a cell requires to format its caption.
	local e,l,r,s as USUAL
	s := oDCOCX_Exontrol1:Items:[ItemBar,Item,"A",exBarStart]
	e := oDCOCX_Exontrol1:Items:[ItemBar,Item,"A",exBarEnd]
	l := oDCOCX_Exontrol1:FormatABC("A < B",e,oDCOCX_Exontrol1:Chart:FirstVisibleDate,nil)
	r := oDCOCX_Exontrol1:FormatABC("A > B",s,oDCOCX_Exontrol1:Chart:[DateFromPoint,1,-1],nil)
	Value := oDCOCX_Exontrol1:FormatABC("( A or B ) ? `<fgcolor=C0C0C0>hidden` : `<b>visible`",l,r,nil)
RETURN NIL

METHOD OCX_Exontrol1LayoutChanged() CLASS MainDialog
	// LayoutChanged event - Occurs when column's position or column's size is changed.
	oDCOCX_Exontrol1:Refresh()
RETURN NIL

local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SelBackMode := exTransparent
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Visible")}
	var_Column:FireFormatColumn := true
	var_Column:[Def,exCellValueFormat] := 1
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:OverviewVisible := exOverviewShowAll
	var_Chart:OverviewHeight := 64
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
oDCOCX_Exontrol1:SelBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170808"),"A",nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20180803"),SToD("20180810"),"A",nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20190804"),SToD("20190812"),"A",nil)
	var_Items:[SelectItem,var_Items:FocusItem] := true
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1SelectionChanged() CLASS MainDialog
	// SelectionChanged event - Fired after a new item has been selected.
	local h,k,s as USUAL
	h := oDCOCX_Exontrol1:Items:FocusItem
	k := oDCOCX_Exontrol1:Items:[FirstItemBar,h]
	s := oDCOCX_Exontrol1:FormatABC("(A+B)/2",oDCOCX_Exontrol1:Items:[ItemBar,h,k,exBarStart],oDCOCX_Exontrol1:Items:[ItemBar,h,k,exBarEnd],nil)
	oDCOCX_Exontrol1:Chart:ScrollTo(s,1)
RETURN NIL

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SelBackMode := exTransparent
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20180803"),SToD("20180810"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20190804"),SToD("20190812"),nil,nil)
	var_Items:[SelectItem,var_Items:FocusItem] := true
oDCOCX_Exontrol1:EndUpdate()

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

IColumn{oDCOCX_Exontrol1:Columns:Add("ColumnName")}:Caption := "NewName"
IColumn{oDCOCX_Exontrol1:Columns:Add("ColumnName")}:HTMLCaption := "<b>New</b>Name"

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

local var_Chart as IChart
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
	IColumn{var_Columns:Add("Tasks")}:AllowSizing := false
	var_Column := IColumn{var_Columns:Add("Duration")}
		var_Column:[Def,exCellValueToItemBarProperty] := 513
		var_Column:[Def,exCellValueToItemBarKey] := "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)` : ``))"
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20011230")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 196
	var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
	var_Chart:OverviewVisible := exOverviewShowAll
	var_Chart:OverviewHeight := 64
	var_Chart:ResizeUnitScale := exSecond
	var_Chart:AllowResizeChart := exAllowChangeUnitScale | exAllowResizeChartMiddle | exAllowResizeChartHeader
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task 1")
	var_Items:AddBar(h,"Task",SToD("20011231"),SToD("20020107"),"A",nil)
	h := var_Items:AddItem("Task 2")
	var_Items:AddBar(h,"Task",SToD("20020101"),SToD("20020214"),"A",nil)
	h := var_Items:AddItem("Task 3")
	var_Items:AddBar(h,"Task",SToD("20020102 10:00:00"),SToD("20020102 12:00:00"),"A",nil)
	h := var_Items:AddItem("Task 4")
	var_Items:AddBar(h,"Task",SToD("20020103"),SToD("20020104 08:30:30"),"A",nil)
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
	// CellStateChanged event - Fired after cell's state has been changed.
	oDCOCX_Exontrol1:Refresh()
RETURN NIL

local var_Appearance as IAppearance
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:SelBackMode := exTransparent
oDCOCX_Exontrol1:DefaultItemHeight := 22
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(2,"gBFLBCJwBAEHhEJAAEhABUkIQAAYAQGKIcBiAKBQAGYBIJDEMQ3DjAUBjMK4ZwTC4AIQjCK4JDKHYJRpHEZgLBMJAAGIZYhhUYRUiYMkiJBGGDIDiGGI2SJAcbTVIEcx9EyUJSgSTJOjCMokTTIU4TTLYASbJafJJhWSaAiyMouDIOMg1BDNIw/Hika6jOgKUisNJXRzWIBTbDlOQ3JqnbCjOQRSrQBoNDAMAiiaKlbwJPK9RoieQXfwUAJrXJcFqXFSLVxNBKAQEBA=")
	var_Appearance:Add(1,"CP:2 1 1 -1 -1")
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%CS0 = 1",nil)
	var_ConditionalFormat:BackColor := 0x1000000
	var_ConditionalFormat:ChartBackColor := var_ConditionalFormat:BackColor
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:[SelectItem,hChild] := true
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()

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

local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:SelBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
	var_Column:[Def,exCellValueFormat] := 1
	var_Column:FormatColumn := "%CS0 = 1 ? `<bgcolor=000000><fgcolor=FFFFFF> ` + value + ` </fgcolor></bgcolor>` : value"
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 256
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:[SelectItem,hChild] := true
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()

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

local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
	var_Column:[Def,exCellValueFormat] := 1
	var_Column:FormatColumn := "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 256
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:[SelectItem,hChild] := true
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
	// CellStateChanged event - Fired after cell's state has been changed.
	oDCOCX_Exontrol1:Refresh()
RETURN NIL

local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
local h,hChild as USUAL
local f as stdFont

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:DefaultItemHeight := 22
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%CS0 = 1",nil)
	// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
	f := stdFont{"StdFont"}
		f:Name := oDCOCX_Exontrol1:Font:Name
		f:Size := 12
	var_ConditionalFormat:Font := f
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 196
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:[SelectItem,hChild] := true
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()

1980:
How can I bold the checked items

METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
	// CellStateChanged event - Fired after cell's state has been changed.
	oDCOCX_Exontrol1:Refresh()
RETURN NIL

local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%CS0 = 1",nil)
	var_ConditionalFormat:Bold := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:[SelectItem,hChild] := true
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
	// CellStateChanged event - Fired after cell's state has been changed.
	oDCOCX_Exontrol1:Refresh()
RETURN NIL

local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:SelBackMode := exTransparent
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%CS0 = 1",nil)
	var_ConditionalFormat:ForeColor := RGB(255,128,128)
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:[SelectItem,hChild] := true
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
	// CellStateChanged event - Fired after cell's state has been changed.
	oDCOCX_Exontrol1:Refresh()
RETURN NIL

local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:SelBackMode := exTransparent
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%CS0 = 1",nil)
	var_ConditionalFormat:BackColor := RGB(255,128,128)
	var_ConditionalFormat:ChartBackColor := var_ConditionalFormat:BackColor
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:[SelectItem,hChild] := true
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()

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

local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%CS0 = 1",nil)
	var_ConditionalFormat:ApplyToBars := "Task,Summary"
	var_ConditionalFormat:BarColor := RGB(255,0,0)
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:[SelectItem,hChild] := true
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1: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

local var_Chart,var_Chart1 as IChart
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
	IColumn{var_Columns:Add("Tasks")}:AllowSizing := false
	var_Column := IColumn{var_Columns:Add("Working")}
		var_Column:[Def,exCellValueToItemBarProperty] := 258
		var_Column:[Def,exCellValueToItemBarKey] := "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)' : '')"
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowResizeChart := exAllowChangeUnitScale | exAllowResizeChartMiddle | exAllowResizeChartHeader
	var_Chart:[PaneWidth,false] := 196
	var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
	var_Chart:FirstVisibleDate := SToD("20020103")
	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 := exOverviewShowAll
	var_Chart:OverviewHeight := 64
	var_Chart:AllowOverviewZoom := exAlwaysZoom
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task 1")
	var_Items:AddBar(h,"Task",SToD("20020104"),SToD("20020108"),"A",nil)
	var_Items:[ItemBar,h,"A",exBarKeepWorkingCount] := true
	h := var_Items:AddItem("Task 2")
	var_Items:AddBar(h,"Task",SToD("20020103"),SToD("20020104"),"A",nil)
	var_Items:[ItemBar,h,"A",exBarKeepWorkingCount] := true
var_Chart1 := oDCOCX_Exontrol1:Chart
	var_Chart1:UnitScale := exDay
	var_Chart1:ScrollTo(var_Chart1:FirstVisibleDate,1)
oDCOCX_Exontrol1:EndUpdate()

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

local var_Editor as IEditor
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:SelBackColor := RGB(0,0,0)
oDCOCX_Exontrol1:SelForeColor := RGB(255,255,255)
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}:Editor
	var_Editor:EditType := MaskType
	var_Editor:Mask := ";;;rich"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("")
	var_Items:AddItem("Just a text")
	var_Items:AddItem("")
oDCOCX_Exontrol1:EndUpdate()

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

local var_Editor as IEditor
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SelBackColor := RGB(0,0,0)
oDCOCX_Exontrol1:SelForeColor := RGB(255,255,255)
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("DropDown")}:Editor
	var_Editor:AddItem(1,"This is just the first item",nil)
	var_Editor:AddItem(2,"This is just the second item",nil)
	var_Editor:AddItem(3,"This is just the third item",nil)
	var_Editor:EditType := DropDownType
	var_Editor:Mask := ";;;rich"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("")
	var_Items:AddItem("Just a text")
	var_Items:AddItem("")
oDCOCX_Exontrol1: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

METHOD OCX_Exontrol1OverviewZoom() CLASS MainDialog
	// OverviewZoom event - Occurs once the user selects a new time scale unit in the overview zoom area.
	oDCOCX_Exontrol1:Chart:ResizeUnitScale := exDay
RETURN NIL

local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h1 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Effort")}
	var_Column:[Def,exCellValueToItemBarProperty] := 21
	var_Column:Editor:EditType := SpinType
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowOverviewZoom := exAlwaysZoom
	var_Chart:OverviewZoomCaption := "|||<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|||"
	var_Chart:[Label,exYear] := ""
	var_Chart:[Label,exHalfYear] := ""
	var_Chart:[Label,exQuarterYear] := ""
	var_Chart:[Label,exThirdMonth] := ""
	var_Chart:[Label,exHour] := ""
	var_Chart:[Label,exMinute] := ""
	var_Chart:[Label,exSecond] := ""
	var_Chart:OverviewZoomUnit := 64
	var_Chart:LevelCount := 2
	var_Chart:NonworkingDays := 0
	var_Chart:[PaneWidth,false] := 96
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:HistogramVisible := true
	var_Chart:HistogramHeight := 128
	var_Chart:HistogramView := exHistogramAllItems
	var_Chart:OverviewVisible := exOverviewShowAll
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:HistogramPattern := var_Bar:Pattern
		var_Bar:HistogramType := exHistOverload
		var_Bar:HistogramCriticalValue := 3
		var_Bar:HistogramItems := -7
		var_Bar:HistogramGridLinesColor := RGB(192,192,192)
		var_Bar:HistogramRulerLinesColor := RGB(0,0,1)
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20050621"),SToD("20050623"),nil,nil)
	var_Items:[CellValue,h1,1] := 4
	h1 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h1,"Task",SToD("20050624"),SToD("20050626"),nil,nil)
	var_Items:[CellValue,h1,1] := 3
	h1 := var_Items:AddItem("Task 3")
	var_Items:AddBar(h1,"Task",SToD("20050627"),SToD("20050629"),nil,nil)
	var_Items:[CellValue,h1,1] := 2
	h1 := var_Items:AddItem("Task 4")
	var_Items:AddBar(h1,"Task",SToD("20050630"),SToD("20050702"),nil,nil)
	var_Items:[CellValue,h1,1] := 1
oDCOCX_Exontrol1:EndUpdate()

1972:
The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that
METHOD OCX_Exontrol1BeforeExpandItem(Item,Cancel) CLASS MainDialog
	// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
	OutputDebugString(String2Psz( "BeforeExpandItem" ))
	OutputDebugString(String2Psz( AsString(Item) ))
	OutputDebugString(String2Psz( "ColumnFromPoint" ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[ColumnFromPoint,-1,-1]) ))
	OutputDebugString(String2Psz( "ColumnFromPoint return -1, if the user clicks the +/- glitch, else it returns the index of the column where the click occurs." ))
	oDCOCX_Exontrol1:Items:InsertItem(Item,nil,"new child")
RETURN NIL

local var_Columns as IColumns
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Columns := oDCOCX_Exontrol1:Columns
	IColumn{var_Columns:Add("Items")}:DisplayFilterButton := true
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[ItemHasChildren,var_Items:InsertItem(nil,nil,"Group 1")] := true
	var_Items:[ItemHasChildren,var_Items:InsertItem(nil,nil,"Group 2")] := true
oDCOCX_Exontrol1:EndUpdate()

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

local var_Appearance as IAppearance
local var_Chart as IChart
local var_Column as IColumn

oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQgmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYThdr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
oDCOCX_Exontrol1:[Background,exHeaderFilterBarButton] := 0x1000000
oDCOCX_Exontrol1:[Background,exCursorHoverColumn] := -1
oDCOCX_Exontrol1:HeaderAppearance := None2
oDCOCX_Exontrol1:BackColorHeader := RGB(0,0,0)
oDCOCX_Exontrol1:ForeColorHeader := RGB(255,255,255)
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisible
oDCOCX_Exontrol1:BackColorLevelHeader := oDCOCX_Exontrol1:BackColor
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Filter")}
	var_Column:DisplayFilterButton := true
	var_Column:AllowSort := false
	var_Column:AllowDragging := false
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 196
	var_Chart:LevelCount := 2
	var_Chart:BackColorLevelHeader := oDCOCX_Exontrol1:BackColorHeader
	var_Chart:ForeColorLevelHeader := oDCOCX_Exontrol1:ForeColorHeader
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	local b,i as USUAL
	b := oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1]
	i := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[ItemBar,i,b,exBarToolTip]) ))
RETURN NIL

local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
oDCOCX_Exontrol1:DefaultItemHeight := 52
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171010")
	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,exBarCaption] := "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>"
		var_Bar:[Def,exBarHAlignCaption] := 18
		var_Bar:[Def,exBarPercent] := 0.25
		var_Bar:[Def,exBarPercentColor] := var_Bar:Color
		var_Bar:[Def,exBarOffset] := 10
		var_Bar:[Def,exBarShowPercentCaption] := true
		var_Bar:[Def,exBarPercentCaptionFormat] := "<font ;6><b>%p%</b>"
	var_Bar1 := var_Chart:Bars:Copy("Task","T2")
		var_Bar1:Height := 26
		var_Bar1:[Def,exBarCaption] := "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>"
		var_Bar1:[Def,exBarVAlignCaption] := 16
		var_Bar1:[Def,exBarPercent] := 0.25
		var_Bar1:[Def,exBarPercentColor] := var_Bar1:Color
		var_Bar1:[Def,exBarShowPercentCaption] := true
		var_Bar1:[Def,exBarPercentCaptionFormat] := "<font ;6><b>%p%</b>"
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task")
	var_Items:AddBar(h1,"T1",SToD("20171015"),SToD("20171025"),"2",nil)
	var_Items:[ItemBar,h1,"2",exBarData] := "Bar A"
	var_Items:[ItemBar,h1,"2",exBarToolTip] := "Bar A <b>Over</b> Bar B"
	var_Items:AddBar(h1,"T2",SToD("20171018"),SToD("20171022"),"1",nil)
	var_Items:[ItemBar,h1,"1",exBarData] := "Bar B"
	var_Items:[ItemBar,h1,"1",exBarToolTip] := "Bar B <b>Under</b> Bar A"
	h1 := var_Items:AddItem("Task")
	var_Items:AddBar(h1,"T1",SToD("20171015"),SToD("20171025"),"1",nil)
	var_Items:[ItemBar,h1,"1",exBarData] := "Bar A"
	var_Items:[ItemBar,h1,"1",exBarToolTip] := "Bar A <b>Under</b> Bar B"
	var_Items:AddBar(h1,"T2",SToD("20171018"),SToD("20171022"),"2",nil)
	var_Items:[ItemBar,h1,"2",exBarData] := "Bar B"
	var_Items:[ItemBar,h1,"2",exBarToolTip] := "Bar B <b>Over</b> Bar A"
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	local b,i as USUAL
	b := oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1]
	i := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[ItemBar,i,b,exBarToolTip]) ))
RETURN NIL

local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
oDCOCX_Exontrol1:DefaultItemHeight := 52
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20171010")
	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,exBarCaption] := "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>"
		var_Bar:[Def,exBarHAlignCaption] := 18
	var_Bar1 := var_Chart:Bars:Copy("Task","T2")
		var_Bar1:Height := 25
		var_Bar1:[Def,exBarCaption] := "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>"
		var_Bar1:[Def,exBarVAlignCaption] := 16
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task")
	var_Items:AddBar(h1,"T1",SToD("20171015"),SToD("20171025"),"2",nil)
	var_Items:[ItemBar,h1,"2",exBarData] := "Bar A"
	var_Items:[ItemBar,h1,"2",exBarToolTip] := "Bar A <b>Over</b> Bar B"
	var_Items:AddBar(h1,"T2",SToD("20171018"),SToD("20171022"),"1",nil)
	var_Items:[ItemBar,h1,"1",exBarData] := "Bar B"
	var_Items:[ItemBar,h1,"1",exBarToolTip] := "Bar B <b>Under</b> Bar A"
	h1 := var_Items:AddItem("Task")
	var_Items:AddBar(h1,"T1",SToD("20171015"),SToD("20171025"),"1",nil)
	var_Items:[ItemBar,h1,"1",exBarData] := "Bar A"
	var_Items:[ItemBar,h1,"1",exBarToolTip] := "Bar A <b>Under</b> Bar B"
	var_Items:AddBar(h1,"T2",SToD("20171018"),SToD("20171022"),"2",nil)
	var_Items:[ItemBar,h1,"2",exBarData] := "Bar B"
	var_Items:[ItemBar,h1,"2",exBarToolTip] := "Bar B <b>Over</b> Bar A"
oDCOCX_Exontrol1:EndUpdate()

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

local var_Bar as IBar
local var_Chart as IChart
local var_Column,var_Column1,var_Column2 as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 48
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:SelBackMode := exTransparent
oDCOCX_Exontrol1:BackColorLevelHeader := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:DrawGridLines := exHLines
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20011226")
	var_Bar := var_Chart:Bars:Add("Task:Split")
		var_Bar:Shortcut := "Task"
		var_Bar:[Def,exBarToolTip] := "<%=%263%>"
		var_Bar:[Def,exBarOffset] := -12
	var_Chart:ColumnsFormatLevel := "1,2/3"
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Duration")}
	var_Column:[Def,exCellValueToItemBarProperty] := 513
	var_Column:Visible := false
	var_Column:Alignment := LeftAlignment
	var_Column:FormatColumn := "value + `d`"
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Working")}
	var_Column1:[Def,exCellValueToItemBarProperty] := 258
	var_Column1:Visible := false
	var_Column1:Alignment := RightAlignment
	var_Column1:FormatColumn := "value + `w`"
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Working-Period")}
	var_Column2:[Def,exCellValueToItemBarProperty] := 263
	var_Column2:Visible := false
	var_Column2:Alignment := CenterAlignment
	var_Column2:FormatColumn := "((value replace `\r\n` with `,`) replace `#` with ``) replace ` ` with ``"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20020102"),SToD("20020111"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20020103"),SToD("20020115"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20011231"),SToD("20020113"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	local var_Items as IItems
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:[ItemMaxHeight,Item] := 64
RETURN NIL

local var_Bar as IBar
local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3 as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 256
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20020101")
	var_Bar := var_Chart:Bars:Add("Task:Split")
		var_Bar:Shortcut := "Task"
		var_Bar:[Def,exBarToolTip] := "<%=%263%>"
	var_Chart:ColumnsFormatLevel := "1,2"
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Task")}
	var_Column:AllowSizing := false
	var_Column:Width := 48
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Duration")}
	var_Column1:[Def,exCellValueToItemBarProperty] := 513
	var_Column1:Visible := false
	var_Column1:Alignment := LeftAlignment
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Working")}
	var_Column2:[Def,exCellValueToItemBarProperty] := 258
	var_Column2:Visible := false
	var_Column2:Alignment := RightAlignment
var_Column3 := IColumn{oDCOCX_Exontrol1:Columns:Add("Working-Period")}
	var_Column3:[Def,exCellValueToItemBarProperty] := 263
	var_Column3:[Def,exCellSingleLine] := false
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20020102"),SToD("20020112"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20020103"),SToD("20020115"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20020104"),SToD("20020116"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

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

local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20011226")
	var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
	var_Chart:ColumnsFormatLevel := "1,2"
IColumn{oDCOCX_Exontrol1:Columns:Add("Task")}:Width := 48
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Duration")}
	var_Column:[Def,exCellValueToItemBarProperty] := 513
	var_Column:Visible := false
	var_Column:Alignment := LeftAlignment
	var_Column:FormatColumn := "value + `d`"
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Working")}
	var_Column1:[Def,exCellValueToItemBarProperty] := 258
	var_Column1:Visible := false
	var_Column1:Alignment := RightAlignment
	var_Column1:FormatColumn := "value + `w`"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20020102"),SToD("20020112"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20020103"),SToD("20020115"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1BarResizing(Item,Key) CLASS MainDialog
	// BarResizing event - Occurs when a bar is moving or resizing.
	local var_Items as IItems
	var_Items := oDCOCX_Exontrol1:Items
		OutputDebugString(String2Psz( var_Items:[CellCaption,Item,0] ))
		OutputDebugString(String2Psz( "Working" ))
		OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,Item,Key,exBarWorkingCount]) ))
		OutputDebugString(String2Psz( var_Items:[CellCaption,Item,0] ))
		OutputDebugString(String2Psz( "Duration" ))
		OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,Item,Key,exBarDuration]) ))
RETURN NIL

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20011226")
	var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
IColumn{oDCOCX_Exontrol1:Columns:Add("Task")}:Width := 48
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20020102"),SToD("20020112"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20020103"),SToD("20020115"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

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

local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20011226")
	var_Bar := var_Chart:Bars:Add("Task:Split")
		var_Bar:Shortcut := "Task"
		var_Bar:[Def,exBarCaption] := "<%=%258%>w"
		var_Bar:[Def,exBarHAlignCaption] := 18
		var_Bar:[Def,exBarExtraCaption] := "<%=%513%>d"
		var_Bar:[Def,exBarExtraCaptionHAlign] := 16
IColumn{oDCOCX_Exontrol1:Columns:Add("Task")}:Width := 48
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20020102"),SToD("20020112"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20020103"),SToD("20020115"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

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

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 196
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20020101")
	var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
IColumn{oDCOCX_Exontrol1:Columns:Add("Task")}:Width := 48
IColumn{oDCOCX_Exontrol1:Columns:Add("Duration")}:[Def,exCellValueToItemBarProperty] := 513
IColumn{oDCOCX_Exontrol1:Columns:Add("Working")}:[Def,exCellValueToItemBarProperty] := 258
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20020102"),SToD("20020112"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20020103"),SToD("20020115"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

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

local var_Appearance as IAppearance
local var_Column as IColumn
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:DefaultItemHeight := 20
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:RenderType := -1
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABOkGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeDYMiSNoYDJCM4wHIURRJFCUJSGWQpTgSIgyT5HFIxXKoASbJabZLhWS6EpWOotTbIQQRYCkEyfKKfZyGURZQqOKA1DBZErWTJESRFJqLazgO4LAhyQYrVgAErzVKVCRNOqbJzADApdpGQJTULDNTQHRFIyhOSnIRrWbMAhid6JUZiVT4dBOIYhSYANAqCwLFqrDJmWrpV5WZjlZ47V6BdAyXJsIrmFJEXaOGhyDDlGybSDZYryfZhUziUw4XjbWwZDqPF6DKTTdSGLREE8WZVlURZvDaep3C+AY8kAYRgGCCBJECUhjDoHROEYWgoAGTQ1CEEx9lGMY0CQUYSnuZQDBGBYFlOH5+H+igGAKAJgEgFgGgGVgDn4CoCmCSA2A6A5hAgDgQgSYRIE4EoFGGCBiBeBhhkgPgbgcYgICoH4IGGWIOCSBhiGiHgVgoYooFoAoLGIWI+DCCgjCiTgrgII4ImYOoOmOSJ2AYOpWlQDQBICA=")
oDCOCX_Exontrol1:ShowFocusRect := true
oDCOCX_Exontrol1:[Background,exShowFocusRect] := 0x1000000
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 1
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("P1")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Root")
	var_Items:InsertItem(h,nil,"Child 1")
	var_Items:InsertItem(h,nil,"Child 2")
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()

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

local var_Appearance as IAppearance
local var_Column as IColumn
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:DefaultItemHeight := 20
oDCOCX_Exontrol1:ShowFocusRect := true
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:RenderType := -1
	var_Appearance:Add(2,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeCRUgyJI3RgMUIzVAcRRFEiUJQlIZZCjOAw0SIMU7xZRcNxsACnaZnCR4NiuRYiUhOcqzRIQIQ4CiEahqOgJbDUJYwWZKAyjBY8XTZFCSJCpeJ6egOc5jRxQUp1WAEXx3GSsJKvCZ5cADBY+VLQNS0JBtMSTKSLaiuWoIJqCPaDRheWKQJh1NSnLqEcjyYANDxDCZlWzAYxWTZ2Uz7N7PbB0HY4DyPGKZYrfESVRbQcZNS6nNigPI9XhfGq6VjRe63ZaOaYpWrnOJqTRWjOKYujWdZ2BGO5lkuBAAkmcQkDmDBEAwEQJCgGhMGcQ4pkiSxGAAOYmkQIhvkYNg2gSCgyj+LI4GIMIwF2XQoAYAoAmASAWAaAZgggJgKFiT54DYDoDmECBGBKBJgGgTgWgWYRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChiigYgsgsYYYBYMIKCMKJOCuDRjGiOgLg6Y5InYPoPmQCAkmsXAQDQBCAg=")
	var_Appearance:Add(3,"CP:2 -3 0 3 0")
oDCOCX_Exontrol1:[Background,exShowFocusRect] := 0x3010101
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 1
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("P1")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Root")
	var_Items:InsertItem(h,nil,"Child 1")
	var_Items:InsertItem(h,nil,"Child 2")
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()

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

local var_Appearance as IAppearance
local var_Column as IColumn
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:ShowFocusRect := true
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABHoDg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVAceAAGaUZrjSgobjmOYhAJCLqhYIgASXJqLaBlOCaAieSc+QhjQJIJoeCZXU5TFg1BTsOhqEqcRiseaRVDCaIJWzbdYWLDdNQHHKYLjnWorbpSJZ5XjNEySDQkMS9PrEJ7vST8FBCdAABLJUB2BR9RwxRafKpnWwJDpmCaOQLXEB5DK1PyVMTKYrtGy7GrIAJxWxbV4UHh+QABOzIMAvHKJMwvHYcUZne5XVLeF41HbONogPaJZyIAK2cLROq6Xo7GEcJZEcLASB4DwvgWUZlE6AQQhKAYkkYdA6hyDIwHgSoqFwQgmnsYxjGgSIiBOTpSEiAwRgOJI7j4JAHA6U5wm0MpPlOBIjD8TZiGYCICiCGAuA6AxhAgMgSgOYQ4DYBg/g6cw1n+ABOmMMJ9DmCwjnScw4RsVJngkYh4hoKIKmKKI2CmC5ikiQgqgiT5jhyMw8g4QwIn0OIKEiCJhD8DwTGyfA7k0WQOEWEQkGkJhIhKZB5DYSoTiSCQEn4PQOCOXJcCeIJjliaIQk0aRyF4O5llmAhfhgZhJg4ZoYiaAxYn4PZOhOZJaCUZYTiYQw1mcOZUm+HQnHmWh4h6Z4pnYeYfk0eYsmqG4nAgNJ2DqD5DkCWoiGiOgqgyI5omoRoNiSaQKFKEojCaM4ugSFhOjkAJcieKgDkaH4oioGoOiaKRqgqEoqDddwyhuAxPgOMJ8DyDZqk6NYtCsapmjiLprHqdo6i+K5K1oPhOlqPgKD4DpjnII4yiOewuk6MxtAsMpSjObQ7EaT4wk6ewYn0PgPAiCJkjeLgDk6X44i4G4OmaORuguEpqDkLAzkaWg+E8GIUmaPIvEOVpzj2Lxbl6eo+G+S5in4OYPmOaJyjuTwjnYWpBg6DAjAqQZwkwJwNkKcJsEcEJCDBEpaD6Dw8BiapGjGSgfB2RpxmyBwgkicZ8haBw/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")
oDCOCX_Exontrol1:SelBackColor := 0x1000000
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 1
oDCOCX_Exontrol1:[Background,exShowFocusRect] := 0x3ff0000
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("P1")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Root")
	var_Items:InsertItem(h,nil,"Child 1")
	var_Items:InsertItem(h,nil,"Child 2")
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()

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

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("exBarToolTip")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "<b><%=%9 + '/' + %C0%></b><br><upline><dotline>Start: <%=%1%><br>End: <%=%2%><br>Duration: <%=(%2-%1)%><br>Working: <%=%258%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Bar.Def"),"Task",SToD("20010102"),SToD("20010109"),"K1",nil)
	var_Items:AddBar(var_Items:AddItem("Bar.Def"),"Task",SToD("20010103"),SToD("20010110"),"K1",nil)
	h := var_Items:AddItem("Items.ItemBar")
	var_Items:AddBar(h,"Unknown",SToD("20010104"),SToD("20010111"),"K",nil)
	var_Items:[ItemBar,h,"K",exBarToolTip] := "Start:<%=%1%><br>End:<%=%2%>"
oDCOCX_Exontrol1:EndUpdate()

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

local var_Appearance as IAppearance
local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Items as IItems
local hSummaryJ,hSummaryK,hSummaryZ,hTaskJ,hTaskK,hTaskZ as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:RenderType := -16777216
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABN0GACAADACAxRDAMgBQKAAzQFAYahuGSGAAGMYxQgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQyDAAUIjOKsIhkGYcZAGQBJCjWGodQLOEgwHIERQjEyUJAGGQIHhyPYbUbGUpQHKkeRtGqgBgoKhKEouNYgAbGYIwTRsdyfDSXBpEWwbDgkNQwWTDNoRDIUQStCysaYjOpnfrUAJ1P7FdQ1NJkXRhGSSK7maapaiCSZ6STCMj1FhVKSNJ7DQKhGpgKh/ApgYpQOK4fLNXyRBK4QAyKA6bgPFZOZbFViaXY1V5bNKrcjhHQwAyHJ4XXRdV4YRAkUT4GqiJKGSYcQhuXZWbRqO6ABhef6DRThc6jKpFHIE4llEcojHqSZNgoIxnlgd5thsLREleL43gsYZ9BkaAYkMAgAm+CxGDWWAtiKCRfjcdRgHoHYnicUwgAIEIREAaQYkcQZUHIGRUDQJBOEYRAhDYCxGgMZAkCgdYQhaXQIAYERwQuahXggdgeG6VZ4H4IhdiIGIOB8YIiGiHZZgqYpGF4KYHiKCI+CAU5jCiTQ2g0YhEFyax4gABAEIC")
	var_Appearance:Add(2,"gBFLBCJwBAEHhEJAAEhABU0IQAAYAQGKQYhiAKBQAGaAoDDcMA4QwAAyjAKMEwsACEIrjKCRShyCYZRhGcTAJBMIhiGQYAChEZxVhEMgzDjIAxSJAcQRFESaAABGCQGh+N4/S4NIi0CIsZQjCaiZ7pKA5bgMCo+UrNMixZQVCSOGChYRpCaZWpGGodQRUFbVHAlKypJKCKrEWSrDhuYAAW7XM7yBS1TzVNSuLZtaLqSroAJ1WTWMB0Ra8NzZEKfaZACj4arKejrRDCMAggI=")
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 128
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:[Def,exBarHAlignCaption] := 18
		var_Bar:Color := RGB(1,0,0)
	var_Bar1 := var_Chart:Bars:[Item,"Summary"]
		var_Bar1:[Def,exBarHAlignCaption] := 18
		var_Bar1:Color := 0x2000000
var_Items := oDCOCX_Exontrol1:Items
	hSummaryJ := var_Items:AddItem("Summary A")
	var_Items:AddBar(hSummaryJ,"Summary",SToD("20010102"),SToD("20010102"),"J",nil)
	hTaskJ := var_Items:InsertItem(hSummaryJ,nil,"Task A.1")
	var_Items:AddBar(hTaskJ,"Task",SToD("20010102"),SToD("20010105"),"J1",nil)
	hTaskJ := var_Items:InsertItem(hSummaryJ,nil,"Task A.2")
	var_Items:AddBar(hTaskJ,"Task",SToD("20010104"),SToD("20010108"),"J2",nil)
	var_Items:DefineSummaryBars(hSummaryJ,"J",-1,"<*>")
	hSummaryK := var_Items:AddItem("Summary B")
	var_Items:AddBar(hSummaryK,"Summary",SToD("20010102"),SToD("20010102"),"K",nil)
	hTaskK := var_Items:InsertItem(hSummaryK,nil,"Task B.1")
	var_Items:AddBar(hTaskK,"Task",SToD("20010102"),SToD("20010105"),"K1",nil)
	hTaskK := var_Items:InsertItem(hSummaryK,nil,"Task B.2")
	var_Items:AddBar(hTaskK,"Task",SToD("20010104"),SToD("20010108"),"K2",nil)
	var_Items:DefineSummaryBars(hSummaryK,"K",-1,"<*>")
	var_Items:[ItemBar,0,"<K*>",exBarColor] := 255
	hSummaryZ := var_Items:AddItem("Summary B")
	var_Items:AddBar(hSummaryZ,"Summary",SToD("20010102"),SToD("20010102"),"Z",nil)
	hTaskZ := var_Items:InsertItem(hSummaryZ,nil,"Task B.1")
	var_Items:AddBar(hTaskZ,"Task",SToD("20010102"),SToD("20010105"),"Z1",nil)
	hTaskZ := var_Items:InsertItem(hSummaryZ,nil,"Task B.2")
	var_Items:AddBar(hTaskZ,"Task",SToD("20010104"),SToD("20010108"),"Z2",nil)
	var_Items:DefineSummaryBars(hSummaryZ,"Z",-1,"<*>")
	var_Items:[ItemBar,hSummaryZ,"Z",exBarColor] := 16842496
	var_Items:[ItemBar,0,"<Z1>",exBarColor] := 50266112
	var_Items:[ItemBar,0,"<Z2>",exBarColor] := 33554176
	var_Items:[ExpandItem,0] := true
oDCOCX_Exontrol1:EndUpdate()

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

local var_Chart as IChart

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 0
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20071212")
	var_Chart:DrawGridLines := exAllLines
	var_Chart:UnitScale := exWeek
	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 := exISO8601WeekNumber
	var_Chart:FirstWeekDay := exMonday
oDCOCX_Exontrol1: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

local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:DrawGridLines := exVLines
var_Columns := oDCOCX_Exontrol1:Columns
	var_Column := IColumn{var_Columns:Add("Left")}
		var_Column:AllowSizing := false
		var_Column:Width := 96
		var_Column:[Def,exCellHasCheckBox] := true
		var_Column:FormatColumn := "0 pos `A-Z`"
	var_Column1 := IColumn{var_Columns:Add("Center")}
		var_Column1:HeaderAlignment := CenterAlignment
		var_Column1:Alignment := var_Column1:HeaderAlignment
		var_Column1:AllowSizing := false
		var_Column1:Width := 96
		var_Column1:[Def,exCellHasCheckBox] := true
		var_Column1:FormatColumn := "0 pos `A-Z`"
	var_Column2 := IColumn{var_Columns:Add("Right")}
		var_Column2:HeaderAlignment := RightAlignment
		var_Column2:Alignment := var_Column2:HeaderAlignment
		var_Column2:AllowSizing := false
		var_Column2:Width := 96
		var_Column2:[Def,exCellHasCheckBox] := true
		var_Column2:FormatColumn := "0 pos `A-Z`"
		var_Column2:[Def,exCellDrawPartsOrder] := "caption,check,icon,icons,picture"
	var_Columns:Add("")
var_Items := oDCOCX_Exontrol1: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
oDCOCX_Exontrol1:EndUpdate()

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

local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderHeight := 48
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("And others ...")
	var_Column := IColumn{var_Columns:Add("")}
		var_Column:HTMLCaption := "First Column"
		var_Column:HeaderVertical := true
		var_Column:Width := 36
		var_Column:AllowSizing := false
		var_Column:[Def,exCellHasCheckBox] := true
		var_Column:[Def,exCellPaddingLeft] := 8
		var_Column:Position := 0
	var_Column1 := IColumn{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,exCellHasCheckBox] := true
		var_Column1:[Def,exCellPaddingLeft] := 8
		var_Column1:Position := 1
	var_Column2 := IColumn{var_Columns:Add("")}
		var_Column2:HTMLCaption := "<r>Third Column"
		var_Column2:HeaderVertical := true
		var_Column2:Width := 36
		var_Column2:AllowSizing := false
		var_Column2:[Def,exCellHasCheckBox] := true
		var_Column2:[Def,exCellPaddingLeft] := 8
		var_Column2:Position := 2
var_Items := oDCOCX_Exontrol1: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
oDCOCX_Exontrol1:EndUpdate()

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

local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderHeight := 48
oDCOCX_Exontrol1:HeaderSingleLine := false
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("And others ...")
	var_Column := IColumn{var_Columns:Add("First Column")}
		var_Column:HeaderVertical := true
		var_Column:Width := 36
		var_Column:AllowSizing := false
		var_Column:[Def,exCellHasCheckBox] := true
		var_Column:[Def,exCellPaddingLeft] := 8
		var_Column:Position := 0
	var_Column1 := IColumn{var_Columns:Add("Second Column")}
		var_Column1:HeaderBold := true
		var_Column1:HeaderVertical := true
		var_Column1:Width := 36
		var_Column1:AllowSizing := false
		var_Column1:[Def,exCellHasCheckBox] := true
		var_Column1:[Def,exCellPaddingLeft] := 8
		var_Column1:Position := 1
	var_Column2 := IColumn{var_Columns:Add("Third Column")}
		var_Column2:HeaderVertical := true
		var_Column2:Width := 36
		var_Column2:AllowSizing := false
		var_Column2:[Def,exCellHasCheckBox] := true
		var_Column2:[Def,exCellPaddingLeft] := 8
		var_Column2:Position := 2
var_Items := oDCOCX_Exontrol1: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
oDCOCX_Exontrol1:EndUpdate()

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

local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderHeight := 48
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("And others ...")
	var_Column := IColumn{var_Columns:Add("")}
		var_Column:HTMLCaption := "First"
		var_Column:HeaderVertical := true
		var_Column:Width := 20
		var_Column:AllowSizing := false
		var_Column:[Def,exCellHasCheckBox] := true
		var_Column:Position := 0
	var_Column1 := IColumn{var_Columns:Add("")}
		var_Column1:HTMLCaption := "<c><b>Second"
		var_Column1:HeaderVertical := true
		var_Column1:Width := 20
		var_Column1:AllowSizing := false
		var_Column1:[Def,exCellHasCheckBox] := true
		var_Column1:Position := 1
	var_Column2 := IColumn{var_Columns:Add("")}
		var_Column2:HTMLCaption := "<r>Third"
		var_Column2:HeaderVertical := true
		var_Column2:Width := 20
		var_Column2:AllowSizing := false
		var_Column2:[Def,exCellHasCheckBox] := true
		var_Column2:Position := 2
var_Items := oDCOCX_Exontrol1: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
oDCOCX_Exontrol1:EndUpdate()

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

local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderHeight := 48
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("And others ...")
	var_Column := IColumn{var_Columns:Add("First")}
		var_Column:HeaderVertical := true
		var_Column:Width := 20
		var_Column:AllowSizing := false
		var_Column:[Def,exCellHasCheckBox] := true
		var_Column:Position := 0
	var_Column1 := IColumn{var_Columns:Add("Second")}
		var_Column1:HeaderBold := true
		var_Column1:HeaderVertical := true
		var_Column1:Width := 20
		var_Column1:AllowSizing := false
		var_Column1:[Def,exCellHasCheckBox] := true
		var_Column1:Position := 1
	var_Column2 := IColumn{var_Columns:Add("Third")}
		var_Column2:HeaderVertical := true
		var_Column2:Width := 20
		var_Column2:AllowSizing := false
		var_Column2:[Def,exCellHasCheckBox] := true
		var_Column2:Position := 2
var_Items := oDCOCX_Exontrol1: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
oDCOCX_Exontrol1:EndUpdate()

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

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170803"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20170804"),SToD("20170813"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170805"),nil,nil)
	var_Items:[ItemBarEx,"itembar(513) = 0 and itembar(0) = `Task`",exBarColor] := 255
	var_Items:[ItemBarEx,"itembar(513) = 0 and itembar(0) = `Task`",exBarDuration] := "value + 1"
oDCOCX_Exontrol1:EndUpdate()

1950:
Is it possible to mark items that holds items with 0-length (zero,empty, sample 3)
local var_Chart as IChart
local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Duration")}
	var_Column:[Def,exCellValueToItemBarProperty] := 513
	var_Column:Visible := false
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%1 = 0",nil)
	var_ConditionalFormat:Bold := true
	var_ConditionalFormat:BackColor := RGB(190,190,190)
	var_ConditionalFormat:ChartBackColor := var_ConditionalFormat:BackColor
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170803"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20170804"),SToD("20170813"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170805"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

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

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170803"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20170804"),SToD("20170813"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170805"),nil,nil)
	var_Items:[ItemBarEx,"itembar(513) = 0",exBarCaption] := "`zero-length`"
oDCOCX_Exontrol1:EndUpdate()

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

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170803"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20170804"),SToD("20170813"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170805"),nil,nil)
	var_Items:[ItemBarEx,"itembar(513) = 0",exBarBackgroundExt] := "`[frame=RGB(255,0,0),framethick,pattern=6,patterncolor=RGB(255,0,0)]`"
	var_Items:[ItemBarEx,"itembar(513) = 0",exBarBackgroundExtInflate] := "`-4,-4,4,4`"
oDCOCX_Exontrol1:EndUpdate()

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

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170803"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20170804"),SToD("20170813"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170805"),nil,nil)
	OutputDebugString(String2Psz( AsString(var_Items:[ItemBarEx,"itembar(513) = 0",exBarsCount]) ))
oDCOCX_Exontrol1:EndUpdate()

1946:
How can I remove all bars from selected items

local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	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 := exOverlaidBarsStack
		var_Bar:OverlaidGroup := "Task,Task-Diff"
		var_Bar:[Def,exBarCaption] := "<font ;6><%=%0%>"
		var_Bar:[Def,exBarHAlignCaption] := 18
	var_Bar1 := var_Chart:Bars:Copy("Task","Task-Diff")
		var_Bar1:Height := 4
		var_Bar1:Color := RGB(255,0,0)
		var_Bar1:[Def,exBarCaption] := "<font ;6><%=%0%>"
		var_Bar1:[Def,exBarHAlignCaption] := 16
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
	h := var_Items:AddItem("Task 2")
	var_Items:AddBar(h,"Task",SToD("20170803"),SToD("20170809"),nil,nil)
	var_Items:[SelectItem,h] := true
	h := var_Items:AddItem("Task 3")
	var_Items:AddBar(h,"Task",SToD("20170804"),SToD("20170813"),"",nil)
	var_Items:AddBar(h,"Task-Diff",SToD("20170805"),SToD("20170814"),"P",nil)
	var_Items:[SelectItem,h] := true
	var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170816"),nil,nil)
	OutputDebugString(String2Psz( "Bars before remove: " ))
	OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,0,"<*>",exBarsCount]) ))
	var_Items:[ItemBarEx,"itemisselected",exBarKey] := "`toberemove` + value "
	var_Items:RemoveBar(0,"<toberemove*>")
	OutputDebugString(String2Psz( "Bars after remove: " ))
	OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,0,"<*>",exBarsCount]) ))
oDCOCX_Exontrol1:EndUpdate()

1945:
How can I remove task bars from selected items

local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	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 := exOverlaidBarsStack
		var_Bar:OverlaidGroup := "Task,Task-Diff"
		var_Bar:[Def,exBarCaption] := "<font ;6><%=%0%>"
		var_Bar:[Def,exBarHAlignCaption] := 18
	var_Bar1 := var_Chart:Bars:Copy("Task","Task-Diff")
		var_Bar1:Height := 4
		var_Bar1:Color := RGB(255,0,0)
		var_Bar1:[Def,exBarCaption] := "<font ;6><%=%0%>"
		var_Bar1:[Def,exBarHAlignCaption] := 16
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
	h := var_Items:AddItem("Task 2")
	var_Items:AddBar(h,"Task",SToD("20170803"),SToD("20170809"),nil,nil)
	var_Items:[SelectItem,h] := true
	h := var_Items:AddItem("Task 3")
	var_Items:AddBar(h,"Task",SToD("20170804"),SToD("20170813"),"",nil)
	var_Items:AddBar(h,"Task-Diff",SToD("20170805"),SToD("20170814"),"P",nil)
	var_Items:[SelectItem,h] := true
	var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170816"),nil,nil)
	OutputDebugString(String2Psz( "Bars before remove: " ))
	OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,0,"<*>",exBarsCount]) ))
	var_Items:[ItemBarEx,"itemisselected and itembar(0) = `Task`",exBarKey] := "`toberemove` + value "
	var_Items:RemoveBar(0,"<toberemove*>")
	OutputDebugString(String2Psz( "Bars after remove: " ))
	OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,0,"<*>",exBarsCount]) ))
oDCOCX_Exontrol1:EndUpdate()

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

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}:[Def,exCellHasCheckBox] := true
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
	h := var_Items:AddItem("Task 2")
	var_Items:AddBar(h,"Task",SToD("20170803"),SToD("20170809"),nil,nil)
	var_Items:[CellState,h,0] := 1
	h := var_Items:AddItem("Task 3")
	var_Items:AddBar(h,"Task",SToD("20170804"),SToD("20170813"),nil,nil)
	var_Items:[CellState,h,0] := 1
	var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170816"),nil,nil)
	var_Items:[ItemBarEx,"cellstate(0)",exBarPattern] := 6
oDCOCX_Exontrol1:EndUpdate()

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

local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Chart:HistogramView := exHistogramAllItems
	var_Chart:HistogramVisible := true
	var_Chart:HistogramHeight := 64
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:HistogramPattern := exPatternBDiagonal
		var_Bar:HistogramType := exHistOverAllocation
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170809"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20170804"),SToD("20170813"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170816"),nil,nil)
	var_Items:[ItemBarEx,true,exBarEffort] := 2
oDCOCX_Exontrol1:EndUpdate()

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

local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Bar := var_Chart:Bars:Add("Task%Progress")
		var_Bar:Shortcut := "Task"
		var_Bar:[Def,exBarShowPercentCaption] := true
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170809"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20170804"),SToD("20170813"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170816"),nil,nil)
	var_Items:[ItemBarEx,true,exBarPercent] := 0.5
oDCOCX_Exontrol1:EndUpdate()

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

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170809"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20170804"),SToD("20170813"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170816"),nil,nil)
	var_Items:[ItemBarEx,true,exBarDuration] := 4
oDCOCX_Exontrol1:EndUpdate()

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

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170809"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20170804"),SToD("20170813"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170816"),nil,nil)
	var_Items:[ItemBarEx,true,exBarMoveEnd] := "#8/15/2017#"
oDCOCX_Exontrol1:EndUpdate()

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

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170809"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20170804"),SToD("20170813"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170816"),nil,nil)
	var_Items:[ItemBarEx,true,exBarMoveStart] := "#8/2/2017#"
oDCOCX_Exontrol1:EndUpdate()

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

local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	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 := exOverlaidBarsStack
		var_Bar:OverlaidGroup := "Task,Task-Diff"
		var_Bar:[Def,exBarCaption] := "<font ;6><%=%0%>"
		var_Bar:[Def,exBarHAlignCaption] := 18
	var_Bar1 := var_Chart:Bars:Copy("Task","Task-Diff")
		var_Bar1:Height := 4
		var_Bar1:Color := RGB(255,0,0)
		var_Bar1:[Def,exBarCaption] := "<font ;6><%=%0%>"
		var_Bar1:[Def,exBarHAlignCaption] := 16
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170809"),nil,nil)
	h := var_Items:AddItem("Task 3")
	var_Items:AddBar(h,"Task",SToD("20170804"),SToD("20170813"),"",nil)
	var_Items:AddBar(h,"Task-Diff",SToD("20170805"),SToD("20170814"),"P",nil)
	var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170816"),nil,nil)
	var_Items:[ItemBarEx,true,exBarColor] := "cellcaption(0) like `*2` ? 0x0000FF : 0x00FF00"
oDCOCX_Exontrol1:EndUpdate()

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

local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	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 := exOverlaidBarsStack
		var_Bar:OverlaidGroup := "Task,Task-Diff"
		var_Bar:[Def,exBarCaption] := "<font ;6><%=%0%>"
		var_Bar:[Def,exBarHAlignCaption] := 18
	var_Bar1 := var_Chart:Bars:Copy("Task","Task-Diff")
		var_Bar1:Height := 4
		var_Bar1:Color := RGB(255,0,0)
		var_Bar1:[Def,exBarCaption] := "<font ;6><%=%0%>"
		var_Bar1:[Def,exBarHAlignCaption] := 16
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
	h := var_Items:AddItem("Task 2")
	var_Items:AddBar(h,"Task",SToD("20170803"),SToD("20170809"),nil,nil)
	var_Items:[SelectItem,h] := true
	h := var_Items:AddItem("Task 3")
	var_Items:AddBar(h,"Task",SToD("20170804"),SToD("20170813"),"",nil)
	var_Items:AddBar(h,"Task-Diff",SToD("20170805"),SToD("20170814"),"P",nil)
	var_Items:[SelectItem,h] := true
	var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170816"),nil,nil)
	var_Items:[ItemBarEx,"-1",exBarTransparent] := "itembar(0) = `Task` ? 0 : 100"
oDCOCX_Exontrol1:EndUpdate()

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

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170809"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20170804"),SToD("20170813"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170816"),nil,nil)
	OutputDebugString(String2Psz( "Bars before remove: " ))
	OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,0,"<*>",exBarsCount]) ))
	var_Items:[ItemBarEx,"cellcaption(0) like `*2 *3`",exBarKey] := "`toberemove` + value "
	var_Items:RemoveBar(0,"<toberemove*>")
	OutputDebugString(String2Psz( "Bars after remove: " ))
	OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,0,"<*>",exBarsCount]) ))
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
	// CellStateChanged event - Fired after cell's state has been changed.

RETURN NIL

local var_Chart as IChart
local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SelBackMode := exTransparent
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 256
	var_Chart:FirstVisibleDate := SToD("20170101")
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%CS0","check")
	var_ConditionalFormat:Bold := true
	var_ConditionalFormat:ApplyToBars := "Task"
	var_ConditionalFormat:BarColor := RGB(0,0,1)
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:Width := 256
IColumn{oDCOCX_Exontrol1:Columns:Add(oDCOCX_Exontrol1:ConditionalFormats:[Item,"check"]:Expression)}:FormatColumn := oDCOCX_Exontrol1:ConditionalFormats:[Item,"check"]:Expression
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20170102"),SToD("20170112"),nil,nil)
	h := var_Items:AddItem("Item 2")
	var_Items:AddBar(h,"Task",SToD("20170103"),SToD("20170113"),nil,nil)
	var_Items:[CellState,h,0] := 1
	h := var_Items:AddItem("Item 3")
	var_Items:AddBar(h,"Task",SToD("20170104"),SToD("20170114"),nil,nil)
	var_Items:[CellState,h,0] := 1
oDCOCX_Exontrol1:EndUpdate()

1934:
How do I automatically bold items being checked

METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
	// CellStateChanged event - Fired after cell's state has been changed.

RETURN NIL

local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SelBackMode := exTransparent
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%CS0","check")
	var_ConditionalFormat:Bold := true
IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}:[Def,exCellHasCheckBox] := true
IColumn{oDCOCX_Exontrol1:Columns:Add(oDCOCX_Exontrol1:ConditionalFormats:[Item,"check"]:Expression)}:FormatColumn := oDCOCX_Exontrol1:ConditionalFormats:[Item,"check"]:Expression
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item 1")
	var_Items:[CellState,var_Items:AddItem("Item 2"),0] := 1
	var_Items:AddItem("Item 3")
oDCOCX_Exontrol1:EndUpdate()

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

local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:[RadioImage,false] := 32699122
oDCOCX_Exontrol1:[RadioImage,true] := 16777216
IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}:[Def,exCellHasRadioButton] := true
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Radio 1")
	var_Items:[CellState,var_Items:AddItem("Radio 2"),0] := 1
	var_Items:AddItem("Radio 1")
oDCOCX_Exontrol1:EndUpdate()

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

local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:[CheckImage,Unchecked] := 32699122
oDCOCX_Exontrol1:[CheckImage,Checked] := 16777216
IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}:[Def,exCellHasCheckBox] := true
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Check 1")
	var_Items:[CellState,var_Items:AddItem("Check 2"),0] := 1
	var_Items:AddItem("Check 3")
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
	// CellStateChanged event - Fired after cell's state has been changed.

RETURN NIL

local var_Column,var_Column1 as IColumn
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesInsideLeaf
oDCOCX_Exontrol1:SelBackMode := exTransparent
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Format")}
	var_Column1:FormatColumn := "%CS0"
	var_Column1:Caption := var_Column1:FormatColumn
	var_Column1:[Def,exCellForeColor] := 8421504
	var_Column1:[Def,exHeaderForeColor] := var_Column1:[Def,exCellForeColor]
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Root")
	var_Items:InsertItem(h,nil,"Item 1")
	var_Items:[CellState,var_Items:InsertItem(h,nil,"Item 2"),0] := 1
	var_Items:[CellState,var_Items:InsertItem(h,nil,"Item 3"),0] := 1
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()

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

local var_Column as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:Columns:Add("Items")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Format")}
	var_Column:FormatColumn := "%CD0"
	var_Column:Caption := var_Column:FormatColumn
	var_Column:[Def,exCellForeColor] := 8421504
	var_Column:[Def,exHeaderForeColor] := var_Column:[Def,exCellForeColor]
var_Items := oDCOCX_Exontrol1: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] := SToD("20010101")
oDCOCX_Exontrol1:EndUpdate()

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

local var_Column,var_Column1,var_Column2 as IColumn
local var_Editor as IEditor
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
	var_Editor := var_Column:Editor
		var_Editor:EditType := DropDownListType
		var_Editor:AddItem(1,"Item 1",nil)
		var_Editor:AddItem(2,"Item 2",nil)
		var_Editor:AddItem(3,"Item 3",nil)
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Format")}
	var_Column1:FormatColumn := "%0"
	var_Column1:Caption := var_Column1:FormatColumn
	var_Column1:[Def,exCellForeColor] := 8421504
	var_Column1:[Def,exHeaderForeColor] := var_Column1:[Def,exCellForeColor]
	var_Column1:AllowSizing := false
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Format")}
	var_Column2:FormatColumn := "%C0"
	var_Column2:Caption := var_Column2:FormatColumn
	var_Column2:[Def,exCellForeColor] := 8421504
	var_Column2:[Def,exHeaderForeColor] := var_Column2:[Def,exCellForeColor]
	var_Column2:AllowSizing := false
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem(1)
	var_Items:[CellValue,var_Items:AddItem(0),0] := 2
	var_Items:AddItem(2)
oDCOCX_Exontrol1:EndUpdate()

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

local var_Chart as IChart

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 0
	var_Chart:LevelCount := 2
	var_Chart:UnitScale := exHour
	var_Chart:NonworkingHours := 16253183
	var_Chart:ShowNonworkingHours := false
	var_Chart:ShowNonworkingUnits := false
oDCOCX_Exontrol1:EndUpdate()

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

local var_Chart as IChart

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 0
	var_Chart:LevelCount := 2
	var_Chart:UnitScale := exDay
	var_Chart:ShowNonworkingDates := false
	var_Chart:ShowNonworkingUnits := false
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
	// CellStateChanged event - Fired after cell's state has been changed.
	local var_Items as IItems
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:[ItemBarEx,true,exBarTransparent] := "cellstate(0) = 1 ? 0 : 100"
RETURN NIL

local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:[SelectItem,hChild] := true
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
	var_Items:[ItemBarEx,true,exBarTransparent] := "cellstate(0) = 1 ? 0 : 100"
oDCOCX_Exontrol1:EndUpdate()

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

local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:[SelectItem,hChild] := true
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
	var_Items:[ItemBarEx,"itembar(0) = `Task`",exBarColor] := 65280
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1SelectionChanged() CLASS MainDialog
	// SelectionChanged event - Fired after a new item has been selected.
	local var_Items as IItems
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:[ItemBarEx,true,exBarSelected] := "itemisselected"
RETURN NIL

local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Tasks")
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowSelectObjects := exNoSelectObjects
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:[SelectItem,hChild] := true
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
	// CellStateChanged event - Fired after cell's state has been changed.
	local var_Items as IItems
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:[ItemBarEx,true,exBarSelected] := "cellstate(0) = 1"
RETURN NIL

local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowSelectObjects := exNoSelectObjects
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:[SelectItem,hChild] := true
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()

1922:
How do I select all bars on leaf items

local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:[SelectItem,hChild] := true
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
	var_Items:[ItemBarEx,"itemlevel = 1",exBarSelected] := true
oDCOCX_Exontrol1:EndUpdate()

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

local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:[SelectItem,hChild] := true
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
	var_Items:[ItemBarEx,"(cellstate(0) = 1) and (itembar(0) = `Task`)",exBarCaption] := "`new caption`"
oDCOCX_Exontrol1:EndUpdate()

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

local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:[SelectItem,hChild] := true
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
	var_Items:[ItemBarEx,"(itembar(0) = `Task`)",exBarCaption] := "`new caption`"
oDCOCX_Exontrol1:EndUpdate()

1919:
How can I change the caption for all bars

local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:[SelectItem,hChild] := true
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
	var_Items:[ItemBarEx,true,exBarCaption] := "`new caption`"
oDCOCX_Exontrol1:EndUpdate()

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

local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:[SelectItem,hChild] := true
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
	var_Items:[ItemBarEx,"(itembar(0) = `Task`)",exBarMove] := "#8/14/2017# - itembar(2)"
oDCOCX_Exontrol1:EndUpdate()

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

local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:[SelectItem,hChild] := true
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
	var_Items:[ItemBarEx,"(itembar(0) = `Task`)",exBarMove] := "#8/3/2017# - itembar(1)"
oDCOCX_Exontrol1:EndUpdate()

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

local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:[SelectItem,hChild] := true
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
	var_Items:[ItemBarEx,"cellstate(0) = 1 and itembar(0) = `Task`",exBarColor] := 255
oDCOCX_Exontrol1:EndUpdate()

1915:
How do I resize all Task bars programatically

local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:[SelectItem,hChild] := true
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
	var_Items:[ItemBarEx,"itembar(0) = `Task`",exBarEnd] := "value + 2"
oDCOCX_Exontrol1:EndUpdate()

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

local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:[SelectItem,hChild] := true
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
	var_Items:[ItemBarEx,"cellstate(0) = 1 and itembar(0) = `Task`",exBarMove] := -2
oDCOCX_Exontrol1:EndUpdate()

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

local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:[SelectItem,hChild] := true
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
	var_Items:[ItemBarEx,"itembar(0) = `Task`",exBarMove] := 1
oDCOCX_Exontrol1:EndUpdate()

1912:
How do I count all Task bars in the chart
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Tasks")
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
	OutputDebugString(String2Psz( AsString(var_Items:[ItemBarEx,"itembar(0) = `Task`",exBarsCount]) ))
oDCOCX_Exontrol1:EndUpdate()

1911:
How do I select bars whose items are checked

local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20170801")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Bar := var_Chart:Bars:[Item,"Summary"]
		var_Bar:StartShape := exShapeIconEmpty
		var_Bar:EndShape := exShapeIconEmpty
		var_Bar:Shape := exShapeThinDown
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	hChild := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
	var_Items:[SelectItem,hChild] := true
	hChild := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	hChild := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
	var_Items:[CellState,hChild,nil] := 1
	var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
	var_Items:DefineSummaryBars(h,"sum",-3,"")
	var_Items:[ExpandItem,h] := true
	var_Items:[ItemBarEx,"cellstate(0) = 1",exBarSelected] := true
oDCOCX_Exontrol1:EndUpdate()

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

local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 48
oDCOCX_Exontrol1:Chart:SelBarColor := RGB(255,0,0)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task 1")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1","K1")
	var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010107"),"K2","K2")
	var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010110"),"P","P")
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"Q","Q")
	var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"M","M")
	var_Items:[ItemBarEx,"cellcaption(0) = `Task 1`",exBarSelected] := true
oDCOCX_Exontrol1:EndUpdate()

1909:
How can I select/unselect all bars

local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 48
oDCOCX_Exontrol1:Chart:SelBarColor := RGB(255,0,0)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task 1")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1","K1")
	var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010107"),"K2","K2")
	var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010110"),"P","P")
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"Q","Q")
	var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"M","M")
	var_Items:[ItemBarEx,true,exBarSelected] := true
oDCOCX_Exontrol1:EndUpdate()

1908:
Is it possible to set the background color of the chart for one item and one day
local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Items")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 96
	var_Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item")
	h := var_Items:AddItem("Item")
	var_Items:AddBar(h,"",SToD("20010102"),SToD("20010103"),"Back"," ")
	var_Items:[ItemBar,h,"Back",exBarBackColor] := 255
	var_Items:[ItemBar,h,"Back",exBarSelectable] := false
	var_Items:AddItem("Item")
oDCOCX_Exontrol1:EndUpdate()

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

local var_Editor as IEditor
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("DropDownList")}:Editor
	var_Editor:EditType := DropDownListType
	var_Editor:AddItem(1,"One",nil)
	var_Editor:AddItem(2,"Two",nil)
	var_Editor:AddItem(3,"Three",nil)
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem(oDCOCX_Exontrol1:Columns:[Item,0]:Editor:[FindItem,">ONE"])
	var_Items:AddItem(oDCOCX_Exontrol1:Columns:[Item,0]:Editor:[FindItem,">ThRee"])
	var_Items:AddItem(oDCOCX_Exontrol1:Columns:[Item,0]:Editor:[FindItem,"ONE"])
	var_Items:AddItem(oDCOCX_Exontrol1:Columns:[Item,0]:Editor:[FindItem,">tWo"])
oDCOCX_Exontrol1:EndUpdate()

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

local var_Column as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exHLines
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Default")}
	var_Column:[Def,exCellValueFormat] := 1
	var_Column:[Def,exCellSingleLine] := false
var_Items := oDCOCX_Exontrol1: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.")
oDCOCX_Exontrol1:EndUpdate()

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

local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exHLines
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellValueFormat,var_Items:AddItem("This is the first line.<br>This is the second line."),0] := exHTML
	h := var_Items:AddItem("<b>This is the first line.<br>This is the second line.</b>")
	var_Items:[CellValueFormat,h,0] := exHTML
	var_Items:[CellSingleLine,h,0] := false
	var_Items:[CellValueFormat,var_Items:AddItem("This is the first line.<br>This is the second line."),0] := exHTML
oDCOCX_Exontrol1:EndUpdate()

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

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:DrawGridLines := exAllLines
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:BackColorAlternate := 0x7ff0f0f0
oDCOCX_Exontrol1:BackColorLevelHeader := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010112"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010103"),SToD("20010113"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20010102"),SToD("20010112"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 4"),"Task",SToD("20010103"),SToD("20010113"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 5"),"Task",SToD("20010102"),SToD("20010112"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1Change(Item,ColIndex,NewValue) CLASS MainDialog
	// Change event - Occurs when the user changes the cell's content.
	local var_Items as IItems
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:[EnableItem,var_Items:[ItemByIndex,1]] := false
RETURN NIL

local var_Editor as IEditor
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:FreezeEvents(true)
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:Columns:Add("Q")
oDCOCX_Exontrol1:Columns:Add("A")
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("What's your gender?")
	var_Editor := var_Items:[CellEditor,h1,1]
		var_Editor:EditType := DropDownListType
		var_Editor:AddItem(1,"Male",nil)
		var_Editor:AddItem(0,"Female",nil)
	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
oDCOCX_Exontrol1:EndUpdate()
oDCOCX_Exontrol1:FreezeEvents(false)

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

local var_Column as IColumn
local var_Editor as IEditor
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:Columns:Add("Q")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("A")}
	var_Column:[Def,exCellSingleLine] := false
	var_Editor := var_Column:Editor
		var_Editor:EditType := MemoType
		var_Editor:Appearance := SingleApp
var_Items := oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:EndUpdate()

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

local var_Editor as IEditor
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:Columns:Add("Q")
oDCOCX_Exontrol1:Columns:Add("A")
var_Items := oDCOCX_Exontrol1: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 := MemoType
		var_Editor:Appearance := SingleApp
	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
oDCOCX_Exontrol1:EndUpdate()