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