2337
How can I convert the exBarStart/exBarEnd property to a string (by default it returns as VARIANT/VT_DATE type, method 3)

METHOD OCX_Exontrol1BarResizing(Item,Key) CLASS MainDialog
	// BarResizing event - Occurs when a bar is moving or resizing.
	OutputDebugString(String2Psz( "Start" ))
	OutputDebugString(String2Psz( AsString(Key) ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[ItemBar,Item,Key,exBarStartStr]) ))
	OutputDebugString(String2Psz( "End" ))
	OutputDebugString(String2Psz( AsString(Key) ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[ItemBar,Item,Key,exBarEndStr]) ))
RETURN NIL

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
oDCOCX_Exontrol1:Debug := true
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20060920")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 96
	var_Chart:ResizeUnitScale := exMinute
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20060921"),SToD("20060924"),"K1",nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20060922"),SToD("20060925"),"K2",nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20060923"),SToD("20060926"),"K3",nil)
oDCOCX_Exontrol1:EndUpdate()

2336
How can I convert the exBarStart/exBarEnd property to a string (by default it returns as VARIANT/VT_DATE type, method 2)

METHOD OCX_Exontrol1BarResizing(Item,Key) CLASS MainDialog
	// BarResizing event - Occurs when a bar is moving or resizing.
	OutputDebugString(String2Psz( "Start" ))
	OutputDebugString(String2Psz( AsString(Key) ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:FormatABC("dateF(value)",oDCOCX_Exontrol1:Items:[ItemBar,Item,Key,exBarStart],nil,nil)) ))
	OutputDebugString(String2Psz( "End" ))
	OutputDebugString(String2Psz( AsString(Key) ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:FormatABC("dateF(value)",oDCOCX_Exontrol1:Items:[ItemBar,Item,Key,exBarEnd],nil,nil)) ))
RETURN NIL

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
oDCOCX_Exontrol1:Debug := true
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20060920")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 96
	var_Chart:ResizeUnitScale := exMinute
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20060921"),SToD("20060924"),"K1",nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20060922"),SToD("20060925"),"K2",nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20060923"),SToD("20060926"),"K3",nil)
oDCOCX_Exontrol1:EndUpdate()

2335
How can I convert the exBarStart/exBarEnd property to a string (by default it returns as VARIANT/VT_DATE type, method 1)

METHOD OCX_Exontrol1BarResizing(Item,Key) CLASS MainDialog
	// BarResizing event - Occurs when a bar is moving or resizing.
	OutputDebugString(String2Psz( "Start" ))
	OutputDebugString(String2Psz( AsString(Key) ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:FormatABC("date(value) format `MM/dd/yyyy HH:mm:ss`",oDCOCX_Exontrol1:Items:[ItemBar,Item,Key,exBarStart],nil,nil)) ))
	OutputDebugString(String2Psz( "End" ))
	OutputDebugString(String2Psz( AsString(Key) ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:FormatABC("date(value) format `MM/dd/yyyy HH:mm:ss`",oDCOCX_Exontrol1:Items:[ItemBar,Item,Key,exBarEnd],nil,nil)) ))
RETURN NIL

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
oDCOCX_Exontrol1:Debug := true
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20060920")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 96
	var_Chart:ResizeUnitScale := exMinute
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20060921"),SToD("20060924"),"K1",nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20060922"),SToD("20060925"),"K2",nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20060923"),SToD("20060926"),"K3",nil)
oDCOCX_Exontrol1:EndUpdate()

2334
Add/Remove/Updates the item-bar's resources

METHOD OCX_Exontrol1Click() CLASS MainDialog
	// Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
	local var_Items as IItems
	local h as USUAL
	var_Items := oDCOCX_Exontrol1:Items
		h := var_Items:[SelectedItem,0]
		var_Items:[ItemBar,h,var_Items:[FirstItemBar,h],exBarResources] := "+R4[10%]"
RETURN NIL

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderHeight := 24
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:[Def,exBarHAlignCaption] := 18
		var_Bar:[Def,exBarCaption] := "<%=%49%>"
oDCOCX_Exontrol1:Columns:Add("Machines")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Machine 1")
	var_Items:AddBar(h,"Task",SToD("20010106"),SToD("20010112"),"K1",nil)
	var_Items:[ItemBar,h,"K1",exBarResources] := "R1,R2"
	h := var_Items:AddItem("Machine 2")
	var_Items:AddBar(h,"Task",SToD("20010104"),SToD("20010114"),"K2",nil)
	var_Items:[ItemBar,h,"K2",exBarResources] := "R2[75%],R3"
oDCOCX_Exontrol1:EndUpdate()

2333
Distributes resources to a bar

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderHeight := 24
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:[Def,exBarHAlignCaption] := 18
		var_Bar:[Def,exBarCaption] := "<%=%49%>"
oDCOCX_Exontrol1:Columns:Add("Machines")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Machine 1")
	var_Items:AddBar(h,"Task",SToD("20010106"),SToD("20010112"),"K1",nil)
	var_Items:[ItemBar,h,"K1",exBarResources] := "R1,R2"
	h := var_Items:AddItem("Machine 2")
	var_Items:AddBar(h,"Task",SToD("20010104"),SToD("20010114"),"K2",nil)
	var_Items:[ItemBar,h,"K2",exBarResources] := "R2[75%],R3"
oDCOCX_Exontrol1:EndUpdate()

2332
How can I display additional information about a time zone when the user clicks on it (expandable)

local var_Chart as IChart

var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 0
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20091220")
	var_Chart:MarkTimeZone("TZ",SToD("20100101"),SToD("20100103"),65280,"1;;<c>TimeZone<b><off -4><a ;exp=just more info about>*</a></b>;1")

2331
How can I have a tooltip for a marked TimeZone

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip(oDCOCX_Exontrol1:Chart:[TimeZoneFromPoint,-1,-1],"",nil,"+8",nil)
RETURN NIL

local var_Chart as IChart

var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 0
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20091228")
	var_Chart:MarkTimeZone("Top",SToD("20100101"),SToD("20100105"),16711680,"1;;<fgcolor=FFFFFF>Top;1")
	var_Chart:MarkTimeZone("Partial",SToD("20100108"),SToD("20100112"),16711680,"50;;<fgcolor=FFFFFF>Partial;1")
	var_Chart:MarkTimeZone("Default",SToD("20100115"),SToD("20100119"),16711680,";;<fgcolor=FFFFFF>Default;1")

2330
Can I set a filter that automatically adds a * before and after the word, so the user can just search for 'cat' and it becomes '*cat*' automatically

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
	var_Column:DisplayFilterButton := true
	var_Column:DisplayFilterPattern := true
	var_Column:[Def,exFilterPatternTemplate] := "*<%filter%>*"
	var_Column:FilterType := exPattern
	var_Column:Filter := "1"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Root 1")
	var_Items:InsertItem(h,nil,"Child 1")
	var_Items:InsertItem(h,nil,"Child 2")
	var_Items:[ExpandItem,h] := true
	h := var_Items:AddItem("Root 2")
	var_Items:InsertItem(h,nil,"Child 1")
	var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

2329
The fine dotted lines in the control appear much thicker than the standard ones we've been using. How can we fix this

local var_Chart as IChart

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:GridLineStyle := exGridLinesGeometric
	var_Chart:DrawGridLines := exAllLines
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:Columns:Add("Column 1")
oDCOCX_Exontrol1:Columns:Add("Column 2")
oDCOCX_Exontrol1:Columns:Add("Column 3")
oDCOCX_Exontrol1:Columns:Add("Column 4")
oDCOCX_Exontrol1:EndUpdate()

2328
Load data as a tree using a parent-id relationship

local rs as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:DrawGridLines := exVLines
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADODB.Recordset"}
	rs:Open("Select * FROM Employees WHERE 1=0","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.mdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
oDCOCX_Exontrol1:Columns:[Item,0]:Width := 128
rs := _Recordset{"ADODB.Recordset"}
	rs:Open("Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.mdb",3,3,0)
oDCOCX_Exontrol1:PutItems(rs:GetRows(0,nil,nil),";0;17")
oDCOCX_Exontrol1:Items:[ExpandItem,0] := true
oDCOCX_Exontrol1:EndUpdate()

2327
Is there a way to change the contents of the drop down editor based on a value in another column

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:[CellEditorVisible,Item,0] := exEditorVisible
	oDCOCX_Exontrol1:Items:[CellEditorVisible,Item,1] := exEditorVisible
RETURN NIL

METHOD OCX_Exontrol1EditOpen() CLASS MainDialog
	// EditOpen event - Occurs when the edit operation starts.
	local var_Editor as IEditor
	local var_Items as IItems
	local c,v as USUAL
	var_Items := oDCOCX_Exontrol1:Items
		v := var_Items:[CellValue,var_Items:FocusItem,0]
		c := var_Items:[CellCaption,var_Items:FocusItem,0]
	var_Editor := oDCOCX_Exontrol1:Columns:[Item,1]:Editor
		var_Editor:ClearItems()
		var_Editor:AddItem(v,AsString(c),nil)
RETURN NIL

local var_Column as IColumn
local var_Editor as IEditor
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("DropDownList")}
	var_Editor := var_Column:Editor
		var_Editor:EditType := DropDownListType
		var_Editor:AddItem(1,"First",nil)
		var_Editor:AddItem(2,"Second",nil)
		var_Editor:AddItem(3,"Third",nil)
oDCOCX_Exontrol1:DrawGridLines := exAllLines
IColumn{oDCOCX_Exontrol1:Columns:Add("DropDownList-Related")}:Editor:EditType := DropDownListType
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellValue,var_Items:AddItem(1),1] := -1
	var_Items:[CellValue,var_Items:AddItem(2),1] := -1
	var_Items:[CellValue,var_Items:AddItem(3),1] := -1
	var_Items:[LockedItemCount,exBottom] := 1
	h := var_Items:[LockedItem,exBottom,0]
	var_Items:[ItemDivider,h] := 0
	var_Items:[ItemDividerLineAlignment,h] := DividerTop
	var_Items:[CellEditorVisible,h,0] := exEditorHidden
	var_Items:[CellSingleLine,h,0] := exCaptionWordWrap
	var_Items:[CellValueFormat,h,0] := exHTML
	var_Items:[CellValue,h,0] := "The drop down editor in the second column is filled during the <b>EditOpen event</b>, and the values are based on the selection on the first column."
oDCOCX_Exontrol1:EndUpdate()

2326
Highlight the editable fields

METHOD OCX_Exontrol1Change(Item,ColIndex,NewValue) CLASS MainDialog
	// Change event - Occurs when the user changes the cell's content.
	oDCOCX_Exontrol1:Refresh()
RETURN NIL

local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_ConditionalFormat,var_ConditionalFormat1,var_ConditionalFormat2 as IConditionalFormat
local var_ConditionalFormats as IConditionalFormats
local var_Items as IItems
local g1,g2,h,r as USUAL

oDCOCX_Exontrol1:FreezeEvents(true)
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_ConditionalFormats := oDCOCX_Exontrol1:ConditionalFormats
	var_ConditionalFormat := var_ConditionalFormats:Add("%CE1",nil)
		var_ConditionalFormat:Bold := true
		var_ConditionalFormat:BackColor := RGB(245,245,245)
		var_ConditionalFormat:ApplyTo := 0x1 | 
	var_ConditionalFormat1 := var_ConditionalFormats:Add("%CE2",nil)
		var_ConditionalFormat1:Bold := true
		var_ConditionalFormat1:BackColor := RGB(245,245,245)
		var_ConditionalFormat1:ApplyTo := 0x2 | 
	var_ConditionalFormat2 := var_ConditionalFormats:Add("%CE3",nil)
		var_ConditionalFormat2:Bold := true
		var_ConditionalFormat2:BackColor := RGB(245,245,245)
		var_ConditionalFormat2:ApplyTo := 0x3 | 
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Description")
	var_Column := IColumn{var_Columns:Add("Qty")}
		var_Column:Editor:EditType := SpinType
		var_Column:[Def,exTotalColumn] := "sum(current,rec,%1)"
	var_Column1 := IColumn{var_Columns:Add("Price")}
		var_Column1:[Def,exTotalColumn] := "avg(current,rec,%2)"
		var_Column1:Editor:EditType := SpinType
	var_Column2 := IColumn{var_Columns:Add("Amount")}
		var_Column2:ComputedField := "%1 * %2"
		var_Column2:[Def,exTotalColumn] := "sum(current,rec,%3)"
var_Items := oDCOCX_Exontrol1:Items
	r := var_Items:AddItem("Root")
	g1 := var_Items:InsertItem(r,nil,"Group 1")
	h := var_Items:InsertItem(g1,nil,"Item 1")
	var_Items:[CellValue,h,1] := 1
	var_Items:[CellValue,h,2] := 10
	h := var_Items:InsertItem(g1,nil,"Item 2")
	var_Items:[CellValue,h,1] := 2
	var_Items:[CellValue,h,2] := 11
	g2 := var_Items:InsertItem(r,nil,"Group 2")
	h := var_Items:InsertItem(g2,nil,"Item 1")
	var_Items:[CellValue,h,1] := 3
	var_Items:[CellValue,h,2] := 12
	h := var_Items:InsertItem(g2,nil,"Item 2")
	var_Items:[CellValue,h,1] := 4
	var_Items:[CellValue,h,2] := 13
	var_Items:[ExpandItem,0] := true
oDCOCX_Exontrol1:EndUpdate()
oDCOCX_Exontrol1:FreezeEvents(false)

2325
Highlight the total fields

METHOD OCX_Exontrol1Change(Item,ColIndex,NewValue) CLASS MainDialog
	// Change event - Occurs when the user changes the cell's content.
	oDCOCX_Exontrol1:Refresh()
RETURN NIL

local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_ConditionalFormat,var_ConditionalFormat1,var_ConditionalFormat2 as IConditionalFormat
local var_ConditionalFormats as IConditionalFormats
local var_Items as IItems
local g1,g2,h,r as USUAL

oDCOCX_Exontrol1:FreezeEvents(true)
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_ConditionalFormats := oDCOCX_Exontrol1:ConditionalFormats
	var_ConditionalFormat := var_ConditionalFormats:Add("%CT1",nil)
		var_ConditionalFormat:ForeColor := RGB(128,128,128)
		var_ConditionalFormat:ApplyTo := 0x1 | 
	var_ConditionalFormat1 := var_ConditionalFormats:Add("%CT2",nil)
		var_ConditionalFormat1:ForeColor := RGB(128,128,128)
		var_ConditionalFormat1:ApplyTo := 0x2 | 
	var_ConditionalFormat2 := var_ConditionalFormats:Add("%CT3",nil)
		var_ConditionalFormat2:ForeColor := RGB(128,128,128)
		var_ConditionalFormat2:ApplyTo := 0x3 | 
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Description")
	var_Column := IColumn{var_Columns:Add("Qty")}
		var_Column:Editor:EditType := SpinType
		var_Column:[Def,exTotalColumn] := "sum(current,rec,%1)"
	var_Column1 := IColumn{var_Columns:Add("Price")}
		var_Column1:[Def,exTotalColumn] := "avg(current,rec,%2)"
		var_Column1:Editor:EditType := SpinType
	var_Column2 := IColumn{var_Columns:Add("Amount")}
		var_Column2:ComputedField := "%1 * %2"
		var_Column2:[Def,exTotalColumn] := "sum(current,rec,%3)"
var_Items := oDCOCX_Exontrol1:Items
	r := var_Items:AddItem("Root")
	g1 := var_Items:InsertItem(r,nil,"Group 1")
	h := var_Items:InsertItem(g1,nil,"Item 1")
	var_Items:[CellValue,h,1] := 1
	var_Items:[CellValue,h,2] := 10
	h := var_Items:InsertItem(g1,nil,"Item 2")
	var_Items:[CellValue,h,1] := 2
	var_Items:[CellValue,h,2] := 11
	g2 := var_Items:InsertItem(r,nil,"Group 2")
	h := var_Items:InsertItem(g2,nil,"Item 1")
	var_Items:[CellValue,h,1] := 3
	var_Items:[CellValue,h,2] := 12
	h := var_Items:InsertItem(g2,nil,"Item 2")
	var_Items:[CellValue,h,1] := 4
	var_Items:[CellValue,h,2] := 13
	var_Items:[ExpandItem,0] := true
oDCOCX_Exontrol1:EndUpdate()
oDCOCX_Exontrol1:FreezeEvents(false)

2324
Highlight the leaf items

local var_Columns as IColumns
local var_Items as IItems
local h,hR as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ConditionalFormats:Add("%CC0=0",nil):ForeColor := RGB(128,128,128)
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Columns := oDCOCX_Exontrol1:Columns
	IColumn{var_Columns:Add("Item")}:Width := 16
	var_Columns:Add("Desc")
var_Items := oDCOCX_Exontrol1:Items
	hR := var_Items:AddItem("Root")
	var_Items:[CellValue,hR,1] := "The root directory /"
	var_Items:[ExpandItem,hR] := true
	h := var_Items:InsertItem(hR,nil,"Home")
	var_Items:[CellValue,h,1] := "The home directory with user directories Alice and Bob"
	var_Items:InsertItem(h,nil,"Alice")
	var_Items:InsertItem(h,nil,"Bob")
	var_Items:[ExpandItem,h] := true
	h := var_Items:InsertItem(hR,nil,"Etc")
	var_Items:[CellValue,h,1] := "The etc directory with one configuration file"
	h := var_Items:InsertItem(h,nil,"nginx.conf")
	var_Items:[CellValue,var_Items:InsertItem(hR,nil,"Var"),1] := "The var directory"
oDCOCX_Exontrol1:EndUpdate()

2323
Highlight the parent items

local var_Columns as IColumns
local var_Items as IItems
local h,hR as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ConditionalFormats:Add("%CC0",nil):ForeColor := RGB(255,0,0)
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Columns := oDCOCX_Exontrol1:Columns
	IColumn{var_Columns:Add("Item")}:Width := 16
	var_Columns:Add("Desc")
var_Items := oDCOCX_Exontrol1:Items
	hR := var_Items:AddItem("Root")
	var_Items:[CellValue,hR,1] := "The root directory /"
	var_Items:[ExpandItem,hR] := true
	h := var_Items:InsertItem(hR,nil,"Home")
	var_Items:[CellValue,h,1] := "The home directory with user directories Alice and Bob"
	var_Items:InsertItem(h,nil,"Alice")
	var_Items:InsertItem(h,nil,"Bob")
	var_Items:[ExpandItem,h] := true
	h := var_Items:InsertItem(hR,nil,"Etc")
	var_Items:[CellValue,h,1] := "The etc directory with one configuration file"
	h := var_Items:InsertItem(h,nil,"nginx.conf")
	var_Items:[CellValue,var_Items:InsertItem(hR,nil,"Var"),1] := "The var directory"
oDCOCX_Exontrol1:EndUpdate()

2322
Highlight the item being expanded or collapsed

local var_Columns as IColumns
local var_Items as IItems
local h,hR as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ConditionalFormats:Add("%CX0",nil):Bold := true
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Columns := oDCOCX_Exontrol1:Columns
	IColumn{var_Columns:Add("Item")}:Width := 16
	var_Columns:Add("Desc")
var_Items := oDCOCX_Exontrol1:Items
	hR := var_Items:AddItem("Root")
	var_Items:[CellValue,hR,1] := "The root directory /"
	var_Items:[ExpandItem,hR] := true
	h := var_Items:InsertItem(hR,nil,"Home")
	var_Items:[CellValue,h,1] := "The home directory with user directories Alice and Bob"
	var_Items:InsertItem(h,nil,"Alice")
	var_Items:InsertItem(h,nil,"Bob")
	var_Items:[ExpandItem,h] := true
	h := var_Items:InsertItem(hR,nil,"Etc")
	var_Items:[CellValue,h,1] := "The etc directory with one configuration file"
	h := var_Items:InsertItem(h,nil,"nginx.conf")
	var_Items:[CellValue,var_Items:InsertItem(hR,nil,"Var"),1] := "The var directory"
oDCOCX_Exontrol1:EndUpdate()

2321
I am using exTotalColumn. Is there an option to exclude specific cells to display the total

METHOD OCX_Exontrol1Change(Item,ColIndex,NewValue) CLASS MainDialog
	// Change event - Occurs when the user changes the cell's content.
	oDCOCX_Exontrol1:Refresh()
RETURN NIL

local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems
local g1,g2,h,r as USUAL

oDCOCX_Exontrol1:FreezeEvents(true)
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Description")
	var_Column := IColumn{var_Columns:Add("Qty")}
		var_Column:Editor:EditType := SpinType
		var_Column:[Def,exTotalColumn] := "sum(current,rec,%1)"
	var_Column1 := IColumn{var_Columns:Add("Price")}
		var_Column1:[Def,exTotalColumn] := "avg(current,rec,%2)"
		var_Column1:Editor:EditType := SpinType
	var_Column2 := IColumn{var_Columns:Add("Amount")}
		var_Column2:ComputedField := "%1 * %2"
		var_Column2:[Def,exTotalColumn] := "sum(current,rec,%3)"
var_Items := oDCOCX_Exontrol1:Items
	r := var_Items:AddItem("Root")
	g1 := var_Items:InsertItem(r,nil,"Group 1")
	var_Items:[FormatCell,g1,2] := "`<average missing>`"
	var_Items:[CellEditorVisible,g1,2] := exEditorHidden
	var_Items:[CellBold,g1,2] := true
	var_Items:[CellForeColor,g1,2] := RGB(255,0,0)
	h := var_Items:InsertItem(g1,nil,"Item 1")
	var_Items:[CellValue,h,1] := 1
	var_Items:[CellValue,h,2] := 10
	h := var_Items:InsertItem(g1,nil,"Item 2")
	var_Items:[CellValue,h,1] := 2
	var_Items:[CellValue,h,2] := 11
	g2 := var_Items:InsertItem(r,nil,"Group 2")
	h := var_Items:InsertItem(g2,nil,"Item 1")
	var_Items:[CellValue,h,1] := 3
	var_Items:[CellValue,h,2] := 12
	h := var_Items:InsertItem(g2,nil,"Item 2")
	var_Items:[CellValue,h,1] := 4
	var_Items:[CellValue,h,2] := 13
	var_Items:[ExpandItem,0] := true
oDCOCX_Exontrol1:EndUpdate()
oDCOCX_Exontrol1:FreezeEvents(false)

2320
How can I add a total column

METHOD OCX_Exontrol1Change(Item,ColIndex,NewValue) CLASS MainDialog
	// Change event - Occurs when the user changes the cell's content.
	oDCOCX_Exontrol1:Refresh()
RETURN NIL

local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems
local g1,g2,h,r as USUAL

oDCOCX_Exontrol1:FreezeEvents(true)
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Description")
	var_Column := IColumn{var_Columns:Add("Qty")}
		var_Column:Editor:EditType := SpinType
		var_Column:[Def,exTotalColumn] := "sum(current,rec,%1)"
	var_Column1 := IColumn{var_Columns:Add("Price")}
		var_Column1:[Def,exTotalColumn] := "avg(current,rec,%2)"
		var_Column1:Editor:EditType := SpinType
	var_Column2 := IColumn{var_Columns:Add("Amount")}
		var_Column2:ComputedField := "%1 * %2"
		var_Column2:[Def,exTotalColumn] := "sum(current,rec,%3)"
var_Items := oDCOCX_Exontrol1:Items
	r := var_Items:AddItem("Root")
	g1 := var_Items:InsertItem(r,nil,"Group 1")
	h := var_Items:InsertItem(g1,nil,"Item 1")
	var_Items:[CellValue,h,1] := 1
	var_Items:[CellValue,h,2] := 10
	h := var_Items:InsertItem(g1,nil,"Item 2")
	var_Items:[CellValue,h,1] := 2
	var_Items:[CellValue,h,2] := 11
	g2 := var_Items:InsertItem(r,nil,"Group 2")
	h := var_Items:InsertItem(g2,nil,"Item 1")
	var_Items:[CellValue,h,1] := 3
	var_Items:[CellValue,h,2] := 12
	h := var_Items:InsertItem(g2,nil,"Item 2")
	var_Items:[CellValue,h,1] := 4
	var_Items:[CellValue,h,2] := 13
	var_Items:[ExpandItem,0] := true
oDCOCX_Exontrol1:EndUpdate()
oDCOCX_Exontrol1:FreezeEvents(false)

2319
Is it possible when I move the horizontal scroll bar, that the whole chart scrolls live during move the horizontal scroll bar. Not it scrolls just when I release the left mouse, not during change the horizontal scroll position
local var_Chart as IChart

var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 0
	var_Chart:LevelCount := 2
	var_Chart:ToolTip := ""

2318
The exLinkStyle is not valid (the style of the link is still solid) if the link's width is greater than 1. What can be done
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 128
oDCOCX_Exontrol1:AntiAliasing := true
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010107"),"K2",nil)
	var_Items:AddLink("L1",h1,"K1",h2,"K2")
	var_Items:[Link,"L1",exLinkStyle] := 2
	var_Items:[Link,"L1",exLinkWidth] := 2
	h3 := var_Items:AddItem("Task 4")
	var_Items:AddBar(h3,"Task",SToD("20010108"),SToD("20010110"),"K3",nil)
	var_Items:AddLink("L2",h2,"K2",h3,"K3")
	var_Items:[Link,"L2",exLinkStyle] := 1
	var_Items:[Link,"L2",exLinkWidth] := 2
oDCOCX_Exontrol1:EndUpdate()

2317
How can I change the tooltip's margins (method 2)

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip(oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1],nil,nil,nil,nil)
RETURN NIL

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ToolTipMargin := "16,8"
oDCOCX_Exontrol1:Columns:Add("Def")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exNoCreateBar
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20100101")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "..."
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task")
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"A","A")
	var_Items:AddBar(h,"Task",SToD("20100105"),SToD("20100108"),"B","B")
oDCOCX_Exontrol1:EndUpdate()

2316
Are there any properties to set text margins at tooltip, like Margins="5,5" (method 1). Margins is used to get some space between text and the tooltips border

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip(oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1],nil,nil,nil,nil)
RETURN NIL

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ToolTipMargin := "16,8"
oDCOCX_Exontrol1:Columns:Add("Def")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exNoCreateBar
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20100101")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "..."
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task")
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"A","A")
	var_Items:AddBar(h,"Task",SToD("20100105"),SToD("20100108"),"B","B")
oDCOCX_Exontrol1:EndUpdate()

2315
exShowExtendedLinks

local var_Chart as IChart
local var_Items as IItems
local var_Level as ILevel

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 24
oDCOCX_Exontrol1:HeaderHeight := 20
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:AntiAliasing := true
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 48
	var_Chart:LevelCount := 2
	var_Chart:UnitScale := exHour
	var_Chart:FirstVisibleDate := SToD("20240110")
	var_Level := var_Chart:[Level,1]
		var_Level:DrawTickLines := exLevelNoLine
		var_Level:DrawTickLinesFrom(0,exLevelDotLine)
	var_Chart:AllowResizeChart := 0xfffffef9 | exAllowChangeUnitScale | exAllowResizeChartMiddle | exAllowResizeChartHeader
	var_Chart:ShowLinks := exShowExtendedLinks
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("T1"),"Task",SToD("20240110 10:00:00"),SToD("20240110 10:20:00"),"T1",nil)
	var_Items:AddBar(var_Items:AddItem("T2"),"Task",SToD("20240110 09:00:00"),SToD("20240110 12:00:00"),"T2",nil)
	var_Items:AddBar(var_Items:AddItem("T3"),"Task",SToD("20240110 08:00:00"),SToD("20240110 08:30:00"),"T3",nil)
	var_Items:AddBar(var_Items:AddItem("T4"),"Task",SToD("20240110 08:00:00"),SToD("20240110 08:30:00"),"T4",nil)
	var_Items:AddLink("L13",var_Items:[ItemByIndex,0],"T1",var_Items:[ItemByIndex,2],"T3")
	var_Items:AddLink("L14",var_Items:[ItemByIndex,0],"T1",var_Items:[ItemByIndex,3],"T4")
	var_Items:AddLink("L24",var_Items:[ItemByIndex,1],"T2",var_Items:[ItemByIndex,3],"T4")
oDCOCX_Exontrol1:EndUpdate()

2314
According to the documentation of the ShowExtendedLinksEnum value exShowExtendedLinks (1) it is possible to distinctly visualise links (rather than showing them one over another) when two or more links start or end on the same bar

local var_Chart as IChart
local var_Items as IItems
local var_Level as ILevel

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 24
oDCOCX_Exontrol1:HeaderHeight := 20
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:AntiAliasing := true
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 48
	var_Chart:LevelCount := 2
	var_Chart:UnitScale := exHour
	var_Chart:FirstVisibleDate := SToD("20240110")
	var_Level := var_Chart:[Level,1]
		var_Level:DrawTickLines := exLevelNoLine
		var_Level:DrawTickLinesFrom(0,exLevelDotLine)
	var_Chart:AllowResizeChart := 0xfffffef9 | exAllowChangeUnitScale | exAllowResizeChartMiddle | exAllowResizeChartHeader
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("T1"),"Task",SToD("20240110 10:00:00"),SToD("20240110 10:20:00"),"T1",nil)
	var_Items:AddBar(var_Items:AddItem("T2"),"Task",SToD("20240110 09:00:00"),SToD("20240110 12:00:00"),"T2",nil)
	var_Items:AddBar(var_Items:AddItem("T3"),"Task",SToD("20240110 08:00:00"),SToD("20240110 08:30:00"),"T3",nil)
	var_Items:AddBar(var_Items:AddItem("T4"),"Task",SToD("20240110 08:00:00"),SToD("20240110 08:30:00"),"T4",nil)
	var_Items:AddLink("L1",var_Items:[ItemByIndex,0],"T1",var_Items:[ItemByIndex,2],"T3")
	var_Items:AddLink("L2",var_Items:[ItemByIndex,1],"T2",var_Items:[ItemByIndex,3],"T4")
	var_Items:[Link,"L2",exLinkShowRound] := 4
oDCOCX_Exontrol1:EndUpdate()

2313
How to use arrows key left/right to move the cursor left/right inside the text
local var_Editor as IEditor
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}:Editor
	var_Editor:EditType := EditType
	var_Editor:[Option,exLeftArrow] := false
	var_Editor:[Option,exRightArrow] := false
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("000")
	var_Items:AddItem("111")
	var_Items:AddItem("222")
oDCOCX_Exontrol1:EndUpdate()

2312
How can I force the cursor to jump to the end of the editor once the user clicks the cell
local var_Editor as IEditor
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SelBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}:Editor
	var_Editor:EditType := EditType
	var_Editor:[Option,exEditSelStart] := -1
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("000")
	var_Items:AddItem("111")
	var_Items:AddItem("222")
oDCOCX_Exontrol1:EndUpdate()

2311
How can I show the overview with a different color except or outside the selection

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAAEhABVIDg6AADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADE2YAoJDUN4nDKMMDybBkRxtDCPIDnGQoDiGI4nSbKIzSCKMQhrEKZZrnaLJFgOTY8ABLEBvfSgASof6MKBlKhKGoiUo2SCFEaBTBNHxDL6raqqWJ5HDINQlWzbcjjKKFYRbOqTZDkGj4XqKTo3YBAdZSXJsXwTGKkji3ZgMOR3HaQaTjOgINpuDZdRzkUYZUDFSwSDqQIRtCpbJqzFZDZbLNbYBYME47AayID0CbdCgmaalSZHNxbVa0BzpXrFLw1TLoDy8AJ+ABseKzfo9PxdIygZRzKJ8aofE+YxynIfJcC8QgbCmL5eiEPIKH6RABlibJpicW4/FcAx/HOYRGmud4+CcHxdmiDhkGEIIIEkQJSGMHQHFGSBlFEUITEmewAAQIQ2AYRpDGQJAoEIXhXCkCB5kmSAdmgVZPmgZJ8gaT4oHSeIHk8aIEnWCJiEiFgmgmYoIiYJIIE8aB8niB0pmyfIGE+ZYmDQPpjgOUg6DqY5DgYPg2mQAxqEKEJkEkFhGhGZIJA4QA2mOY4GDwOsumCe4NAACJKDoPQOFkZJThaSoZHSGYXmYCYGGKGJmEmFhmCsJoDFYag5iaSISDIAAjAkPJLhyS4JlYbA5iSeZmHqHpnkmdh+hOZx5lSOAzGgSQ+DAAAimkNIkiKTh6DSbIjmkChGhKJJpEoVoWiSaJThyKImmSWI4ACCwNkqBhgDsahKhaJopmqComiqKpqkqEhghKYpAAIJIQmYA46jaLZrgqZo6i6a5KnaPotiZRQkiyIg6lIXw7myCwmkqMpsksNpOjObQLCKQYQiwOpOEKGAPAsZpajabZLHaXo3m4C4GlmNJNisVpFjWZZzkaao6m6S42m6O5vAuRpyjqLhLhidYxgmE5KnqPpvkudp+j+cAMAcAo+i8WIOkSPZuguZwDkKcJMDafpBE8XAengPJxEwVwWkWcYMGcGpGnGTBTBCRIwhkXwikichMhcJpJnKDIPB+NYNimAgqkucwMkcMoInKO4fC2F5ikyZw6k6c5MncPpPnOLJXAiTZJhOXxGlGdINCcSpSnSTQ3E6UY0CuYgulSdRNFcVpVnWDRnFSVBwh0axeledgNFsXJRA+HYXGaWZ2g2JxqlqdpNjcZZYmYCJDHKXJ3E2K4doux3gbE8OEF4ygtjuH6L8eAHAHgFGCO8bY2QZgZDiBwJ4FRijxE4G8DoxBxj6B6EINwTADjvBaMseYHBng1GaPMTg7wepxA4J4Rx8RjgfCYFMeoEQ6BpGqPUTob2MD2A6IQLoNAKiHAuG0WYAAJCVBCCETAHR3DMFWPgDwD29j4E8CoV4sw7imAIIcJASggAHBeBIJw5grikCmHoSYNxWjrH2BMAoNgqAZE8O0GYEg5DgAIG8DgxwjhXGaCYZIcgnxBGSDILgmwTjKHkJMNwqgjCREoGEC4RRMifHqJcYokQ6BgEYJEUIaQOhlHIIESAECAg=")
oDCOCX_Exontrol1:BackColorLevelHeader := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:[Background,exOverviewSelResize] := RGB(1,0,0)
oDCOCX_Exontrol1:[Background,exOverviewSelOut] := RGB(240,240,240)
oDCOCX_Exontrol1:Chart:OverviewSelBackColor := RGB(255,255,255)
oDCOCX_Exontrol1:[Background,exOverviewSelUnit] := 0x1000000
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010621")
	var_Chart:[PaneWidth,false] := 48
	var_Chart:OverviewVisible := 0x400 | exOverviewShowSelMargins | exOverviewShowMargins | exOverviewShowDateTimeScaleBottom | exOverviewShowAllVisible
	var_Chart:OverviewHeight := 64
	var_Chart:LevelCount := 2
	var_Chart:UnitScale := exDay
	var_Chart:[Label,exHour] := ""
	var_Chart:[Label,exMinute] := ""
	var_Chart:[Label,exSecond] := ""
	var_Chart:AllowOverviewZoom := exAlwaysZoom
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010111"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010702"),SToD("20010711"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20011102"),SToD("20011111"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

2310
Resize the chart using the overview's selection left and right margins (blue)

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:BackColorLevelHeader := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:[Background,exOverviewSelResize] := RGB(0,0,255)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010621")
	var_Chart:[PaneWidth,false] := 48
	var_Chart:OverviewVisible := 0x400 | exOverviewShowSelMargins | exOverviewShowMargins | exOverviewShowDateTimeScaleBottom | exOverviewShowAllVisible
	var_Chart:OverviewHeight := 64
	var_Chart:LevelCount := 2
	var_Chart:UnitScale := exDay
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010111"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010702"),SToD("20010711"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20011102"),SToD("20011111"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

2309
Resize the chart using the overview's selection left and right margins (black)

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:BackColorLevelHeader := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:[Background,exOverviewSelResize] := RGB(1,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010621")
	var_Chart:[PaneWidth,false] := 48
	var_Chart:OverviewVisible := 0x400 | exOverviewShowSelMargins | exOverviewShowMargins | exOverviewShowDateTimeScaleBottom | exOverviewShowAllVisible
	var_Chart:OverviewHeight := 64
	var_Chart:LevelCount := 2
	var_Chart:UnitScale := exDay
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010111"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010702"),SToD("20010711"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20011102"),SToD("20011111"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

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

local var_Chart as IChart
local var_Level as ILevel

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:OnResizeControl := exResizeChart
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarCaption := "<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)"
oDCOCX_Exontrol1:AllowGroupBy := true
oDCOCX_Exontrol1:HeaderEnabled := false
oDCOCX_Exontrol1:HeaderAppearance := Etched
IColumn{oDCOCX_Exontrol1:Columns:Add("Index")}:FormatColumn := "1 index ``"
IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}:FormatColumn := "1 apos ``"
IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}:Editor:EditType := EditType
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:DrawGridLines := exVLines
oDCOCX_Exontrol1:GridLineColor := RGB(224,224,224)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 196
	var_Chart:GridLineStyle := exGridLinesGeometric
	var_Chart:DrawGridLines := exAllLines
	var_Level := var_Chart:[Level,1]
		var_Level:DrawGridLines := true
		var_Level:GridLineColor := oDCOCX_Exontrol1:GridLineColor
oDCOCX_Exontrol1:EndUpdate()

2307
Adds a Finish-Start(FS) link (method 3)

local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Item 1")
	var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	h2 := var_Items:AddItem("Item 2")
	var_Items:AddBar(h2,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:AddLink("Link1",h1,"",h2,"")
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

2306
Adds a Start-Start(SS) link (method 3)

local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Item 1")
	var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	h2 := var_Items:AddItem("Item 2")
	var_Items:AddBar(h2,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:AddLink("Link1",h1,"",h2,"")
	var_Items:[Link,"Link1",exLinkStartPos] := 0
	var_Items:[Link,"Link1",exLinkEndPos] := 0
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

2305
Adds a Finish-Finish(FF) link (method 3)

local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Item 1")
	var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	h2 := var_Items:AddItem("Item 2")
	var_Items:AddBar(h2,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:AddLink("Link1",h1,"",h2,"")
	var_Items:[Link,"Link1",exLinkStartPos] := 2
	var_Items:[Link,"Link1",exLinkEndPos] := 2
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

2304
Adds a Start-Finish(SF) link (method 3)

local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Item 1")
	var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	h2 := var_Items:AddItem("Item 2")
	var_Items:AddBar(h2,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:AddLink("Link1",h1,"",h2,"")
	var_Items:[Link,"Link1",exLinkStartPos] := 0
	var_Items:[Link,"Link1",exLinkEndPos] := 2
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

2303
Adds a Finish-Start(FS) link (method 2)

local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Item 1")
	var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	h2 := var_Items:AddItem("Item 2")
	var_Items:AddBar(h2,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:[ItemBar,h2,"",exBarPredecessor] := "1FS"
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

2302
Adds a Start-Start(SS) link (method 2)

local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Item 1")
	var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	h2 := var_Items:AddItem("Item 2")
	var_Items:AddBar(h2,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:[ItemBar,h2,"",exBarPredecessor] := "1SS"
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

2301
Adds a Finish-Finish(FF) link (method 2)

local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Item 1")
	var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	h2 := var_Items:AddItem("Item 2")
	var_Items:AddBar(h2,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:[ItemBar,h2,"",exBarPredecessor] := "1FF"
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

2300
Adds a Start-Finish(SF) link (method 2)

local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Item 1")
	var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	h2 := var_Items:AddItem("Item 2")
	var_Items:AddBar(h2,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:[ItemBar,h2,"",exBarPredecessor] := "1SF"
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

2299
Adds a Start-Finish(SF) link (method 1)

local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Item 1")
	var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	h2 := var_Items:AddItem("Item 2")
	var_Items:AddBar(h2,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:AddLink("Link1",h1,"",h2,"")
	var_Items:[Link,"Link1",exLinkType] := "SF"
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

2298
Adds a Finish-Finish(FF) link (method 1)

local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Item 1")
	var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	h2 := var_Items:AddItem("Item 2")
	var_Items:AddBar(h2,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:AddLink("Link1",h1,"",h2,"")
	var_Items:[Link,"Link1",exLinkType] := "FF"
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

2297
Adds a Start-Start(SS) link (method 1)

local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Item 1")
	var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	h2 := var_Items:AddItem("Item 2")
	var_Items:AddBar(h2,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:AddLink("Link1",h1,"",h2,"")
	var_Items:[Link,"Link1",exLinkType] := "SS"
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

2296
Adds a Finish-Start(FS) link (method 1)

local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Item 1")
	var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	h2 := var_Items:AddItem("Item 2")
	var_Items:AddBar(h2,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:AddLink("Link1",h1,"",h2,"")
	var_Items:[Link,"Link1",exLinkType] := "FS"
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

2295
What is the difference between lags with "W" or without

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
	var_Bar := var_Chart:Bars:Add("Task:Split")
		var_Bar:Shortcut := "Task"
		var_Bar:[Def,exBarKeepWorkingCount] := true
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:[ItemBar,var_Items:[ItemByIndex,0],"",exBarSuccessor] := "2SF:-1,3SF:-1W"
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

2294
What is the difference between lags with "W" or without

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:[ItemBar,var_Items:[ItemByIndex,0],"",exBarSuccessor] := "2SF:-1,3SF:-1W"
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

2293
How can I remove all outgoing links

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010101"),SToD("20010104"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010105"),SToD("20010108"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20010109"),SToD("20010112"),nil,nil)
	var_Items:AddLink("L1",var_Items:[ItemByIndex,0],"",var_Items:[ItemByIndex,1],"")
	var_Items:AddLink("L2",var_Items:[ItemByIndex,1],"",var_Items:[ItemByIndex,2],"")
	var_Items:[ItemBar,var_Items:[ItemByIndex,1],"",exBarSuccessor] := ""
oDCOCX_Exontrol1:EndUpdate()

2292
How can I remove all incoming links

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010101"),SToD("20010104"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010105"),SToD("20010108"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20010109"),SToD("20010112"),nil,nil)
	var_Items:AddLink("L1",var_Items:[ItemByIndex,0],"",var_Items:[ItemByIndex,1],"")
	var_Items:AddLink("L2",var_Items:[ItemByIndex,1],"",var_Items:[ItemByIndex,2],"")
	var_Items:[ItemBar,var_Items:[ItemByIndex,1],"",exBarPredecessor] := ""
oDCOCX_Exontrol1:EndUpdate()

2291
How do I add a link between two bars (method 3)

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Item 1")
	var_Items:AddBar(h,"Task",SToD("20010101"),SToD("20010104"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010105"),SToD("20010108"),nil,nil)
	var_Items:[ItemBar,h,"",exBarSuccessor] := "2SF"
oDCOCX_Exontrol1:EndUpdate()

2290
How do I add a link between two bars (method 2)

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Item 1")
	var_Items:AddBar(h,"Task",SToD("20010101"),SToD("20010104"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010105"),SToD("20010108"),nil,nil)
	var_Items:[ItemBar,h,"",exBarPredecessor] := "2SF"
oDCOCX_Exontrol1:EndUpdate()

2289
Highlight the selected-link while editing the predecessor/successor column

METHOD OCX_Exontrol1AddLink(LinkKey) CLASS MainDialog
	// AddLink event - Occurs when the user links two bars using the mouse.
	oDCOCX_Exontrol1:Items:[Link,LinkKey,exLinkShowRound] := 3
RETURN NIL

local var_Bar as IBar
local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4 as IColumn
local var_Columns as IColumns
local var_Editor,var_Editor1 as IEditor
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:OnResizeControl := exResizeChart
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:HeaderHeight := 32
oDCOCX_Exontrol1:DefaultItemHeight := 28
oDCOCX_Exontrol1:BackColorLevelHeader := RGB(255,255,255)
oDCOCX_Exontrol1:[Background,exPSLinkColorEditSel] := RGB(160,160,160)
oDCOCX_Exontrol1:[Background,exPSBarColorEditSel] := RGB(128,128,128)
var_Columns := oDCOCX_Exontrol1:Columns
	IColumn{var_Columns:Add("Name")}:Width := 48
	var_Column := IColumn{var_Columns:Add("Start")}
		var_Column:Width := 48
		var_Column:Editor:EditType := DateType
		var_Column:[Def,exCellValueToItemBarProperty] := 1
	var_Column1 := IColumn{var_Columns:Add("End")}
		var_Column1:Width := 48
		var_Column1:Editor:EditType := DateType
		var_Column1:[Def,exCellValueToItemBarProperty] := 543
	var_Column2 := IColumn{var_Columns:Add("Predecessor")}
		var_Editor := var_Column2:Editor
			var_Editor:EditType := EditType
			var_Editor:EditType := MaskType
			var_Editor:Mask := ";;;rich"
		var_Column2:[Def,exCellValueToItemBarProperty] := 270
	var_Column3 := IColumn{var_Columns:Add("Successor")}
		var_Editor1 := var_Column3:Editor
			var_Editor1:EditType := EditType
			var_Editor1:EditType := MaskType
			var_Editor1:Mask := ";;;rich"
		var_Column3:[Def,exCellValueToItemBarProperty] := 271
	var_Column4 := IColumn{var_Columns:Add("(I)")}
		var_Column4:FormatColumn := "1 index ``"
		var_Column4:Position := 0
		var_Column4:AllowSizing := false
		var_Column4:Width := 20
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineColor := RGB(224,224,224)
oDCOCX_Exontrol1:AntiAliasing := true
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:ShowLinks := exShowExtendedLinks
	var_Chart:LinksStyle := exLinkSolid
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 362
	var_Chart:NonworkingDays := 0
	var_Chart:AllowLinkBars := true
	var_Chart:AllowCreateBar := exCreateBarAutoEndInclusive
	var_Chart:AllowZoomOnFly := 0xfffffcc4 | exZoomOnFlyIncludeSelectedItems | exZoomOnFlyBarsOnly | exZoomOnFly | exZoomOnFlyCtrl | exZoomOnFlyShift
	var_Chart:GridLineStyle := exGridLinesGeometric
	var_Chart:DrawGridLines := exAllLines
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:Height := 15
		var_Bar:[Def,exBarCaption] := "<%=%C5%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Phase A"),"Task",SToD("20010101"),SToD("20010106"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Phase B"),"Task",SToD("20010102"),SToD("20010107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Phase C"),"Task",SToD("20001229"),SToD("20010104"),nil,nil)
	var_Items:AddLink("L1",var_Items:[ItemByIndex,0],"",var_Items:[ItemByIndex,1],"")
	var_Items:[Link,"L1",exLinkPDMDelay] := 1
	var_Items:AddLink("L2",var_Items:[ItemByIndex,0],"",var_Items:[ItemByIndex,2],"")
	var_Items:AddLink("L3",var_Items:[ItemByIndex,2],"",var_Items:[ItemByIndex,1],"")
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

2288
Adding an editable successor column

local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Editor as IEditor
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderAppearance := Etched
var_Columns := oDCOCX_Exontrol1:Columns
	IColumn{var_Columns:Add("Name")}:Width := 48
	var_Column := IColumn{var_Columns:Add("Successor")}
		var_Editor := var_Column:Editor
			var_Editor:EditType := EditType
			var_Editor:EditType := MaskType
			var_Editor:Mask := ";;;rich"
		var_Column:[Def,exCellValueToItemBarProperty] := 271
	var_Column1 := IColumn{var_Columns:Add("(I)")}
		var_Column1:FormatColumn := "1 index ``"
		var_Column1:Position := 0
		var_Column1:AllowSizing := false
		var_Column1:Width := 20
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineColor := RGB(224,224,224)
oDCOCX_Exontrol1:AntiAliasing := true
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 256
	var_Chart:AllowLinkBars := true
	var_Chart:AllowCreateBar := exCreateBarAutoEndInclusive
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Phase A"),"Task",SToD("20010101"),SToD("20010106"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Phase B"),"Task",SToD("20010102"),SToD("20010107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Phase C"),"Task",SToD("20001229"),SToD("20010104"),nil,nil)
	var_Items:AddLink("L1",var_Items:[ItemByIndex,0],"",var_Items:[ItemByIndex,1],"")
	var_Items:AddLink("L2",var_Items:[ItemByIndex,0],"",var_Items:[ItemByIndex,2],"")
	var_Items:AddLink("L3",var_Items:[ItemByIndex,2],"",var_Items:[ItemByIndex,1],"")
oDCOCX_Exontrol1:EndUpdate()

2287
Adding an editable predecessor column

local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Editor as IEditor
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderAppearance := Etched
var_Columns := oDCOCX_Exontrol1:Columns
	IColumn{var_Columns:Add("Name")}:Width := 48
	var_Column := IColumn{var_Columns:Add("Predecessor")}
		var_Editor := var_Column:Editor
			var_Editor:EditType := EditType
			var_Editor:EditType := MaskType
			var_Editor:Mask := ";;;rich"
		var_Column:[Def,exCellValueToItemBarProperty] := 270
	var_Column1 := IColumn{var_Columns:Add("(I)")}
		var_Column1:FormatColumn := "1 index ``"
		var_Column1:Position := 0
		var_Column1:AllowSizing := false
		var_Column1:Width := 20
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineColor := RGB(224,224,224)
oDCOCX_Exontrol1:AntiAliasing := true
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 256
	var_Chart:AllowLinkBars := true
	var_Chart:AllowCreateBar := exCreateBarAutoEndInclusive
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Phase A"),"Task",SToD("20010101"),SToD("20010106"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Phase B"),"Task",SToD("20010102"),SToD("20010107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Phase C"),"Task",SToD("20001229"),SToD("20010104"),nil,nil)
	var_Items:AddLink("L1",var_Items:[ItemByIndex,0],"",var_Items:[ItemByIndex,1],"")
	var_Items:AddLink("L2",var_Items:[ItemByIndex,0],"",var_Items:[ItemByIndex,2],"")
	var_Items:AddLink("L3",var_Items:[ItemByIndex,2],"",var_Items:[ItemByIndex,1],"")
oDCOCX_Exontrol1:EndUpdate()

2286
Adding an Index column

local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
	IColumn{var_Columns:Add("Name")}:Width := 48
	var_Column := IColumn{var_Columns:Add("Index")}
		var_Column:FormatColumn := "1 index ``"
		var_Column:Position := 0
		var_Column:AllowSizing := false
		var_Column:Width := 48
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Phase A")
	var_Items:AddItem("Phase B")
	var_Items:AddItem("Phase C")
oDCOCX_Exontrol1:EndUpdate()

2285
Create a new bar should start at 1 day (after moving some pixel to the right 1 days is showing) and new days should been showing as soon as you hit the next day. How can I do that (create bar manually)

METHOD OCX_Exontrol1CreateBar(Item,DateStart,DateEnd) CLASS MainDialog
	// CreateBar event - Fired when the user creates a new bar.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",DateStart,DateEnd,"","new")
RETURN NIL

local var_Chart as IChart
local var_Items as IItems
local var_Level as ILevel

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:OnResizeControl := exResizeChart
oDCOCX_Exontrol1:HeaderAppearance := Etched
IColumn{oDCOCX_Exontrol1:Columns:Add("Index")}:FormatColumn := "1 index ``"
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:DrawGridLines := exHLines
oDCOCX_Exontrol1:GridLineColor := RGB(224,224,224)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
	var_Chart:NonworkingDays := 0
	var_Chart:AllowLinkBars := true
	var_Chart:AllowCreateBar := exCreateBarManualEndInclusive
	var_Chart:AllowZoomOnFly := 0xfffffcc4 | exZoomOnFlyIncludeSelectedItems | exZoomOnFlyBarsOnly | exZoomOnFly | exZoomOnFlyCtrl | exZoomOnFlyShift
	var_Chart:GridLineStyle := oDCOCX_Exontrol1:GridLineStyle
	var_Chart:DrawGridLines := exAllLines
	var_Level := var_Chart:[Level,1]
		var_Level:DrawGridLines := true
		var_Level:GridLineColor := oDCOCX_Exontrol1:GridLineColor
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("")
	var_Items:AddItem("")
	var_Items:AddItem("")
oDCOCX_Exontrol1:EndUpdate()

2284
Create a new bar should start at 1 day (after moving some pixel to the right 1 days is showing) and new days should been showing as soon as you hit the next day. How can I do that (create bar automatically)

local var_Chart as IChart
local var_Level as ILevel

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:OnResizeControl := exResizeChart
oDCOCX_Exontrol1:HeaderAppearance := Etched
IColumn{oDCOCX_Exontrol1:Columns:Add("Index")}:FormatColumn := "1 index ``"
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:DrawGridLines := exHLines
oDCOCX_Exontrol1:GridLineColor := RGB(224,224,224)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
	var_Chart:NonworkingDays := 0
	var_Chart:AllowLinkBars := true
	var_Chart:AllowCreateBar := exCreateBarAutoEndInclusive
	var_Chart:AllowZoomOnFly := 0xfffffcc4 | exZoomOnFlyIncludeSelectedItems | exZoomOnFlyBarsOnly | exZoomOnFly | exZoomOnFlyCtrl | exZoomOnFlyShift
	var_Chart:GridLineStyle := oDCOCX_Exontrol1:GridLineStyle
	var_Chart:DrawGridLines := exAllLines
	var_Level := var_Chart:[Level,1]
		var_Level:DrawGridLines := true
		var_Level:GridLineColor := oDCOCX_Exontrol1:GridLineColor
oDCOCX_Exontrol1:EndUpdate()

2283
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of working-days when using the DateTickerLabel property (method 4, locale)

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelVAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
	var_Chart:Bars:[Item,"Task"]:[Def,exBarKeepWorkingCount] := true
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%=value format `ddd dd`%><fgcolor 808080><%=(value=end?` (` + (wcount) + `wd)`:``)%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050628"),SToD("20050701"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

2282
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of days when using the DateTickerLabel property (method 4, locale)

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelVAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%=value format `ddd dd`%><fgcolor 808080><%=(value=end?` (` + (end-start) + `d)`:``)%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050628"),SToD("20050701"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

2281
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of days when using the DateTickerLabel property (method 3, english locale)

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelVAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%=(0 array (0:=(longdate(date(value)) split `,`)) left 3) + ` ` +  ((2 array ((1 array =:0) split ` `)) lpad `00`) + (value=end?` (` + (end-start) + `d)`:``)%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050628"),SToD("20050701"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

2280
How can I display the "<%ddd%> <%d%> <%mmm%>" format for start and end margins, but end margin should display one day before followed by the number of days

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelVAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%=(weekday(0:=(value-(value=end?1:0))) array 'Sun Mon Tue Wed Thu Fri Sat' split ' ') + ` ` + day(=:0) + ` ` + ((month(=:0) - 1) array 'Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec' split ' ') + (value=end?` (` + (end-start) + `d)`:``)%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050628"),SToD("20050701"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

2279
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of days when using the DateTickerLabel property (method 2)

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelVAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%ddd%> <%d%> <%mmm%><%=(value=end?` (` + (end-start) + `d)`:``)%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050628"),SToD("20050701"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

2278
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of days when using the DateTickerLabel property (method 1)

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelVAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%=(weekday(value) array 'Sun Mon Tue Wed Thu Fri Sat' split ' ') + ` ` + day(value) + ` ` + ((month(value) - 1) array 'Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec' split ' ') + (value=end?` (` + (end-start) + `d)`:``)%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050628"),SToD("20050701"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

2277
How can I display just the end-margin when user resizes the bar

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelVAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%=value=start?``:value%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050623"),SToD("20050703"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

2276
Is it possible to include the number of days (duration in days, hours, minutes) within the date-label

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelVAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:ResizeUnitScale := exHour
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%=date(value=end?value-1:value)%><fgcolor 666666><off -4><%=value=end?` ` + ((1:=int(0:= end - start)) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s) ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : ''):``%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050623"),SToD("20050703"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

2275
Is it possible to include the number of days within the date-label

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelVAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%mmm%> <%d%><fgcolor 808080><%=value=end?` (`+(end - start) + ` days)`:``%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050623"),SToD("20050703"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

2274
Is it possible to show the date-label with the bar being created, moved or resized instead below the header-bar

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelVAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%mmm%> <%d%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050623"),SToD("20050703"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

2273
Date-label customization

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

oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABT0GACAADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCOIwAFBIZhrE4ZRwGCQRRgyI43RhHUBzVIUBxDEaTZLlGY4NjSIYHThPMzyDRlEyBBqVKKoWLZMjiIY2RhJM7SBR0OROGQaRJrewZHDUMJiQjZVoVNTkNyxH6uYzoKSqVACLowTJNFZXDDkeR5JqcKBqChIEpKO5wRriAABVZoAA3Rq+AAuPBJIwYAAyXTIdTwThkBz3R6tchgOw7LxeZJpWbZOo0TgGFwTLDQNCifI7Vi6NJ1DdcKLNNx3tDBdpGXZ4JznGa8a7jN57dr+JQ7U6degACytKxLBeOprHMcA+GafxaAiBIUA0JgziGVJkGUGJIFyUYiBEN5VBsGxCEUEIcn0cAxBgWBijmM4Ekec57n0RwJBgBgCgCEZCC4BoBmAdBwgSApgkgMQcB8YQIEYERHAceBWBaBYRkGQgagaYY0HAaYHmICIBBwGJiEiFglEcBYYiYKoKhGQRCC6C5inQcBNgyYxIlIMoNGMWI2DCDAigiLgrgiYhohoHoIGIGBmByBwhEgXgXgOYQoEoCoDGCWAWAiAggAgDgDEcH5pGUHAoCWSR2F0cxOjSHQJEAQCAg=")
	var_Appearance:Add(2,"CP:1 -2 -2 4 4")
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelBack] := 0x2000000
oDCOCX_Exontrol1:[Background,exDateTickerLabelFore] := RGB(255,255,255)
oDCOCX_Exontrol1:[Background,exDateTickerLabelHAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:[Background,exDateTickerLabelVAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:[Background,exDateTickerLabelHMargin] := RGB(4,0,0)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%mmm%><br><%d%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050623"),SToD("20050703"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

2272
How can I change the visual appearance for the date-label (EBN)

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAAEhABaICg6AADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVAceAAGaUZrjSgobjmOYhAJCL70WAFFr/DCgZThGgJHomMIhAhHAJwTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69JbwMLbSgMIKFABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFoiC8X4QnAOQ8B4dp6BONQoBoTBnEOKZIkoMYQi2JZECIb4mDYNoEgoIQ8k2PIIDEGBAEuO4UmcF5xHufgqiACAGAKAJfmKdJogGWRAACbYCk0KA0mCA5OFgRgSgSYRIDyYAymGCAsm0QhNAgdJmgeX5DgiYYImISIWCaCBhCMUgqEITJIjSZ4Lk4OJGDKDJjEiVgvDmYpTDILILGAc4gmSD5kAkBhChCY5YmYOwzA6GQmBSEpkkgShJDoZBkA4OQ6iUSB+FaFZlgkZJmhUDopEQAIOE6OYGDeGJmEmFg3hgTo5HoYIYGOWY2G6G9cCIaoLE6SZWE+HZngmZhPh1YJMkyBolkoBoCiCZbBn4O4ogmIoKiKaJJiKCA7ieY4+hKHwpEoVoW3MI4+H4PApkgaoeieagIGqHF3jocoPimaoKiaD4omeY5Gi6JhrAqRoyiYapjkYfg8iuCoOjqLprkqDo4DzcROkKLRsEsFpG4+I5OH4PQskqfpOjObQKn6TA9XEVpWjIbYLGaWoyG0Y5WlWNYtDuBpijibQ7HYfg9i6Cx2mqOpuksdpoD3cRenKO5vEuVp26wI5eH4PgvkuZp+j+cALmafA+XEZwGkCcIMCcCpAnAY5mH4PoxAwNwSkScRMDcEA+jCfBfBqRpxkwdwYgsZBzm8IpInITIXCaSdxHMKpKnKTI3C6S4lmgNJSkCT5slcNpNnODJnAMNZzkQJpvDYdAMDUTpQnQRQ7A2UANhuPRKFKZJ4iiVIOHUDRGDmU4higJJrGuQAEAQgI")
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelBack] := 0x1000000
oDCOCX_Exontrol1:[Background,exDateTickerLabelFore] := RGB(10,10,10)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := " <%mmm%> <%d%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050623"),SToD("20050703"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

2271
How can I change the visual appearance for the date-label (solid colors)

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelBack] := RGB(1,0,0)
oDCOCX_Exontrol1:[Background,exDateTickerLabelFore] := RGB(255,255,255)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%mmm%> <%d%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050623"),SToD("20050703"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

2270
Expandable-caption

METHOD OCX_Exontrol1AnchorClick(AnchorID,Options) CLASS MainDialog
	// AnchorClick event - Occurs when an anchor element is clicked.
	OutputDebugString(String2Psz( AsString(AnchorID) ))
RETURN NIL

local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:TreeColumnIndex := -1
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("before item")
	h := var_Items:AddItem("<solidline> <c><b>Bank Account 1</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4AjMGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEBA==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>+ withdraw(amount: Currency)")
	var_Items:[CellValueFormat,h,0] := exHTML
	var_Items:[CellSingleLine,h,0] := exCaptionWordWrap
	h := var_Items:AddItem("<solidline> <c><b>Bank Account 2</b><br> <c><fgcolor 808080>properties</solidline><a 1;e64=gArAAgABvAB3ABuABlAByAA6gYAKYAOkNABphIAM8RHgAMMRGIAHcLAA2AA0AA9jQAIIAHEsABCAB6mEyO01ABznBwnBrlcvJU4Os4NkwlsClstjctIoAIYAJoAMYAKkXk8wqMIltRlEtNVQABHABoAFNsRPABVABWo1XpMHAE+l88otTONWslasoAosbGFwjFqoton1owN7jZRAE3jdTI1jnIAJeQnxJyFqxWHtUKqdTr9/jcKv9fNtgj8bwUFuFbABOAFonlNM1xsGun0+0tFpt3h1TitfxWlt9ft41toyyM6nRIqQAMUZnxkAF3kJMjMhxUVtkT4FtpsylsqlQ+AEdh3kEwAEYAHMlAHGv8jjovjwA8kd5/n8uRg1FjDpP8jKGPIgSCOej6io+ziSIgginqGhyHIZBY8oilSCL++b+L4q0AKshUBgBESAgA==><r>▼</a></fgcolor><br><c><fgcolor 808080>methods</fgcolor><r><a 2;e64=gArAAgABkABlABwABvABzABpAB0AAoABhABthYAOoAN0RAA6gYAIcaAByksHjgAMYAPIAFIAHkVkIyAA7lA2AA0AA9ABnABBAA4n4AIQANVDoECoBFkQAJoAO9Dp9CIlDop2q0NABojNAJ4AKNDplAoBIpAAI4AphXo1qmVHp9pJ1dp10r8+oFzphSut4AFfldmsgArFLABKrcqt1cGFgxONKk9AGNkcYNYAON1p5GABsABVklcy54h91yMQhxYttzkdHy84plRwxZodmJNDtIxutH2g3zufrUdy9RrlCF8p0Ejz2XGuS2ViolDnk8H0wk/VEwAEYAHIAnHNxs2mPHi3VmJi64AgUEqMQiVcg0mi1RikWjEMjcdiUggkjjaTJMhCOpWlqXgAACAg><fgcolor 808080>▼</fgcolor></a>")
	var_Items:[CellValueFormat,h,0] := exHTML
	var_Items:[CellSingleLine,h,0] := exCaptionWordWrap
	var_Items:AddItem("after item")
oDCOCX_Exontrol1:EndUpdate()

2269
Expandable-caption

local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:TreeColumnIndex := -1
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("before item")
	h := var_Items:AddItem("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
	var_Items:[CellValueFormat,h,0] := exHTML
	var_Items:[CellSingleLine,h,0] := exCaptionWordWrap
	var_Items:AddItem("after item")
oDCOCX_Exontrol1:EndUpdate()

2268
Can I change the pattern for a specific bar only
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20091231")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 96
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:StartColor := RGB(255,255,255)
		var_Bar:EndColor := var_Bar:Color
oDCOCX_Exontrol1:Columns:Add("Types")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Original"),"Task",SToD("20100104"),SToD("20100109"),"",nil)
	h := var_Items:AddItem("W/h Pattern")
	var_Items:AddBar(h,"Task",SToD("20100104"),SToD("20100109"),"",nil)
	var_Items:[ItemBar,h,"",exBarPattern] := 6
	var_Items:AddBar(var_Items:AddItem("Original"),"Task",SToD("20100104"),SToD("20100109"),"",nil)
oDCOCX_Exontrol1:EndUpdate()

2267
Force hover-all feature

oDCOCX_Exontrol1:[Background,exScrollHoverAll] := -1

2266
Disable hover-all feature (Windows 11 or greater)

oDCOCX_Exontrol1:[Background,exScrollHoverAll] := RGB(1,0,0)

2265
I'm using the Milestone bar type, but find it to small and want to enlarge it. I can change the bar height, but then the shape gets a bit distorted (e.g. it doesn't scale properly)

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

oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABJYCg6AADACAxRDgMQBQKAAzQFAYZhmGSGAAGIZhXgmFgAQhFcZQSKUOQTDKMIRfeQwAiNf4hQKBMIjKKAShaHCVIDlSThYAKCQxDZNUCQXDcdRRDaBR7hGgoaj6JolSRFUgSABEEigNIxToOU4jFgeCR2C7AZBEbTENBtBIUKDsKA4IBiFxAVjQFpSNZlWzdN64LhuK47UrWbYiXZeN5XXblaTxPrAMBwKzrLwPBqHXrfeIYXhlDzVC7GchxTCsSxXCaPY7lWZZPRGN49ODMNBibL9EwSA6laToWpRVpGSYpVrGdT2KgNQxbL61YLse5ZTrGF5vXrONz4LBeAwHP7FXLwfJaVxFeaPZq7eT6LRfEKa5PmgdJ7DuLotkeL5Am0eA4F2ToOHeK5hnOco8HIfQ/GOUZumWeY9h2fx/lOJ5Im8bY+j+LpWnecYxH6YAHgWMB/hgeAGAYe4aheSZ5gGYJICGG4BByaA2BIfRgjYRgTgWihaAobhhggdgBG+IY1nYHoImCRgaBAeQiEiJgHHGIgVnoKoLmEOBFmUchjAiVgYF4XZoloOoImKaJNGyDpkAiJZdggZAZBYLxphmWQaEqDRYmkLhOhEZJZD4UoMFSGJ6FOFZhheEhDhYJZHGYW4PGWWYFlSDQjmkbhi0WBZaCcepmgmBgygsJtLHCCYnBkBh0hkWAJlYMIICeBgKHqBxhimdh3h+ZYWEoa4MigR4hh6IZnhoJheGuIpYD6DhumAOhFh+JJaCedoWgIaYGg2RYjCgahNnGIIbgmaZqigKI5jmaoVGqOIiEuKxjnobZjhGKwJCKNRoCSSpejaLorggeo8i8a51koVIwFaeoijOIRsEsApJhgIArC4ZIziaKg+lCM5tDsRoUjUXRqkqWIrhuSxulmKQtmkIYsjgY4LGqZIum4e4UAAOpRBQJQBICA==")
	var_Appearance:Add(2,"CP:1 1 1 11 -2")
oDCOCX_Exontrol1:DefaultItemHeight := 32
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Bar := var_Chart:Bars:[Item,"Milestone"]
		var_Bar:Height := 24
		var_Bar:Color := 0x2000000
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Milestone",SToD("20010102"),SToD("20010102"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

2264
I'm using the Milestone bar type, but find it to small and want to enlarge it. I can change the bar height, but then the shape gets a bit distorted (e.g. it doesn't scale properly)

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

oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABXYCg6AADACAxRDgMQBQKAAzQFAYZhmGSGAAGIZhXgmFgAQhFcZQSKUOQTDKMIRfeQwAiNf4hQKBMIjKKAShaHCVIDlSThYAKCQxDZNUCDNDYAR1FCeQACCCaDgOII/SZJMiRNIEQARBIoDRMM5DVLIZYHQjCcBkERtNQvHiBRQoSw6GAAGIaRDQMZSNZlWxMfx9XyeBoVeapFhbO4mZavEyCeTgfS3MBwLA3XZxTTxKIaD6KASbepEKh6VDNF52bYrA6XWy/T6PW7GDLmUY1H5UQpnfR4Uj/JyUT7KIS7bpMNTOWYfZ7XcxibKaZw2LDvIoxWL6UosH7UEpXfR/RLGcIVL7KKTLbpQNp8GwYXJWAMBJ+mubB3gaV5qhyNp/FIFhfmoLgPg+RZkmCeA7gWN46iSXJ4G2Mh6m+ax7nGdJ4G6MxegoXpaiSPJ/CmRZTnyJR3iAOAKASAZgGOfImBcD5iigXx7B6ZhVHAPhPHMWJDD0CohkSfQrEYE58ioGAPnKJBfggYg4goJIJmIaImCOA8gjQYg9kqMZAngNQMAOSIrByT5CmAcA/ksMYon8K4GEOfIsBjLQuESEYkFkHhKhIZJJCCLQYk+YpEGZNhBkSbgrkeM7viIT5zBCAA/kucZsn8LxHHOfI4BwT5ylQbU9kGLJ/CyBoJj4cYcCcKZUjYGwPkMDDlkqcZhgUMwPBKaIID8DQSReMoIVYRQgmiIgIn8MJlnMCB+VKaYUjpOxylgboaEbQQ3BuD5TBgfg8kuAgMncbobgOYJjDWTwCmCB1oGIVJ/DQCQDnyTAjCsYgujkP5MjqaJKhcDIaCSRwg3eMIGDyCxyAieA3k0FxRG8dgOCMVJxC8CJTnCVwmg+cxchgP5NCIUpcjeLZbHyfw1gkexYhteZSDjkQNAeSYDGyT5LCyUQ8EvL58DeSkrFwJ+ZmSG4/G+cxsh0PxNkKDJ0C+CQGkWOBthadpQniNBtDIMJ8DiSlWGMKYPnOCImD8TgiiidI6GyO41huQwdGcYorj1g5smIKZPkOBweC+SQjmCYA0i6bIRjYbgYFMNJvC0CBLCCCA9k2Iwik6SQOjWJQDEAQCAg")
	var_Appearance:Add(2,"CP:1 -6 0 20 0")
oDCOCX_Exontrol1:DefaultItemHeight := 32
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Bar := var_Chart:Bars:[Item,"Milestone"]
		var_Bar:Height := 28
		var_Bar:Color := 0x2000000
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Milestone",SToD("20010102"),SToD("20010102"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

2263
I'm using the Milestone bar type, but find it to small and want to enlarge it. I can change the bar height, but then the shape gets a bit distorted (e.g. it doesn't scale properly)

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 32
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:Bars:[Item,"Milestone"]:Height := 28
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Milestone",SToD("20010102"),SToD("20010102"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

2262
Display the bar's tooltip at runtime

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip(oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1],nil,nil,nil,nil)
RETURN NIL

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Def")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exNoCreateBar
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20100101")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "..."
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task")
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"A","A")
	var_Items:AddBar(h,"Task",SToD("20100105"),SToD("20100108"),"B","B")
oDCOCX_Exontrol1:EndUpdate()

2261
Includes the cell's state and user-data to bar's tooltip

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

oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Def")}:[Def,exCellHasCheckBox] := true
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exNoCreateBar
	var_Chart:[PaneWidth,false] := 96
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20100101")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "<%=%C0%><br>Start: <%=%1%><br>End: <%=%2%><br>State: <b><%=%CS0%></b><br>UserData: <b><%=%CD0%></b>"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Machine 1")
	var_Items:[CellState,h,0] := 1
	var_Items:[CellData,h,0] := "just some data"
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"A","A")
	h := var_Items:AddItem("Machine 2")
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"B","B")
	var_Items:[CellData,h,0] := "just nother data"
oDCOCX_Exontrol1:EndUpdate()

2260
Shows the tooltip of the object moved relative to its default position

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip("<null>","<null>",nil,"+8","+8")
RETURN NIL

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Def")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exNoCreateBar
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20100101")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task")
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"A","A")
	var_Items:AddBar(h,"Task",SToD("20100105"),SToD("20100108"),"B","B")
oDCOCX_Exontrol1:EndUpdate()

2259
Adds, changes or replaces the title of the object's tooltip

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip("<null>",oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1],nil,nil,nil)
RETURN NIL

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Def")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exNoCreateBar
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20100101")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task")
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"A","A")
	var_Items:AddBar(h,"Task",SToD("20100105"),SToD("20100108"),"B","B")
oDCOCX_Exontrol1:EndUpdate()

2258
Adds, changes or replaces the object's tooltip

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip(oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1],nil,nil,nil,nil)
RETURN NIL

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Def")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exNoCreateBar
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20100101")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task")
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"A","A")
	var_Items:AddBar(h,"Task",SToD("20100105"),SToD("20100108"),"B","B")
oDCOCX_Exontrol1:EndUpdate()

2257
Shows a new tooltip and title at current position

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip("new content","new title",nil,nil,nil)
RETURN NIL

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Def")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exNoCreateBar
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20100101")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task")
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"A","A")
	var_Items:AddBar(h,"Task",SToD("20100105"),SToD("20100108"),"B","B")
oDCOCX_Exontrol1:EndUpdate()

2256
Shows a new tooltip and title moved relative to the current position

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip("new content","new title",nil,"+8","+8")
RETURN NIL

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Def")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exNoCreateBar
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20100101")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task")
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"A","A")
	var_Items:AddBar(h,"Task",SToD("20100105"),SToD("20100108"),"B","B")
oDCOCX_Exontrol1:EndUpdate()

2255
Displays a different tooltip at a fixed position
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip("new content","",nil,128,128)
RETURN NIL

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Def")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exNoCreateBar
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20100101")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task")
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"A","A")
	var_Items:AddBar(h,"Task",SToD("20100105"),SToD("20100108"),"B","B")
oDCOCX_Exontrol1:EndUpdate()

2254
Hide the tooltip

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip("","",nil,nil,nil)
RETURN NIL

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Def")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exNoCreateBar
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20100101")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task")
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"A","A")
	var_Items:AddBar(h,"Task",SToD("20100105"),SToD("20100108"),"B","B")
oDCOCX_Exontrol1:EndUpdate()

2253
I need 2 bars that are linked together and cannot be moved/splitted alone (moving one should move the two bars, like a « Group » of bars). How can I achieve that

local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:HeaderAppearance := Etched
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 96
	var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem(nil)
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010105 12:00:00"),SToD("20010107"),"T1",nil)
	var_Items:[ItemBar,h1,"",exBarHAlignCaption] := 18
	var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010104 12:00:00"),"T2",nil)
	var_Items:[ItemBar,h1,"T2",exBarColor] := 255
	var_Items:GroupBars(h1,"T1",true,h1,"T2",true,27,0)
	var_Items:AddItem(nil)
oDCOCX_Exontrol1:EndUpdate()

2252
How can I show the tooltip programmatically ( I want to be able to set the tooltip content dynamically just before the tooltip start to appear, not using the exBarTooltip )
METHOD OCX_Exontrol1ToolTip(Item,ColIndex,Visible,X,Y,CX,CY) CLASS MainDialog
	// ToolTip event - Fired when the control prepares the object's tooltip.
	oDCOCX_Exontrol1:ShowToolTip(oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1],nil,nil,nil,nil)
RETURN NIL

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Def")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exNoCreateBar
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20100101")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "..."
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task")
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"A","A")
	var_Items:AddBar(h,"Task",SToD("20100105"),SToD("20100108"),"B","B")
	var_Items:AddBar(h,"Task",SToD("20100108"),SToD("20100111"),"C","C")
	var_Items:GroupBars(h,"A",false,h,"B",true,39,nil)
	var_Items:GroupBars(h,"B",false,h,"C",true,39,nil)
oDCOCX_Exontrol1:EndUpdate()

2251
I'd like to move itembars from one item to another, using .Chart.Bars("Task").Def(exBarCanMoveToAnother) = True this works for any new bar. The question is how can I specify this feature for bars already created

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 32
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:HeaderAppearance := Etched
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:DrawGridLines := exRowLines
	var_Chart:GridLineStyle := exGridLinesGeometric
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 48
	var_Chart:AllowLinkBars := false
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:OverlaidType := exOverlaidBarsCascade
		var_Bar:[Def,exBarCaption] := "only horizontal"
		var_Bar:[Def,exBarCaptionVOffset] := 18
		var_Bar:[Def,exBarCanMoveToAnother] := true
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010103"),SToD("20010105"),"A",nil)
	var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010104"),SToD("20010106"),"B",nil)
	var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20010103"),SToD("20010105"),"C",nil)
	var_Items:[ItemBar,0,"<*>",exBarCanMoveToAnother] := false
oDCOCX_Exontrol1:EndUpdate()

2250
I'd like to move itembars from one item to another, using .Chart.Bars("Task").Def(exBarCanMoveToAnother) = True this works for any new bar. The question is can I disable this for particular item-bars

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 32
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:HeaderAppearance := Etched
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:DrawGridLines := exRowLines
	var_Chart:GridLineStyle := exGridLinesGeometric
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 48
	var_Chart:AllowLinkBars := false
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:OverlaidType := exOverlaidBarsCascade
		var_Bar:[Def,exBarCaption] := "anywhere"
		var_Bar:[Def,exBarCaptionVOffset] := 18
		var_Bar:[Def,exBarCanMoveToAnother] := true
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010103"),SToD("20010105"),"A",nil)
	h := var_Items:AddItem("Item 2")
	var_Items:AddBar(h,"Task",SToD("20010104"),SToD("20010106"),"B","only horiontal")
	var_Items:[ItemBar,h,"B",exBarCanMoveToAnother] := false
	var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20010103"),SToD("20010105"),"C",nil)
oDCOCX_Exontrol1:EndUpdate()

2249
I need the top row to display months, while the second to show units in weeks, but can 10 by 10 days days. Is it possible

local var_Chart as IChart
local var_Level as ILevel

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 0
	var_Chart:DrawGridLines := exVLines
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:UnitWidth := 30
	var_Chart:LevelCount := 2
	var_Chart:[Level,0]:Unit := exMonth
	var_Level := var_Chart:[Level,1]
		var_Level:Unit := exDay
		var_Level:Count := 10
oDCOCX_Exontrol1:EndUpdate()

2248
Limit the chart's margins when using the CopyTo method

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Tasks")
	var_Column := IColumn{var_Columns:Add("Start")}
		var_Column:[Def,exCellValueToItemBarProperty] := 1
		var_Column:Editor:EditType := SpinType
	var_Column1 := IColumn{var_Columns:Add("End")}
		var_Column1:[Def,exCellValueToItemBarProperty] := 2
		var_Column1:Editor:EditType := SpinType
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 196
	var_Chart:LevelCount := 2
	var_Chart:ShowEmptyBars := 1
	var_Chart:FirstVisibleDate := SToD("20090101")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20090102"),SToD("20090107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20090104"),SToD("20090109"),nil,nil)
var_Chart1 := oDCOCX_Exontrol1:Chart
	var_Chart1:StartPrintDate := SToD("20090104")
	var_Chart1:EndPrintDate := SToD("20090105")
var_CopyTo := oDCOCX_Exontrol1:[CopyTo,"c:/temp/xtest.pdf"]
OutputDebugString(String2Psz( "Look for C:\Temp\xtest.pdf file." ))
oDCOCX_Exontrol1:EndUpdate()

2247
I want to always keep the bottom item stationary. It can always display even when scrolling vertically. The bar placed at the bottom item is must be movable to other items

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

color := 15790320
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Debug := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:ShowLockedItems := true
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 128
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20151231")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarCanMoveToAnother] := true
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[LockedItemCount,exTop] := 3
	h := var_Items:[LockedItem,exTop,0]
	var_Items:[ItemBackColor,h] := color
	oDCOCX_Exontrol1:Chart:[ItemBackColor,h] := color
	var_Items:[CellValue,h,0] := "locked-top 1"
	var_Items:AddBar(h,"Task",SToD("20160104"),SToD("20160108"),"T1",nil)
	h := var_Items:[LockedItem,exTop,1]
	var_Items:[ItemBackColor,h] := color
	oDCOCX_Exontrol1:Chart:[ItemBackColor,h] := color
	var_Items:[CellValue,h,0] := "locked-top 2"
	var_Items:AddBar(h,"Task",SToD("20160105"),SToD("20160109"),"T2",nil)
	h := var_Items:[LockedItem,exTop,2]
	var_Items:[SelectItem,h] := false
	var_Items:[ItemDivider,h] := 0
	var_Items:[ItemHeight,h] := 2
	var_Items:AddBar(var_Items:AddItem("un-locked item 1"),"Task",SToD("20160104"),SToD("20160108"),"T3",nil)
	var_Items:AddBar(var_Items:AddItem("un-locked item 2"),"Task",SToD("20160105"),SToD("20160109"),"T4",nil)
	var_Items:[LockedItemCount,exMiddle] := 3
	h := var_Items:[LockedItem,exMiddle,0]
	var_Items:[SelectItem,h] := false
	var_Items:[ItemDivider,h] := 0
	var_Items:[ItemHeight,h] := 2
	h := var_Items:[LockedItem,exMiddle,1]
	var_Items:[ItemBackColor,h] := color
	oDCOCX_Exontrol1:Chart:[ItemBackColor,h] := color
	var_Items:[CellValue,h,0] := "locked-bottom 1"
	var_Items:AddBar(h,"Task",SToD("20160104"),SToD("20160108"),"T5",nil)
	h := var_Items:[LockedItem,exMiddle,2]
	var_Items:[ItemBackColor,h] := color
	oDCOCX_Exontrol1:Chart:[ItemBackColor,h] := color
	var_Items:[CellValue,h,0] := "locked-bottom 2"
	var_Items:AddBar(h,"Task",SToD("20160105"),SToD("20160109"),"T6",nil)
oDCOCX_Exontrol1:EndUpdate()

2246
How can I get a cell that shows the sum of a column of minutes in hours + minutes format

local var_Column as IColumn
local var_Editor as IEditor
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderAppearance := Etched
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Minutes")}
	var_Column:SortType := SortNumeric
	var_Editor := var_Column:Editor
		var_Editor:EditType := EditType
		var_Editor:Numeric := exInteger
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem(10)
	var_Items:AddItem(20)
	var_Items:AddItem(30)
	var_Items:AddItem(40)
	var_Items:AddItem(50)
	h := var_Items:AddItem("sum(all,dir,dbl(%0))")
	var_Items:[SelectableItem,h] := false
	var_Items:[SortableItem,h] := false
	var_Items:[CellValueFormat,h,0] := exTotalField | exHTML
	var_Items:[CellHAlignment,h,0] := RightAlignment
	var_Items:[FormatCell,h,0] := "'<b>HH:NN</b>: '+ (int(value/60) lpad '00') + ':' + ((value mod 60) lpad '00')"
oDCOCX_Exontrol1:EndUpdate()

2245
Ensure that a bar fits the chart's visible area (unique keys)

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderAppearance := Etched
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20230326")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task A"),"Task",SToD("20010102"),SToD("20010112"),"T1",nil)
	var_Items:AddBar(var_Items:AddItem("Task B"),"Task",SToD("20010120"),SToD("20010131"),"T2",nil)
	var_Items:EnsureVisibleBar(0,"T1")
oDCOCX_Exontrol1:EndUpdate()

2244
Ensure that a bar fits the chart's visible area

local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderAppearance := Etched
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20230326")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task A")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010112"),"T1",nil)
	h2 := var_Items:AddItem("Task B")
	var_Items:AddBar(h2,"Task",SToD("20010120"),SToD("20010131"),"T2",nil)
	var_Items:EnsureVisibleBar(h1,"T1")
oDCOCX_Exontrol1:EndUpdate()

2243
Is it possible to change the visual appearance for the frame to create newly bar by drag and drop

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:[Background,exChartCreateBar] := 0x1000000
oDCOCX_Exontrol1:[Background,exCreateBarHeight] := RGB(15,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:[PaneWidth,false] := 128
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:Color := 0x1000000
		var_Bar:Height := 15
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010106"),SToD("20010114"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

2242
Highlight the match once the filter is applied

METHOD OCX_Exontrol1FilterChange() CLASS MainDialog
	// FilterChange event - Occurs when the filter was changed.
	local format as USUAL
	format := oDCOCX_Exontrol1:FormatABC("`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`",oDCOCX_Exontrol1:FilterBarPromptPattern,nil,nil)
	oDCOCX_Exontrol1:Columns:[Item,0]:FormatColumn := AsString(format)
	oDCOCX_Exontrol1:Columns:[Item,1]:FormatColumn := AsString(format)
	oDCOCX_Exontrol1:Columns:[Item,2]:FormatColumn := AsString(format)
RETURN NIL

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SelBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderHeight := 23
oDCOCX_Exontrol1:BackColorLevelHeader := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:FilterBarCaption := "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCompact | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible
oDCOCX_Exontrol1:FilterBarBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:FilterBarPromptPattern := "and"
var_Columns := oDCOCX_Exontrol1:Columns
	var_Column := IColumn{var_Columns:Add("Name")}
		var_Column:[Def,exCellValueFormat] := 1
		var_Column:FormatColumn := "lower(value)"
	var_Column1 := IColumn{var_Columns:Add("Title")}
		var_Column1:[Def,exCellValueFormat] := 1
		var_Column1:FormatColumn := "lower(value)"
	var_Column2 := IColumn{var_Columns:Add("City")}
		var_Column2:[Def,exCellValueFormat] := 1
		var_Column2:FormatColumn := "lower(value)"
var_Items := oDCOCX_Exontrol1:Items
	h0 := var_Items:AddItem("Nancy Davolio")
	var_Items:[CellValue,h0,1] := "Sales Representative"
	var_Items:[CellValue,h0,2] := "Seattle"
	h0 := var_Items:AddItem("Andrew Fuller")
	var_Items:[CellValue,h0,1] := "Vice President, Sales"
	var_Items:[CellValue,h0,2] := "Tacoma"
	var_Items:[SelectItem,h0] := true
	h0 := var_Items:AddItem("Janet Leverling")
	var_Items:[CellValue,h0,1] := "Sales Representative"
	var_Items:[CellValue,h0,2] := "Kirkland"
	h0 := var_Items:AddItem("Margaret Peacock")
	var_Items:[CellValue,h0,1] := "Sales Representative"
	var_Items:[CellValue,h0,2] := "Redmond"
	h0 := var_Items:AddItem("Steven Buchanan")
	var_Items:[CellValue,h0,1] := "Sales Manager"
	var_Items:[CellValue,h0,2] := "London"
	h0 := var_Items:AddItem("Michael Suyama")
	var_Items:[CellValue,h0,1] := "Sales Representative"
	var_Items:[CellValue,h0,2] := "London"
	h0 := var_Items:AddItem("Robert King")
	var_Items:[CellValue,h0,1] := "Sales Representative"
	var_Items:[CellValue,h0,2] := "London"
	h0 := var_Items:AddItem("Laura Callahan")
	var_Items:[CellValue,h0,1] := "Inside Sales Coordinator"
	var_Items:[CellValue,h0,2] := "Seattle"
	h0 := var_Items:AddItem("Anne Dodsworth")
	var_Items:[CellValue,h0,1] := "Sales Representative"
	var_Items:[CellValue,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()

2241
The count of filtered items includes the group-parents. How can I exclude them from count

local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exVLines
oDCOCX_Exontrol1:HeaderAppearance := Flat
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:SortBarHeight := 28
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:AllowGroupBy := true
oDCOCX_Exontrol1:Columns:Add("Col 1")
oDCOCX_Exontrol1:Columns:Add("Col 2")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellValue,var_Items:AddItem("219 Smith"),1] := "Ignacio 1234"
	var_Items:[CellValue,var_Items:AddItem("1666 County Road 309A"),1] := "897 Manassa"
	var_Items:[CellValue,var_Items:AddItem("38 Lone Pine"),1] := "Durango 11"
	var_Items:[CellValue,var_Items:AddItem("612 Jachim Street"),1] := "Lamar 222"
oDCOCX_Exontrol1:Layout := "MultipleSort=" + CHR(34) + "C1:1" + CHR(34) + ""
oDCOCX_Exontrol1:FilterBarCaption := "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? leafitemcount + ` result(s)` : ``)"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCompact | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptCaseSensitive | exFilterPromptContainsAll
oDCOCX_Exontrol1:FilterBarPromptPattern := "12"
oDCOCX_Exontrol1:FilterBarBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:EndUpdate()

2240
Is it possible to display the count of filtered items

local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exVLines
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:Columns:Add("Col 1")
oDCOCX_Exontrol1:Columns:Add("Col 2")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellValue,var_Items:AddItem("219 Smith"),1] := "Ignacio 1234"
	var_Items:[CellValue,var_Items:AddItem("1666 County Road 309A"),1] := "897 Manassa"
	var_Items:[CellValue,var_Items:AddItem("38 Lone Pine"),1] := "Durango 11"
	var_Items:[CellValue,var_Items:AddItem("612 Jachim Street"),1] := "Lamar 222"
oDCOCX_Exontrol1:FilterBarCaption := "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCompact | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptCaseSensitive | exFilterPromptContainsAll
oDCOCX_Exontrol1:FilterBarPromptPattern := "12"
oDCOCX_Exontrol1:FilterBarBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:EndUpdate()

2239
ADOR, MDB (JET)
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:AddBar(Item,"Task",var_Items:[CellValue,Item,2],var_Items:[CellValue,Item,4],nil,nil)
RETURN NIL

local var_Chart as IChart
local rs as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
	rs:Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.mdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("19940804")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
oDCOCX_Exontrol1:Columns:[Item,2]:[Def,exCellValueToItemBarProperty] := 1
oDCOCX_Exontrol1:Columns:[Item,4]:[Def,exCellValueToItemBarProperty] := 2
oDCOCX_Exontrol1:EndUpdate()

2238
exOverlaidBarsOffset + exOverlaidBarTransparent + exBarCanMoveToAnother
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 22
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:DrawGridLines := exRowLines
	var_Chart:GridLineStyle := exGridLinesGeometric
	var_Chart:ResizeUnitScale := exHour
	var_Chart:[PaneWidth,false] := 48
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:OverlaidType := exOverlaidBarsTransparent | exOverlaidBarsOffset
		var_Bar:[Overlaid,exOverlaidBarsTransparent] := 70
		var_Bar:[Def,exBarCanMoveToAnother] := true
oDCOCX_Exontrol1:ItemsAllowSizing := exResizeItem
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[SelectableItem,var_Items:AddItem(nil)] := false
	h := var_Items:AddItem("Task 1")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"A1",nil)
	var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010105"),"A2",nil)
	var_Items:AddBar(h,"Task",SToD("20010104"),SToD("20010107"),"A3",nil)
	var_Items:[ItemHeight,h] := 64
	h := var_Items:AddItem("Task 2")
	var_Items:AddBar(h,"Task",SToD("20010107"),SToD("20010110"),"A4",nil)
	var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010112"),"A5",nil)
	var_Items:[SelectableItem,var_Items:AddItem(nil)] := false
oDCOCX_Exontrol1:EndUpdate()

2237
Editors (ImageSize = 32)

local var_Appearance as IAppearance
local var_ComboBox as IComboBox
local var_Editor,var_Editor1,var_Editor10,var_Editor11,var_Editor12,var_Editor2,var_Editor3,var_Editor4,var_Editor5,var_Editor6,var_Editor7,var_Editor8,var_Editor9 as IEditor
local var_Items as IItems
local h as USUAL
local rs as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ImageSize := 32
oDCOCX_Exontrol1:DefaultItemHeight := 36
oDCOCX_Exontrol1:HeaderHeight := oDCOCX_Exontrol1:DefaultItemHeight
oDCOCX_Exontrol1:SortBarHeight := oDCOCX_Exontrol1:DefaultItemHeight
oDCOCX_Exontrol1:Font:Size := 16
oDCOCX_Exontrol1:FilterBarFont:Size := oDCOCX_Exontrol1:Font:Size
oDCOCX_Exontrol1:ToolTipFont:Size := oDCOCX_Exontrol1:Font:Size
oDCOCX_Exontrol1:Indent := 26
oDCOCX_Exontrol1:Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWRJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==")
	var_Appearance:Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4gaBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==")
	var_Appearance:Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjVHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=")
	var_Appearance:Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
oDCOCX_Exontrol1:BackColorHeader := 0x4c6c6c6
oDCOCX_Exontrol1:SelBackColor := 0x4000000
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,1)
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:[CheckImage,Unchecked] := 16777216
oDCOCX_Exontrol1:[CheckImage,Checked] := 33554432
oDCOCX_Exontrol1:[CheckImage,PartialChecked] := 50331648
IColumn{oDCOCX_Exontrol1:Columns:Add("Editors")}:[Def,exCellValueFormat] := 1
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellEditor,var_Items:AddItem("(ReadOnly)"),0]:EditType := ReadOnly
	var_Items:[CellEditor,var_Items:AddItem("(EditType)"),0]:EditType := EditType
	h := var_Items:AddItem("Value 1")
	var_Editor := var_Items:[CellEditor,h,0]
		var_Editor:EditType := DropDownType
		var_Editor:AddItem(1,"Value 1",1)
		var_Editor:AddItem(2,"Value 2",2)
		var_Editor:AddItem(3,"Value 3",3)
	var_Items:[FormatCell,h,0] := "value + ' (DropDownType)'"
	h := var_Items:AddItem(1)
	var_Editor1 := var_Items:[CellEditor,h,0]
		var_Editor1:EditType := DropDownListType
		var_Editor1:DropDownAutoWidth := exDropDownEditorWidth
		var_Editor1:AddItem(1,"Nancy Davolio",1)
		var_Editor1:AddItem(2,"Andrew Fuller",2)
		var_Editor1:AddItem(3,"Janet Leverling",3)
		var_Editor1:AddItem(4,"Peacock Margaret",3)
		var_Editor1:AddItem(5,"Steven Buchanan",2)
		var_Editor1:AddItem(6,"Michael Suyama",1)
		var_Editor1:AddItem(7,"Robert King",2)
		var_Editor1:AddItem(8,"Laura Callahan",3)
		var_Editor1:AddItem(9,"Anne Dodsworth",2)
	var_Items:[FormatCell,h,0] := "value + ' (DropDownList - single column list)'"
	h := var_Items:AddItem(1)
	var_Editor2 := var_Items:[CellEditor,h,0]
		var_Editor2:EditType := DropDownListType
		var_Editor2:DropDownAutoWidth := exDropDownEditorWidth
		var_Editor2:AddItem(1,"Nancy Davolio",1)
		var_Editor2:AddItem(2,"Andrew Fuller",2)
		var_Editor2:InsertItem(3,"Janet Leverling",3,2)
		var_Editor2:InsertItem(4,"Peacock Margaret",3,2)
		var_Editor2:InsertItem(5,"Steven Buchanan",2,2)
		var_Editor2:InsertItem(6,"Michael Suyama",1,5)
		var_Editor2:InsertItem(7,"Robert King",2,2)
		var_Editor2:InsertItem(8,"Laura Callahan",3,2)
		var_Editor2:InsertItem(9,"Anne Dodsworth",2,5)
		var_Editor2:ExpandAll()
	var_Items:[FormatCell,h,0] := "value + ' (DropDownList - single column tree)'"
	h := var_Items:AddItem(1)
	var_Editor3 := var_Items:[CellEditor,h,0]
		var_Editor3:EditType := DropDownListType
		var_Editor3:DropDownAutoWidth := exDropDownEditorWidth
		var_Editor3:[Option,exDropDownColumnCaption] := "Name¦Title¦City¦Phone"
		var_Editor3:[Option,exDropDownColumnWidth] := "312¦¦¦96"
		var_Editor3:AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
		var_Editor3:AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
		var_Editor3:AddItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3)
		var_Editor3:AddItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3)
		var_Editor3:AddItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2)
		var_Editor3:AddItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1)
		var_Editor3:AddItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2)
		var_Editor3:AddItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3)
		var_Editor3:AddItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2)
	var_Items:[FormatCell,h,0] := "value + ' (DropDownList - multiple columns list)'"
	h := var_Items:AddItem(1)
	var_Editor4 := var_Items:[CellEditor,h,0]
		var_Editor4:EditType := DropDownListType
		var_Editor4:DropDownAutoWidth := exDropDownEditorWidth
		var_Editor4:[Option,exDropDownColumnCaption] := "Name¦Title¦City¦Phone"
		var_Editor4:[Option,exDropDownColumnWidth] := "312¦¦¦96"
		var_Editor4:AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
		var_Editor4:AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
		var_Editor4:InsertItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3,2)
		var_Editor4:InsertItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3,2)
		var_Editor4:InsertItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2,2)
		var_Editor4:InsertItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1,5)
		var_Editor4:InsertItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2,2)
		var_Editor4:InsertItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3,2)
		var_Editor4:InsertItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2,5)
		var_Editor4:ExpandAll()
	var_Items:[FormatCell,h,0] := "value + ' (DropDownList - multiple columns tree)'"
	h := var_Items:AddItem(100)
	var_Items:[CellEditor,h,0]:EditType := SpinType
	var_Items:[FormatCell,h,0] := "value + ' (SpinType)'"
	var_Items:[CellEditor,var_Items:AddItem("(MemoType)"),0]:EditType := MemoType
	h := var_Items:AddItem(3)
	var_Editor5 := var_Items:[CellEditor,h,0]
		var_Editor5:EditType := CheckListType
		var_Editor5:AddItem(1,"Border",1)
		var_Editor5:AddItem(2,"Single",2)
		var_Editor5:AddItem(4,"Frame",3)
	var_Items:[FormatCell,h,0] := "value + ' (CheckListType)'"
	h := var_Items:AddItem("193.226.40.161")
	var_Editor6 := var_Items:[CellEditor,h,0]
		var_Editor6:Mask := "{0,255}.{0,255}.{0,255}.{0,255}"
		var_Editor6:EditType := MaskType
	var_Items:[FormatCell,h,0] := "value + ' (MaskType)'"
	h := var_Items:AddItem(65280)
	var_Editor7 := var_Items:[CellEditor,h,0]
		var_Editor7:EditType := ColorType
		var_Editor7:Mask := "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
	var_Items:[FormatCell,h,0] := "value + ' (ColorType)'"
	h := var_Items:AddItem("Tahoma")
	var_Items:[CellEditor,h,0]:EditType := FontType
	var_Items:[FormatCell,h,0] := "value + ' (FontType)'"
	h := var_Items:AddItem("gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWamYyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDAwBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQG4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYABGQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyCAAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATFASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CAJDQNg/p4AAdoC")
	var_Items:[CellEditor,h,0]:EditType := PictureType
	var_Items:[FormatCell,h,0] := "value + ' (PictureType)'"
	var_Items:[CellEditor,var_Items:AddItem("(ButtonType)"),0]:EditType := ButtonType
	h := var_Items:AddItem(25)
	var_Items:[CellEditor,h,0]:EditType := ProgressBarType
	var_Items:[FormatCell,h,0] := "value + ' (ProgressBarType)'"
	h := var_Items:AddItem("Value 1")
	var_Editor8 := var_Items:[CellEditor,h,0]
		var_Editor8:EditType := PickEditType
		var_Editor8:AddItem(1,"Value 1",1)
		var_Editor8:AddItem(2,"Value 2",2)
		var_Editor8:AddItem(3,"Value 3",3)
	var_Items:[FormatCell,h,0] := "value + ' (PickEditType)'"
	var_Items:[CellEditor,var_Items:AddItem("(LinkEditType)"),0]:EditType := LinkEditType
	var_Editor9 := var_Items:[CellEditor,var_Items:AddItem("(UserEditorType)"),0]
		var_Editor9:EditType := UserEditorType
		var_Editor9:UserEditor("Exontrol.ComboBox","")
		// Generate Source for 'ExComboBox 1.0 Control Library(ExComboBox.dll)' server from Tools\Automation Server...
		var_ComboBox := IComboBox{var_Editor9:UserEditorObject}
			var_ComboBox:BeginUpdate()
			var_ComboBox:LabelHeight := oDCOCX_Exontrol1:DefaultItemHeight
			var_ComboBox:Style := 2
			var_ComboBox:ColumnAutoResize := false
			// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
			rs := _Recordset{"ADOR.Recordset"}
				rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3,0)
			var_ComboBox:DataSource := _Recordset{rs}
			var_ComboBox:MinHeightList := 128
			var_ComboBox:SearchColumnIndex := 0
			var_ComboBox:UseTabKey := false
			var_ComboBox:EndUpdate()
	h := var_Items:AddItem(255)
	var_Editor10 := var_Items:[CellEditor,h,0]
		var_Editor10:EditType := ColorListType
		var_Editor10:[Option,exColorListShowName] := true
	var_Items:[FormatCell,h,0] := "value + ' (ColorListType)'"
	var_Items:[CellEditor,var_Items:AddItem(65280),0]:EditType := ColorListType
	var_Items:[CellEditor,var_Items:AddItem("(MemoDropDownType)"),0]:EditType := MemoDropDownType
	var_Editor11 := var_Items:[CellEditor,var_Items:AddItem(-1),0]
		var_Editor11:EditType := CheckValueType
		var_Editor11:[Option,exCheckValue2] := 1
	h := var_Items:AddItem(50)
	var_Editor12 := var_Items:[CellEditor,h,0]
		var_Editor12:EditType := SliderType
		var_Editor12:[Option,exSliderWidth] := -60
		var_Editor12:[Option,exSliderTickFrequency] := 10
		var_Editor12:[Option,exSliderTickStyle] := 2
	var_Items:[FormatCell,h,0] := "value + ' (SliderType)'"
	h := var_Items:AddItem(100)
	var_Items:[CellEditor,h,0]:EditType := CalculatorType
	var_Items:[FormatCell,h,0] := "value + ' (CalculatorType)'"
	var_Items:EnsureVisibleItem(h)
oDCOCX_Exontrol1:EndUpdate()

2236
Editors (ImageSize = 16, default)

local var_Appearance as IAppearance
local var_ComboBox as IComboBox
local var_Editor,var_Editor1,var_Editor10,var_Editor11,var_Editor12,var_Editor2,var_Editor3,var_Editor4,var_Editor5,var_Editor6,var_Editor7,var_Editor8,var_Editor9 as IEditor
local var_Items as IItems
local h as USUAL
local rs as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ImageSize := 16
oDCOCX_Exontrol1:Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
IColumn{oDCOCX_Exontrol1:Columns:Add("Editors")}:[Def,exCellValueFormat] := 1
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellEditor,var_Items:AddItem("(ReadOnly)"),0]:EditType := ReadOnly
	var_Items:[CellEditor,var_Items:AddItem("(EditType)"),0]:EditType := EditType
	h := var_Items:AddItem("Value 1")
	var_Editor := var_Items:[CellEditor,h,0]
		var_Editor:EditType := DropDownType
		var_Editor:AddItem(1,"Value 1",1)
		var_Editor:AddItem(2,"Value 2",2)
		var_Editor:AddItem(3,"Value 3",3)
	var_Items:[FormatCell,h,0] := "value + ' (DropDownType)'"
	h := var_Items:AddItem(1)
	var_Editor1 := var_Items:[CellEditor,h,0]
		var_Editor1:EditType := DropDownListType
		var_Editor1:DropDownAutoWidth := exDropDownEditorWidth
		var_Editor1:AddItem(1,"Nancy Davolio",1)
		var_Editor1:AddItem(2,"Andrew Fuller",2)
		var_Editor1:AddItem(3,"Janet Leverling",3)
		var_Editor1:AddItem(4,"Peacock Margaret",3)
		var_Editor1:AddItem(5,"Steven Buchanan",2)
		var_Editor1:AddItem(6,"Michael Suyama",1)
		var_Editor1:AddItem(7,"Robert King",2)
		var_Editor1:AddItem(8,"Laura Callahan",3)
		var_Editor1:AddItem(9,"Anne Dodsworth",2)
	var_Items:[FormatCell,h,0] := "value + ' (DropDownList - single column list)'"
	h := var_Items:AddItem(1)
	var_Editor2 := var_Items:[CellEditor,h,0]
		var_Editor2:EditType := DropDownListType
		var_Editor2:DropDownAutoWidth := exDropDownEditorWidth
		var_Editor2:AddItem(1,"Nancy Davolio",1)
		var_Editor2:AddItem(2,"Andrew Fuller",2)
		var_Editor2:InsertItem(3,"Janet Leverling",3,2)
		var_Editor2:InsertItem(4,"Peacock Margaret",3,2)
		var_Editor2:InsertItem(5,"Steven Buchanan",2,2)
		var_Editor2:InsertItem(6,"Michael Suyama",1,5)
		var_Editor2:InsertItem(7,"Robert King",2,2)
		var_Editor2:InsertItem(8,"Laura Callahan",3,2)
		var_Editor2:InsertItem(9,"Anne Dodsworth",2,5)
		var_Editor2:ExpandAll()
	var_Items:[FormatCell,h,0] := "value + ' (DropDownList - single column tree)'"
	h := var_Items:AddItem(1)
	var_Editor3 := var_Items:[CellEditor,h,0]
		var_Editor3:EditType := DropDownListType
		var_Editor3:DropDownAutoWidth := exDropDownEditorWidth
		var_Editor3:[Option,exDropDownColumnCaption] := "Name¦Title¦City¦Phone"
		var_Editor3:[Option,exDropDownColumnWidth] := "312¦¦¦96"
		var_Editor3:AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
		var_Editor3:AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
		var_Editor3:AddItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3)
		var_Editor3:AddItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3)
		var_Editor3:AddItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2)
		var_Editor3:AddItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1)
		var_Editor3:AddItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2)
		var_Editor3:AddItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3)
		var_Editor3:AddItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2)
	var_Items:[FormatCell,h,0] := "value + ' (DropDownList - multiple columns list)'"
	h := var_Items:AddItem(1)
	var_Editor4 := var_Items:[CellEditor,h,0]
		var_Editor4:EditType := DropDownListType
		var_Editor4:DropDownAutoWidth := exDropDownEditorWidth
		var_Editor4:[Option,exDropDownColumnCaption] := "Name¦Title¦City¦Phone"
		var_Editor4:[Option,exDropDownColumnWidth] := "312¦¦¦96"
		var_Editor4:AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
		var_Editor4:AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
		var_Editor4:InsertItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3,2)
		var_Editor4:InsertItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3,2)
		var_Editor4:InsertItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2,2)
		var_Editor4:InsertItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1,5)
		var_Editor4:InsertItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2,2)
		var_Editor4:InsertItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3,2)
		var_Editor4:InsertItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2,5)
		var_Editor4:ExpandAll()
	var_Items:[FormatCell,h,0] := "value + ' (DropDownList - multiple columns tree)'"
	h := var_Items:AddItem(100)
	var_Items:[CellEditor,h,0]:EditType := SpinType
	var_Items:[FormatCell,h,0] := "value + ' (SpinType)'"
	var_Items:[CellEditor,var_Items:AddItem("(MemoType)"),0]:EditType := MemoType
	h := var_Items:AddItem(3)
	var_Editor5 := var_Items:[CellEditor,h,0]
		var_Editor5:EditType := CheckListType
		var_Editor5:AddItem(1,"Border",1)
		var_Editor5:AddItem(2,"Single",2)
		var_Editor5:AddItem(4,"Frame",3)
	var_Items:[FormatCell,h,0] := "value + ' (CheckListType)'"
	h := var_Items:AddItem("193.226.40.161")
	var_Editor6 := var_Items:[CellEditor,h,0]
		var_Editor6:Mask := "{0,255}.{0,255}.{0,255}.{0,255}"
		var_Editor6:EditType := MaskType
	var_Items:[FormatCell,h,0] := "value + ' (MaskType)'"
	h := var_Items:AddItem(65280)
	var_Editor7 := var_Items:[CellEditor,h,0]
		var_Editor7:EditType := ColorType
		var_Editor7:Mask := "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
	var_Items:[FormatCell,h,0] := "value + ' (ColorType)'"
	h := var_Items:AddItem("Tahoma")
	var_Items:[CellEditor,h,0]:EditType := FontType
	var_Items:[FormatCell,h,0] := "value + ' (FontType)'"
	h := var_Items:AddItem("gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWamYyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDAwBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQG4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYABGQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyCAAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATFASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CAJDQNg/p4AAdoC")
	var_Items:[CellEditor,h,0]:EditType := PictureType
	var_Items:[FormatCell,h,0] := "value + ' (PictureType)'"
	var_Items:[CellEditor,var_Items:AddItem("(ButtonType)"),0]:EditType := ButtonType
	h := var_Items:AddItem(25)
	var_Items:[CellEditor,h,0]:EditType := ProgressBarType
	var_Items:[FormatCell,h,0] := "value + ' (ProgressBarType)'"
	h := var_Items:AddItem("Value 1")
	var_Editor8 := var_Items:[CellEditor,h,0]
		var_Editor8:EditType := PickEditType
		var_Editor8:AddItem(1,"Value 1",1)
		var_Editor8:AddItem(2,"Value 2",2)
		var_Editor8:AddItem(3,"Value 3",3)
	var_Items:[FormatCell,h,0] := "value + ' (PickEditType)'"
	var_Items:[CellEditor,var_Items:AddItem("(LinkEditType)"),0]:EditType := LinkEditType
	var_Editor9 := var_Items:[CellEditor,var_Items:AddItem("(UserEditorType)"),0]
		var_Editor9:EditType := UserEditorType
		var_Editor9:UserEditor("Exontrol.ComboBox","")
		// Generate Source for 'ExComboBox 1.0 Control Library(ExComboBox.dll)' server from Tools\Automation Server...
		var_ComboBox := IComboBox{var_Editor9:UserEditorObject}
			var_ComboBox:BeginUpdate()
			var_ComboBox:LabelHeight := oDCOCX_Exontrol1:DefaultItemHeight
			var_ComboBox:Style := 2
			var_ComboBox:ColumnAutoResize := false
			// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
			rs := _Recordset{"ADOR.Recordset"}
				rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3,0)
			var_ComboBox:DataSource := _Recordset{rs}
			var_ComboBox:MinHeightList := 128
			var_ComboBox:SearchColumnIndex := 0
			var_ComboBox:UseTabKey := false
			var_ComboBox:EndUpdate()
	h := var_Items:AddItem(255)
	var_Editor10 := var_Items:[CellEditor,h,0]
		var_Editor10:EditType := ColorListType
		var_Editor10:[Option,exColorListShowName] := true
	var_Items:[FormatCell,h,0] := "value + ' (ColorListType)'"
	var_Items:[CellEditor,var_Items:AddItem(65280),0]:EditType := ColorListType
	var_Items:[CellEditor,var_Items:AddItem("(MemoDropDownType)"),0]:EditType := MemoDropDownType
	var_Editor11 := var_Items:[CellEditor,var_Items:AddItem(-1),0]
		var_Editor11:EditType := CheckValueType
		var_Editor11:[Option,exCheckValue2] := 1
	h := var_Items:AddItem(50)
	var_Editor12 := var_Items:[CellEditor,h,0]
		var_Editor12:EditType := SliderType
		var_Editor12:[Option,exSliderWidth] := -60
		var_Editor12:[Option,exSliderTickFrequency] := 10
		var_Editor12:[Option,exSliderTickStyle] := 2
	var_Items:[FormatCell,h,0] := "value + ' (SliderType)'"
	h := var_Items:AddItem(100)
	var_Items:[CellEditor,h,0]:EditType := CalculatorType
	var_Items:[FormatCell,h,0] := "value + ' (CalculatorType)'"
	var_Items:EnsureVisibleItem(h)
oDCOCX_Exontrol1:EndUpdate()

2235
Is it possible to limit the overlaid to two rows only

local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:NonworkingDays := 0
	var_Chart:FirstVisibleDate := SToD("20060917")
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:Bars:[Item,"Task"]:OverlaidType := exOverlaidBarsCascade
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task")
	var_Items:AddBar(h1,"Task",SToD("20060926"),SToD("20061006"),"K1","K1")
	var_Items:AddBar(h1,"Task",SToD("20061005"),SToD("20061010"),"K3","K2")
	var_Items:AddBar(h1,"Task",SToD("20060921"),SToD("20060927"),"T1","T")
	var_Items:[ItemBar,0,"<T*>",exBarColor] := 65280
	var_Items:[ItemBar,0,"<K*>",exBarOverlaidKey] := "Level0"
	var_Items:[ItemBar,0,"<T*>",exBarOverlaidKey] := "Level1"
	var_Items:[ItemMaxHeight,h1] := 26
oDCOCX_Exontrol1:EndUpdate()

2234
Is it possible to sort the bars

local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h1,h2,h3,h4,h5 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AntiAliasing := true
IColumn{oDCOCX_Exontrol1:Columns:Add("Task")}:AllowSort := false
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Name")}
	var_Column:[Def,exCellValueToItemBarProperty] := 0
	var_Column:SortType := SortString
	var_Column:Visible := false
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20001231")
	var_Chart:[PaneWidth,false] := 48
	var_Chart:LevelCount := 2
	var_Chart:Bars:[Item,"Task"]:Pattern := exPatternSolid
	var_Chart:Bars:Copy("Task","Red"):Color := RGB(255,0,0)
	var_Chart:NonworkingDaysPattern := exPatternBDiagonal
	var_Chart:NonworkingDaysColor := RGB(224,224,224)
	var_Chart:LinksStyle := exLinkSolid
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),nil,nil)
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h2,"Red",SToD("20010102"),SToD("20010105"),nil,nil)
	h3 := var_Items:AddItem("Task 3")
	var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010105"),nil,nil)
	h4 := var_Items:AddItem("Task 4")
	var_Items:AddBar(h4,"Red",SToD("20010102"),SToD("20010105"),nil,nil)
	h5 := var_Items:AddItem("Task 5")
	var_Items:AddBar(h5,"Red",SToD("20010102"),SToD("20010105"),nil,nil)
	var_Items:AddLink("L1",h1,"",h3,"")
	var_Items:AddLink("L2",h2,"",h4,"")
	var_Items:AddLink("L3",h3,"",h4,"")
	var_Items:AddLink("L4",h4,"",h5,"")
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:Chart:ShowLinks := exShowExtendedLinks
oDCOCX_Exontrol1:Columns:[Item,"Name"]:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()

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

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Images("gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmDcD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("ToLeft")}
	var_Column:[Def,exCellHasCheckBox] := true
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("ToRight")}
	var_Column1:[Def,exCellHasCheckBox] := true
	var_Column1:[Def,exCellDrawPartsOrder] := "caption,picture,icons,icon,check"
oDCOCX_Exontrol1:DefaultItemHeight := 32
oDCOCX_Exontrol1:DrawGridLines := exVLines
oDCOCX_Exontrol1:HeaderAppearance := Etched
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Caption")
	var_Items:[CellImage,h,0] := 2
	var_Items:[CellImages,h,0] := "1,2"
	var_Items:[CellPicture,h,0] := oDCOCX_Exontrol1:ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)")
	var_Items:[CellValue,h,1] := var_Items:[CellValue,h,0]
	var_Items:[CellHAlignment,h,1] := RightAlignment
	var_Items:[CellImage,h,1] := var_Items:[CellImage,h,0]
	var_Items:[CellImages,h,1] := "2,1"
	var_Items:[CellPicture,h,1] := var_Items:[CellPicture,h,0]
	h := var_Items:AddItem("<b>HTML</b> <off 4>Caption")
	var_Items:[CellValueFormat,h,0] := exHTML
	var_Items:[CellImage,h,0] := 2
	var_Items:[CellImages,h,0] := "1,2"
	var_Items:[CellPicture,h,0] := oDCOCX_Exontrol1:ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)")
	var_Items:[CellValue,h,1] := var_Items:[CellValue,h,0]
	var_Items:[CellValueFormat,h,1] := exHTML
	var_Items:[CellHAlignment,h,1] := RightAlignment
	var_Items:[CellImage,h,1] := var_Items:[CellImage,h,0]
	var_Items:[CellImages,h,1] := "2,1"
	var_Items:[CellPicture,h,1] := var_Items:[CellPicture,h,0]
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddColumn(Column) CLASS MainDialog
	// AddColumn event - Fired after a new column has been added.
	// Column.Def(48) = 2
	// Column.Def(49) = 2

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("20220102"),SToD("20220108"),nil,"<img>1</img>")
RETURN NIL

local var_Appearance as IAppearance
local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3 as IColumn
local var_Items as IItems
local h,hR as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ImageSize := 32
oDCOCX_Exontrol1:DefaultItemHeight := 36
oDCOCX_Exontrol1:HeaderHeight := oDCOCX_Exontrol1:DefaultItemHeight
oDCOCX_Exontrol1:SortBarHeight := oDCOCX_Exontrol1:DefaultItemHeight
oDCOCX_Exontrol1:Font:Size := 16
oDCOCX_Exontrol1:FilterBarFont:Size := oDCOCX_Exontrol1:Font:Size
oDCOCX_Exontrol1:ToolTipFont:Size := oDCOCX_Exontrol1:Font:Size
oDCOCX_Exontrol1:Indent := 26
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20220101")
	var_Chart:Bars:[Item,"Task"]:Height := 22
oDCOCX_Exontrol1:Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWRJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==")
	var_Appearance:Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4gaBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==")
	var_Appearance:Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjVHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=")
	var_Appearance:Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
oDCOCX_Exontrol1:BackColorHeader := 0x4c6c6c6
oDCOCX_Exontrol1:SelBackColor := 0x4000000
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,1)
oDCOCX_Exontrol1:[CheckImage,Unchecked] := 16777216
oDCOCX_Exontrol1:[CheckImage,Checked] := 33554432
oDCOCX_Exontrol1:[CheckImage,PartialChecked] := 50331648
oDCOCX_Exontrol1:[Background,exSelBackColorFilter] := oDCOCX_Exontrol1:SelBackColor
oDCOCX_Exontrol1:[Background,exSelForeColorFilter] := oDCOCX_Exontrol1:SelForeColor
oDCOCX_Exontrol1:[Background,exBackColorFilter] := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:[Background,exForeColorFilter] := oDCOCX_Exontrol1:ForeColor
oDCOCX_Exontrol1:[Background,exCursorHoverColumn] := -1
oDCOCX_Exontrol1:[Background,exHeaderFilterBarButton] := 0x4000000
oDCOCX_Exontrol1:[Background,exHeaderFilterBarActive] := 0x4010101
oDCOCX_Exontrol1:[Background,exFooterFilterBarButton] := 0x40000ff
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:AllowGroupBy := true
oDCOCX_Exontrol1:BackColorSortBar := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:BackColorLevelHeader := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:FilterBarDropDownHeight := 1
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
	var_Column:Width := 128
	var_Column:DisplayFilterButton := true
	var_Column:FilterList := exShowCheckBox
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
	var_Column1:FormatColumn := "1 pos ``"
	var_Column1:AllowSort := false
	var_Column1:Width := 48
	var_Column1:AllowSizing := false
	var_Column1:Alignment := CenterAlignment
	var_Column1:HeaderAlignment := CenterAlignment
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Image")}
	var_Column2:DisplayFilterButton := true
	var_Column2:FilterList := exShowExclude | exShowCheckBox | exSortItemsAsc
	var_Column2:FilterType := exImage
	var_Column2:DisplayExpandButton := true
	var_Column2:ExpandColumns := "1,2,3"
	var_Column2:Width := 128
	var_Column2:HeaderImage := 1
var_Column3 := IColumn{oDCOCX_Exontrol1:Columns:Add("Images")}
	var_Column3:[Def,exCellHasCheckBox] := true
	var_Column3:Width := 196
	var_Column3:HTMLCaption := "<img>1</img><img>2</img><img>3</img> Images"
oDCOCX_Exontrol1:Columns:[Item,"Pos"]:Position := 3
var_Items := oDCOCX_Exontrol1:Items
	hR := var_Items:AddItem("Root")
	var_Items:[ItemDivider,hR] := 0
	var_Items:[ItemDividerLine,hR] := EmptyLine
	h := var_Items:InsertItem(hR,nil,"Child A")
	var_Items:[CellImage,h,2] := 1
	var_Items:[CellImages,h,3] := "1,2,3"
	var_Items:[CellValue,h,3] := "123"
	h := var_Items:InsertItem(hR,nil,"Child B")
	var_Items:[CellState,h,0] := 1
	var_Items:[CellImage,h,2] := 3
	var_Items:[CellImages,h,3] := "2,3,1"
	var_Items:[CellValue,h,3] := "231"
	var_Items:[SelectItem,h] := true
	h := var_Items:InsertItem(hR,nil,"Child C")
	var_Items:[CellImage,h,2] := 2
	var_Items:[CellState,h,3] := 1
	var_Items:[CellValue,h,3] := "312"
	var_Items:[CellImages,h,3] := "3,1,2"
	var_Items:[ExpandItem,hR] := true
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddColumn(Column) CLASS MainDialog
	// AddColumn event - Fired after a new column has been added.
	// Column.Def(48) = 2
	// Column.Def(49) = 2

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("20220102"),SToD("20220108"),nil,"<img>1</img>")
RETURN NIL

local var_Appearance as IAppearance
local var_Column,var_Column1,var_Column2,var_Column3 as IColumn
local var_Items as IItems
local h,hR as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20220101")
oDCOCX_Exontrol1:ImageSize := 16
oDCOCX_Exontrol1:Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
oDCOCX_Exontrol1:BackColorHeader := 0x4c6c6c6
oDCOCX_Exontrol1:SelBackColor := 0x4000000
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,1)
oDCOCX_Exontrol1:[Background,exSelBackColorFilter] := oDCOCX_Exontrol1:SelBackColor
oDCOCX_Exontrol1:[Background,exSelForeColorFilter] := oDCOCX_Exontrol1:SelForeColor
oDCOCX_Exontrol1:[Background,exBackColorFilter] := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:[Background,exForeColorFilter] := oDCOCX_Exontrol1:ForeColor
oDCOCX_Exontrol1:[Background,exCursorHoverColumn] := -1
oDCOCX_Exontrol1:[Background,exHeaderFilterBarButton] := 0x4000000
oDCOCX_Exontrol1:[Background,exHeaderFilterBarActive] := 0x4010101
oDCOCX_Exontrol1:[Background,exFooterFilterBarButton] := 0x40000ff
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:AllowGroupBy := true
oDCOCX_Exontrol1:BackColorSortBar := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:BackColorLevelHeader := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:FilterBarDropDownHeight := 1
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
	var_Column:Width := 128
	var_Column:DisplayFilterButton := true
	var_Column:FilterList := exShowCheckBox
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
	var_Column1:FormatColumn := "1 pos ``"
	var_Column1:AllowSort := false
	var_Column1:Width := 48
	var_Column1:AllowSizing := false
	var_Column1:Alignment := CenterAlignment
	var_Column1:HeaderAlignment := CenterAlignment
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Image")}
	var_Column2:DisplayFilterButton := true
	var_Column2:FilterList := exShowExclude | exShowCheckBox | exSortItemsAsc
	var_Column2:FilterType := exImage
	var_Column2:DisplayExpandButton := true
	var_Column2:ExpandColumns := "1,2,3"
	var_Column2:Width := 128
	var_Column2:HeaderImage := 1
var_Column3 := IColumn{oDCOCX_Exontrol1:Columns:Add("Images")}
	var_Column3:[Def,exCellHasCheckBox] := true
	var_Column3:Width := 196
	var_Column3:HTMLCaption := "<img>1</img><img>2</img><img>3</img> Images"
oDCOCX_Exontrol1:Columns:[Item,"Pos"]:Position := 3
var_Items := oDCOCX_Exontrol1:Items
	hR := var_Items:AddItem("Root")
	var_Items:[ItemDivider,hR] := 0
	var_Items:[ItemDividerLine,hR] := EmptyLine
	h := var_Items:InsertItem(hR,nil,"Child A")
	var_Items:[CellImage,h,2] := 1
	var_Items:[CellImages,h,3] := "1,2,3"
	var_Items:[CellValue,h,3] := "123"
	h := var_Items:InsertItem(hR,nil,"Child B")
	var_Items:[CellState,h,0] := 1
	var_Items:[CellImage,h,2] := 3
	var_Items:[CellImages,h,3] := "2,3,1"
	var_Items:[CellValue,h,3] := "231"
	var_Items:[SelectItem,h] := true
	h := var_Items:InsertItem(hR,nil,"Child C")
	var_Items:[CellImage,h,2] := 2
	var_Items:[CellState,h,3] := 1
	var_Items:[CellValue,h,3] := "312"
	var_Items:[CellImages,h,3] := "3,1,2"
	var_Items:[ExpandItem,hR] := true
oDCOCX_Exontrol1:EndUpdate()

2230
How do I clip/hide/align the bar's caption/text based on the bar's size/width/length

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("20001223")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 216
	var_Bar := var_Chart:Bars:[Item,"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_Chart:MinUnitWidth := var_Chart:UnitWidth
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",exBarExtraCaption] := "no clip, right(<b>2</b>)"
	var_Items:[ItemBar,h,"K1",exBarExtraCaptionHAlign] := 2
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
	var_Items:[ItemBar,h,"K2",exBarExtraCaption] := "no clip, center(<b>1</b>)"
	var_Items:[ItemBar,h,"K2",exBarExtraCaptionHAlign] := 1
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
	var_Items:[ItemBar,h,"K3",exBarExtraCaption] := "no clip, left(<b>0</b>)"
	var_Items:[ItemBar,h,"K3",exBarExtraCaptionHAlign] := 0
	h := var_Items:AddItem("clip, inside (3-5)")
	var_Items:AddBar(h,"Task",SToD("20001228"),SToD("20010108"),"K1",nil)
	var_Items:[ItemBar,h,"K1",exBarExtraCaption] := "clip, inside, right(<b>5</b>)"
	var_Items:[ItemBar,h,"K1",exBarExtraCaptionHAlign] := 5
	var_Items:AddBar(h,"Task",SToD("20001228"),SToD("20010108"),"K2",nil)
	var_Items:[ItemBar,h,"K2",exBarExtraCaption] := "clip, inside, center(<b>4</b>)"
	var_Items:[ItemBar,h,"K2",exBarExtraCaptionHAlign] := 4
	var_Items:AddBar(h,"Task",SToD("20001228"),SToD("20010108"),"K3",nil)
	var_Items:[ItemBar,h,"K3",exBarExtraCaption] := "clip, inside, left(<b>3</b>)"
	var_Items:[ItemBar,h,"K3",exBarExtraCaptionHAlign] := 3
	h := var_Items:AddItem("hide on min width, clip if not fit, inside (6-8)")
	var_Items:AddBar(h,"Task",SToD("20001226"),SToD("20010110"),"K1",nil)
	var_Items:[ItemBar,h,"K1",exBarExtraCaption] := "hide on min width, clip if not fit, inside, right(<b>8</b>)"
	var_Items:[ItemBar,h,"K1",exBarExtraCaptionHAlign] := 8
	var_Items:AddBar(h,"Task",SToD("20001226"),SToD("20010110"),"K2",nil)
	var_Items:[ItemBar,h,"K2",exBarExtraCaption] := "hide on min width, clip if not fit, inside, center(<b>7</b>)"
	var_Items:[ItemBar,h,"K2",exBarExtraCaptionHAlign] := 7
	var_Items:AddBar(h,"Task",SToD("20001226"),SToD("20010110"),"K3",nil)
	var_Items:[ItemBar,h,"K3",exBarExtraCaption] := "hide on min width, clip if not fit, inside, left(<b>6</b>)"
	var_Items:[ItemBar,h,"K3",exBarExtraCaptionHAlign] := 6
	h := var_Items:AddItem("hide if not fit, no clip, inside (9-11)")
	var_Items:AddBar(h,"Task",SToD("20001228"),SToD("20010108"),"K1",nil)
	var_Items:[ItemBar,h,"K1",exBarExtraCaption] := "hide if not fit, no clip, inside, right(<b>11</b>)"
	var_Items:[ItemBar,h,"K1",exBarExtraCaptionHAlign] := 11
	var_Items:AddBar(h,"Task",SToD("20001228"),SToD("20010108"),"K2",nil)
	var_Items:[ItemBar,h,"K2",exBarExtraCaption] := "hide if not fit, no clip, center(<b>10</b>)"
	var_Items:[ItemBar,h,"K2",exBarExtraCaptionHAlign] := 10
	var_Items:AddBar(h,"Task",SToD("20001228"),SToD("20010108"),"K3",nil)
	var_Items:[ItemBar,h,"K3",exBarExtraCaption] := "hide if not fit, no clip, inside, left(<b>9</b>)"
	var_Items:[ItemBar,h,"K3",exBarExtraCaptionHAlign] := 9
	h := var_Items:AddItem("no clip, inside, outside (12-14)")
	var_Items:AddBar(h,"Task",SToD("20001228"),SToD("20010108"),"K1",nil)
	var_Items:[ItemBar,h,"K1",exBarExtraCaption] := "no clip, inside, outside, right(<b>14</b>)"
	var_Items:[ItemBar,h,"K1",exBarExtraCaptionHAlign] := 14
	var_Items:AddBar(h,"Task",SToD("20001228"),SToD("20010108"),"K2",nil)
	var_Items:[ItemBar,h,"K2",exBarExtraCaption] := "no clip, inside, outside, center(<b>13</b>)"
	var_Items:[ItemBar,h,"K2",exBarExtraCaptionHAlign] := 13
	var_Items:AddBar(h,"Task",SToD("20001228"),SToD("20010108"),"K3",nil)
	var_Items:[ItemBar,h,"K3",exBarExtraCaption] := "no clip, inside, outside, left(<b>12</b>)"
	var_Items:[ItemBar,h,"K3",exBarExtraCaptionHAlign] := 12
	h := var_Items:AddItem("no clip, outside (16-18)")
	var_Items:AddBar(h,"Task",SToD("20001230"),SToD("20010106"),"K1",nil)
	var_Items:[ItemBar,h,"K1",exBarExtraCaption] := "no clip, outside, right(<b>18</b>)"
	var_Items:[ItemBar,h,"K1",exBarExtraCaptionHAlign] := 18
	var_Items:AddBar(h,"Task",SToD("20001230"),SToD("20010106"),"K2",nil)
	var_Items:[ItemBar,h,"K2",exBarExtraCaption] := "no clip, outside, center(<b>17</b>)"
	var_Items:[ItemBar,h,"K2",exBarExtraCaptionHAlign] := 17
	var_Items:AddBar(h,"Task",SToD("20001230"),SToD("20010106"),"K3",nil)
	var_Items:[ItemBar,h,"K3",exBarExtraCaption] := "no clip, outside, left(<b>16</b>)"
	var_Items:[ItemBar,h,"K3",exBarExtraCaptionHAlign] := 16
oDCOCX_Exontrol1:EndUpdate()

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

METHOD OCX_Exontrol1AddColumn(Column) CLASS MainDialog
	// AddColumn event - Fired after a new column has been added.

RETURN NIL

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:AddBar(Item,"Task",var_Items:[CellValue,Item,2],var_Items:[CellValue,Item,4],nil,nil)
RETURN NIL

local var_Chart as IChart
local rs as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
	rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("19940804")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 290
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
oDCOCX_Exontrol1:Columns:[Item,2]:[Def,exCellValueToItemBarProperty] := 1
oDCOCX_Exontrol1:Columns:[Item,4]:[Def,exCellValueToItemBarProperty] := 2
oDCOCX_Exontrol1:Columns:[Item,"ShipVia"]:Position := 2
oDCOCX_Exontrol1:EndUpdate()

2228
Does the control display images from database (DAO)

local var_Column as IColumn
local rs as Recordset
local var_PrivDBEngine as _DBEngine

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:DefaultItemHeight := 48
// Generate Source for 'Microsoft DAO 3.6 Object Library(dao360.dll)' server from Tools\Automation Server...
var_PrivDBEngine := _DBEngine{"DAO.DBEngine.36"}
	rs := var_PrivDBEngine:OpenDatabase("C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.mdb",nil,nil,nil):OpenRecordset("Employees",nil,nil,nil)
oDCOCX_Exontrol1:DataSource := Recordset{rs}
var_Column := oDCOCX_Exontrol1:Columns:[Item,"Photo"]
	var_Column:Position := 1
	var_Column:Width := 128
oDCOCX_Exontrol1:EndUpdate()

2227
Does the control display images from database (ADO)

local var_Column as IColumn
local rs as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:DefaultItemHeight := 48
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADODB.Recordset"}
	rs:Open("Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
var_Column := oDCOCX_Exontrol1:Columns:[Item,"Photo"]
	var_Column:Position := 1
	var_Column:Width := 128
oDCOCX_Exontrol1:EndUpdate()

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

local rs as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
	rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",1,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:Layout := "singlesort=" + CHR(34) + "C1:1" + CHR(34) + ""
oDCOCX_Exontrol1:EndUpdate()

2225
Is it possible to view all events the control fires
METHOD OCX_Exontrol1BeforeExpandItem(Item,Cancel) CLASS MainDialog
	// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
	oDCOCX_Exontrol1:Refresh()
RETURN NIL

METHOD OCX_Exontrol1Event(EventID) CLASS MainDialog
	// Event event - Notifies the application once the control fires an event.
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[EventParam,-2]) ))
RETURN NIL

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Indent := 16
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:HasLines := exSolidLine
oDCOCX_Exontrol1:DrawGridLines := exHLines
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20060920")
	var_Chart:ShowCollapsedBars := true
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Chart:DrawGridLines := exHLines
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:OverlaidType := exOverlaidBarsStack
		var_Bar:Color := RGB(0,0,0)
		var_Bar:StartColor := RGB(196,196,196)
		var_Bar:EndColor := RGB(196,196,196)
		var_Bar:Pattern := exPatternBox
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project 1")
	h1 := var_Items:InsertItem(h,nil,"Resources")
	var_Items:AddBar(h1,"Task",SToD("20060921"),SToD("20060925"),"A",nil)
	var_Items:AddBar(h1,"Task",SToD("20060924"),SToD("20060928"),"B",nil)
	var_Items:AddBar(h1,"Task",SToD("20060927"),SToD("20060929"),"C",nil)
	h := var_Items:AddItem("Project 2")
	h1 := var_Items:InsertItem(h,nil,"Resources")
	var_Items:AddBar(h1,"Task",SToD("20060921"),SToD("20060925"),"A",nil)
	var_Items:AddBar(h1,"Task",SToD("20060924"),SToD("20060928"),"B",nil)
	var_Items:AddBar(h1,"Task",SToD("20060927"),SToD("20060929"),"C",nil)
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()

2224
How can I find all occurences of the giving value, within a column
local var_Column,var_Column1 as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Default")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
	var_Column:FormatColumn := "1 pos 'A-Z'"
	var_Column:Position := 0
	var_Column:AllowSizing := false
	var_Column:Width := 32
	var_Column:Enabled := false
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Index")}
	var_Column1:FormatColumn := "0 index ''"
	var_Column1:AllowSizing := false
	var_Column1:Width := 32
	var_Column1:Enabled := false
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("A")
	var_Items:AddItem("A")
	var_Items:AddItem("A")
	OutputDebugString(String2Psz( var_Items:[CellCaption,var_Items:[FindItem,"A",0,0],1] ))
	OutputDebugString(String2Psz( var_Items:[CellCaption,var_Items:[FindItem,"A",0,1],1] ))
	OutputDebugString(String2Psz( var_Items:[CellCaption,var_Items:[FindItem,"A",0,2],1] ))
oDCOCX_Exontrol1:EndUpdate()

2223
How can I specify the bar's legend within the control's histogram (sample 2, expression)

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("Machines")
oDCOCX_Exontrol1:DrawGridLines := exHLines
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:DrawGridLines := exHLines
	var_Chart:[PaneWidth,false] := 128
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:LevelCount := 2
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:Pattern := exPatternSolid
		var_Bar:[Def,exBarHAlignCaption] := 18
		var_Bar:OverlaidType := exOverlaidBarsCascade
		var_Bar:HistogramPattern := var_Bar:Pattern
		var_Bar:HistogramType := exHistCumulative
		var_Bar:HistogramCumulativeOriginalColorBars := exKeepOriginalColor
		var_Bar:HistogramItems := -4
		var_Bar:HistogramRulerLinesColor := RGB(102,102,102)
		var_Bar:[Def,exBarToolTip] := "<%=%3%> <fgcolor 666666><font ;6><off 4><%=%C0%>"
		var_Bar:[Def,exBarHistLegend] := "<fgcolor=666666><%=lower(%3)%>"
	var_Chart:HistogramHeight := 64
	var_Chart:HistogramVisible := true
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Machine 1")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010109"),1,"Bill")
	var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010110"),2,"Laura")
	var_Items:[ItemBar,h,2,exBarColor] := 16776960
	h := var_Items:AddItem("Machine 2")
	var_Items:AddBar(h,"Task",SToD("20010112"),SToD("20010119"),3,"Bill")
	var_Items:AddBar(h,"Task",SToD("20010110"),SToD("20010113"),4,"Laura")
	var_Items:AddBar(h,"Task",SToD("20010110"),SToD("20010114"),5,"Bill")
	var_Items:[ItemBar,h,4,exBarColor] := 16776960
	var_Items:AddBar(var_Items:AddItem("Machine 3"),"Task",SToD("20010102"),SToD("20010109"),6,"Bill")
oDCOCX_Exontrol1:EndUpdate()

2222
How can I specify the bar's legend within the control's histogram (sample 1)

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("Machines")
oDCOCX_Exontrol1:DrawGridLines := exHLines
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:DrawGridLines := exHLines
	var_Chart:[PaneWidth,false] := 128
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:LevelCount := 2
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:Pattern := exPatternSolid
		var_Bar:[Def,exBarHAlignCaption] := 18
		var_Bar:OverlaidType := exOverlaidBarsCascade
		var_Bar:HistogramPattern := var_Bar:Pattern
		var_Bar:HistogramType := exHistCumulative
		var_Bar:HistogramCumulativeOriginalColorBars := exKeepOriginalColor
		var_Bar:HistogramItems := -4
		var_Bar:[Def,exBarCaption] := "Bill"
		var_Bar:[Def,exBarHistLegend] := "B(ill)"
	var_Chart:HistogramHeight := 64
	var_Chart:HistogramVisible := true
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Machine 1")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010109"),1,nil)
	var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010110"),2,"Laura")
	var_Items:[ItemBar,h,2,exBarColor] := 16776960
	var_Items:[ItemBar,h,2,exBarHistLegend] := "L(aura)"
	h := var_Items:AddItem("Machine 2")
	var_Items:AddBar(h,"Task",SToD("20010112"),SToD("20010119"),3,nil)
	var_Items:AddBar(h,"Task",SToD("20010110"),SToD("20010113"),4,"Laura")
	var_Items:AddBar(h,"Task",SToD("20010110"),SToD("20010114"),5,nil)
	var_Items:[ItemBar,h,4,exBarColor] := 16776960
	var_Items:[ItemBar,h,4,exBarHistLegend] := "L(aura)"
	var_Items:AddBar(var_Items:AddItem("Machine 3"),"Task",SToD("20010102"),SToD("20010109"),6,nil)
oDCOCX_Exontrol1:EndUpdate()

2221
When I drag a bar and I drag it over other items, but just release it on one of the items (last item), the BarParentChange event is triggered for every item. I need it just when I drop it (release left mouse). How can I do this
METHOD OCX_Exontrol1BarParentChange(Item,Key,NewItem,Cancel) CLASS MainDialog
	// BarParentChange event - Occurs just before moving a bar from current item to another item.
	OutputDebugString(String2Psz( "Hover Over Item: " ))
	OutputDebugString(String2Psz( oDCOCX_Exontrol1:Items:[CellCaption,NewItem,0] ))
	Cancel := oDCOCX_Exontrol1:Items:[ItemData,NewItem]
RETURN NIL

METHOD OCX_Exontrol1ChartEndChanging(Operation) CLASS MainDialog
	// ChartEndChanging event - Occurs after the chart has been changed.
	OutputDebugString(String2Psz( "ChartEndChanging " ))
	OutputDebugString(String2Psz( AsString(Operation) ))
RETURN NIL

METHOD OCX_Exontrol1ChartStartChanging(Operation) CLASS MainDialog
	// ChartStartChanging event - Occurs when the chart is about to be changed.
	OutputDebugString(String2Psz( "ChartStartChanging " ))
	OutputDebugString(String2Psz( AsString(Operation) ))
RETURN NIL

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

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 48
	var_Chart:AllowLinkBars := false
	var_Chart:Bars:[Item,"Task"]:OverlaidType := exOverlaidBarsTransparent | exOverlaidBarsOffset
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Item 1")
	var_Items:[EnableItem,h] := false
	var_Items:[ItemData,h] := -1
	h := var_Items:AddItem("Item 2")
	var_Items:[ItemData,h] := 0
	var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010107"),"B",nil)
	var_Items:[ItemBar,h,"B",exBarCanMoveToAnother] := true
	var_Items:[ItemData,var_Items:AddItem("Item 3")] := 0
	var_Items:[ItemData,var_Items:AddItem("Item 4")] := 0
oDCOCX_Exontrol1:EndUpdate()

2220
Hide non-working days, Hide non-working hours

local var_Chart as IChart
local var_Level as ILevel

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20220729")
	var_Chart:[Label,exHour] := "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
	var_Chart:[PaneWidth,false] := 0
	var_Chart:LevelCount := 2
	var_Chart:UnitWidth := 12
	var_Chart:NonworkingDaysColor := RGB(51,51,51)
	var_Chart:NonworkingDaysPattern := exPatternBDiagonal
	var_Chart:NonworkingHoursColor := RGB(187,187,187)
	var_Chart:NonworkingHoursPattern := exPatternBDiagonal
	var_Chart:AllowResizeChart := exAllowChangeUnitScale | exAllowResizeChartMiddle | exAllowResizeChartHeader
	var_Level := var_Chart:[Level,0]
		var_Level:Label := "<%dddd%>"
		var_Level:Alignment := CenterAlignment
	var_Chart:[Level,1]:Label := 65536
	var_Chart:UnitScale := exHour
	var_Chart:NonworkingHours := 16773375
	var_Chart:ShowNonworkingUnits := false
	var_Chart:ShowNonworkingDates := false
	var_Chart:ShowNonworkingHours := false
oDCOCX_Exontrol1:EndUpdate()

2219
Show non-working days pattern, Hide non-working hours

local var_Chart as IChart
local var_Level as ILevel

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20220729")
	var_Chart:[Label,exHour] := "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
	var_Chart:[PaneWidth,false] := 0
	var_Chart:LevelCount := 2
	var_Chart:UnitWidth := 12
	var_Chart:NonworkingDaysColor := RGB(51,51,51)
	var_Chart:NonworkingDaysPattern := exPatternBDiagonal
	var_Chart:NonworkingHoursColor := RGB(187,187,187)
	var_Chart:NonworkingHoursPattern := exPatternBDiagonal
	var_Chart:AllowResizeChart := exAllowChangeUnitScale | exAllowResizeChartMiddle | exAllowResizeChartHeader
	var_Level := var_Chart:[Level,0]
		var_Level:Label := "<%dddd%>"
		var_Level:Alignment := CenterAlignment
	var_Chart:[Level,1]:Label := 65536
	var_Chart:UnitScale := exHour
	var_Chart:NonworkingHours := 16773375
	var_Chart:ShowNonworkingUnits := false
	var_Chart:ShowNonworkingDates := true
	var_Chart:ShowNonworkingHours := false
oDCOCX_Exontrol1:EndUpdate()

2218
Hide non-working days, Show non-working hours pattern

local var_Chart as IChart
local var_Level as ILevel

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20220729")
	var_Chart:[Label,exHour] := "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
	var_Chart:[PaneWidth,false] := 0
	var_Chart:LevelCount := 2
	var_Chart:UnitWidth := 12
	var_Chart:NonworkingDaysColor := RGB(51,51,51)
	var_Chart:NonworkingDaysPattern := exPatternBDiagonal
	var_Chart:NonworkingHoursColor := RGB(187,187,187)
	var_Chart:NonworkingHoursPattern := exPatternBDiagonal
	var_Chart:AllowResizeChart := exAllowChangeUnitScale | exAllowResizeChartMiddle | exAllowResizeChartHeader
	var_Level := var_Chart:[Level,0]
		var_Level:Label := "<%dddd%>"
		var_Level:Alignment := CenterAlignment
	var_Chart:[Level,1]:Label := 65536
	var_Chart:UnitScale := exHour
	var_Chart:NonworkingHours := 16773375
	var_Chart:ShowNonworkingUnits := false
	var_Chart:ShowNonworkingDates := false
	var_Chart:ShowNonworkingHours := true
oDCOCX_Exontrol1:EndUpdate()

2217
Hide non-working days pattern, Show non-working hours pattern

local var_Chart as IChart
local var_Level as ILevel

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20220729")
	var_Chart:[Label,exHour] := "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
	var_Chart:[PaneWidth,false] := 0
	var_Chart:LevelCount := 2
	var_Chart:UnitWidth := 12
	var_Chart:NonworkingDaysColor := RGB(51,51,51)
	var_Chart:NonworkingDaysPattern := exPatternBDiagonal
	var_Chart:NonworkingHoursColor := RGB(187,187,187)
	var_Chart:NonworkingHoursPattern := exPatternBDiagonal
	var_Chart:AllowResizeChart := exAllowChangeUnitScale | exAllowResizeChartMiddle | exAllowResizeChartHeader
	var_Level := var_Chart:[Level,0]
		var_Level:Label := "<%dddd%>"
		var_Level:Alignment := CenterAlignment
	var_Chart:[Level,1]:Label := 65536
	var_Chart:UnitScale := exHour
	var_Chart:NonworkingHours := 16773375
	var_Chart:ShowNonworkingUnits := true
	var_Chart:ShowNonworkingDates := false
	var_Chart:ShowNonworkingHours := true
oDCOCX_Exontrol1:EndUpdate()

2216
Hide non-working days pattern, Hide non-working hours pattern

local var_Chart as IChart
local var_Level as ILevel

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20220729")
	var_Chart:[Label,exHour] := "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
	var_Chart:[PaneWidth,false] := 0
	var_Chart:LevelCount := 2
	var_Chart:UnitWidth := 12
	var_Chart:NonworkingDaysColor := RGB(51,51,51)
	var_Chart:NonworkingDaysPattern := exPatternBDiagonal
	var_Chart:NonworkingHoursColor := RGB(187,187,187)
	var_Chart:NonworkingHoursPattern := exPatternBDiagonal
	var_Chart:AllowResizeChart := exAllowChangeUnitScale | exAllowResizeChartMiddle | exAllowResizeChartHeader
	var_Level := var_Chart:[Level,0]
		var_Level:Label := "<%dddd%>"
		var_Level:Alignment := CenterAlignment
	var_Chart:[Level,1]:Label := 65536
	var_Chart:UnitScale := exHour
	var_Chart:NonworkingHours := 16773375
	var_Chart:ShowNonworkingUnits := true
	var_Chart:ShowNonworkingDates := false
	var_Chart:ShowNonworkingHours := false
oDCOCX_Exontrol1:EndUpdate()

2215
Show non-working days pattern, Hide non-working hours pattern

local var_Chart as IChart
local var_Level as ILevel

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20220729")
	var_Chart:[Label,exHour] := "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
	var_Chart:[PaneWidth,false] := 0
	var_Chart:LevelCount := 2
	var_Chart:UnitWidth := 12
	var_Chart:NonworkingDaysColor := RGB(51,51,51)
	var_Chart:NonworkingDaysPattern := exPatternBDiagonal
	var_Chart:NonworkingHoursColor := RGB(187,187,187)
	var_Chart:NonworkingHoursPattern := exPatternBDiagonal
	var_Chart:AllowResizeChart := exAllowChangeUnitScale | exAllowResizeChartMiddle | exAllowResizeChartHeader
	var_Level := var_Chart:[Level,0]
		var_Level:Label := "<%dddd%>"
		var_Level:Alignment := CenterAlignment
	var_Chart:[Level,1]:Label := 65536
	var_Chart:UnitScale := exHour
	var_Chart:NonworkingHours := 16773375
	var_Chart:ShowNonworkingUnits := true
	var_Chart:ShowNonworkingDates := true
	var_Chart:ShowNonworkingHours := false
oDCOCX_Exontrol1:EndUpdate()

2214
Show non-working days pattern, Show non-working hours pattern

local var_Chart as IChart
local var_Level as ILevel

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20220729")
	var_Chart:[Label,exHour] := "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
	var_Chart:[PaneWidth,false] := 0
	var_Chart:LevelCount := 2
	var_Chart:UnitWidth := 12
	var_Chart:NonworkingDaysColor := RGB(51,51,51)
	var_Chart:NonworkingDaysPattern := exPatternBDiagonal
	var_Chart:NonworkingHoursColor := RGB(187,187,187)
	var_Chart:NonworkingHoursPattern := exPatternBDiagonal
	var_Chart:AllowResizeChart := exAllowChangeUnitScale | exAllowResizeChartMiddle | exAllowResizeChartHeader
	var_Level := var_Chart:[Level,0]
		var_Level:Label := "<%dddd%>"
		var_Level:Alignment := CenterAlignment
	var_Chart:[Level,1]:Label := 65536
	var_Chart:UnitScale := exHour
	var_Chart:NonworkingHours := 16773375
	var_Chart:ShowNonworkingUnits := true
	var_Chart:ShowNonworkingDates := true
	var_Chart:ShowNonworkingHours := true
oDCOCX_Exontrol1:EndUpdate()

2213
The chart display no labels (empty header) when the unit's width is too small. What can I do to change this behavior

local var_Chart as IChart

var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[Label,exDay] := "<font ;6><%d1%><|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%>, <%m3%> <%d%>, '<%yy%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%><||><||>4096"
	var_Chart:AllowResizeChart := exAllowChangeUnitScale | exAllowResizeChartMiddle | exAllowResizeChartHeader
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 0
	var_Chart:MarkTodayColor := var_Chart:BackColor
	var_Chart:UnitScale := exDay
	var_Chart:UnitWidth := 12

2212
How do I get the height of the bar from the cursor

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

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:[Item,"Task"]:Pattern := exPatternSolid
	var_Chart:Bars:Copy("Task","T1"):Color := RGB(255,0,0)
	var_Chart:Bars:Copy("Task","T2"):Height := 25
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task")
	var_Items:AddBar(h1,"T1",SToD("20171015"),SToD("20171025"),"2",nil)
	var_Items:AddBar(h1,"T2",SToD("20171018"),SToD("20171022"),"1",nil)
	h1 := var_Items:AddItem("Task")
	var_Items:AddBar(h1,"T1",SToD("20171015"),SToD("20171025"),"1",nil)
	var_Items:AddBar(h1,"T2",SToD("20171018"),SToD("20171022"),"2",nil)
oDCOCX_Exontrol1:EndUpdate()

2211
The zone shows truncated if I use BackColorAlternate. Is there anything I can do so it shows as solid instead

local var_Chart as IChart

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 0
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20100101")
	var_Chart:MarkTimeZone("Z1",SToD("20100104"),SToD("20100104"),16744544,"1:3;;solid-zone")
	var_Chart:MarkTimeZone("Z2",SToD("20100108"),SToD("20100108"),16744544,"0:3;;truncated-zone")
oDCOCX_Exontrol1:EndUpdate()

2210
How can I prevent expanding/collapsing the child items

METHOD OCX_Exontrol1BeforeExpandItem(Item,Cancel) CLASS MainDialog
	// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
	Cancel := oDCOCX_Exontrol1:Items:[ItemParent,Item]
RETURN NIL

local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:Columns:Add("Default")
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Root 1")
	var_Items:InsertItem(var_Items:InsertItem(h,nil,"Child 1.1"),nil,"Child")
	var_Items:InsertItem(h,nil,"Child 1.2")
	var_Items:[ExpandItem,h] := true
	h := var_Items:AddItem("Root 2")
	var_Items:InsertItem(var_Items:InsertItem(h,nil,"Child 2.1"),nil,"Child")
	var_Items:InsertItem(h,nil,"Child 2.2")
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()

2209
How can I display the EBN bigger or smaller (thumb)

local var_Appearance as IAppearance
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"c:\exontrol\images\normal.ebn")
	var_Appearance:Add(10,"CP:1 0 3 0 -3")
	var_Appearance:Add(17,"CP:1 3 0 -3 0")
oDCOCX_Exontrol1:[Background,exHSThumb] := 0xa000000
oDCOCX_Exontrol1:[Background,exVSThumb] := 0x11000000
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exHScrollEmptySpace | exVScrollOnThumbRelease | exHScrollOnThumbRelease | exDisableBoth
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:Columns:Add("Def")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem(1)
	var_Items:AddItem(2)
	var_Items:AddItem(3)
oDCOCX_Exontrol1:EndUpdate()

2208
I am using GroupBy feature to create a tree, but the top rows are aligned with the children, not indented. What could be wrong

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 color as USUAL
	color := 14474460
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:[ItemDivider,Item] := -1
		var_Items:[CellValue,Item,1] := var_Items:[CellCaption,Item,var_Items:[GroupItem,Item]]
		var_Items:AddBar(Item,"Progress",SToD("20171202"),SToD("20171202"),nil,nil)
		var_Items:DefineSummaryBars(Item,"",-3,"")
		var_Items:[ItemBold,Item] := true
		var_Items:[ItemBackColor,Item] := color
	oDCOCX_Exontrol1:Chart:[ItemBackColor,Item] := color
RETURN NIL

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:AddBar(Item,"Task",SToD("20171204"),SToD("20171210"),nil,nil)
		var_Items:[ItemBar,Item,"",exBarMove] := var_Items:[ItemToIndex,Item]
RETURN NIL

local var_Chart as IChart
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] := 128
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("C1")
	var_Columns:Add("C2")
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
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"
	h := var_Items:AddItem("Item A")
	var_Items:[CellValue,h,1] := "SubItem A.1"
	h := var_Items:AddItem("Item A")
	var_Items:[CellValue,h,1] := "SubItem A.1"
	h := var_Items:AddItem("Item A")
	var_Items:[CellValue,h,1] := "SubItem A.1"
	h := var_Items:AddItem("Item B")
	var_Items:[CellValue,h,1] := "SubItem B.1"
	h := var_Items:AddItem("Item B")
	var_Items:[CellValue,h,1] := "SubItem B.1"
oDCOCX_Exontrol1:Columns:[Item,0]:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()

2207
How can I change the names from English to my locale (localization)
local var_Chart as IChart

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowResizeChart := exAllowChangeUnitScale | exAllowResizeChartMiddle | exAllowResizeChartHeader
	var_Chart:MonthNames := var_Chart:LocMonthNames
	var_Chart:WeekDays := var_Chart:LocWeekDays
	var_Chart:AMPM := var_Chart:LocAMPM
	var_Chart:FirstWeekDay := var_Chart:LocFirstWeekDay
	var_Chart:[Label,exMonth] := "<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyyy%>"
	var_Chart:[Label,exWeek] := "<|>KW<%ww%><|><%d%>. <%loc_m3%>, '<%yy%><r>KW<%ww%><|><%d%>. <%loc_mmmm%>, <%yyyy%><r>KW<%ww%><||><||>256"
	var_Chart:[Label,exDay] := "<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%><|><%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%><||><||>4096"
	var_Chart:[Label,exHour] := "<|><%hh%><|><%hh%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%> <%hh%><|><%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%><||><||>65536"
	var_Chart:[Label,exMinute] := "<|><%nn%><|><%hh%>:<%nn%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%> <%hh%>:<%nn%><|><%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>:<%nn%>"
	var_Chart:[Label,exSecond] := "<|><%ss%><|><%nn%>:<%ss%><|><%hh%>:<%nn%>:<%ss%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%> <%hh%>:<%nn%>:<%ss%><|><%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>:<%nn%>:<%ss%>"
	var_Chart:[LabelToolTip,exMonth] := "<%loc_mmmm%>/<%yyyy%>"
	var_Chart:[LabelToolTip,exWeek] := "<%d%>. <%loc_mmmm%>, <%yyyy%> KW<%ww%>"
	var_Chart:[LabelToolTip,exDay] := "<%loc_dddd%>, <%d%>. <%loc_mmmm%> , <%yyyy%>"
	var_Chart:[LabelToolTip,exHour] := "<%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>"
	var_Chart:[LabelToolTip,exMinute] := "<%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>:<%nn%>"
	var_Chart:[LabelToolTip,exSecond] := "<%loc_dddd%>, <%d%>. <%loc_mmmm%>  <%yyyy%> <%hh%>:<%nn%>:<%ss%>"
	var_Chart:ToolTip := "<%ddd%> <%d%>. <%loc_mmmm%> <%yyyy%>"
	var_Chart:[PaneWidth,false] := 0
	var_Chart:LevelCount := 2
	var_Chart:UnitScale := exDay
	var_Chart:UnitWidth := 24
oDCOCX_Exontrol1:EndUpdate()

2206
Is it possible to change the pattern for selection within the control's overview part (I would prefer a semi-transparent or solid color instead)

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(2,"gBFLBCJwBAEHhEJAAEhABMsGACAADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYJAKCQ5DBJUBjTBcEwKGCQBwASQpUhqHYDTbIMByBIUIxUACUJAgeCRYiAMo8RrSEZARBNGR3GqaJ7oGTpRoaP4iSBTUThBRsPyhHqOBpEWIRSqKEQ1DBYcI2RZUaxBJQAAbrWr5VpKKYnSzBA4TBQkSTpGicZxteoJeiefIEVTHFwRNaFNS1Linb7ia5qCwmOJXUjcYAYfBOIR1SSBbIsawbNACbJnWjENYVdAdNTlAbPNAyPBqSDaMYRDCOND1BhuNATWSNLq2XZ5OzrGIaVjmWbbfwELZFUqydJ0exeiYNw/kGZBuDCHR/DeEYaCgGhMGcQ4pkiSxDgGXhIESW5MFgbQJBQZx+DScJEGsVZdnufggG+f5fnPFB/ooBZ/EaIAoBYBoBmASAeAqApfjgJgMgOYAoDoEIEl+WBKBSBQhGgXgQgYYYoDIHIHGCKB+CCAYiCiDgREWYhoG4KIKGGaIuCyCBfhiRQJDqXxgAEASAg")
oDCOCX_Exontrol1:SelBackMode := exTransparent
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:OverviewVisible := exOverviewShowAll
	var_Chart:OverviewHeight := 64
	var_Chart:FirstVisibleDate := SToD("20180730")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelBarColor := RGB(128,128,128)
	var_Chart:OverviewSelBackColor := 0x200ff00
	var_Chart:[OverviewSelTransparent,true] := 50
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"),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:[ItemByIndex,1]] := true
oDCOCX_Exontrol1:EndUpdate()

2205
How can I display an item of picture type

local var_Items as IItems
local h,h1 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:ScrollBySingleLine := false
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderHeight := 24
IColumn{oDCOCX_Exontrol1:Columns:Add("Artikel")}:HTMLCaption := "<u>Artikel"
IColumn{oDCOCX_Exontrol1:Columns:Add("Waarde")}:HTMLCaption := "<u>Waarde"
oDCOCX_Exontrol1:[HTMLPicture,"T22128"] := "c:\exontrol\images\zipdisk.gif"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("T22128-28)2D")
	h1 := var_Items:InsertItem(h,nil,"<img>T22128:128</img>")
	var_Items:[CellValueFormat,h1,0] := exHTML
	var_Items:[ItemHeight,h1] := 128
	h1 := var_Items:InsertItem(h,nil,"werkvoorbereiding")
	var_Items:[CellValue,h1,1] := "5.80"
	var_Items:[CellBold,h1,1] := true
	var_Items:[CellValue,var_Items:InsertItem(h1,nil,"Type"),1] := "Eenvoudig"
	var_Items:[CellValue,var_Items:InsertItem(h1,nil,"Prijs p/uur"),1] := "60,00"
	var_Items:[CellValue,var_Items:InsertItem(h1,nil,"Marhe"),1] := "15,00%"
	var_Items:[CellValue,var_Items:InsertItem(h1,nil,"Insteltijd min."),1] := "5,00"
	var_Items:[CellValue,var_Items:InsertItem(h1,nil,"Aantal"),1] := 1
	var_Items:[CellValue,var_Items:InsertItem(h1,nil,"Kostprije"),1] := "5,00"
	var_Items:[ExpandItem,h1] := true
	h1 := var_Items:InsertItem(h,nil,"materiall")
	var_Items:[CellValue,h1,1] := "14.82"
	var_Items:[CellBold,h1,1] := true
	var_Items:[ItemHasChildren,h1] := true
	h1 := var_Items:InsertItem(h,nil,"snijden")
	var_Items:[CellValue,h1,1] := "3.13"
	var_Items:[CellBold,h1,1] := true
	var_Items:[ItemHasChildren,h1] := true
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()

2204
How can I bold the root group-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,"")
		var_Items:[ItemBold,Item] := true
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 := "'<caption> (' + 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()

2203
The exBarTransparent does not work for overlaid-bars

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:AllowLinkBars := false
	var_Chart:[PaneWidth,false] := 48
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:LevelCount := 2
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:OverlaidType := exOverlaidBarsStackAutoArrange | exOverlaidBarsStack
		var_Bar:Pattern := exPatternSolid
		var_Bar:[Overlaid,exOverlaidBarsTransparent] := 0
		var_Bar:[Def,exBarCaption] := "<%=%9%>"
		var_Bar:[Def,exBarHAlignCaption] := 18
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task 1")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"A1",nil)
	var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010105"),"A2",nil)
	h := var_Items:AddItem("Task 2")
	var_Items:AddBar(h,"Task",SToD("20010107"),SToD("20010111"),"B1",nil)
	var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010112"),"B2",nil)
	var_Items:[ItemBar,0,"<*>",exBarTransparent] := 75
oDCOCX_Exontrol1:EndUpdate()

2202
We’re adding tasks on the chart which have a caption that is not clipped (and left aligned). When we add another task right after the first one, then the caption from that first bar is “stuck” behind the second bar. The bar's z-order is determined by the bar's key.

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 := 24
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:NonworkingDays := 0
	var_Chart:FirstVisibleDate := SToD("20060917")
	var_Chart:[PaneWidth,false] := 96
	var_Chart:LevelCount := 2
	var_Bar := var_Chart:Bars:Add("Green")
		var_Bar:Color := RGB(0,255,0)
		var_Bar:[Def,exBarOffset] := -2
		var_Bar:[Def,exBarCaption] := "<%=%9%>"
		var_Bar:[Def,exBarHAlignCaption] := 18
	var_Bar1 := var_Chart:Bars:Add("Red")
		var_Bar1:Color := RGB(255,0,0)
		var_Bar1:[Def,exBarOffset] := 2
		var_Bar1:[Def,exBarCaption] := "<%=%9%>"
		var_Bar1:[Def,exBarHAlignCaption] := 18
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Red / Green")
	var_Items:AddBar(h1,"Green",SToD("20060921"),SToD("20060927"),"K1",nil)
	var_Items:AddBar(h1,"Red",SToD("20060923"),SToD("20060925"),"K2",nil)
	h1 := var_Items:AddItem("Green / Red")
	var_Items:AddBar(h1,"Green",SToD("20060921"),SToD("20060927"),"K2",nil)
	var_Items:AddBar(h1,"Red",SToD("20060923"),SToD("20060925"),"K1",nil)
oDCOCX_Exontrol1:EndUpdate()

2201
The caption/text of the link is overwritten by its line. What can be done

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

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 64
	var_Chart:FirstVisibleDate := SToD("20050621")
	var_Chart:ResizeUnitScale := exHour
	var_Chart:UnitWidth := 48
	var_Chart:[Level,0]:Label := "<b><%mmm%></b> <%dd%>"
	var_Chart:LinksWidth := 3
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Root")
	var_Items:AddBar(h,"Task",SToD("20050622"),SToD("20050623"),nil,nil)
	h1 := var_Items:InsertItem(h,nil,"Child")
	var_Items:AddBar(h1,"Task",SToD("20050624 08:00:00"),SToD("20050624 16:00:00"),nil,nil)
	var_Items:AddLink("Link1",h,"",h1,"")
	var_Items:[Link,"Link1",exLinkText] := "<bgcolor=FFFFFF> link </bgcolor>"
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()