*** BarResizing event - Occurs when a bar is moving or resizing. ***
LPARAMETERS Item,Key
	with thisform.G2antt1
		DEBUGOUT( "Start" )
		DEBUGOUT( Key )
		DEBUGOUT( .Items.ItemBar(Item,Key,547) )
		DEBUGOUT( "End" )
		DEBUGOUT( Key )
		DEBUGOUT( .Items.ItemBar(Item,Key,548) )
	endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Tasks")
	.Debug = .T.
	with .Chart
		.FirstVisibleDate = {^2006-9-20}
		.LevelCount = 2
		.PaneWidth(0) = 96
		.ResizeUnitScale = 1048576
	endwith
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2006-9-21},{^2006-9-24},"K1")
		.AddBar(.AddItem("Task 2"),"Task",{^2006-9-22},{^2006-9-25},"K2")
		.AddBar(.AddItem("Task 3"),"Task",{^2006-9-23},{^2006-9-26},"K3")
	endwith
	.EndUpdate
endwith

*** BarResizing event - Occurs when a bar is moving or resizing. ***
LPARAMETERS Item,Key
	with thisform.G2antt1
		DEBUGOUT( "Start" )
		DEBUGOUT( Key )
		DEBUGOUT( .FormatABC("dateF(value)",.Items.ItemBar(Item,Key,1)) )
		DEBUGOUT( "End" )
		DEBUGOUT( Key )
		DEBUGOUT( .FormatABC("dateF(value)",.Items.ItemBar(Item,Key,2)) )
	endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Tasks")
	.Debug = .T.
	with .Chart
		.FirstVisibleDate = {^2006-9-20}
		.LevelCount = 2
		.PaneWidth(0) = 96
		.ResizeUnitScale = 1048576
	endwith
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2006-9-21},{^2006-9-24},"K1")
		.AddBar(.AddItem("Task 2"),"Task",{^2006-9-22},{^2006-9-25},"K2")
		.AddBar(.AddItem("Task 3"),"Task",{^2006-9-23},{^2006-9-26},"K3")
	endwith
	.EndUpdate
endwith

*** BarResizing event - Occurs when a bar is moving or resizing. ***
LPARAMETERS Item,Key
	with thisform.G2antt1
		DEBUGOUT( "Start" )
		DEBUGOUT( Key )
		DEBUGOUT( .FormatABC("date(value) format `MM/dd/yyyy HH:mm:ss`",.Items.ItemBar(Item,Key,1)) )
		DEBUGOUT( "End" )
		DEBUGOUT( Key )
		DEBUGOUT( .FormatABC("date(value) format `MM/dd/yyyy HH:mm:ss`",.Items.ItemBar(Item,Key,2)) )
	endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Tasks")
	.Debug = .T.
	with .Chart
		.FirstVisibleDate = {^2006-9-20}
		.LevelCount = 2
		.PaneWidth(0) = 96
		.ResizeUnitScale = 1048576
	endwith
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2006-9-21},{^2006-9-24},"K1")
		.AddBar(.AddItem("Task 2"),"Task",{^2006-9-22},{^2006-9-25},"K2")
		.AddBar(.AddItem("Task 3"),"Task",{^2006-9-23},{^2006-9-26},"K3")
	endwith
	.EndUpdate
endwith

*** Click event - Occurs when the user presses and then releases the left mouse button over the tree control. ***
LPARAMETERS nop
	with thisform.G2antt1
		with .Items
			h = .SelectedItem(0)
			.ItemBar(h,.FirstItemBar(h),49) = "+R4[10%]"
		endwith
	endwith

with thisform.G2antt1
	.BeginUpdate
	.HeaderAppearance = 4
	.HeaderHeight = 24
	with .Chart
		.PaneWidth(0) = 96
		.LevelCount = 2
		.FirstVisibleDate = {^2001-1-1}
		with .Bars.Item("Task")
			.Def(4) = 18
			.Def(3) = "<%=%49%>"
		endwith
	endwith
	.Columns.Add("Machines")
	with .Items
		h = .AddItem("Machine 1")
		.AddBar(h,"Task",{^2001-1-6},{^2001-1-12},"K1")
		.ItemBar(h,"K1",49) = "R1,R2"
		h = .AddItem("Machine 2")
		.AddBar(h,"Task",{^2001-1-4},{^2001-1-14},"K2")
		.ItemBar(h,"K2",49) = "R2[75%],R3"
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.HeaderAppearance = 4
	.HeaderHeight = 24
	with .Chart
		.PaneWidth(0) = 96
		.LevelCount = 2
		.FirstVisibleDate = {^2001-1-1}
		with .Bars.Item("Task")
			.Def(4) = 18
			.Def(3) = "<%=%49%>"
		endwith
	endwith
	.Columns.Add("Machines")
	with .Items
		h = .AddItem("Machine 1")
		.AddBar(h,"Task",{^2001-1-6},{^2001-1-12},"K1")
		.ItemBar(h,"K1",49) = "R1,R2"
		h = .AddItem("Machine 2")
		.AddBar(h,"Task",{^2001-1-4},{^2001-1-14},"K2")
		.ItemBar(h,"K2",49) = "R2[75%],R3"
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	with .Chart
		.PaneWidth(0) = 0
		.LevelCount = 2
		.FirstVisibleDate = {^2009-12-20}
		.MarkTimeZone("TZ",{^2010-1-1},{^2010-1-3},65280,"1;;<c>TimeZone<b><off -4><a ;exp=just more info about>*</a></b>;1")
	endwith
endwith

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.G2antt1
		.ShowToolTip(.Chart.TimeZoneFromPoint(-1,-1),"",Null,"+8")
	endwith

with thisform.G2antt1
	with .Chart
		.PaneWidth(0) = 0
		.LevelCount = 2
		.FirstVisibleDate = {^2009-12-28}
		.MarkTimeZone("Top",{^2010-1-1},{^2010-1-5},16711680,"1;;<fgcolor=FFFFFF>Top;1")
		.MarkTimeZone("Partial",{^2010-1-8},{^2010-1-12},16711680,"50;;<fgcolor=FFFFFF>Partial;1")
		.MarkTimeZone("Default",{^2010-1-15},{^2010-1-19},16711680,";;<fgcolor=FFFFFF>Default;1")
	endwith
endwith

with thisform.G2antt1
	.BeginUpdate
	.HeaderAppearance = 4
	.HeaderHeight = 24
	.LinesAtRoot = -1
	with .Columns.Add("Items")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .T.
		.Def(21) = "*<%filter%>*"
		.FilterType = 3
		.Filter = "1"
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
		.ExpandItem(h) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
	endwith
	.ApplyFilter
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.HeaderAppearance = 4
	.HeaderHeight = 24
	.DrawGridLines = -1
	.GridLineStyle = 512
	with .Chart
		.GridLineStyle = 512
		.DrawGridLines = -1
	endwith
	.ColumnAutoResize = .F.
	.Columns.Add("Column 1")
	.Columns.Add("Column 2")
	.Columns.Add("Column 3")
	.Columns.Add("Column 4")
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.ColumnAutoResize = .F.
	.HeaderAppearance = 4
	.HeaderHeight = 24
	.DrawGridLines = 2
	.LinesAtRoot = -1
	rs = CreateObject("ADODB.Recordset")
	with 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)
	endwith
	.DataSource = rs
	.Columns.Item(0).Width = 128
	rs = CreateObject("ADODB.Recordset")
	with rs
		.Open("Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.mdb",3,3)
	endwith
	.PutItems(rs.GetRows(),";0;17")
	.Items.ExpandItem(0) = .T.
	.EndUpdate
endwith

*** AddItem event - Occurs after a new Item has been inserted to Items collection. ***
LPARAMETERS Item
	with thisform.G2antt1
		.Items.CellEditorVisible(Item,0) = 1
		.Items.CellEditorVisible(Item,1) = 1
	endwith

*** EditOpen event - Occurs when the edit operation starts. ***
LPARAMETERS nop
	with thisform.G2antt1
		with .Items
			v = .CellValue(.FocusItem,0)
			c = .CellCaption(.FocusItem,0)
		endwith
		with .Columns.Item(1).Editor
			.ClearItems
			.AddItem(v,c)
		endwith
	endwith

with thisform.G2antt1
	.BeginUpdate
	.HeaderAppearance = 4
	.HeaderHeight = 24
	.GridLineStyle = 512
	with .Columns.Add("DropDownList")
		with .Editor
			.EditType = 3
			.AddItem(1,"First")
			.AddItem(2,"Second")
			.AddItem(3,"Third")
		endwith
	endwith
	.DrawGridLines = -1
	.Columns.Add("DropDownList-Related").Editor.EditType = 3
	with .Items
		.CellValue(.AddItem(1),1) = -1
		.CellValue(.AddItem(2),1) = -1
		.CellValue(.AddItem(3),1) = -1
		.LockedItemCount(2) = 1
		h = .LockedItem(2,0)
		.ItemDivider(h) = 0
		.ItemDividerLineAlignment(h) = 2
		.CellEditorVisible(h,0) = .F.
		.CellSingleLine(h,0) = .F.
		.CellValueFormat(h,0) = 1
		var_s = "The drop down editor in the second column is filled during the <b>EditOpen event</b>, and the values are based on the selection "
		var_s = var_s + "on the first column."
		.CellValue(h,0) = var_s
	endwith
	.EndUpdate
endwith

*** Change event - Occurs when the user changes the cell's content. ***
LPARAMETERS Item,ColIndex,NewValue
	with thisform.G2antt1
		.Refresh
	endwith

with thisform.G2antt1
	.FreezeEvents(.T.)
	.BeginUpdate
	.HeaderAppearance = 4
	.HeaderHeight = 24
	.LinesAtRoot = -1
	with .ConditionalFormats
		with .Add("%CE1")
			.Bold = .T.
			.BackColor = RGB(245,245,245)
			.ApplyTo = 1 && 0x1
		endwith
		with .Add("%CE2")
			.Bold = .T.
			.BackColor = RGB(245,245,245)
			.ApplyTo = 2 && 0x2
		endwith
		with .Add("%CE3")
			.Bold = .T.
			.BackColor = RGB(245,245,245)
			.ApplyTo = 3 && 0x3
		endwith
	endwith
	with .Columns
		.Add("Description")
		with .Add("Qty")
			.Editor.EditType = 4
			.Def(20) = "sum(current,rec,%1)"
		endwith
		with .Add("Price")
			.Def(20) = "avg(current,rec,%2)"
			.Editor.EditType = 4
		endwith
		with .Add("Amount")
			.ComputedField = "%1 * %2"
			.Def(20) = "sum(current,rec,%3)"
		endwith
	endwith
	with .Items
		r = .AddItem("Root")
		g1 = .InsertItem(r,Null,"Group 1")
		h = .InsertItem(g1,Null,"Item 1")
		.CellValue(h,1) = 1
		.CellValue(h,2) = 10
		h = .InsertItem(g1,Null,"Item 2")
		.CellValue(h,1) = 2
		.CellValue(h,2) = 11
		g2 = .InsertItem(r,Null,"Group 2")
		h = .InsertItem(g2,Null,"Item 1")
		.CellValue(h,1) = 3
		.CellValue(h,2) = 12
		h = .InsertItem(g2,Null,"Item 2")
		.CellValue(h,1) = 4
		.CellValue(h,2) = 13
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
	.FreezeEvents(.F.)
endwith

*** Change event - Occurs when the user changes the cell's content. ***
LPARAMETERS Item,ColIndex,NewValue
	with thisform.G2antt1
		.Refresh
	endwith

with thisform.G2antt1
	.FreezeEvents(.T.)
	.BeginUpdate
	.HeaderAppearance = 4
	.HeaderHeight = 24
	.LinesAtRoot = -1
	with .ConditionalFormats
		with .Add("%CT1")
			.ForeColor = RGB(128,128,128)
			.ApplyTo = 1 && 0x1
		endwith
		with .Add("%CT2")
			.ForeColor = RGB(128,128,128)
			.ApplyTo = 2 && 0x2
		endwith
		with .Add("%CT3")
			.ForeColor = RGB(128,128,128)
			.ApplyTo = 3 && 0x3
		endwith
	endwith
	with .Columns
		.Add("Description")
		with .Add("Qty")
			.Editor.EditType = 4
			.Def(20) = "sum(current,rec,%1)"
		endwith
		with .Add("Price")
			.Def(20) = "avg(current,rec,%2)"
			.Editor.EditType = 4
		endwith
		with .Add("Amount")
			.ComputedField = "%1 * %2"
			.Def(20) = "sum(current,rec,%3)"
		endwith
	endwith
	with .Items
		r = .AddItem("Root")
		g1 = .InsertItem(r,Null,"Group 1")
		h = .InsertItem(g1,Null,"Item 1")
		.CellValue(h,1) = 1
		.CellValue(h,2) = 10
		h = .InsertItem(g1,Null,"Item 2")
		.CellValue(h,1) = 2
		.CellValue(h,2) = 11
		g2 = .InsertItem(r,Null,"Group 2")
		h = .InsertItem(g2,Null,"Item 1")
		.CellValue(h,1) = 3
		.CellValue(h,2) = 12
		h = .InsertItem(g2,Null,"Item 2")
		.CellValue(h,1) = 4
		.CellValue(h,2) = 13
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
	.FreezeEvents(.F.)
endwith

with thisform.G2antt1
	.BeginUpdate
	.ConditionalFormats.Add("%CC0=0").ForeColor = RGB(128,128,128)
	.HeaderAppearance = 4
	.HeaderHeight = 24
	.LinesAtRoot = -1
	with .Columns
		.Add("Item").Width = 16
		.Add("Desc")
	endwith
	with .Items
		hR = .AddItem("Root")
		.CellValue(hR,1) = "The root directory /"
		.ExpandItem(hR) = .T.
		h = .InsertItem(hR,Null,"Home")
		.CellValue(h,1) = "The home directory with user directories Alice and Bob"
		.InsertItem(h,Null,"Alice")
		.InsertItem(h,Null,"Bob")
		.ExpandItem(h) = .T.
		h = .InsertItem(hR,Null,"Etc")
		.CellValue(h,1) = "The etc directory with one configuration file"
		h = .InsertItem(h,Null,"nginx.conf")
		.CellValue(.InsertItem(hR,Null,"Var"),1) = "The var directory"
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.ConditionalFormats.Add("%CC0").ForeColor = RGB(255,0,0)
	.HeaderAppearance = 4
	.HeaderHeight = 24
	.LinesAtRoot = -1
	with .Columns
		.Add("Item").Width = 16
		.Add("Desc")
	endwith
	with .Items
		hR = .AddItem("Root")
		.CellValue(hR,1) = "The root directory /"
		.ExpandItem(hR) = .T.
		h = .InsertItem(hR,Null,"Home")
		.CellValue(h,1) = "The home directory with user directories Alice and Bob"
		.InsertItem(h,Null,"Alice")
		.InsertItem(h,Null,"Bob")
		.ExpandItem(h) = .T.
		h = .InsertItem(hR,Null,"Etc")
		.CellValue(h,1) = "The etc directory with one configuration file"
		h = .InsertItem(h,Null,"nginx.conf")
		.CellValue(.InsertItem(hR,Null,"Var"),1) = "The var directory"
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.ConditionalFormats.Add("%CX0").Bold = .T.
	.HeaderAppearance = 4
	.HeaderHeight = 24
	.LinesAtRoot = -1
	with .Columns
		.Add("Item").Width = 16
		.Add("Desc")
	endwith
	with .Items
		hR = .AddItem("Root")
		.CellValue(hR,1) = "The root directory /"
		.ExpandItem(hR) = .T.
		h = .InsertItem(hR,Null,"Home")
		.CellValue(h,1) = "The home directory with user directories Alice and Bob"
		.InsertItem(h,Null,"Alice")
		.InsertItem(h,Null,"Bob")
		.ExpandItem(h) = .T.
		h = .InsertItem(hR,Null,"Etc")
		.CellValue(h,1) = "The etc directory with one configuration file"
		h = .InsertItem(h,Null,"nginx.conf")
		.CellValue(.InsertItem(hR,Null,"Var"),1) = "The var directory"
	endwith
	.EndUpdate
endwith

*** Change event - Occurs when the user changes the cell's content. ***
LPARAMETERS Item,ColIndex,NewValue
	with thisform.G2antt1
		.Refresh
	endwith

with thisform.G2antt1
	.FreezeEvents(.T.)
	.BeginUpdate
	.HeaderAppearance = 4
	.HeaderHeight = 24
	.LinesAtRoot = -1
	with .Columns
		.Add("Description")
		with .Add("Qty")
			.Editor.EditType = 4
			.Def(20) = "sum(current,rec,%1)"
		endwith
		with .Add("Price")
			.Def(20) = "avg(current,rec,%2)"
			.Editor.EditType = 4
		endwith
		with .Add("Amount")
			.ComputedField = "%1 * %2"
			.Def(20) = "sum(current,rec,%3)"
		endwith
	endwith
	with .Items
		r = .AddItem("Root")
		g1 = .InsertItem(r,Null,"Group 1")
		.FormatCell(g1,2) = "`<average missing>`"
		.CellEditorVisible(g1,2) = .F.
		.CellBold(g1,2) = .T.
		.CellForeColor(g1,2) = RGB(255,0,0)
		h = .InsertItem(g1,Null,"Item 1")
		.CellValue(h,1) = 1
		.CellValue(h,2) = 10
		h = .InsertItem(g1,Null,"Item 2")
		.CellValue(h,1) = 2
		.CellValue(h,2) = 11
		g2 = .InsertItem(r,Null,"Group 2")
		h = .InsertItem(g2,Null,"Item 1")
		.CellValue(h,1) = 3
		.CellValue(h,2) = 12
		h = .InsertItem(g2,Null,"Item 2")
		.CellValue(h,1) = 4
		.CellValue(h,2) = 13
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
	.FreezeEvents(.F.)
endwith

*** Change event - Occurs when the user changes the cell's content. ***
LPARAMETERS Item,ColIndex,NewValue
	with thisform.G2antt1
		.Refresh
	endwith

with thisform.G2antt1
	.FreezeEvents(.T.)
	.BeginUpdate
	.HeaderAppearance = 4
	.HeaderHeight = 24
	.LinesAtRoot = -1
	with .Columns
		.Add("Description")
		with .Add("Qty")
			.Editor.EditType = 4
			.Def(20) = "sum(current,rec,%1)"
		endwith
		with .Add("Price")
			.Def(20) = "avg(current,rec,%2)"
			.Editor.EditType = 4
		endwith
		with .Add("Amount")
			.ComputedField = "%1 * %2"
			.Def(20) = "sum(current,rec,%3)"
		endwith
	endwith
	with .Items
		r = .AddItem("Root")
		g1 = .InsertItem(r,Null,"Group 1")
		h = .InsertItem(g1,Null,"Item 1")
		.CellValue(h,1) = 1
		.CellValue(h,2) = 10
		h = .InsertItem(g1,Null,"Item 2")
		.CellValue(h,1) = 2
		.CellValue(h,2) = 11
		g2 = .InsertItem(r,Null,"Group 2")
		h = .InsertItem(g2,Null,"Item 1")
		.CellValue(h,1) = 3
		.CellValue(h,2) = 12
		h = .InsertItem(g2,Null,"Item 2")
		.CellValue(h,1) = 4
		.CellValue(h,2) = 13
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
	.FreezeEvents(.F.)
endwith

with thisform.G2antt1
	with .Chart
		.PaneWidth(0) = 0
		.LevelCount = 2
		.ToolTip = ""
	endwith
endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 128
	endwith
	.AntiAliasing = .T.
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",9) = 2
		.Link("L1",10) = 2
		h3 = .AddItem("Task 4")
		.AddBar(h3,"Task",{^2001-1-8},{^2001-1-10},"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		.Link("L2",9) = 1
		.Link("L2",10) = 2
	endwith
	.EndUpdate
endwith

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.G2antt1
		.ShowToolTip(.Chart.BarFromPoint(-1,-1))
	endwith

with thisform.G2antt1
	.BeginUpdate
	.ToolTipMargin = "16,8"
	.Columns.Add("Def")
	with .Chart
		.AllowCreateBar = 0
		.PaneWidth(0) = 64
		.LevelCount = 2
		.FirstVisibleDate = {^2010-1-1}
		.Bars.Item("Task").Def(6) = "..."
	endwith
	with .Items
		h = .AddItem("Task")
		.AddBar(h,"Task",{^2010-1-2},{^2010-1-5},"A","A")
		.AddBar(h,"Task",{^2010-1-5},{^2010-1-8},"B","B")
	endwith
	.EndUpdate
endwith

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.G2antt1
		.ShowToolTip(.Chart.BarFromPoint(-1,-1))
	endwith

with thisform.G2antt1
	.BeginUpdate
	.ToolTipMargin = "16,8"
	.Columns.Add("Def")
	with .Chart
		.AllowCreateBar = 0
		.PaneWidth(0) = 64
		.LevelCount = 2
		.FirstVisibleDate = {^2010-1-1}
		.Bars.Item("Task").Def(6) = "..."
	endwith
	with .Items
		h = .AddItem("Task")
		.AddBar(h,"Task",{^2010-1-2},{^2010-1-5},"A","A")
		.AddBar(h,"Task",{^2010-1-5},{^2010-1-8},"B","B")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.DefaultItemHeight = 24
	.HeaderHeight = 20
	.HeaderAppearance = 4
	.AntiAliasing = .T.
	.Columns.Add("Task")
	with .Chart
		.PaneWidth(0) = 48
		.LevelCount = 2
		.UnitScale = 65536
		.FirstVisibleDate = {^2024-1-10}
		with .Level(1)
			.DrawTickLines = 0
			.DrawTickLinesFrom(0,1)
		endwith
		.AllowResizeChart = -1 && 0xfffffef9 Or ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader
		.ShowLinks = 1
	endwith
	with .Items
		.AddBar(.AddItem("T1"),"Task",{^2024-1-10 10:00:00},{^2024-1-10 10:20:00},"T1")
		.AddBar(.AddItem("T2"),"Task",{^2024-1-10 9:00:00},{^2024-1-10 12:00:00},"T2")
		.AddBar(.AddItem("T3"),"Task",{^2024-1-10 8:00:00},{^2024-1-10 8:30:00},"T3")
		.AddBar(.AddItem("T4"),"Task",{^2024-1-10 8:00:00},{^2024-1-10 8:30:00},"T4")
		.AddLink("L13",.ItemByIndex(0),"T1",.ItemByIndex(2),"T3")
		.AddLink("L14",.ItemByIndex(0),"T1",.ItemByIndex(3),"T4")
		.AddLink("L24",.ItemByIndex(1),"T2",.ItemByIndex(3),"T4")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.DefaultItemHeight = 24
	.HeaderHeight = 20
	.HeaderAppearance = 4
	.AntiAliasing = .T.
	.Columns.Add("Task")
	with .Chart
		.PaneWidth(0) = 48
		.LevelCount = 2
		.UnitScale = 65536
		.FirstVisibleDate = {^2024-1-10}
		with .Level(1)
			.DrawTickLines = 0
			.DrawTickLinesFrom(0,1)
		endwith
		.AllowResizeChart = -1 && 0xfffffef9 Or ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader
	endwith
	with .Items
		.AddBar(.AddItem("T1"),"Task",{^2024-1-10 10:00:00},{^2024-1-10 10:20:00},"T1")
		.AddBar(.AddItem("T2"),"Task",{^2024-1-10 9:00:00},{^2024-1-10 12:00:00},"T2")
		.AddBar(.AddItem("T3"),"Task",{^2024-1-10 8:00:00},{^2024-1-10 8:30:00},"T3")
		.AddBar(.AddItem("T4"),"Task",{^2024-1-10 8:00:00},{^2024-1-10 8:30:00},"T4")
		.AddLink("L1",.ItemByIndex(0),"T1",.ItemByIndex(2),"T3")
		.AddLink("L2",.ItemByIndex(1),"T2",.ItemByIndex(3),"T4")
		.Link("L2",15) = 4
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	with .Columns.Add("Edit").Editor
		.EditType = 1
		.Option(20) = .F.
		.Option(21) = .F.
	endwith
	with .Items
		.AddItem("000")
		.AddItem("111")
		.AddItem("222")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	with .Columns.Add("Edit").Editor
		.EditType = 1
		.Option(48) = -1
	endwith
	with .Items
		.AddItem("000")
		.AddItem("111")
		.AddItem("222")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	var_s = "gBFLBCJwBAEHhEJAAEhABVIDg6AADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADE2YAoJDUN4nDKMMDybBkRxtDCPIDnGQoDi"
	var_s = var_s + "GI4nSbKIzSCKMQhrEKZZrnaLJFgOTY8ABLEBvfSgASof6MKBlKhKGoiUo2SCFEaBTBNHxDL6raqqWJ5HDINQlWzbcjjKKFYRbOqTZDkGj4XqKTo3YBAdZSXJsXwTGKkj"
	var_s = var_s + "i3ZgMOR3HaQaTjOgINpuDZdRzkUYZUDFSwSDqQIRtCpbJqzFZDZbLNbYBYME47AayID0CbdCgmaalSZHNxbVa0BzpXrFLw1TLoDy8AJ+ABseKzfo9PxdIygZRzKJ8aof"
	var_s = var_s + "E+YxynIfJcC8QgbCmL5eiEPIKH6RABlibJpicW4/FcAx/HOYRGmud4+CcHxdmiDhkGEIIIEkQJSGMHQHFGSBlFEUITEmewAAQIQ2AYRpDGQJAoEIXhXCkCB5kmSAdmgV"
	var_s = var_s + "ZPmgZJ8gaT4oHSeIHk8aIEnWCJiEiFgmgmYoIiYJIIE8aB8niB0pmyfIGE+ZYmDQPpjgOUg6DqY5DgYPg2mQAxqEKEJkEkFhGhGZIJA4QA2mOY4GDwOsumCe4NAACJKD"
	var_s = var_s + "oPQOFkZJThaSoZHSGYXmYCYGGKGJmEmFhmCsJoDFYag5iaSISDIAAjAkPJLhyS4JlYbA5iSeZmHqHpnkmdh+hOZx5lSOAzGgSQ+DAAAimkNIkiKTh6DSbIjmkChGhKJJ"
	var_s = var_s + "pEoVoWiSaJThyKImmSWI4ACCwNkqBhgDsahKhaJopmqComiqKpqkqEhghKYpAAIJIQmYA46jaLZrgqZo6i6a5KnaPotiZRQkiyIg6lIXw7myCwmkqMpsksNpOjObQLCK"
	var_s = var_s + "QYQiwOpOEKGAPAsZpajabZLHaXo3m4C4GlmNJNisVpFjWZZzkaao6m6S42m6O5vAuRpyjqLhLhidYxgmE5KnqPpvkudp+j+cAMAcAo+i8WIOkSPZuguZwDkKcJMDafpB"
	var_s = var_s + "E8XAengPJxEwVwWkWcYMGcGpGnGTBTBCRIwhkXwikichMhcJpJnKDIPB+NYNimAgqkucwMkcMoInKO4fC2F5ikyZw6k6c5MncPpPnOLJXAiTZJhOXxGlGdINCcSpSnST"
	var_s = var_s + "Q3E6UY0CuYgulSdRNFcVpVnWDRnFSVBwh0axeledgNFsXJRA+HYXGaWZ2g2JxqlqdpNjcZZYmYCJDHKXJ3E2K4doux3gbE8OEF4ygtjuH6L8eAHAHgFGCO8bY2QZgZDi"
	var_s = var_s + "BwJ4FRijxE4G8DoxBxj6B6EINwTADjvBaMseYHBng1GaPMTg7wepxA4J4Rx8RjgfCYFMeoEQ6BpGqPUTob2MD2A6IQLoNAKiHAuG0WYAAJCVBCCETAHR3DMFWPgDwD29"
	var_s = var_s + "j4E8CoV4sw7imAIIcJASggAHBeBIJw5grikCmHoSYNxWjrH2BMAoNgqAZE8O0GYEg5DgAIG8DgxwjhXGaCYZIcgnxBGSDILgmwTjKHkJMNwqgjCREoGEC4RRMifHqJcY"
	var_s = var_s + "okQ6BgEYJEUIaQOhlHIIESAECAg="
	.VisualAppearance.Add(1,var_s)
	.BackColorLevelHeader = .BackColor
	.Object.Background(199) = RGB(1,0,0)
	.Object.Background(200) = RGB(240,240,240)
	.Chart.OverviewSelBackColor = RGB(255,255,255)
	.Object.Background(201) = 0x1000000
	with .Chart
		.FirstVisibleDate = {^2001-6-21}
		.PaneWidth(0) = 48
		.OverviewVisible = 31746 && 0x400 Or OverviewVisibleEnum.exOverviewShowSelMargins Or OverviewVisibleEnum.exOverviewShowMargins Or OverviewVisibleEnum.exOverviewShowDateTimeScaleBottom Or OverviewVisibleEnum.exOverviewShowAllVisible
		.OverviewHeight = 64
		.LevelCount = 2
		.UnitScale = 4096
		.Label(65536) = ""
		.Label(1048576) = ""
		.Label(16777216) = ""
		.AllowOverviewZoom = 1
	endwith
	.Columns.Add("Column")
	with .Items
		.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-11})
		.AddBar(.AddItem("Item 2"),"Task",{^2001-7-2},{^2001-7-11})
		.AddBar(.AddItem("Item 3"),"Task",{^2001-11-2},{^2001-11-11})
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.BackColorLevelHeader = .BackColor
	.Object.Background(199) = RGB(0,0,255)
	with .Chart
		.FirstVisibleDate = {^2001-6-21}
		.PaneWidth(0) = 48
		.OverviewVisible = 31746 && 0x400 Or OverviewVisibleEnum.exOverviewShowSelMargins Or OverviewVisibleEnum.exOverviewShowMargins Or OverviewVisibleEnum.exOverviewShowDateTimeScaleBottom Or OverviewVisibleEnum.exOverviewShowAllVisible
		.OverviewHeight = 64
		.LevelCount = 2
		.UnitScale = 4096
	endwith
	.Columns.Add("Column")
	with .Items
		.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-11})
		.AddBar(.AddItem("Item 2"),"Task",{^2001-7-2},{^2001-7-11})
		.AddBar(.AddItem("Item 3"),"Task",{^2001-11-2},{^2001-11-11})
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.BackColorLevelHeader = .BackColor
	.Object.Background(199) = RGB(1,0,0)
	with .Chart
		.FirstVisibleDate = {^2001-6-21}
		.PaneWidth(0) = 48
		.OverviewVisible = 31746 && 0x400 Or OverviewVisibleEnum.exOverviewShowSelMargins Or OverviewVisibleEnum.exOverviewShowMargins Or OverviewVisibleEnum.exOverviewShowDateTimeScaleBottom Or OverviewVisibleEnum.exOverviewShowAllVisible
		.OverviewHeight = 64
		.LevelCount = 2
		.UnitScale = 4096
	endwith
	.Columns.Add("Column")
	with .Items
		.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-11})
		.AddBar(.AddItem("Item 2"),"Task",{^2001-7-2},{^2001-7-11})
		.AddBar(.AddItem("Item 3"),"Task",{^2001-11-2},{^2001-11-11})
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.OnResizeControl = 1
	.SortBarVisible = .T.
	.SortBarCaption = "<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)"
	.AllowGroupBy = .T.
	.HeaderEnabled = .F.
	.HeaderAppearance = 4
	.Columns.Add("Index").FormatColumn = "1 index ``"
	.Columns.Add("Pos").FormatColumn = "1 apos ``"
	.Columns.Add("Edit").Editor.EditType = 1
	.GridLineStyle = 512
	.DrawGridLines = 2
	.GridLineColor = RGB(224,224,224)
	with .Chart
		.AllowCreateBar = 1
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 196
		.GridLineStyle = 512
		.DrawGridLines = -1
		with .Level(1)
			.DrawGridLines = .T.
			.GridLineColor = thisform.G2antt1.GridLineColor
		endwith
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Name")
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 64
	endwith
	with .Items
		h1 = .AddItem("Item 1")
		.AddBar(h1,"Task",{^2001-1-3},{^2001-1-6})
		h2 = .AddItem("Item 2")
		.AddBar(h2,"Task",{^2001-1-3},{^2001-1-6})
		.AddLink("Link1",h1,"",h2,"")
		.SchedulePDM(0,"")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Name")
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 64
	endwith
	with .Items
		h1 = .AddItem("Item 1")
		.AddBar(h1,"Task",{^2001-1-3},{^2001-1-6})
		h2 = .AddItem("Item 2")
		.AddBar(h2,"Task",{^2001-1-3},{^2001-1-6})
		.AddLink("Link1",h1,"",h2,"")
		.Link("Link1",6) = 0
		.Link("Link1",7) = 0
		.SchedulePDM(0,"")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Name")
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 64
	endwith
	with .Items
		h1 = .AddItem("Item 1")
		.AddBar(h1,"Task",{^2001-1-3},{^2001-1-6})
		h2 = .AddItem("Item 2")
		.AddBar(h2,"Task",{^2001-1-3},{^2001-1-6})
		.AddLink("Link1",h1,"",h2,"")
		.Link("Link1",6) = 2
		.Link("Link1",7) = 2
		.SchedulePDM(0,"")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Name")
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 64
	endwith
	with .Items
		h1 = .AddItem("Item 1")
		.AddBar(h1,"Task",{^2001-1-3},{^2001-1-6})
		h2 = .AddItem("Item 2")
		.AddBar(h2,"Task",{^2001-1-3},{^2001-1-6})
		.AddLink("Link1",h1,"",h2,"")
		.Link("Link1",6) = 0
		.Link("Link1",7) = 2
		.SchedulePDM(0,"")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Name")
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 64
	endwith
	with .Items
		h1 = .AddItem("Item 1")
		.AddBar(h1,"Task",{^2001-1-3},{^2001-1-6})
		h2 = .AddItem("Item 2")
		.AddBar(h2,"Task",{^2001-1-3},{^2001-1-6})
		.ItemBar(h2,"",270) = "1FS"
		.SchedulePDM(0,"")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Name")
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 64
	endwith
	with .Items
		h1 = .AddItem("Item 1")
		.AddBar(h1,"Task",{^2001-1-3},{^2001-1-6})
		h2 = .AddItem("Item 2")
		.AddBar(h2,"Task",{^2001-1-3},{^2001-1-6})
		.ItemBar(h2,"",270) = "1SS"
		.SchedulePDM(0,"")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Name")
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 64
	endwith
	with .Items
		h1 = .AddItem("Item 1")
		.AddBar(h1,"Task",{^2001-1-3},{^2001-1-6})
		h2 = .AddItem("Item 2")
		.AddBar(h2,"Task",{^2001-1-3},{^2001-1-6})
		.ItemBar(h2,"",270) = "1FF"
		.SchedulePDM(0,"")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Name")
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 64
	endwith
	with .Items
		h1 = .AddItem("Item 1")
		.AddBar(h1,"Task",{^2001-1-3},{^2001-1-6})
		h2 = .AddItem("Item 2")
		.AddBar(h2,"Task",{^2001-1-3},{^2001-1-6})
		.ItemBar(h2,"",270) = "1SF"
		.SchedulePDM(0,"")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Name")
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 64
	endwith
	with .Items
		h1 = .AddItem("Item 1")
		.AddBar(h1,"Task",{^2001-1-3},{^2001-1-6})
		h2 = .AddItem("Item 2")
		.AddBar(h2,"Task",{^2001-1-3},{^2001-1-6})
		.AddLink("Link1",h1,"",h2,"")
		.Link("Link1",260) = "SF"
		.SchedulePDM(0,"")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Name")
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 64
	endwith
	with .Items
		h1 = .AddItem("Item 1")
		.AddBar(h1,"Task",{^2001-1-3},{^2001-1-6})
		h2 = .AddItem("Item 2")
		.AddBar(h2,"Task",{^2001-1-3},{^2001-1-6})
		.AddLink("Link1",h1,"",h2,"")
		.Link("Link1",260) = "FF"
		.SchedulePDM(0,"")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Name")
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 64
	endwith
	with .Items
		h1 = .AddItem("Item 1")
		.AddBar(h1,"Task",{^2001-1-3},{^2001-1-6})
		h2 = .AddItem("Item 2")
		.AddBar(h2,"Task",{^2001-1-3},{^2001-1-6})
		.AddLink("Link1",h1,"",h2,"")
		.Link("Link1",260) = "SS"
		.SchedulePDM(0,"")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Name")
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 64
	endwith
	with .Items
		h1 = .AddItem("Item 1")
		.AddBar(h1,"Task",{^2001-1-3},{^2001-1-6})
		h2 = .AddItem("Item 2")
		.AddBar(h2,"Task",{^2001-1-3},{^2001-1-6})
		.AddLink("Link1",h1,"",h2,"")
		.Link("Link1",260) = "FS"
		.SchedulePDM(0,"")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Name")
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 64
		with .Bars.Add("Task:Split")
			.Shortcut = "Task"
			.Def(20) = .T.
		endwith
	endwith
	with .Items
		.AddBar(.AddItem("Item 1"),"Task",{^2001-1-3},{^2001-1-6})
		.AddBar(.AddItem("Item 2"),"Task",{^2001-1-3},{^2001-1-6})
		.AddBar(.AddItem("Item 3"),"Task",{^2001-1-3},{^2001-1-6})
		.ItemBar(.ItemByIndex(0),"",271) = "2SF:-1,3SF:-1W"
		.SchedulePDM(0,"")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Name")
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 64
	endwith
	with .Items
		.AddBar(.AddItem("Item 1"),"Task",{^2001-1-3},{^2001-1-6})
		.AddBar(.AddItem("Item 2"),"Task",{^2001-1-3},{^2001-1-6})
		.AddBar(.AddItem("Item 3"),"Task",{^2001-1-3},{^2001-1-6})
		.ItemBar(.ItemByIndex(0),"",271) = "2SF:-1,3SF:-1W"
		.SchedulePDM(0,"")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Name")
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 64
	endwith
	with .Items
		.AddBar(.AddItem("Item 1"),"Task",{^2001-1-1},{^2001-1-4})
		.AddBar(.AddItem("Item 2"),"Task",{^2001-1-5},{^2001-1-8})
		.AddBar(.AddItem("Item 3"),"Task",{^2001-1-9},{^2001-1-12})
		.AddLink("L1",.ItemByIndex(0),"",.ItemByIndex(1),"")
		.AddLink("L2",.ItemByIndex(1),"",.ItemByIndex(2),"")
		.ItemBar(.ItemByIndex(1),"",271) = ""
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Name")
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 64
	endwith
	with .Items
		.AddBar(.AddItem("Item 1"),"Task",{^2001-1-1},{^2001-1-4})
		.AddBar(.AddItem("Item 2"),"Task",{^2001-1-5},{^2001-1-8})
		.AddBar(.AddItem("Item 3"),"Task",{^2001-1-9},{^2001-1-12})
		.AddLink("L1",.ItemByIndex(0),"",.ItemByIndex(1),"")
		.AddLink("L2",.ItemByIndex(1),"",.ItemByIndex(2),"")
		.ItemBar(.ItemByIndex(1),"",270) = ""
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Name")
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 64
	endwith
	with .Items
		h = .AddItem("Item 1")
		.AddBar(h,"Task",{^2001-1-1},{^2001-1-4})
		.AddBar(.AddItem("Item 2"),"Task",{^2001-1-5},{^2001-1-8})
		.ItemBar(h,"",271) = "2SF"
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Name")
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 64
	endwith
	with .Items
		h = .AddItem("Item 1")
		.AddBar(h,"Task",{^2001-1-1},{^2001-1-4})
		.AddBar(.AddItem("Item 2"),"Task",{^2001-1-5},{^2001-1-8})
		.ItemBar(h,"",270) = "2SF"
	endwith
	.EndUpdate
endwith

*** AddLink event - Occurs when the user links two bars using the mouse. ***
LPARAMETERS LinkKey
	with thisform.G2antt1
		.Items.Link(LinkKey,15) = 3
	endwith

with thisform.G2antt1
	.BeginUpdate
	.OnResizeControl = 1
	.HeaderAppearance = 4
	.ColumnAutoResize = .F.
	.HeaderHeight = 32
	.DefaultItemHeight = 28
	.BackColorLevelHeader = RGB(255,255,255)
	.Object.Background(197) = RGB(160,160,160)
	.Object.Background(198) = RGB(128,128,128)
	with .Columns
		.Add("Name").Width = 48
		with .Add("Start")
			.Width = 48
			.Editor.EditType = 7
			.Def(18) = 1
		endwith
		with .Add("End")
			.Width = 48
			.Editor.EditType = 7
			.Def(18) = 543
		endwith
		with .Add("Predecessor")
			with .Editor
				.EditType = 1
				.EditType = 8
				.Mask = ";;;rich"
			endwith
			.Def(18) = 270
		endwith
		with .Add("Successor")
			with .Editor
				.EditType = 1
				.EditType = 8
				.Mask = ";;;rich"
			endwith
			.Def(18) = 271
		endwith
		with .Add("(I)")
			.FormatColumn = "1 index ``"
			.Position = 0
			.AllowSizing = .F.
			.Width = 20
		endwith
	endwith
	.ColumnAutoResize = .T.
	.GridLineStyle = 512
	.DrawGridLines = -1
	.GridLineColor = RGB(224,224,224)
	.AntiAliasing = .T.
	with .Chart
		.ShowLinks = 1
		.LinksStyle = 0
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 362
		.NonworkingDays = 0
		.AllowLinkBars = .T.
		.AllowCreateBar = 2
		.AllowZoomOnFly = -1 && 0xfffffcc4 Or ZoomOnFlyEnum.exZoomOnFlyIncludeSelectedItems Or ZoomOnFlyEnum.exZoomOnFlyBarsOnly Or ZoomOnFlyEnum.exZoomOnFly Or ZoomOnFlyEnum.exZoomOnFlyCtrl Or ZoomOnFlyEnum.exZoomOnFlyShift
		.GridLineStyle = 512
		.DrawGridLines = -1
		with .Bars.Item("Task")
			.Height = 15
			.Def(3) = "<%=%C5%>"
		endwith
	endwith
	with .Items
		.AllowCellValueToItemBar = .T.
		.AddBar(.AddItem("Phase A"),"Task",{^2001-1-1},{^2001-1-6})
		.AddBar(.AddItem("Phase B"),"Task",{^2001-1-2},{^2001-1-7})
		.AddBar(.AddItem("Phase C"),"Task",{^2000-12-29},{^2001-1-4})
		.AddLink("L1",.ItemByIndex(0),"",.ItemByIndex(1),"")
		.Link("L1",17) = 1
		.AddLink("L2",.ItemByIndex(0),"",.ItemByIndex(2),"")
		.AddLink("L3",.ItemByIndex(2),"",.ItemByIndex(1),"")
		.SchedulePDM(0,"")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.HeaderAppearance = 4
	with .Columns
		.Add("Name").Width = 48
		with .Add("Successor")
			with .Editor
				.EditType = 1
				.EditType = 8
				.Mask = ";;;rich"
			endwith
			.Def(18) = 271
		endwith
		with .Add("(I)")
			.FormatColumn = "1 index ``"
			.Position = 0
			.AllowSizing = .F.
			.Width = 20
		endwith
	endwith
	.ColumnAutoResize = .T.
	.GridLineStyle = 512
	.DrawGridLines = -1
	.GridLineColor = RGB(224,224,224)
	.AntiAliasing = .T.
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 256
		.AllowLinkBars = .T.
		.AllowCreateBar = 2
	endwith
	with .Items
		.AllowCellValueToItemBar = .T.
		.AddBar(.AddItem("Phase A"),"Task",{^2001-1-1},{^2001-1-6})
		.AddBar(.AddItem("Phase B"),"Task",{^2001-1-2},{^2001-1-7})
		.AddBar(.AddItem("Phase C"),"Task",{^2000-12-29},{^2001-1-4})
		.AddLink("L1",.ItemByIndex(0),"",.ItemByIndex(1),"")
		.AddLink("L2",.ItemByIndex(0),"",.ItemByIndex(2),"")
		.AddLink("L3",.ItemByIndex(2),"",.ItemByIndex(1),"")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.HeaderAppearance = 4
	with .Columns
		.Add("Name").Width = 48
		with .Add("Predecessor")
			with .Editor
				.EditType = 1
				.EditType = 8
				.Mask = ";;;rich"
			endwith
			.Def(18) = 270
		endwith
		with .Add("(I)")
			.FormatColumn = "1 index ``"
			.Position = 0
			.AllowSizing = .F.
			.Width = 20
		endwith
	endwith
	.ColumnAutoResize = .T.
	.GridLineStyle = 512
	.DrawGridLines = -1
	.GridLineColor = RGB(224,224,224)
	.AntiAliasing = .T.
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 256
		.AllowLinkBars = .T.
		.AllowCreateBar = 2
	endwith
	with .Items
		.AllowCellValueToItemBar = .T.
		.AddBar(.AddItem("Phase A"),"Task",{^2001-1-1},{^2001-1-6})
		.AddBar(.AddItem("Phase B"),"Task",{^2001-1-2},{^2001-1-7})
		.AddBar(.AddItem("Phase C"),"Task",{^2000-12-29},{^2001-1-4})
		.AddLink("L1",.ItemByIndex(0),"",.ItemByIndex(1),"")
		.AddLink("L2",.ItemByIndex(0),"",.ItemByIndex(2),"")
		.AddLink("L3",.ItemByIndex(2),"",.ItemByIndex(1),"")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	with .Columns
		.Add("Name").Width = 48
		with .Add("Index")
			.FormatColumn = "1 index ``"
			.Position = 0
			.AllowSizing = .F.
			.Width = 48
		endwith
	endwith
	with .Items
		.AddItem("Phase A")
		.AddItem("Phase B")
		.AddItem("Phase C")
	endwith
	.EndUpdate
endwith

*** CreateBar event - Fired when the user creates a new bar. ***
LPARAMETERS Item,DateStart,DateEnd
	with thisform.G2antt1
		.Items.AddBar(Item,"Task",DateStart,DateEnd,"","new")
	endwith

with thisform.G2antt1
	.BeginUpdate
	.OnResizeControl = 1
	.HeaderAppearance = 4
	.Columns.Add("Index").FormatColumn = "1 index ``"
	.GridLineStyle = 512
	.DrawGridLines = 1
	.GridLineColor = RGB(224,224,224)
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 64
		.NonworkingDays = 0
		.AllowLinkBars = .T.
		.AllowCreateBar = -2
		.AllowZoomOnFly = -1 && 0xfffffcc4 Or ZoomOnFlyEnum.exZoomOnFlyIncludeSelectedItems Or ZoomOnFlyEnum.exZoomOnFlyBarsOnly Or ZoomOnFlyEnum.exZoomOnFly Or ZoomOnFlyEnum.exZoomOnFlyCtrl Or ZoomOnFlyEnum.exZoomOnFlyShift
		.GridLineStyle = thisform.G2antt1.GridLineStyle && thisform.G2antt1.GridLineStyle
		.DrawGridLines = -1
		with .Level(1)
			.DrawGridLines = .T.
			.GridLineColor = thisform.G2antt1.GridLineColor
		endwith
	endwith
	with .Items
		.AddItem("")
		.AddItem("")
		.AddItem("")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.OnResizeControl = 1
	.HeaderAppearance = 4
	.Columns.Add("Index").FormatColumn = "1 index ``"
	.GridLineStyle = 512
	.DrawGridLines = 1
	.GridLineColor = RGB(224,224,224)
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-28}
		.PaneWidth(0) = 64
		.NonworkingDays = 0
		.AllowLinkBars = .T.
		.AllowCreateBar = 2
		.AllowZoomOnFly = -1 && 0xfffffcc4 Or ZoomOnFlyEnum.exZoomOnFlyIncludeSelectedItems Or ZoomOnFlyEnum.exZoomOnFlyBarsOnly Or ZoomOnFlyEnum.exZoomOnFly Or ZoomOnFlyEnum.exZoomOnFlyCtrl Or ZoomOnFlyEnum.exZoomOnFlyShift
		.GridLineStyle = thisform.G2antt1.GridLineStyle && thisform.G2antt1.GridLineStyle
		.DrawGridLines = -1
		with .Level(1)
			.DrawGridLines = .T.
			.GridLineColor = thisform.G2antt1.GridLineColor
		endwith
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.ScrollBars = 2050 && ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
	.Object.Background(195) = RGB(1,0,0)
	.Columns.Add("Tasks")
	with .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.Bars.Item("Task").Def(20) = .T.
		.PaneWidth(0) = 96
		.AllowCreateBar = 1
		.FirstVisibleDate = {^2005-6-20}
		.LevelCount = 2
		.DrawDateTicker = .T.
		.DateTickerLabel = "<%=value format `ddd dd`%><fgcolor 808080><%=(value=end?` (` + (wcount) + `wd)`:``)%>"
	endwith
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2005-6-21},{^2005-6-28})
		.AddBar(.AddItem("Task 2"),"Task",{^2005-6-28},{^2005-7-1})
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.ScrollBars = 2050 && ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
	.Object.Background(195) = RGB(1,0,0)
	.Columns.Add("Tasks")
	with .Chart
		.PaneWidth(0) = 96
		.AllowCreateBar = 1
		.FirstVisibleDate = {^2005-6-20}
		.LevelCount = 2
		.DrawDateTicker = .T.
		.DateTickerLabel = "<%=value format `ddd dd`%><fgcolor 808080><%=(value=end?` (` + (end-start) + `d)`:``)%>"
	endwith
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2005-6-21},{^2005-6-28})
		.AddBar(.AddItem("Task 2"),"Task",{^2005-6-28},{^2005-7-1})
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.ScrollBars = 2050 && ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
	.Object.Background(195) = RGB(1,0,0)
	.Columns.Add("Tasks")
	with .Chart
		.PaneWidth(0) = 96
		.AllowCreateBar = 1
		.FirstVisibleDate = {^2005-6-20}
		.LevelCount = 2
		.DrawDateTicker = .T.
		var_s = "<%=(0 array (0:=(longdate(date(value)) split `,`)) left 3) + ` ` +  ((2 array ((1 array =:0) split ` `)) lpad `00`) + (value=end"
		var_s = var_s + "?` (` + (end-start) + `d)`:``)%>"
		.DateTickerLabel = var_s
	endwith
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2005-6-21},{^2005-6-28})
		.AddBar(.AddItem("Task 2"),"Task",{^2005-6-28},{^2005-7-1})
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.ScrollBars = 2050 && ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
	.Object.Background(195) = RGB(1,0,0)
	.Columns.Add("Tasks")
	with .Chart
		.PaneWidth(0) = 96
		.AllowCreateBar = 1
		.FirstVisibleDate = {^2005-6-20}
		.LevelCount = 2
		.DrawDateTicker = .T.
		var_s = "<%=(weekday(0:=(value-(value=end?1:0))) array 'Sun Mon Tue Wed Thu Fri Sat' split ' ') + ` ` + day(=:0) + ` ` + ((month(=:0) - 1"
		var_s = var_s + ") array 'Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec' split ' ') + (value=end?` (` + (end-start) + `d)`:``)%>"
		.DateTickerLabel = var_s
	endwith
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2005-6-21},{^2005-6-28})
		.AddBar(.AddItem("Task 2"),"Task",{^2005-6-28},{^2005-7-1})
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.ScrollBars = 2050 && ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
	.Object.Background(195) = RGB(1,0,0)
	.Columns.Add("Tasks")
	with .Chart
		.PaneWidth(0) = 96
		.AllowCreateBar = 1
		.FirstVisibleDate = {^2005-6-20}
		.LevelCount = 2
		.DrawDateTicker = .T.
		.DateTickerLabel = "<%ddd%> <%d%> <%mmm%><%=(value=end?` (` + (end-start) + `d)`:``)%>"
	endwith
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2005-6-21},{^2005-6-28})
		.AddBar(.AddItem("Task 2"),"Task",{^2005-6-28},{^2005-7-1})
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.ScrollBars = 2050 && ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
	.Object.Background(195) = RGB(1,0,0)
	.Columns.Add("Tasks")
	with .Chart
		.PaneWidth(0) = 96
		.AllowCreateBar = 1
		.FirstVisibleDate = {^2005-6-20}
		.LevelCount = 2
		.DrawDateTicker = .T.
		var_s = "<%=(weekday(value) array 'Sun Mon Tue Wed Thu Fri Sat' split ' ') + ` ` + day(value) + ` ` + ((month(value) - 1) array 'Jan Feb "
		var_s = var_s + "Mar Apr May Jun Jul Aug Sep Oct Nov Dec' split ' ') + (value=end?` (` + (end-start) + `d)`:``)%>"
		.DateTickerLabel = var_s
	endwith
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2005-6-21},{^2005-6-28})
		.AddBar(.AddItem("Task 2"),"Task",{^2005-6-28},{^2005-7-1})
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.ScrollBars = 2050 && ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
	.Object.Background(195) = RGB(1,0,0)
	.Columns.Add("Tasks")
	with .Chart
		.PaneWidth(0) = 96
		.AllowCreateBar = 1
		.FirstVisibleDate = {^2005-6-20}
		.LevelCount = 2
		.DrawDateTicker = .T.
		.DateTickerLabel = "<%=value=start?``:value%>"
	endwith
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2005-6-21},{^2005-6-28})
		.AddBar(.AddItem("Task 2"),"Task",{^2005-6-23},{^2005-7-3})
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.ScrollBars = 2050 && ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
	.Object.Background(195) = RGB(1,0,0)
	.Columns.Add("Tasks")
	with .Chart
		.PaneWidth(0) = 96
		.AllowCreateBar = 1
		.ResizeUnitScale = 65536
		.FirstVisibleDate = {^2005-6-20}
		.LevelCount = 2
		.DrawDateTicker = .T.
		var_s = "<%=date(value=end?value-1:value)%><fgcolor 666666><off -4><%=value=end?` ` + ((1:=int(0:= end - start)) != 0 ? (=:1 + ' day(s)')"
		var_s = var_s + " : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s) ' : '' ) + ((1:=round((=:0 - ="
		var_s = var_s + ":1)*60)) != 0 ? =:1 + ' min(s)' : ''):``%>"
		.DateTickerLabel = var_s
	endwith
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2005-6-21},{^2005-6-28})
		.AddBar(.AddItem("Task 2"),"Task",{^2005-6-23},{^2005-7-3})
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.ScrollBars = 2050 && ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
	.Object.Background(195) = RGB(1,0,0)
	.Columns.Add("Tasks")
	with .Chart
		.PaneWidth(0) = 96
		.AllowCreateBar = 1
		.FirstVisibleDate = {^2005-6-20}
		.LevelCount = 2
		.DrawDateTicker = .T.
		.DateTickerLabel = "<%mmm%> <%d%><fgcolor 808080><%=value=end?` (`+(end - start) + ` days)`:``%>"
	endwith
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2005-6-21},{^2005-6-28})
		.AddBar(.AddItem("Task 2"),"Task",{^2005-6-23},{^2005-7-3})
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.ScrollBars = 2050 && ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
	.Object.Background(195) = RGB(1,0,0)
	.Columns.Add("Tasks")
	with .Chart
		.PaneWidth(0) = 96
		.AllowCreateBar = 1
		.FirstVisibleDate = {^2005-6-20}
		.LevelCount = 2
		.DrawDateTicker = .T.
		.DateTickerLabel = "<%mmm%> <%d%>"
	endwith
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2005-6-21},{^2005-6-28})
		.AddBar(.AddItem("Task 2"),"Task",{^2005-6-23},{^2005-7-3})
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAAEhABT0GACAADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCOIwAFBIZhrE4ZRwGCQRRgyI43RhHUBzVI"
		var_s = var_s + "UBxDEaTZLlGY4NjSIYHThPMzyDRlEyBBqVKKoWLZMjiIY2RhJM7SBR0OROGQaRJrewZHDUMJiQjZVoVNTkNyxH6uYzoKSqVACLowTJNFZXDDkeR5JqcKBqChIEpKO5wR"
		var_s = var_s + "riAABVZoAA3Rq+AAuPBJIwYAAyXTIdTwThkBz3R6tchgOw7LxeZJpWbZOo0TgGFwTLDQNCifI7Vi6NJ1DdcKLNNx3tDBdpGXZ4JznGa8a7jN57dr+JQ7U6degACytKxL"
		var_s = var_s + "BeOprHMcA+GafxaAiBIUA0JgziGVJkGUGJIFyUYiBEN5VBsGxCEUEIcn0cAxBgWBijmM4Ekec57n0RwJBgBgCgCEZCC4BoBmAdBwgSApgkgMQcB8YQIEYERHAceBWBaB"
		var_s = var_s + "YRkGQgagaYY0HAaYHmICIBBwGJiEiFglEcBYYiYKoKhGQRCC6C5inQcBNgyYxIlIMoNGMWI2DCDAigiLgrgiYhohoHoIGIGBmByBwhEgXgXgOYQoEoCoDGCWAWAiAggA"
		var_s = var_s + "gDgDEcH5pGUHAoCWSR2F0cxOjSHQJEAQCAg="
		.Add(1,var_s)
		.Add(2,"CP:1 -2 -2 4 4")
	endwith
	.ScrollBars = 2050 && ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
	.Object.Background(192) = 0x2000000
	.Object.Background(193) = RGB(255,255,255)
	.Object.Background(194) = RGB(1,0,0)
	.Object.Background(195) = RGB(1,0,0)
	.Object.Background(196) = RGB(4,0,0)
	.Columns.Add("Tasks")
	with .Chart
		.PaneWidth(0) = 96
		.AllowCreateBar = 1
		.FirstVisibleDate = {^2005-6-20}
		.LevelCount = 2
		.DrawDateTicker = .T.
		.DateTickerLabel = "<%mmm%><br><%d%>"
	endwith
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2005-6-21},{^2005-6-28})
		.AddBar(.AddItem("Task 2"),"Task",{^2005-6-23},{^2005-7-3})
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	var_s = "gBFLBCJwBAEHhEJAAEhABaICg6AADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVA"
	var_s = var_s + "ceAAGaUZrjSgobjmOYhAJCL70WAFFr/DCgZThGgJHomMIhAhHAJwTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69J"
	var_s = var_s + "bwMLbSgMIKFABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFoi"
	var_s = var_s + "C8X4QnAOQ8B4dp6BONQoBoTBnEOKZIkoMYQi2JZECIb4mDYNoEgoIQ8k2PIIDEGBAEuO4UmcF5xHufgqiACAGAKAJfmKdJogGWRAACbYCk0KA0mCA5OFgRgSgSYRIDyY"
	var_s = var_s + "AymGCAsm0QhNAgdJmgeX5DgiYYImISIWCaCBhCMUgqEITJIjSZ4Lk4OJGDKDJjEiVgvDmYpTDILILGAc4gmSD5kAkBhChCY5YmYOwzA6GQmBSEpkkgShJDoZBkA4OQ6i"
	var_s = var_s + "USB+FaFZlgkZJmhUDopEQAIOE6OYGDeGJmEmFg3hgTo5HoYIYGOWY2G6G9cCIaoLE6SZWE+HZngmZhPh1YJMkyBolkoBoCiCZbBn4O4ogmIoKiKaJJiKCA7ieY4+hKHw"
	var_s = var_s + "pEoVoW3MI4+H4PApkgaoeieagIGqHF3jocoPimaoKiaD4omeY5Gi6JhrAqRoyiYapjkYfg8iuCoOjqLprkqDo4DzcROkKLRsEsFpG4+I5OH4PQskqfpOjObQKn6TA9XE"
	var_s = var_s + "VpWjIbYLGaWoyG0Y5WlWNYtDuBpijibQ7HYfg9i6Cx2mqOpuksdpoD3cRenKO5vEuVp26wI5eH4PgvkuZp+j+cALmafA+XEZwGkCcIMCcCpAnAY5mH4PoxAwNwSkScRM"
	var_s = var_s + "DcEA+jCfBfBqRpxkwdwYgsZBzm8IpInITIXCaSdxHMKpKnKTI3C6S4lmgNJSkCT5slcNpNnODJnAMNZzkQJpvDYdAMDUTpQnQRQ7A2UANhuPRKFKZJ4iiVIOHUDRGDmU"
	var_s = var_s + "4higJJrGuQAEAQgI"
	.VisualAppearance.Add(1,var_s)
	.ScrollBars = 2050 && ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
	.Object.Background(192) = 0x1000000
	.Object.Background(193) = RGB(10,10,10)
	.Columns.Add("Tasks")
	with .Chart
		.PaneWidth(0) = 96
		.AllowCreateBar = 1
		.FirstVisibleDate = {^2005-6-20}
		.LevelCount = 2
		.DrawDateTicker = .T.
		.DateTickerLabel = " <%mmm%> <%d%>"
	endwith
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2005-6-21},{^2005-6-28})
		.AddBar(.AddItem("Task 2"),"Task",{^2005-6-23},{^2005-7-3})
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.ScrollBars = 2050 && ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
	.Object.Background(192) = RGB(1,0,0)
	.Object.Background(193) = RGB(255,255,255)
	.Columns.Add("Tasks")
	with .Chart
		.PaneWidth(0) = 96
		.AllowCreateBar = 1
		.FirstVisibleDate = {^2005-6-20}
		.LevelCount = 2
		.DrawDateTicker = .T.
		.DateTickerLabel = "<%mmm%> <%d%>"
	endwith
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2005-6-21},{^2005-6-28})
		.AddBar(.AddItem("Task 2"),"Task",{^2005-6-23},{^2005-7-3})
	endwith
	.EndUpdate
endwith

*** AnchorClick event - Occurs when an anchor element is clicked. ***
LPARAMETERS AnchorID,Options
	with thisform.G2antt1
		DEBUGOUT( AnchorID )
	endwith

with thisform.G2antt1
	.BeginUpdate
	.ColumnAutoResize = .T.
	.TreeColumnIndex = -1
	.DrawGridLines = -1
	.GridLineStyle = 512
	.BackColorAlternate = RGB(240,240,240)
	.ShowFocusRect = .F.
	.Columns.Add("Default")
	with .Items
		.AddItem("before item")
		var_s = "<solidline> <c><b>Bank Account 1</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4A"
		var_s = var_s + "jMGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAE"
		var_s = var_s + "BA==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DA"
		var_s = var_s + "BvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>&#"
		var_s = var_s + "9650;</a><br>+ withdraw(amount: Currency)"
		h = .AddItem(var_s)
		.CellValueFormat(h,0) = 1
		.CellSingleLine(h,0) = .F.
		var_s1 = "<solidline> <c><b>Bank Account 2</b><br> <c><fgcolor 808080>properties</solidline><a 1;e64=gArAAgABvAB3ABuABlAByAA6gYAKYAOkNABph"
		var_s1 = var_s1 + "IAM8RHgAMMRGIAHcLAA2AA0AA9jQAIIAHEsABCAB6mEyO01ABznBwnBrlcvJU4Os4NkwlsClstjctIoAIYAJoAMYAKkXk8wqMIltRlEtNVQABHABoAFNsRPABVABWo1X"
		var_s1 = var_s1 + "pMHAE+l88otTONWslasoAosbGFwjFqoton1owN7jZRAE3jdTI1jnIAJeQnxJyFqxWHtUKqdTr9/jcKv9fNtgj8bwUFuFbABOAFonlNM1xsGun0+0tFpt3h1TitfxWlt9"
		var_s1 = var_s1 + "ft41toyyM6nRIqQAMUZnxkAF3kJMjMhxUVtkT4FtpsylsqlQ+AEdh3kEwAEYAHMlAHGv8jjovjwA8kd5/n8uRg1FjDpP8jKGPIgSCOej6io+ziSIgginqGhyHIZBY8oi"
		var_s1 = var_s1 + "lSCL++b+L4q0AKshUBgBESAgA==><r>▼</a></fgcolor><br><c><fgcolor 808080>methods</fgcolor><r><a 2;e64=gArAAgABkABlABwABvABzABp"
		var_s1 = var_s1 + "AB0AAoABhABthYAOoAN0RAA6gYAIcaAByksHjgAMYAPIAFIAHkVkIyAA7lA2AA0AA9ABnABBAA4n4AIQANVDoECoBFkQAJoAO9Dp9CIlDop2q0NABojNAJ4AKNDplAoB"
		var_s1 = var_s1 + "IpAAI4AphXo1qmVHp9pJ1dp10r8+oFzphSut4AFfldmsgArFLABKrcqt1cGFgxONKk9AGNkcYNYAON1p5GABsABVklcy54h91yMQhxYttzkdHy84plRwxZodmJNDtIxu"
		var_s1 = var_s1 + "tH2g3zufrUdy9RrlCF8p0Ejz2XGuS2ViolDnk8H0wk/VEwAEYAHIAnHNxs2mPHi3VmJi64AgUEqMQiVcg0mi1RikWjEMjcdiUggkjjaTJMhCOpWlqXgAACAg><fgcolo"
		var_s1 = var_s1 + "r 808080>▼</fgcolor></a>"
		h = .AddItem(var_s1)
		.CellValueFormat(h,0) = 1
		.CellSingleLine(h,0) = .F.
		.AddItem("after item")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.ColumnAutoResize = .T.
	.TreeColumnIndex = -1
	.DrawGridLines = -1
	.GridLineStyle = 512
	.BackColorAlternate = RGB(240,240,240)
	.ShowFocusRect = .F.
	.Columns.Add("Default")
	with .Items
		.AddItem("before item")
		h = .AddItem("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
		.CellValueFormat(h,0) = 1
		.CellSingleLine(h,0) = .F.
		.AddItem("after item")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.FirstVisibleDate = {^2009-12-31}
		.LevelCount = 2
		.PaneWidth(0) = 96
		with .Bars.Item("Task")
			.StartColor = RGB(255,255,255)
			.EndColor = .Color
		endwith
	endwith
	.Columns.Add("Types")
	with .Items
		.AddBar(.AddItem("Original"),"Task",{^2010-1-4},{^2010-1-9},"")
		h = .AddItem("W/h Pattern")
		.AddBar(h,"Task",{^2010-1-4},{^2010-1-9},"")
		.ItemBar(h,"",42) = 6
		.AddBar(.AddItem("Original"),"Task",{^2010-1-4},{^2010-1-9},"")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.Object.Background(500) = -1
endwith

with thisform.G2antt1
	.Object.Background(500) = RGB(1,0,0)
endwith

with thisform.G2antt1
	.BeginUpdate
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAAEhABJYCg6AADACAxRDgMQBQKAAzQFAYZhmGSGAAGIZhXgmFgAQhFcZQSKUOQTDKMIRfeQwAiNf4hQKBMIjKKAShaHCVIDlSThYAKCQxDZNUCQXD"
		var_s = var_s + "cdRRDaBR7hGgoaj6JolSRFUgSABEEigNIxToOU4jFgeCR2C7AZBEbTENBtBIUKDsKA4IBiFxAVjQFpSNZlWzdN64LhuK47UrWbYiXZeN5XXblaTxPrAMBwKzrLwPBqHX"
		var_s = var_s + "rfeIYXhlDzVC7GchxTCsSxXCaPY7lWZZPRGN49ODMNBibL9EwSA6laToWpRVpGSYpVrGdT2KgNQxbL61YLse5ZTrGF5vXrONz4LBeAwHP7FXLwfJaVxFeaPZq7eT6LRf"
		var_s = var_s + "EKa5PmgdJ7DuLotkeL5Am0eA4F2ToOHeK5hnOco8HIfQ/GOUZumWeY9h2fx/lOJ5Im8bY+j+LpWnecYxH6YAHgWMB/hgeAGAYe4aheSZ5gGYJICGG4BByaA2BIfRgjYR"
		var_s = var_s + "gTgWihaAobhhggdgBG+IY1nYHoImCRgaBAeQiEiJgHHGIgVnoKoLmEOBFmUchjAiVgYF4XZoloOoImKaJNGyDpkAiJZdggZAZBYLxphmWQaEqDRYmkLhOhEZJZD4UoMF"
		var_s = var_s + "SGJ6FOFZhheEhDhYJZHGYW4PGWWYFlSDQjmkbhi0WBZaCcepmgmBgygsJtLHCCYnBkBh0hkWAJlYMIICeBgKHqBxhimdh3h+ZYWEoa4MigR4hh6IZnhoJheGuIpYD6Dh"
		var_s = var_s + "umAOhFh+JJaCedoWgIaYGg2RYjCgahNnGIIbgmaZqigKI5jmaoVGqOIiEuKxjnobZjhGKwJCKNRoCSSpejaLorggeo8i8a51koVIwFaeoijOIRsEsApJhgIArC4ZIzia"
		var_s = var_s + "Kg+lCM5tDsRoUjUXRqkqWIrhuSxulmKQtmkIYsjgY4LGqZIum4e4UAAOpRBQJQBICA=="
		.Add(1,var_s)
		.Add(2,"CP:1 1 1 11 -2")
	endwith
	.DefaultItemHeight = 32
	.HeaderAppearance = 4
	.Columns.Add("Task")
	with .Chart
		.LevelCount = 2
		.PaneWidth(0) = 128
		.FirstVisibleDate = {^2001-1-1}
		with .Bars.Item("Milestone")
			.Height = 24
			.Color = 0x2000000
		endwith
	endwith
	with .Items
		.AddBar(.AddItem("Task 1"),"Milestone",{^2001-1-2},{^2001-1-2})
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAAEhABXYCg6AADACAxRDgMQBQKAAzQFAYZhmGSGAAGIZhXgmFgAQhFcZQSKUOQTDKMIRfeQwAiNf4hQKBMIjKKAShaHCVIDlSThYAKCQxDZNUCDND"
		var_s = var_s + "YAR1FCeQACCCaDgOII/SZJMiRNIEQARBIoDRMM5DVLIZYHQjCcBkERtNQvHiBRQoSw6GAAGIaRDQMZSNZlWxMfx9XyeBoVeapFhbO4mZavEyCeTgfS3MBwLA3XZxTTxK"
		var_s = var_s + "IaD6KASbepEKh6VDNF52bYrA6XWy/T6PW7GDLmUY1H5UQpnfR4Uj/JyUT7KIS7bpMNTOWYfZ7XcxibKaZw2LDvIoxWL6UosH7UEpXfR/RLGcIVL7KKTLbpQNp8GwYXJW"
		var_s = var_s + "AMBJ+mubB3gaV5qhyNp/FIFhfmoLgPg+RZkmCeA7gWN46iSXJ4G2Mh6m+ax7nGdJ4G6MxegoXpaiSPJ/CmRZTnyJR3iAOAKASAZgGOfImBcD5iigXx7B6ZhVHAPhPHMW"
		var_s = var_s + "JDD0CohkSfQrEYE58ioGAPnKJBfggYg4goJIJmIaImCOA8gjQYg9kqMZAngNQMAOSIrByT5CmAcA/ksMYon8K4GEOfIsBjLQuESEYkFkHhKhIZJJCCLQYk+YpEGZNhBk"
		var_s = var_s + "SbgrkeM7viIT5zBCAA/kucZsn8LxHHOfI4BwT5ylQbU9kGLJ/CyBoJj4cYcCcKZUjYGwPkMDDlkqcZhgUMwPBKaIID8DQSReMoIVYRQgmiIgIn8MJlnMCB+VKaYUjpOx"
		var_s = var_s + "ylgboaEbQQ3BuD5TBgfg8kuAgMncbobgOYJjDWTwCmCB1oGIVJ/DQCQDnyTAjCsYgujkP5MjqaJKhcDIaCSRwg3eMIGDyCxyAieA3k0FxRG8dgOCMVJxC8CJTnCVwmg+"
		var_s = var_s + "cxchgP5NCIUpcjeLZbHyfw1gkexYhteZSDjkQNAeSYDGyT5LCyUQ8EvL58DeSkrFwJ+ZmSG4/G+cxsh0PxNkKDJ0C+CQGkWOBthadpQniNBtDIMJ8DiSlWGMKYPnOCIm"
		var_s = var_s + "D8TgiiidI6GyO41huQwdGcYorj1g5smIKZPkOBweC+SQjmCYA0i6bIRjYbgYFMNJvC0CBLCCCA9k2Iwik6SQOjWJQDEAQCAg"
		.Add(1,var_s)
		.Add(2,"CP:1 -6 0 20 0")
	endwith
	.DefaultItemHeight = 32
	.HeaderAppearance = 4
	.Columns.Add("Task")
	with .Chart
		.LevelCount = 2
		.PaneWidth(0) = 128
		.FirstVisibleDate = {^2001-1-1}
		with .Bars.Item("Milestone")
			.Height = 28
			.Color = 0x2000000
		endwith
	endwith
	with .Items
		.AddBar(.AddItem("Task 1"),"Milestone",{^2001-1-2},{^2001-1-2})
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.DefaultItemHeight = 32
	.HeaderAppearance = 4
	.Columns.Add("Task")
	with .Chart
		.LevelCount = 2
		.PaneWidth(0) = 128
		.FirstVisibleDate = {^2001-1-1}
		.Bars.Item("Milestone").Height = 28
	endwith
	with .Items
		.AddBar(.AddItem("Task 1"),"Milestone",{^2001-1-2},{^2001-1-2})
	endwith
	.EndUpdate
endwith

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.G2antt1
		.ShowToolTip(.Chart.BarFromPoint(-1,-1))
	endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Def")
	with .Chart
		.AllowCreateBar = 0
		.PaneWidth(0) = 64
		.LevelCount = 2
		.FirstVisibleDate = {^2010-1-1}
		.Bars.Item("Task").Def(6) = "..."
	endwith
	with .Items
		h = .AddItem("Task")
		.AddBar(h,"Task",{^2010-1-2},{^2010-1-5},"A","A")
		.AddBar(h,"Task",{^2010-1-5},{^2010-1-8},"B","B")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Def").Def(0) = .T.
	with .Chart
		.AllowCreateBar = 0
		.PaneWidth(0) = 96
		.LevelCount = 2
		.FirstVisibleDate = {^2010-1-1}
		.Bars.Item("Task").Def(6) = "<%=%C0%><br>Start: <%=%1%><br>End: <%=%2%><br>State: <b><%=%CS0%></b><br>UserData: <b><%=%CD0%></b>"
	endwith
	with .Items
		h = .AddItem("Machine 1")
		.CellState(h,0) = 1
		.CellData(h,0) = "just some data"
		.AddBar(h,"Task",{^2010-1-2},{^2010-1-5},"A","A")
		h = .AddItem("Machine 2")
		.AddBar(h,"Task",{^2010-1-2},{^2010-1-5},"B","B")
		.CellData(h,0) = "just nother data"
	endwith
	.EndUpdate
endwith

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.G2antt1
		.ShowToolTip("<null>","<null>",Null,"+8","+8")
	endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Def")
	with .Chart
		.AllowCreateBar = 0
		.PaneWidth(0) = 64
		.LevelCount = 2
		.FirstVisibleDate = {^2010-1-1}
		.Bars.Item("Task").Def(6) = "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
	endwith
	with .Items
		h = .AddItem("Task")
		.AddBar(h,"Task",{^2010-1-2},{^2010-1-5},"A","A")
		.AddBar(h,"Task",{^2010-1-5},{^2010-1-8},"B","B")
	endwith
	.EndUpdate
endwith

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.G2antt1
		.ShowToolTip("<null>",.Chart.BarFromPoint(-1,-1))
	endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Def")
	with .Chart
		.AllowCreateBar = 0
		.PaneWidth(0) = 64
		.LevelCount = 2
		.FirstVisibleDate = {^2010-1-1}
		.Bars.Item("Task").Def(6) = "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
	endwith
	with .Items
		h = .AddItem("Task")
		.AddBar(h,"Task",{^2010-1-2},{^2010-1-5},"A","A")
		.AddBar(h,"Task",{^2010-1-5},{^2010-1-8},"B","B")
	endwith
	.EndUpdate
endwith

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.G2antt1
		.ShowToolTip(.Chart.BarFromPoint(-1,-1))
	endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Def")
	with .Chart
		.AllowCreateBar = 0
		.PaneWidth(0) = 64
		.LevelCount = 2
		.FirstVisibleDate = {^2010-1-1}
		.Bars.Item("Task").Def(6) = "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
	endwith
	with .Items
		h = .AddItem("Task")
		.AddBar(h,"Task",{^2010-1-2},{^2010-1-5},"A","A")
		.AddBar(h,"Task",{^2010-1-5},{^2010-1-8},"B","B")
	endwith
	.EndUpdate
endwith

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.G2antt1
		.ShowToolTip("new content","new title")
	endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Def")
	with .Chart
		.AllowCreateBar = 0
		.PaneWidth(0) = 64
		.LevelCount = 2
		.FirstVisibleDate = {^2010-1-1}
		.Bars.Item("Task").Def(6) = "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
	endwith
	with .Items
		h = .AddItem("Task")
		.AddBar(h,"Task",{^2010-1-2},{^2010-1-5},"A","A")
		.AddBar(h,"Task",{^2010-1-5},{^2010-1-8},"B","B")
	endwith
	.EndUpdate
endwith

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.G2antt1
		.ShowToolTip("new content","new title",Null,"+8","+8")
	endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Def")
	with .Chart
		.AllowCreateBar = 0
		.PaneWidth(0) = 64
		.LevelCount = 2
		.FirstVisibleDate = {^2010-1-1}
		.Bars.Item("Task").Def(6) = "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
	endwith
	with .Items
		h = .AddItem("Task")
		.AddBar(h,"Task",{^2010-1-2},{^2010-1-5},"A","A")
		.AddBar(h,"Task",{^2010-1-5},{^2010-1-8},"B","B")
	endwith
	.EndUpdate
endwith

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.G2antt1
		.ShowToolTip("new content","",Null,128,128)
	endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Def")
	with .Chart
		.AllowCreateBar = 0
		.PaneWidth(0) = 64
		.LevelCount = 2
		.FirstVisibleDate = {^2010-1-1}
		.Bars.Item("Task").Def(6) = "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
	endwith
	with .Items
		h = .AddItem("Task")
		.AddBar(h,"Task",{^2010-1-2},{^2010-1-5},"A","A")
		.AddBar(h,"Task",{^2010-1-5},{^2010-1-8},"B","B")
	endwith
	.EndUpdate
endwith

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.G2antt1
		.ShowToolTip("","")
	endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Def")
	with .Chart
		.AllowCreateBar = 0
		.PaneWidth(0) = 64
		.LevelCount = 2
		.FirstVisibleDate = {^2010-1-1}
		.Bars.Item("Task").Def(6) = "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
	endwith
	with .Items
		h = .AddItem("Task")
		.AddBar(h,"Task",{^2010-1-2},{^2010-1-5},"A","A")
		.AddBar(h,"Task",{^2010-1-5},{^2010-1-8},"B","B")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	.HeaderVisible = 1
	.HeaderAppearance = 4
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 96
		.LevelCount = 2
	endwith
	with .Items
		.AddItem()
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-5 12:00:00},{^2001-1-7},"T1")
		.ItemBar(h1,"",4) = 18
		.AddBar(h1,"Task",{^2001-1-3},{^2001-1-4 12:00:00},"T2")
		.ItemBar(h1,"T2",33) = 255
		.GroupBars(h1,"T1",.T.,h1,"T2",.T.,27,0)
		.AddItem()
	endwith
	.EndUpdate
endwith

*** ToolTip event - Fired when the control prepares the object's tooltip. ***
LPARAMETERS Item,ColIndex,Visible,X,Y,CX,CY
	with thisform.G2antt1
		.ShowToolTip(.Chart.BarFromPoint(-1,-1))
	endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Def")
	with .Chart
		.AllowCreateBar = 0
		.PaneWidth(0) = 64
		.LevelCount = 2
		.FirstVisibleDate = {^2010-1-1}
		.Bars.Item("Task").Def(6) = "..."
	endwith
	with .Items
		h = .AddItem("Task")
		.AddBar(h,"Task",{^2010-1-2},{^2010-1-5},"A","A")
		.AddBar(h,"Task",{^2010-1-5},{^2010-1-8},"B","B")
		.AddBar(h,"Task",{^2010-1-8},{^2010-1-11},"C","C")
		.GroupBars(h,"A",.F.,h,"B",.T.,39)
		.GroupBars(h,"B",.F.,h,"C",.T.,39)
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.DefaultItemHeight = 32
	.DrawGridLines = -2
	.GridLineStyle = 512
	.HeaderAppearance = 4
	with .Chart
		.LevelCount = 2
		.DrawGridLines = -2
		.GridLineStyle = 512
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 48
		.AllowLinkBars = .F.
		with .Bars.Item("Task")
			.OverlaidType = 4
			.Def(3) = "only horizontal"
			.Def(59) = 18
			.Def(28) = .T.
		endwith
	endwith
	.Columns.Add("Column")
	with .Items
		.AddBar(.AddItem("Item 1"),"Task",{^2001-1-3},{^2001-1-5},"A")
		.AddBar(.AddItem("Item 2"),"Task",{^2001-1-4},{^2001-1-6},"B")
		.AddBar(.AddItem("Item 3"),"Task",{^2001-1-3},{^2001-1-5},"C")
		.ItemBar(0,"<*>",28) = .F.
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.DefaultItemHeight = 32
	.DrawGridLines = -2
	.GridLineStyle = 512
	.HeaderAppearance = 4
	with .Chart
		.LevelCount = 2
		.DrawGridLines = -2
		.GridLineStyle = 512
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 48
		.AllowLinkBars = .F.
		with .Bars.Item("Task")
			.OverlaidType = 4
			.Def(3) = "anywhere"
			.Def(59) = 18
			.Def(28) = .T.
		endwith
	endwith
	.Columns.Add("Column")
	with .Items
		.AddBar(.AddItem("Item 1"),"Task",{^2001-1-3},{^2001-1-5},"A")
		h = .AddItem("Item 2")
		.AddBar(h,"Task",{^2001-1-4},{^2001-1-6},"B","only horiontal")
		.ItemBar(h,"B",28) = .F.
		.AddBar(.AddItem("Item 3"),"Task",{^2001-1-3},{^2001-1-5},"C")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.PaneWidth(0) = 0
		.DrawGridLines = 2
		.FirstVisibleDate = {^2001-1-1}
		.UnitWidth = 30
		.LevelCount = 2
		.Level(0).Unit = 16
		with .Level(1)
			.Unit = 4096
			.Count = 10
		endwith
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.MarkSearchColumn = .F.
	with .Columns
		.Add("Tasks")
		with .Add("Start")
			.Def(18) = 1
			.Editor.EditType = 4
		endwith
		with .Add("End")
			.Def(18) = 2
			.Editor.EditType = 4
		endwith
	endwith
	with .Chart
		.PaneWidth(0) = 196
		.LevelCount = 2
		.ShowEmptyBars = 1
		.FirstVisibleDate = {^2009-1-1}
	endwith
	with .Items
		.AllowCellValueToItemBar = .T.
		.AddBar(.AddItem("Task 1"),"Task",{^2009-1-2},{^2009-1-7})
		.AddBar(.AddItem("Task 2"),"Task",{^2009-1-4},{^2009-1-9})
	endwith
	with .Chart
		.StartPrintDate = {^2009-1-4}
		.EndPrintDate = {^2009-1-5}
	endwith
	var_CopyTo = .CopyTo("c:/temp/xtest.pdf")
	DEBUGOUT( "Look for C:\Temp\xtest.pdf file." )
	.EndUpdate
endwith

with thisform.G2antt1
	color = 15790320
	.BeginUpdate
	.Debug = .T.
	.HeaderVisible = 1
	.HeaderAppearance = 4
	.ShowLockedItems = .T.
	with .Chart
		.PaneWidth(0) = 128
		.LevelCount = 2
		.FirstVisibleDate = {^2015-12-31}
		.Bars.Item("Task").Def(28) = .T.
	endwith
	.Columns.Add("Column")
	with .Items
		.LockedItemCount(0) = 3
		h = .LockedItem(0,0)
		.ItemBackColor(h) = color
		thisform.G2antt1.Chart.ItemBackColor(h) = color
		.CellValue(h,0) = "locked-top 1"
		.AddBar(h,"Task",{^2016-1-4},{^2016-1-8},"T1")
		h = .LockedItem(0,1)
		.ItemBackColor(h) = color
		thisform.G2antt1.Chart.ItemBackColor(h) = color
		.CellValue(h,0) = "locked-top 2"
		.AddBar(h,"Task",{^2016-1-5},{^2016-1-9},"T2")
		h = .LockedItem(0,2)
		.SelectItem(h) = .F.
		.ItemDivider(h) = 0
		.ItemHeight(h) = 2
		.AddBar(.AddItem("un-locked item 1"),"Task",{^2016-1-4},{^2016-1-8},"T3")
		.AddBar(.AddItem("un-locked item 2"),"Task",{^2016-1-5},{^2016-1-9},"T4")
		.LockedItemCount(1) = 3
		h = .LockedItem(1,0)
		.SelectItem(h) = .F.
		.ItemDivider(h) = 0
		.ItemHeight(h) = 2
		h = .LockedItem(1,1)
		.ItemBackColor(h) = color
		thisform.G2antt1.Chart.ItemBackColor(h) = color
		.CellValue(h,0) = "locked-bottom 1"
		.AddBar(h,"Task",{^2016-1-4},{^2016-1-8},"T5")
		h = .LockedItem(1,2)
		.ItemBackColor(h) = color
		thisform.G2antt1.Chart.ItemBackColor(h) = color
		.CellValue(h,0) = "locked-bottom 2"
		.AddBar(h,"Task",{^2016-1-5},{^2016-1-9},"T6")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.HeaderAppearance = 4
	with .Columns.Add("Minutes")
		.SortType = 1
		with .Editor
			.EditType = 1
			.Numeric = -1
		endwith
	endwith
	with .Items
		.AddItem(10)
		.AddItem(20)
		.AddItem(30)
		.AddItem(40)
		.AddItem(50)
		h = .AddItem("sum(all,dir,dbl(%0))")
		.SelectableItem(h) = .F.
		.SortableItem(h) = .F.
		.CellValueFormat(h,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
		.CellHAlignment(h,0) = 2
		.FormatCell(h,0) = "'<b>HH:NN</b>: '+ (int(value/60) lpad '00') + ':' + ((value mod 60) lpad '00')"
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.HeaderAppearance = 4
	with .Chart
		.FirstVisibleDate = {^2023-3-26}
		.LevelCount = 2
		.PaneWidth(0) = 128
	endwith
	.Columns.Add("Tasks")
	with .Items
		.AddBar(.AddItem("Task A"),"Task",{^2001-1-2},{^2001-1-12},"T1")
		.AddBar(.AddItem("Task B"),"Task",{^2001-1-20},{^2001-1-31},"T2")
		.EnsureVisibleBar(0,"T1")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.HeaderAppearance = 4
	with .Chart
		.FirstVisibleDate = {^2023-3-26}
		.LevelCount = 2
		.PaneWidth(0) = 128
	endwith
	.Columns.Add("Tasks")
	with .Items
		h1 = .AddItem("Task A")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-12},"T1")
		h2 = .AddItem("Task B")
		.AddBar(h2,"Task",{^2001-1-20},{^2001-1-31},"T2")
		.EnsureVisibleBar(h1,"T1")
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Object.Background(188) = 0x1000000
	.Object.Background(189) = RGB(15,0,0)
	with .Chart
		.AllowCreateBar = 1
		.PaneWidth(0) = 128
		.LevelCount = 2
		.FirstVisibleDate = {^2001-1-1}
		with .Bars.Item("Task")
			.Color = 0x1000000
			.Height = 15
		endwith
	endwith
	.Columns.Add("Column")
	with .Items
		.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-7})
		.AddBar(.AddItem("Item 2"),"Task",{^2001-1-6},{^2001-1-14})
	endwith
	.EndUpdate
endwith

*** FilterChange event - Occurs when the filter was changed. ***
LPARAMETERS nop
	with thisform.G2antt1
		format = .FormatABC("`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`",.FilterBarPromptPattern)
		.Columns.Item(0).FormatColumn = format
		.Columns.Item(1).FormatColumn = format
		.Columns.Item(2).FormatColumn = format
	endwith

with thisform.G2antt1
	.BeginUpdate
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.HeaderAppearance = 4
	.HeaderHeight = 23
	.BackColorLevelHeader = .BackColor
	.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
	.FilterBarPromptVisible = 2055 && FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarBackColor = .BackColor
	.FilterBarPromptPattern = "and"
	with .Columns
		with .Add("Name")
			.Def(17) = 1
			.FormatColumn = "lower(value)"
		endwith
		with .Add("Title")
			.Def(17) = 1
			.FormatColumn = "lower(value)"
		endwith
		with .Add("City")
			.Def(17) = 1
			.FormatColumn = "lower(value)"
		endwith
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = 1
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.DrawGridLines = 2
	.HeaderAppearance = 1
	.HeaderHeight = 24
	.SortBarHeight = 28
	.SortBarVisible = .T.
	.AllowGroupBy = .T.
	.Columns.Add("Col 1")
	.Columns.Add("Col 2")
	with .Items
		.CellValue(.AddItem("219 Smith"),1) = "Ignacio 1234"
		.CellValue(.AddItem("1666 County Road 309A"),1) = "897 Manassa"
		.CellValue(.AddItem("38 Lone Pine"),1) = "Durango 11"
		.CellValue(.AddItem("612 Jachim Street"),1) = "Lamar 222"
	endwith
	.Layout = "MultipleSort="+chr(34)+"C1:1"+chr(34)+""
	.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? leafitemcount + ` result(s)` : ``)"
	.FilterBarPromptVisible = 2055 && FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = 257 && FilterPromptEnum.exFilterPromptCaseSensitive Or FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "12"
	.FilterBarBackColor = .BackColor
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.DrawGridLines = 2
	.HeaderAppearance = 4
	.HeaderHeight = 24
	.Columns.Add("Col 1")
	.Columns.Add("Col 2")
	with .Items
		.CellValue(.AddItem("219 Smith"),1) = "Ignacio 1234"
		.CellValue(.AddItem("1666 County Road 309A"),1) = "897 Manassa"
		.CellValue(.AddItem("38 Lone Pine"),1) = "Durango 11"
		.CellValue(.AddItem("612 Jachim Street"),1) = "Lamar 222"
	endwith
	.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
	.FilterBarPromptVisible = 2055 && FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = 257 && FilterPromptEnum.exFilterPromptCaseSensitive Or FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "12"
	.FilterBarBackColor = .BackColor
	.EndUpdate
endwith

*** AddItem event - Occurs after a new Item has been inserted to Items collection. ***
LPARAMETERS Item
	with thisform.G2antt1
		with .Items
			.AddBar(Item,"Task",.CellValue(Item,2),.CellValue(Item,4))
		endwith
	endwith

with thisform.G2antt1
	.BeginUpdate
	.ColumnAutoResize = .F.
	rs = CreateObject("ADOR.Recordset")
	with rs
		.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.mdb",3,3)
	endwith
	.DataSource = rs
	with .Chart
		.FirstVisibleDate = {^1994-8-4}
		.LevelCount = 2
		.PaneWidth(0) = 256
	endwith
	.Items.AllowCellValueToItemBar = .T.
	.Columns.Item(2).Def(18) = 1
	.Columns.Item(4).Def(18) = 2
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.DefaultItemHeight = 22
	.DrawGridLines = -2
	.GridLineStyle = 512
	.Columns.Add("Task")
	with .Chart
		.DrawGridLines = -2
		.GridLineStyle = 512
		.ResizeUnitScale = 65536
		.PaneWidth(0) = 48
		.FirstVisibleDate = {^2001-1-1}
		with .Bars.Item("Task")
			.OverlaidType = 257 && OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or OverlaidBarsTypeEnum.exOverlaidBarsOffset
			.Overlaid(256) = 70
			.Def(28) = .T.
		endwith
	endwith
	.ItemsAllowSizing = -1
	with .Items
		.SelectableItem(.AddItem()) = .F.
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"A1")
		.AddBar(h,"Task",{^2001-1-3},{^2001-1-5},"A2")
		.AddBar(h,"Task",{^2001-1-4},{^2001-1-7},"A3")
		.ItemHeight(h) = 64
		h = .AddItem("Task 2")
		.AddBar(h,"Task",{^2001-1-7},{^2001-1-10},"A4")
		.AddBar(h,"Task",{^2001-1-8},{^2001-1-12},"A5")
		.SelectableItem(.AddItem()) = .F.
	endwith
	.EndUpdate
endwith

with thisform.G2antt1
	.BeginUpdate
	.ImageSize = 32
	.DefaultItemHeight = 36
	.HeaderHeight = .DefaultItemHeight
	.SortBarHeight = .DefaultItemHeight
	.Font.Size = 16
	.FilterBarFont.Size = thisform.G2antt1.Font.Size
	.ToolTipFont.Size = thisform.G2antt1.Font.Size
	.Indent = 26
	var_s = "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqN"
	var_s = var_s + "UqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwy"
	var_s = var_s + "V21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CM"
	var_s = var_s + "Po9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9F"
	var_s = var_s + "EKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y"
	var_s = var_s + "7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkF"
	var_s = var_s + "gTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtN"
	var_s = var_s + "hCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xio"
	var_s = var_s + "W5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4"
	var_s = var_s + "VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6"
	var_s = var_s + "/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVD"
	var_s = var_s + "NKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT"
	var_s = var_s + "8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlff"
	var_s = var_s + "EkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6"
	var_s = var_s + "I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8Rg"
	var_s = var_s + "H5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWR"
	var_s = var_s + "JNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA=="
	.Images(var_s)
	with .VisualAppearance
		var_s1 = "gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
		var_s1 = var_s1 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
		var_s1 = var_s1 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxR"
		var_s1 = var_s1 + "DWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYF"
		var_s1 = var_s1 + "oFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4Uk"
		var_s1 = var_s1 + "mCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAo"
		var_s1 = var_s1 + "chqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0"
		var_s1 = var_s1 + "ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8"
		var_s1 = var_s1 + "CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2U"
		var_s1 = var_s1 + "gJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="
		.Add(1,var_s1)
		var_s2 = "gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
		var_s2 = var_s2 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
		var_s2 = var_s2 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n"
		var_s2 = var_s2 + "GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnSc"
		var_s2 = var_s2 + "g1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpA"
		var_s2 = var_s2 + "oPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDR"
		var_s2 = var_s2 + "DFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lG"
		var_s2 = var_s2 + "NAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBg"
		var_s2 = var_s2 + "k0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuX"
		var_s2 = var_s2 + "pMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2Cy"
		var_s2 = var_s2 + "A4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8Rp"
		var_s2 = var_s2 + "BzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8T"
		var_s2 = var_s2 + "I7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeH"
		var_s2 = var_s2 + "GFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuh"
		var_s2 = var_s2 + "oiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMs"
		var_s2 = var_s2 + "CwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4ga"
		var_s2 = var_s2 + "BEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgs"
		var_s2 = var_s2 + "wOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtY"
		var_s2 = var_s2 + "QGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBh"
		var_s2 = var_s2 + "YDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0Mg"
		var_s2 = var_s2 + "RBCCQAgQEA=="
		.Add(2,var_s2)
		var_s3 = "gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
		var_s3 = var_s3 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
		var_s3 = var_s3 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n"
		var_s3 = var_s3 + "GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSe"
		var_s3 = var_s3 + "Q7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjn"
		var_s3 = var_s3 + "OIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ"
		var_s3 = var_s3 + "9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGS"
		var_s3 = var_s3 + "UwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4y"
		var_s3 = var_s3 + "mkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkX"
		var_s3 = var_s3 + "I/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6"
		var_s3 = var_s3 + "BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRA"
		var_s3 = var_s3 + "jDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEB"
		var_s3 = var_s3 + "wpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQH"
		var_s3 = var_s3 + "oFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRh"
		var_s3 = var_s3 + "cDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQ"
		var_s3 = var_s3 + "AA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjV"
		var_s3 = var_s3 + "HiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4z"
		var_s3 = var_s3 + "xW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH"
		var_s3 = var_s3 + "0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI="
		.Add(3,var_s3)
		var_s4 = "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL"
		var_s4 = var_s4 + "UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU"
		var_s4 = var_s4 + "rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3"
		var_s4 = var_s4 + "NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY"
		var_s4 = var_s4 + "YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm"
		var_s4 = var_s4 + "WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo"
		var_s4 = var_s4 + "WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS"
		var_s4 = var_s4 + "e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF"
		var_s4 = var_s4 + "CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
		.Add(4,var_s4)
	endwith
	.BackColorHeader = 0x4c6c6c6
	.SelBackColor = 0x4000000
	.SelForeColor = RGB(0,0,1)
	.ShowFocusRect = .F.
	.Object.CheckImage(0) = 16777216
	.Object.CheckImage(1) = 33554432
	.Object.CheckImage(2) = 50331648
	.Columns.Add("Editors").Def(17) = 1
	with .Items
		.CellEditor(.AddItem("(ReadOnly)"),0).EditType = 0
		.CellEditor(.AddItem("(EditType)"),0).EditType = 1
		h = .AddItem("Value 1")
		with .CellEditor(h,0)
			.EditType = 2
			.AddItem(1,"Value 1",1)
			.AddItem(2,"Value 2",2)
			.AddItem(3,"Value 3",3)
		endwith
		.FormatCell(h,0) = "value + ' (DropDownType)'"
		h = .AddItem(1)
		with .CellEditor(h,0)
			.EditType = 3
			.DropDownAutoWidth = 0
			.AddItem(1,"Nancy Davolio",1)
			.AddItem(2,"Andrew Fuller",2)
			.AddItem(3,"Janet Leverling",3)
			.AddItem(4,"Peacock Margaret",3)
			.AddItem(5,"Steven Buchanan",2)
			.AddItem(6,"Michael Suyama",1)
			.AddItem(7,"Robert King",2)
			.AddItem(8,"Laura Callahan",3)
			.AddItem(9,"Anne Dodsworth",2)
		endwith
		.FormatCell(h,0) = "value + ' (DropDownList - single column list)'"
		h = .AddItem(1)
		with .CellEditor(h,0)
			.EditType = 3
			.DropDownAutoWidth = 0
			.AddItem(1,"Nancy Davolio",1)
			.AddItem(2,"Andrew Fuller",2)
			.InsertItem(3,"Janet Leverling",3,2)
			.InsertItem(4,"Peacock Margaret",3,2)
			.InsertItem(5,"Steven Buchanan",2,2)
			.InsertItem(6,"Michael Suyama",1,5)
			.InsertItem(7,"Robert King",2,2)
			.InsertItem(8,"Laura Callahan",3,2)
			.InsertItem(9,"Anne Dodsworth",2,5)
			.ExpandAll
		endwith
		.FormatCell(h,0) = "value + ' (DropDownList - single column tree)'"
		h = .AddItem(1)
		with .CellEditor(h,0)
			.EditType = 3
			.DropDownAutoWidth = 0
			.Option(57) = "Name¦Title¦City¦Phone"
			.Option(58) = "312¦¦¦96"
			.AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
			.AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
			.AddItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3)
			.AddItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3)
			.AddItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2)
			.AddItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1)
			.AddItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2)
			.AddItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3)
			.AddItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2)
		endwith
		.FormatCell(h,0) = "value + ' (DropDownList - multiple columns list)'"
		h = .AddItem(1)
		with .CellEditor(h,0)
			.EditType = 3
			.DropDownAutoWidth = 0
			.Option(57) = "Name¦Title¦City¦Phone"
			.Option(58) = "312¦¦¦96"
			.AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
			.AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
			.InsertItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3,2)
			.InsertItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3,2)
			.InsertItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2,2)
			.InsertItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1,5)
			.InsertItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2,2)
			.InsertItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3,2)
			.InsertItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2,5)
			.ExpandAll
		endwith
		.FormatCell(h,0) = "value + ' (DropDownList - multiple columns tree)'"
		h = .AddItem(100)
		.CellEditor(h,0).EditType = 4
		.FormatCell(h,0) = "value + ' (SpinType)'"
		.CellEditor(.AddItem("(MemoType)"),0).EditType = 5
		h = .AddItem(3)
		with .CellEditor(h,0)
			.EditType = 6
			.AddItem(1,"Border",1)
			.AddItem(2,"Single",2)
			.AddItem(4,"Frame",3)
		endwith
		.FormatCell(h,0) = "value + ' (CheckListType)'"
		h = .AddItem("193.226.40.161")
		with .CellEditor(h,0)
			.Mask = "{0,255}.{0,255}.{0,255}.{0,255}"
			.EditType = 8
		endwith
		.FormatCell(h,0) = "value + ' (MaskType)'"
		h = .AddItem(65280)
		with .CellEditor(h,0)
			.EditType = 9
			.Mask = "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
		endwith
		.FormatCell(h,0) = "value + ' (ColorType)'"
		h = .AddItem("Tahoma")
		.CellEditor(h,0).EditType = 10
		.FormatCell(h,0) = "value + ' (FontType)'"
		var_s5 = "gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
		var_s5 = var_s5 + "Vq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWamY"
		var_s5 = var_s5 + "yIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDAw"
		var_s5 = var_s5 + "BUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQG"
		var_s5 = var_s5 + "4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYABG"
		var_s5 = var_s5 + "QZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyCA"
		var_s5 = var_s5 + "AjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATFA"
		var_s5 = var_s5 + "SoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CAJ"
		var_s5 = var_s5 + "DQNg/p4AAdoC"
		h = .AddItem(var_s5)
		.CellEditor(h,0).EditType = 11
		.FormatCell(h,0) = "value + ' (PictureType)'"
		.CellEditor(.AddItem("(ButtonType)"),0).EditType = 12
		h = .AddItem(25)
		.CellEditor(h,0).EditType = 13
		.FormatCell(h,0) = "value + ' (ProgressBarType)'"
		h = .AddItem("Value 1")
		with .CellEditor(h,0)
			.EditType = 14
			.AddItem(1,"Value 1",1)
			.AddItem(2,"Value 2",2)
			.AddItem(3,"Value 3",3)
		endwith
		.FormatCell(h,0) = "value + ' (PickEditType)'"
		.CellEditor(.AddItem("(LinkEditType)"),0).EditType = 15
		with .CellEditor(.AddItem("(UserEditorType)"),0)
			.EditType = 16
			.UserEditor("Exontrol.ComboBox","")
			with .UserEditorObject
				.BeginUpdate
				.LabelHeight = thisform.G2antt1.DefaultItemHeight
				.Style = 2
				.ColumnAutoResize = .F.
				rs = CreateObject("ADOR.Recordset")
				with rs
					.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
				endwith
				.DataSource = rs
				.MinHeightList = 128
				.SearchColumnIndex = 0
				.UseTabKey = .F.
				.EndUpdate
			endwith
		endwith
		h = .AddItem(255)
		with .CellEditor(h,0)
			.EditType = 17
			.Option(4) = .T.
		endwith
		.FormatCell(h,0) = "value + ' (ColorListType)'"
		.CellEditor(.AddItem(65280),0).EditType = 17
		.CellEditor(.AddItem("(MemoDropDownType)"),0).EditType = 18
		with .CellEditor(.AddItem(-1),0)
			.EditType = 19
			.Option(17) = 1
		endwith
		h = .AddItem(50)
		with .CellEditor(h,0)
			.EditType = 20
			.Option(41) = -60
			.Option(53) = 10
			.Option(63) = 2
		endwith
		.FormatCell(h,0) = "value + ' (SliderType)'"
		h = .AddItem(100)
		.CellEditor(h,0).EditType = 21
		.FormatCell(h,0) = "value + ' (CalculatorType)'"
		.EnsureVisibleItem(h)
	endwith
	.EndUpdate
endwith