*** AddItem event - Occurs after a new Item has been inserted to Items collection. ***
LPARAMETERS Item
	with thisform.Gantt1
		.DefaultItem = Item
		.Items.ItemMinHeight(0) = 18
		.DefaultItem = Item
		.Items.ItemMaxHeight(0) = 72
	endwith

with thisform.Gantt1
	.BeginUpdate
	.ItemsAllowSizing = -1
	.ScrollBySingleLine = .F.
	.BackColorAlternate = RGB(240,240,240)
	.Columns.Add("Names")
	with .Items
		.AddItem("Mantel")
		.AddItem("Mechanik")
		.AddItem("Motor")
		.AddItem("Murks")
		.AddItem("Märchen")
		.AddItem("Möhren")
		.AddItem("Mühle")
	endwith
	.Columns.Item(0).SortOrder = 1
	.EndUpdate
endwith

with thisform.Gantt1
	.LinesAtRoot = -1
	.Columns.Add("Def")
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
	endwith
	.PutItems(.GetItems(1))
endwith

with thisform.Gantt1
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.ToolTipDelay = 1
	var_s = "<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The toolti"
	var_s = var_s + "p supports built-in HTML tags, icons and pictures.<br><br><br><img>pic1</img> picture ... <br><b"
	var_s = var_s + "r>"
	.Columns.Add("tootip").ToolTip = var_s
endwith

with thisform.Gantt1
	.Columns.Add("Task")
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-26}
		.PaneWidth(.F.) = 32
	endwith
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"",{^2001-1-1},{^2001-1-5},"K1","some <fgcolor=FF0000>red</fgcolor> text")
		.DefaultItem = h1
		.ItemBar(0,"K1",10) = .F.
		.DefaultItem = h1
		.ItemBar(0,"K1",6) = "And here goes the <b>tooltip</b> of the text. "
		.AddItem("")
		.AddItem("")
		.AddItem("")
		.AddItem("")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.DefaultItem = h2
		.ItemBar(0,"K2",6) = "And here goes the <b>tooltip</b> of the bar. "
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",12) = "L<b>inke</b>d to a bar"
		.Link("L1",13) = "And here goes the <b>tooltip</b> of the link. "
	endwith
endwith

with thisform.Gantt1
	.BeginUpdate
	with .Chart
		var_s = "<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyy"
		var_s = var_s + "y%>"
		.Label(16) = var_s
		var_s1 = "<|><%ww%><|><%loc_m3%> <%d%>, '<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>25"
		var_s1 = var_s1 + "6"
		.Label(256) = var_s1
		var_s2 = "<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%><|"
		var_s2 = var_s2 + "><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%><||><||>4096"
		.Label(4096) = var_s2
		var_s3 = "<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%loc_dddd"
		var_s3 = var_s3 + "%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
		.Label(65536) = var_s3
		var_s4 = "<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%"
		var_s4 = var_s4 + "><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
		.Label(1048576) = var_s4
		var_s5 = "<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%"
		var_s5 = var_s5 + "> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%>"
		var_s5 = var_s5 + " <%AM/PM%>"
		.Label(16777216) = var_s5
		.LabelToolTip(16) = "<%loc_mmmm%>/<%yyyy%>"
		.LabelToolTip(256) = "<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>"
		.LabelToolTip(4096) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>"
		.LabelToolTip(65536) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>"
		.LabelToolTip(1048576) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
		.LabelToolTip(16777216) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
	endwith
	with .Chart
		.PaneWidth(.F.) = 0
		.FirstVisibleDate = {^2001-1-1}
		.LevelCount = 4
		.Level(0).Label = 4096
		.Level(1).Label = 65536
		.Level(2).Label = 1048576
		with .Level(3)
			.Count = 15
			.Label = 16777216
		endwith
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	with .Chart
		var_s = "<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyy"
		var_s = var_s + "y%>"
		.Label(16) = var_s
		var_s1 = "<|><%ww%><|><%loc_m3%> <%d%>, '<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>25"
		var_s1 = var_s1 + "6"
		.Label(256) = var_s1
		var_s2 = "<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%><|"
		var_s2 = var_s2 + "><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%><||><||>4096"
		.Label(4096) = var_s2
		var_s3 = "<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%loc_dddd"
		var_s3 = var_s3 + "%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
		.Label(65536) = var_s3
		var_s4 = "<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%"
		var_s4 = var_s4 + "><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
		.Label(1048576) = var_s4
		var_s5 = "<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%"
		var_s5 = var_s5 + "> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%>"
		var_s5 = var_s5 + " <%AM/PM%>"
		.Label(16777216) = var_s5
		.LabelToolTip(16) = "<%loc_mmmm%>/<%yyyy%>"
		.LabelToolTip(256) = "<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>"
		.LabelToolTip(4096) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>"
		.LabelToolTip(65536) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>"
		.LabelToolTip(1048576) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
		.LabelToolTip(16777216) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
	endwith
	with .Chart
		.PaneWidth(.F.) = 0
		.FirstVisibleDate = {^2001-1-1}
		.LevelCount = 2
		.UnitScale = 4096
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	with .Chart
		.PaneWidth(.F.) = 0
		.FirstVisibleDate = {^2001-1-1}
		.LevelCount = 4
		.Level(0).Label = 4096
		.Level(1).Label = 65536
		.Level(2).Label = 1048576
		with .Level(3)
			.Count = 15
			.Label = 16777216
		endwith
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	var_s = "gBFLBCJwBAEHhEJAEGg4BI0IQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDKKUEwsACEIrjKCYVgOHYYRrIMYgBCMJhLEoaZLh"
	var_s = var_s + "EZRQiqDYtRDFQBSDDcPw/EaRZohGaYJgEgI="
	.VisualAppearance.Add(1,var_s)
	.Background(32) = 0x1000000
	.Columns.Add("S").Width = 32
	.Columns.Add("Level 1").LevelKey = 1
	.Columns.Add("Level 2").LevelKey = 1
	.Columns.Add("Level 3").LevelKey = 1
	.Columns.Add("E1").Width = 32
	.Columns.Add("E2").Width = 32
	.Columns.Add("E3").Width = 32
	.Columns.Add("E4").Width = 32
endwith

with thisform.Gantt1
	.HTMLPicture("pic1") = "c:\exontrol\images\card.png"
	.HeaderHeight = 48
	.Columns.Add("ColumnName").HTMLCaption = "<b>HTML</b> Column <img>pic1</img> Picture"
endwith

with thisform.Gantt1
	.Columns.Add("Default")
	with .Items
		h = .AddItem("Root")
		hC = .InsertItem(h,0,"Child 1")
		.DefaultItem = hC
		thisform.Gantt1.Chart.ItemBackColor(0) = RGB(255,0,0)
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith

with thisform.Gantt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.VisualAppearance.Add(3,"CP:2 2 2 -2 -2")
	.Columns.Add("Default")
	.SelBackMode = 1
	with .Items
		h = .AddItem("Root")
		hC = .InsertItem(h,0,"Child 1")
		.DefaultItem = hC
		.ItemBackColor(0) = 0x1ffff00
		.DefaultItem = hC
		thisform.Gantt1.Chart.ItemBackColor(0) = 0x300ff00
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith

with thisform.Gantt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Columns.Add("Default")
	with .Items
		h = .AddItem("Root")
		hC = .InsertItem(h,0,"Child 1")
		.DefaultItem = hC
		.ItemBackColor(0) = 0x1000000
		.DefaultItem = hC
		thisform.Gantt1.Chart.ItemBackColor(0) = 0x1000000
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith

with thisform.Gantt1
	.Columns.Add("Default")
	with .Items
		h = .AddItem("Root")
		hC = .InsertItem(h,0,"Child 1")
		.DefaultItem = hC
		.ItemBackColor(0) = RGB(255,0,0)
		.DefaultItem = hC
		thisform.Gantt1.Chart.ItemBackColor(0) = RGB(255,255,0)
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith

with thisform.Gantt1
	.Columns.Add("Default")
	with .Items
		h = .AddItem("Root")
		hC = .InsertItem(h,0,"Child 1")
		.DefaultItem = hC
		.ItemBackColor(0) = RGB(255,0,0)
		.DefaultItem = hC
		thisform.Gantt1.Chart.ItemBackColor(0) = RGB(255,0,0)
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith

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

with thisform.Gantt1
	.BeginUpdate
	.Columns.Add("Def")
	with .Chart
		.PaneWidth(.F.) = 64
		.LevelCount = 2
		.FirstVisibleDate = {^2010-1-1}
	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")
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.LinesAtRoot = -1
	.Columns.Add("Items")
	with .Items
		.AddItem("A")
		.AddItem("B")
		.InsertItem(.AddItem("C"),"","D")
		.SetParent(.FindItem("D",0),.FindItem("A",0))
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.LinesAtRoot = -1
	.Columns.Add("Items")
	with .Items
		.AddItem("A")
		.AddItem("B")
		.InsertItem(.AddItem("C"),"","D")
		.SetParent(.FindItem("D",0),0)
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.Font.Name = "Arial Unicode MS"
	.HeaderHeight = 36
	with .Chart
		.FirstVisibleDate = {^2010-5-30}
		.PaneWidth(.F.) = 0
		.FirstWeekDay = 1
		.UnitWidth = 36
		.LevelCount = 2
		with .Level(0)
			.Label = "<b><%loc_mmmm%></b> <%yyyy%><br><%loc_sdate%><r> <%ww%> "
			.ToolTip = .Label
			.Unit = 256
		endwith
		with .Level(1)
			.Label = "<%loc_ddd%><br><%d%>"
			.ToolTip = .Label
		endwith
		.ToolTip = "<%loc_ldate%>"
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	with .Chart
		.FirstVisibleDate = {^2009-12-31}
		.LevelCount = 2
		.PaneWidth(.F.) = 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 Gradient")
		.AddBar(h,"Task",{^2010-1-4},{^2010-1-9},"")
		.DefaultItem = h
		.ItemBar(0,"",17) = 8291
		.AddBar(.AddItem("Original"),"Task",{^2010-1-4},{^2010-1-9},"")
	endwith
	.EndUpdate
endwith

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

with thisform.Gantt1
	.BeginUpdate
	with .Chart
		.FirstVisibleDate = {^2009-12-31}
		.LevelCount = 2
		.PaneWidth(.F.) = 96
		with .Bars.Item("Task")
			.StartColor = RGB(255,255,255)
			.EndColor = .StartColor
			.Height = 17
		endwith
	endwith
	.Columns.Add("Types")
	with .Items
		.AddBar(.AddItem("Original"),"Task",{^2010-1-4},{^2010-1-9},"")
		h = .AddItem("W/h Gradient")
		.AddBar(h,"Task",{^2010-1-4},{^2010-1-9},"")
		.DefaultItem = h
		.ItemBar(0,"",17) = 227
		.AddBar(.AddItem("Original"),"Task",{^2010-1-4},{^2010-1-9},"")
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	with .Chart
		.FirstVisibleDate = {^2009-12-31}
		.LevelCount = 2
		.PaneWidth(.F.) = 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 Gradient")
		.AddBar(h,"Task",{^2010-1-4},{^2010-1-9},"")
		.DefaultItem = h
		.ItemBar(0,"",17) = 99
		.AddBar(.AddItem("Original"),"Task",{^2010-1-4},{^2010-1-9},"")
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	with .Chart
		.FirstVisibleDate = {^2009-12-31}
		.LevelCount = 2
		.PaneWidth(.F.) = 96
	endwith
	.Columns.Add("Types")
	with .Items
		.AddBar(.AddItem("Original"),"Task",{^2010-1-4},{^2010-1-9},"")
		h = .AddItem("W/h Border")
		.AddBar(h,"Task",{^2010-1-4},{^2010-1-9},"")
		.DefaultItem = h
		.ItemBar(0,"",17) = 4099
		.AddBar(.AddItem("Original"),"Task",{^2010-1-4},{^2010-1-9},"")
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	with .Chart
		.FirstVisibleDate = {^2009-12-31}
		.LevelCount = 2
		.PaneWidth(.F.) = 96
	endwith
	.Columns.Add("Types")
	with .Items
		.AddBar(.AddItem("Original"),"Task",{^2010-1-4},{^2010-1-9},"")
		h = .AddItem("W/h Shadow")
		.AddBar(h,"Task",{^2010-1-4},{^2010-1-9},"")
		.DefaultItem = h
		.ItemBar(0,"",17) = 8195
		.AddBar(.AddItem("Original"),"Task",{^2010-1-4},{^2010-1-9},"")
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	with .Chart
		.FirstVisibleDate = {^2009-12-31}
		.LevelCount = 2
		.PaneWidth(.F.) = 96
		.Bars.Copy("Task","TaskO")
		with .Bars.Item("Task")
			.Pattern = 99
			.StartColor = RGB(255,255,255)
			.EndColor = .Color
		endwith
	endwith
	.Columns.Add("Types")
	with .Items
		.AddBar(.AddItem("Original"),"TaskO",{^2010-1-4},{^2010-1-9},"")
		.AddBar(.AddItem("Pattern Gradient"),"Task",{^2010-1-4},{^2010-1-9},"")
		.AddBar(.AddItem("Original"),"TaskO",{^2010-1-4},{^2010-1-9},"")
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	with .Chart
		.FirstVisibleDate = {^2009-12-31}
		.LevelCount = 2
		.PaneWidth(.F.) = 96
		with .Bars
			.Add("Box").Pattern = 32
			.Add("ThickBox").Pattern = 4128
			.Add("DiagBox").Pattern = 4102
			.Copy("Task","Shadow").Pattern = 8195
			.Copy("Task","TShadow").Pattern = 12295
			with .Add("HGrad1")
				.Pattern = 32
				.StartColor = RGB(255,255,255)
				.EndColor = RGB(0,0,255)
			endwith
			with .Add("HGrad2")
				.Pattern = 35
				.StartColor = RGB(255,255,255)
				.EndColor = RGB(0,0,255)
				.Color = RGB(0,0,255)
			endwith
			with .Add("HGrad3")
				.Pattern = 163
				.StartColor = RGB(255,255,255)
				.EndColor = .StartColor
				.Color = RGB(0,0,255)
			endwith
			with .Add("HGrad4")
				.Pattern = 4256
				.StartColor = RGB(255,255,255)
				.EndColor = .StartColor
				.Color = RGB(0,0,255)
			endwith
			with .Add("HGrad5")
				.Pattern = 8352
				.StartColor = RGB(0,255,0)
				.EndColor = RGB(255,0,0)
				.Color = RGB(0,0,255)
			endwith
			with .Add("VGrad1")
				.Pattern = 96
				.StartColor = RGB(255,255,255)
				.EndColor = RGB(0,0,255)
				.Height = 14
			endwith
			with .Add("VGrad2")
				.Pattern = 99
				.StartColor = RGB(255,255,255)
				.EndColor = RGB(0,0,255)
				.Color = RGB(0,0,255)
				.Height = 14
			endwith
			with .Add("VGrad3")
				.Pattern = 227
				.StartColor = RGB(255,255,255)
				.EndColor = .StartColor
				.Color = RGB(0,0,255)
				.Height = 14
			endwith
			with .Add("VGrad4")
				.Pattern = 4320
				.StartColor = RGB(255,255,255)
				.EndColor = .StartColor
				.Color = RGB(0,0,255)
				.Height = -1
			endwith
			with .Add("VGrad5")
				.Pattern = 8416
				.StartColor = RGB(0,255,0)
				.EndColor = RGB(255,0,0)
				.Color = RGB(0,0,255)
				.Height = 14
			endwith
		endwith
	endwith
	.Columns.Add("Types")
	with .Items
		.AddBar(.AddItem("Box"),"Box",{^2010-1-4},{^2010-1-9},"")
		.AddBar(.AddItem("Thick Box"),"ThickBox",{^2010-1-4},{^2010-1-9},"")
		.AddBar(.AddItem("Thick Box Diag"),"DiagBox",{^2010-1-4},{^2010-1-9},"")
		.AddBar(.AddItem("Shadow"),"Shadow",{^2010-1-4},{^2010-1-9},"")
		.AddBar(.AddItem("Thick Shadow"),"TShadow",{^2010-1-4},{^2010-1-9},"")
		.AddBar(.AddItem("Solid Gradient"),"HGrad1",{^2010-1-4},{^2010-1-9},"")
		.AddBar(.AddItem("Pattern Gradient"),"HGrad2",{^2010-1-4},{^2010-1-9},"")
		.AddBar(.AddItem("Pattern Gradient 3 Colors"),"HGrad3",{^2010-1-4},{^2010-1-9},"")
		.AddBar(.AddItem("Solid Gradient 3 Colors"),"HGrad4",{^2010-1-4},{^2010-1-9},"")
		.AddBar(.AddItem("Gradient Shadow"),"HGrad5",{^2010-1-4},{^2010-1-9},"")
		.AddBar(.AddItem("Solid Gradient"),"VGrad1",{^2010-1-4},{^2010-1-9},"")
		.AddBar(.AddItem("Pattern Gradient"),"VGrad2",{^2010-1-4},{^2010-1-9},"")
		.AddBar(.AddItem("Pattern Gradient 3 Colors"),"VGrad3",{^2010-1-4},{^2010-1-9},"")
		.AddBar(.AddItem("Solid Gradient 3 Colors"),"VGrad4",{^2010-1-4},{^2010-1-9},"")
		.AddBar(.AddItem("Gradient Shadow"),"VGrad5",{^2010-1-4},{^2010-1-9},"")
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Chart.PaneWidth(.F.) = 48
	.Chart.Bars.Copy("Task","TaskB").Pattern = 4099
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-5},"")
		.AddBar(.AddItem("Task 2"),"TaskB",{^2001-1-2},{^2001-1-5},"")
		.AddBar(.AddItem("Task 3"),"Task",{^2001-1-2},{^2001-1-5},"")
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Chart.PaneWidth(.F.) = 48
	with .Chart.Bars.Copy("Task","EBN")
		.Color = 0x1000000
		.Pattern = 8192
	endwith
	.Chart.Bars.Copy("Task","EBN2").Color = 0x1000000
	with .Items
		.AddBar(.AddItem("Task 1"),"EBN2",{^2001-1-2},{^2001-1-5},"")
		.AddBar(.AddItem("Task 2"),"EBN",{^2001-1-2},{^2001-1-5},"")
		.AddBar(.AddItem("Task 3"),"EBN2",{^2001-1-2},{^2001-1-5},"")
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Chart.PaneWidth(.F.) = 48
	.Chart.Bars.Item("Task").Pattern = 8195
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-5},"")
		.AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-5},"")
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Chart.PaneWidth(.F.) = 48
	with .Chart.Bars.Add("V")
		.Color = RGB(255,0,0)
		.StartColor = RGB(0,255,0)
		.EndColor = .StartColor
		.Pattern = 224
		.Height = -1
	endwith
	with .Chart.Bars.Add("H")
		.Color = RGB(255,0,0)
		.StartColor = RGB(0,255,0)
		.EndColor = .StartColor
		.Pattern = 160
	endwith
	with .Items
		.AddBar(.AddItem("Task 1"),"V",{^2001-1-2},{^2001-1-5},"")
		.AddBar(.AddItem("Task 2"),"H",{^2001-1-2},{^2001-1-5},"")
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Chart.Bars.Item("Task")
		.Color = RGB(255,0,0)
		.StartColor = RGB(0,255,0)
		.EndColor = RGB(255,255,0)
		.Pattern = 96
	endwith
	with .Items
		h = .AddItem("Task")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"")
	endwith
endwith

with thisform.Gantt1
	.BeginUpdate
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Chart.Bars
		.AddShapeCorner(12345,1)
		.AddShapeCorner(12346,2)
		.Copy("Milestone","M1").StartShape = 12345
		.Copy("Milestone","M2").StartShape = 12346
		with .Copy("Milestone","MP")
			.StartShape = 20
			.StartColor = RGB(255,0,0)
		endwith
	endwith
	.Columns.Add("Column")
	with .Items
		.AddBar(.AddItem("Default"),"Milestone",{^2001-1-2},{^2001-1-2})
		.AddBar(.AddItem("Predefined"),"MP",{^2001-1-3},{^2001-1-3})
		.AddBar(.AddItem("Custom 1"),"M1",{^2001-1-4},{^2001-1-4})
		.AddBar(.AddItem("Custom 2"),"M2",{^2001-1-5},{^2001-1-5})
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Chart.Bars
		.AddShapeCorner(12345,1)
		.Item("Milestone").StartShape = 12345
	endwith
	.Columns.Add("Column")
	with .Items
		.AddBar(.AddItem("Item 1"),"Milestone",{^2001-1-2},{^2001-1-2})
	endwith
endwith

with thisform.Gantt1
	.BeginUpdate
	with .Chart
		.LevelCount = 2
		.PaneWidth(.F.) = 0
		.Label(256) = "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256"
		var_s = "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <"
		var_s = var_s + "%yyyy%><||><||>4096"
		.Label(4096) = var_s
		.LabelToolTip(256) = "<%d%> <%mmmm%> <%yyyy%> <%ww%>"
		.LabelToolTip(4096) = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
		.FirstWeekDay = 1
		.MonthNames = "gennaio febbraio marzo aprile maggio giugno luglio agosto settembre ottobre novembre dicembre"
		.WeekDays = "domenica lunedì martedì mercoledì giovedì venerdì sabato"
		.ToolTip = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
		.UnitScale = 4096
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	with .Chart
		.LevelCount = 2
		.PaneWidth(.F.) = 0
		.Label(256) = "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256"
		var_s = "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <"
		var_s = var_s + "%yyyy%><||><||>4096"
		.Label(4096) = var_s
		.LabelToolTip(256) = "<%d%> <%mmmm%> <%yyyy%> <%ww%>"
		.LabelToolTip(4096) = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
		.FirstWeekDay = 1
		.MonthNames = "januari februari maart april mei juni juli augusts september oktober november december"
		.WeekDays = "zondag maandag dinsdag woensdag donderdag vrijdag zaterdag"
		.ToolTip = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
		.UnitScale = 4096
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	with .Chart
		.LevelCount = 2
		.PaneWidth(.F.) = 0
		.Label(256) = "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%>.<%mmmm%> <%yyyy%><r><%ww%><||><||>256"
		var_s = "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%>.<%m3%> '<%yy%><|><%dddd%> <%d%>.<%mmmm%> <"
		var_s = var_s + "%yyyy%><||><||>4096"
		.Label(4096) = var_s
		.LabelToolTip(256) = "<%d%>.<%mmmm%> <%yyyy%> <%ww%>"
		.LabelToolTip(4096) = "<%dddd%>, <%d%>.<%mmmm%> <%yyyy%>"
		.FirstWeekDay = 1
		.MonthNames = "Januar Februar März April Mai Juni Juli August September Oktober November Dezember"
		.WeekDays = "Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag"
		.ToolTip = "<%dddd%>,<%d%>.<%mmmm%> <%yyyy%>"
		.UnitScale = 4096
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	with .Chart
		.LevelCount = 2
		.PaneWidth(.F.) = 0
		.Label(256) = "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256"
		var_s = "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <"
		var_s = var_s + "%yyyy%><||><||>4096"
		.Label(4096) = var_s
		.LabelToolTip(256) = "<%d%> <%mmmm%> <%yyyy%> <%ww%>"
		.LabelToolTip(4096) = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
		.FirstWeekDay = 1
		.MonthNames = "janvier février mars avril mai juin juillet août septembre octobre novembre décembre"
		.WeekDays = "dimanche lundi mardi mercredi jeudi vendredi samedi"
		.ToolTip = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
		.UnitScale = 4096
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.Chart.PaneWidth(.T.) = 0
	with .Columns
		.Add("Car")
		.Add("Equipment")
	endwith
	with .Items
		.DefaultItem = .AddItem("Mazda")
		.CellCaption(0,1) = "Air Bag"
		.DefaultItem = .AddItem("Toyota")
		.CellCaption(0,1) = "Air Bag,Air condition"
		.DefaultItem = .AddItem("Ford")
		.CellCaption(0,1) = "Air condition"
		.DefaultItem = .AddItem("Nissan")
		.CellCaption(0,1) = "Air Bag,ABS,ESP"
		.DefaultItem = .AddItem("Mazda")
		.CellCaption(0,1) = "Air Bag, ABS,ESP"
		.DefaultItem = .AddItem("Mazda")
		.CellCaption(0,1) = "ABS,ESP"
	endwith
	with .Columns.Item("Car")
		.FilterType = 240
		.Filter = "Mazda"
	endwith
	with .Columns.Item("Equipment")
		.FilterType = 3
		.Filter = "*ABS*|*ESP*"
	endwith
	.ApplyFilter
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	with .Columns.Add("Value")
		.Width = 24
	endwith
	with .Columns.Add("SWITCH - statment")
		.ComputedField = "%0 switch ('not found', 1,2,3,4,5,7,8,9,11,13,14)"
		.ToolTip = .ComputedField
	endwith
	with .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	with .Columns.Add("Value")
		.Width = 24
	endwith
	with .Columns.Add("IN - statment")
		.ComputedField = "%0 in (1,2,3,4,5,7,8,9,11,13,14) ? 'found' : ''"
		.ToolTip = .ComputedField
	endwith
	with .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	with .Columns.Add("Value")
		.Width = 24
	endwith
	with .Columns.Add("CASE - statment")
		var_s = "%0 case (default:'not found';1:%0;2:2*%0;3:3*%0;4:4*%0;5:5*%0;7:'Seven';8:'Eight';9:'Nine';11:'E"
		var_s = var_s + "leven';13:'Thirtheen';14:'Fourtheen')"
		.ComputedField = var_s
		.ToolTip = .ComputedField
	endwith
	with .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	with .Columns.Add("Value")
		.Width = 24
	endwith
	with .Columns.Add("CASE - statment")
		var_s = "%0 case (default:'not found';1:'One';2:'Two';3:'Three';4:'Four';5:'Five';7:'Seven';8:'Eight';9:'"
		var_s = var_s + "Nine';11:'Eleven';13:'Thirtheen';14:'Fourtheen')"
		.ComputedField = var_s
		.ToolTip = .ComputedField
	endwith
	with .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.FilterBarPromptVisible = .T.
	.FilterBarCaption = "This is a bit of text being displayed in the filter bar."
	.Columns.Add("")
	with .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.Columns.Add("")
	with .Items
		h = .AddItem("")
		.DefaultItem = h
		.CellCaption(0,0) = .VisibleItemCount
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.Chart.PaneWidth(.T.) = 0
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T.
	.FilterBarPromptType = 12801
	.FilterBarPromptPattern = "london robert"
	.FilterBarCaption = "<r>Found: ... "
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.DefaultItem = h0
		.CellCaption(0,1) = "Vice President, Sales"
		.DefaultItem = h0
		.CellCaption(0,2) = "Tacoma"
		.DefaultItem = h0
		.SelectItem(0) = .T.
		h0 = .AddItem("Janet Leverling")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Manager"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Robert King")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Inside Sales Coordinator"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.Chart.PaneWidth(.T.) = 0
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T.
	.FilterBarPromptType = 16
	.FilterBarPromptPattern = "lon* seat*"
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.DefaultItem = h0
		.CellCaption(0,1) = "Vice President, Sales"
		.DefaultItem = h0
		.CellCaption(0,2) = "Tacoma"
		.DefaultItem = h0
		.SelectItem(0) = .T.
		h0 = .AddItem("Janet Leverling")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Manager"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Robert King")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Inside Sales Coordinator"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.Chart.PaneWidth(.T.) = 0
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T.
	.FilterBarPromptType = 4610
	.FilterBarPromptPattern = "london davolio"
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.DefaultItem = h0
		.CellCaption(0,1) = "Vice President, Sales"
		.DefaultItem = h0
		.CellCaption(0,2) = "Tacoma"
		.DefaultItem = h0
		.SelectItem(0) = .T.
		h0 = .AddItem("Janet Leverling")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Manager"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Robert King")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Inside Sales Coordinator"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.Chart.PaneWidth(.T.) = 0
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T.
	.FilterBarPromptType = 12802
	.FilterBarPromptPattern = "london nancy"
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.DefaultItem = h0
		.CellCaption(0,1) = "Vice President, Sales"
		.DefaultItem = h0
		.CellCaption(0,2) = "Tacoma"
		.DefaultItem = h0
		.SelectItem(0) = .T.
		h0 = .AddItem("Janet Leverling")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Manager"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Robert King")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Inside Sales Coordinator"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.Chart.PaneWidth(.T.) = 0
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T.
	.FilterBarPromptType = 12801
	.FilterBarPromptPattern = "london robert"
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.DefaultItem = h0
		.CellCaption(0,1) = "Vice President, Sales"
		.DefaultItem = h0
		.CellCaption(0,2) = "Tacoma"
		.DefaultItem = h0
		.SelectItem(0) = .T.
		h0 = .AddItem("Janet Leverling")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Manager"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Robert King")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Inside Sales Coordinator"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T.
	.FilterBarPromptType = 258
	.FilterBarPromptPattern = "Anne"
	.Chart.PaneWidth(.T.) = 0
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.DefaultItem = h0
		.CellCaption(0,1) = "Vice President, Sales"
		.DefaultItem = h0
		.CellCaption(0,2) = "Tacoma"
		.DefaultItem = h0
		.SelectItem(0) = .T.
		h0 = .AddItem("Janet Leverling")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Manager"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Robert King")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Inside Sales Coordinator"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T.
	.FilterBarPromptType = 4
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "Fuller"
	.Chart.PaneWidth(.T.) = 0
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.DefaultItem = h0
		.CellCaption(0,1) = "Vice President, Sales"
		.DefaultItem = h0
		.CellCaption(0,2) = "Tacoma"
		.DefaultItem = h0
		.SelectItem(0) = .T.
		h0 = .AddItem("Janet Leverling")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Manager"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Robert King")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Inside Sales Coordinator"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T.
	.FilterBarPromptType = 4
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "Fuller"
	.Chart.PaneWidth(.T.) = 0
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.DefaultItem = h0
		.CellCaption(0,1) = "Vice President, Sales"
		.DefaultItem = h0
		.CellCaption(0,2) = "Tacoma"
		.DefaultItem = h0
		.SelectItem(0) = .T.
		h0 = .AddItem("Janet Leverling")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Manager"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Robert King")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Inside Sales Coordinator"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T.
	.FilterBarPromptType = 3
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "An M"
	.Chart.PaneWidth(.T.) = 0
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.DefaultItem = h0
		.CellCaption(0,1) = "Vice President, Sales"
		.DefaultItem = h0
		.CellCaption(0,2) = "Tacoma"
		.DefaultItem = h0
		.SelectItem(0) = .T.
		h0 = .AddItem("Janet Leverling")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Manager"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Robert King")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Inside Sales Coordinator"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T.
	.FilterBarPromptType = 3
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "A"
	.Chart.PaneWidth(.T.) = 0
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.DefaultItem = h0
		.CellCaption(0,1) = "Vice President, Sales"
		.DefaultItem = h0
		.CellCaption(0,2) = "Tacoma"
		.DefaultItem = h0
		.SelectItem(0) = .T.
		h0 = .AddItem("Janet Leverling")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Manager"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Robert King")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Inside Sales Coordinator"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T.
	.FilterBarPromptType = 2
	.FilterBarPromptPattern = "london seattle"
	.Chart.PaneWidth(.T.) = 0
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.DefaultItem = h0
		.CellCaption(0,1) = "Vice President, Sales"
		.DefaultItem = h0
		.CellCaption(0,2) = "Tacoma"
		.DefaultItem = h0
		.SelectItem(0) = .T.
		h0 = .AddItem("Janet Leverling")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Manager"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Robert King")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Inside Sales Coordinator"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.Chart.PaneWidth(.T.) = 0
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T.
	.FilterBarPromptType = 1
	.FilterBarPromptPattern = "london manager"
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.DefaultItem = h0
		.CellCaption(0,1) = "Vice President, Sales"
		.DefaultItem = h0
		.CellCaption(0,2) = "Tacoma"
		.DefaultItem = h0
		.SelectItem(0) = .T.
		h0 = .AddItem("Janet Leverling")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Manager"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Robert King")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Inside Sales Coordinator"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.Chart.PaneWidth(.T.) = 0
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T.
	.FilterBarPromptPattern = "london manager"
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.DefaultItem = h0
		.CellCaption(0,1) = "Vice President, Sales"
		.DefaultItem = h0
		.CellCaption(0,2) = "Tacoma"
		.DefaultItem = h0
		.SelectItem(0) = .T.
		h0 = .AddItem("Janet Leverling")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Manager"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Robert King")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Inside Sales Coordinator"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.Chart.PaneWidth(.T.) = 0
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T.
	.FilterBarPromptColumns = "2,3"
	.FilterBarPromptPattern = "london"
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.DefaultItem = h0
		.CellCaption(0,1) = "Vice President, Sales"
		.DefaultItem = h0
		.CellCaption(0,2) = "Tacoma"
		.DefaultItem = h0
		.SelectItem(0) = .T.
		h0 = .AddItem("Janet Leverling")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Manager"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Robert King")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Inside Sales Coordinator"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.Chart.PaneWidth(.T.) = 0
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T.
	.FilterBarPrompt = "changed"
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.Chart.PaneWidth(.T.) = 0
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T.
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.DefaultItem = h0
		.CellCaption(0,1) = "Vice President, Sales"
		.DefaultItem = h0
		.CellCaption(0,2) = "Tacoma"
		.DefaultItem = h0
		.SelectItem(0) = .T.
		h0 = .AddItem("Janet Leverling")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Manager"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Robert King")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.DefaultItem = h0
		.CellCaption(0,1) = "Inside Sales Coordinator"
		.DefaultItem = h0
		.CellCaption(0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.DefaultItem = h0
		.CellCaption(0,1) = "Sales Representative"
		.DefaultItem = h0
		.CellCaption(0,2) = "London"
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	with .ConditionalFormats.Add("1")
		.ForeColor = RGB(255,0,0)
		.ApplyTo = 1
	endwith
	.MarkSearchColumn = .F.
	with .Columns
		.Add("Column 1")
		.Add("Column 2")
	endwith
	with .Items
		.DefaultItem = .AddItem(0)
		.CellCaption(0,1) = 1
		.DefaultItem = .AddItem(2)
		.CellCaption(0,1) = 3
		.DefaultItem = .AddItem(4)
		.CellCaption(0,1) = 5
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	with .ConditionalFormats.Add("int(%1) in (3,4,5)")
		.BackColor = RGB(255,0,0)
		.ApplyTo = 1
	endwith
	.MarkSearchColumn = .F.
	with .Columns
		.Add("Column 1")
		.Add("Column 2")
	endwith
	with .Items
		.DefaultItem = .AddItem(0)
		.CellCaption(0,1) = 1
		.DefaultItem = .AddItem(2)
		.CellCaption(0,1) = 3
		.DefaultItem = .AddItem(4)
		.CellCaption(0,1) = 5
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.MarkSearchColumn = .F.
	with .Columns
		.Add("Column 1")
		.Add("Column 2").Def(4) = 255
	endwith
	with .Items
		.DefaultItem = .AddItem(0)
		.CellCaption(0,1) = 1
		.DefaultItem = .AddItem(2)
		.CellCaption(0,1) = 3
		.DefaultItem = .AddItem(4)
		.CellCaption(0,1) = 5
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.LinesAtRoot = -1
	.Columns.Add("P")
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
	with .Items
		hChild = .ItemChild(.FirstVisibleItem)
		DEBUGOUT(.CellCaption(hChild,0))
		DEBUGOUT(.CellCaption(.NextSiblingItem(hChild),0))
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	with .Chart
		.PaneWidth(.F.) = 0
		.LevelCount = 3
		.OverviewVisible = .T.
		.AllowOverviewZoom = 1
		.Label(0) = "<%yy%><|><%yyyy%>"
		.Label(1) = ""
		.Label(2) = ""
		.Label(16) = "<|><%m%><|><%m%>/<%yy%><|><%m%>/<%yyyy%>"
		.Label(17) = ""
		.Label(256) = "<|><%ww%><|><%m%>/<%d%>/<%yy%><r><%ww%><|><%m%>/<%d%>/<%yyyy%><r><%ww%><||><||>256"
		.Label(4096) = "<|><%d%><|><%m%>/<%d%>/<%yy%><|><%m%>/<%d%>/<%yyyy%><||><||>4096"
		var_s = "<|><%hh%><|><%m%>/<%d%>/<%yy%> <%h%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%><||><||>655"
		var_s = var_s + "36"
		.Label(65536) = var_s
		var_s1 = "<|><%nn%><|><%h%>:<%nn% <%AM/PM%>><|><%m%>/<%d%>/<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%m%>/<%d%>/<%y"
		var_s1 = var_s1 + "yyy%> <%h%>:<%nn%> <%AM/PM%>"
		.Label(1048576) = var_s1
		var_s2 = "<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%m%>/<%d%>/<%yy%> <%h%>:<%nn%>:<%ss"
		var_s2 = var_s2 + "%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
		.Label(16777216) = var_s2
		.LabelToolTip(0) = "<%yyyy%>"
		.LabelToolTip(1) = ""
		.LabelToolTip(2) = ""
		.LabelToolTip(16) = "<%m%>/<%yyyy%>"
		.LabelToolTip(17) = ""
		.LabelToolTip(256) = "<%m%>/<%d%>/<%yyyy%> <%ww%>"
		.LabelToolTip(4096) = "<%m%>/<%d%>/<%yyyy%>"
		.LabelToolTip(65536) = "<%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%>"
		.LabelToolTip(1048576) = "<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
		.LabelToolTip(16777216) = "<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
		.UnitScale = 4096
	endwith
	.EndUpdate
endwith

*** SelectionChanged event - Fired after a new item has been selected. ***
LPARAMETERS nop
	with thisform.Gantt1
		with .Items
			DEBUGOUT("Handle")
			DEBUGOUT(.FocusItem)
			DEBUGOUT("Caption")
			DEBUGOUT(.CellCaption(.FocusItem,0))
		endwith
	endwith

with thisform.Gantt1
	.BeginUpdate
	.LinesAtRoot = -1
	.Columns.Add("Items")
	with .Items
		h = .AddItem("R1")
		.InsertItem(h,0,"Cell 1.1")
		.InsertItem(h,0,"Cell 1.2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("R2")
		.InsertItem(h,0,"Cell 2.1")
		.InsertItem(h,0,"Cell 2.2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
endwith

*** SelectionChanged event - Fired after a new item has been selected. ***
LPARAMETERS nop
	with thisform.Gantt1
		with .Items
			DEBUGOUT("Handle")
			DEBUGOUT(.SelectedItem(0))
			DEBUGOUT("Caption")
			DEBUGOUT(.CellCaption(.SelectedItem(0),0))
		endwith
	endwith

with thisform.Gantt1
	.BeginUpdate
	.LinesAtRoot = -1
	.Columns.Add("Items")
	with .Items
		h = .AddItem("R1")
		.InsertItem(h,0,"Cell 1.1")
		.InsertItem(h,0,"Cell 1.2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("R2")
		.InsertItem(h,0,"Cell 2.1")
		.InsertItem(h,0,"Cell 2.2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
endwith

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.Gantt1
		.BeginUpdate
		h = .ItemFromPoint(-1,-1,c,hit)
		with .Items
			.ClearItemBackColor(thisform.Gantt1.Background(1000))
			.DefaultItem = h
			.ItemBackColor(0) = RGB(240,250,240)
		endwith
		.Background(1000) = h
		.EndUpdate
	endwith

with thisform.Gantt1
	.BeginUpdate
	.LinesAtRoot = -1
	.DrawGridLines = 1
	.SelBackColor = RGB(240,250,240)
	.SelForeColor = RGB(0,0,0)
	.ShowFocusRect = .F.
	with .Chart
		.SelBackColor = RGB(240,250,240)
	endwith
	.Columns.Add("Items")
	with .Items
		h = .AddItem("R1")
		.InsertItem(h,0,"Cell 1.1")
		.InsertItem(h,0,"Cell 1.2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("R2")
		.InsertItem(h,0,"Cell 2.1")
		.InsertItem(h,0,"Cell 2.2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
endwith

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.Gantt1
		h = .ItemFromPoint(-1,-1,c,hit)
		DEBUGOUT("Handle")
		DEBUGOUT(h)
		DEBUGOUT("Index")
		DEBUGOUT(.Items.ItemToIndex(h))
	endwith

with thisform.Gantt1
	.BeginUpdate
	.LinesAtRoot = -1
	.DrawGridLines = 1
	.Columns.Add("Items")
	with .Items
		h = .AddItem("R1")
		.InsertItem(h,0,"Cell 1.1")
		.InsertItem(h,0,"Cell 1.2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("R2")
		.InsertItem(h,0,"Cell 2.1")
		.InsertItem(h,0,"Cell 2.2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
endwith

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.Gantt1
		DEBUGOUT(.ColumnFromPoint(-1,0))
	endwith

with thisform.Gantt1
	.BeginUpdate
	.LinesAtRoot = -1
	.Columns.Add("P1")
	.Columns.Add("P2")
	.DrawGridLines = -1
	with .Items
		h = .AddItem("R1")
		.DefaultItem = h
		.CellCaption(0,1) = "R2"
		.DefaultItem = .InsertItem(h,0,"Cell 1.1")
		.CellCaption(0,1) = "Cell 1.2"
		.DefaultItem = .InsertItem(h,0,"Cell 2.1")
		.CellCaption(0,1) = "Cell 2.2"
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
endwith

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.Gantt1
		DEBUGOUT(.ColumnFromPoint(-1,-1))
	endwith

with thisform.Gantt1
	.BeginUpdate
	.LinesAtRoot = -1
	.DrawGridLines = -1
	.Columns.Add("P1")
	.Columns.Add("P2")
	with .Items
		h = .AddItem("R1")
		.DefaultItem = h
		.CellCaption(0,1) = "R2"
		.DefaultItem = .InsertItem(h,0,"Cell 1.1")
		.CellCaption(0,1) = "Cell 1.2"
		.DefaultItem = .InsertItem(h,0,"Cell 2.1")
		.CellCaption(0,1) = "Cell 2.2"
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
endwith

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.Gantt1
		h = .ItemFromPoint(-1,-1,c,hit)
		DEBUGOUT(.Items.CellCaption(h,c))
	endwith

with thisform.Gantt1
	.BeginUpdate
	.LinesAtRoot = -1
	.Columns.Add("Items")
	with .Items
		h = .AddItem("R1")
		.InsertItem(h,0,"Cell 1.1")
		.InsertItem(h,0,"Cell 1.2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("R2")
		.InsertItem(h,0,"Cell 2.1")
		.InsertItem(h,0,"Cell 2.2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.DrawGridLines = -1
	.GridLineStyle = 33
	.Columns.Add("C1")
	.Columns.Add("C2")
	.Columns.Add("C3")
	with .Items
		h = .AddItem("Item 1")
		.DefaultItem = h
		.CellCaption(0,1) = "SubItem 1.2"
		.DefaultItem = h
		.CellCaption(0,2) = "SubItem 1.3"
		h = .AddItem("Item 2")
		.DefaultItem = h
		.CellCaption(0,1) = "SubItem 2.2"
		.DefaultItem = h
		.CellCaption(0,2) = "SubItem 2.3"
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.DrawGridLines = -1
	.GridLineColor = RGB(220,220,220)
	with .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = {^2001-1-1}
		.DrawGridLines = -1
		.GridLineStyle = 256
		.LevelCount = 2
		with .Level(1)
			.DrawGridLines = .T.
			.GridLineColor = RGB(220,220,220)
		endwith
		with .Bars.Item("Task")
			.Pattern = 1
			.Height = 14
		endwith
	endwith
	.Columns.Add("Column")
	with .Items
		h = .AddItem("Item 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"A")
		.AddBar(h,"Task",{^2001-1-8},{^2001-1-15},"B")
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.DrawGridLines = -1
	.GridLineStyle = 12
	with .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = {^2001-1-1}
		.DrawGridLines = -1
		.GridLineStyle = 12
		.LevelCount = 2
		.Level(1).DrawGridLines = .T.
		with .Level(0)
			.GridLineColor = RGB(255,0,0)
			.GridLineStyle = 32
		endwith
		.Bars.Item("Task").Pattern = 1
	endwith
	.Columns.Add("Column")
	with .Items
		h = .AddItem("Item 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"A")
		.AddBar(h,"Task",{^2001-1-8},{^2001-1-15},"B")
	endwith
	.EndUpdate
endwith

with thisform.Gantt1
	.BeginUpdate
	.DrawGridLines = -1
	.GridLineStyle = 48
	with .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = {^2001-1-1}
		.DrawGridLines = -1
		.