2357
Specify the size of the Columns panel

local oG2antt,var_Column,var_Column1,var_Columns

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.HeaderHeight = 24
oG2antt.HeaderAppearance = 4
var_Columns = oG2antt.Columns
	var_Columns.Add("City")
	// var_Columns.Add("Start").Visible = false
	var_Column = var_Columns.Add("Start")
	with (oG2antt)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Visible = False]
	endwith
	// var_Columns.Add("End").Visible = false
	var_Column1 = var_Columns.Add("End")
	with (oG2antt)
		TemplateDef = [dim var_Column1]
		TemplateDef = var_Column1
		Template = [var_Column1.Visible = False]
	endwith
oG2antt.ColumnsFloatBarRect = ",,96"
oG2antt.ColumnsFloatBarVisible = 34 /*exColumnsFloatBarVisibleAsChild | exColumnsFloatBarVisibleIncludeCheckColumns*/
oG2antt.EndUpdate()
2356
Show a vertical line between pivot and Columns panel (EBN color)

local oG2antt,var_Column,var_Column1,var_Columns

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABRsIQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFICQTIcBhaGIZRiAKCRTDmHwyRCNIwCLD8QxtDqBY4gOZZXhal4cJTgMaBYi+Pw3DZHcbvBRkewzHQAKgnSjoDhEMg1CTVVYTDKdOSzDyEX7sIAACpOIZQVJVEY1VT8cyxIyEZimSypWqiYJ0Ty6cQwTAIgI")
oG2antt.Template = [Background(87) = 16777216] // oG2antt.Background(87) = 0x1000000
oG2antt.HeaderHeight = 24
oG2antt.HeaderAppearance = 4
var_Columns = oG2antt.Columns
	var_Columns.Add("City")
	// var_Columns.Add("Start").Visible = false
	var_Column = var_Columns.Add("Start")
	with (oG2antt)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Visible = False]
	endwith
	// var_Columns.Add("End").Visible = false
	var_Column1 = var_Columns.Add("End")
	with (oG2antt)
		TemplateDef = [dim var_Column1]
		TemplateDef = var_Column1
		Template = [var_Column1.Visible = False]
	endwith
oG2antt.ColumnsFloatBarVisible = 34 /*exColumnsFloatBarVisibleAsChild | exColumnsFloatBarVisibleIncludeCheckColumns*/
oG2antt.EndUpdate()
2355
Change the background of the Columns panel (EBN color)

local oG2antt,var_Column,var_Column1,var_Columns

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABNoCg6AADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6NIpAWLoJDCH4mSTHYxgJIMWwzDiBZgkCA4fiGEYnThCIxzTJ0aw1CKbYRAKCUKoUAJFsSnQAJIgOO4lULPMIhDDQKQTIKBahoehqIhaEQyDSJNb2DCIahhMSEbKtCooDhGFZUWzLVxTJJNawHJqJJDuOTpSjKH4+RjWFKUXR9b4BJSNAgqeCQTiSWZEVxRUS0XbGCyZLSQY7uAAMKgOVoDYzdGLwHTtOwrMa1QAsDSbKqWZ5uRpHcQ5aAGN5DPbMbqwOaqLznAaLQLtG4RTikVRPTDYaj437+OaHGyNbI6HTNPpTlWDJWjYXI8l8C4fg6GYAAEEISgGJJGHQOocgyIwYnqKhYAAIQTH2MYRjQJBRAmZptmEAYIjGU5dk8UgOFgBJUgCTQIBYBoBmCCAmAqApghgDJUDmYQFCCZoEk2OBUm+BZPCgZgagaYZIHYHoHmGWBcm8NwiEiFJVgmYgji4Kg6GKSI2C6C5jAiRgygwIojiycINkyeJmAYPJjkiTg+g+ZAIkCdIQkyWQWDuDxkBkJhKguZAzlIRQzGQc5ODWFJlEkVhWhWZYJFYTYTmUE4yF6F5mAmBhihiZhJhYX4WmQaAUnWGpOlmNhuhuZwJkYcocmcSY4naHZlkmKhrDuJ5JnYfofmgCgGgKIJnlmXJ2h4TQKBosRokoNoOiOaQKDSd" ;
 +"4kmiChMncPBpgoZoaiaaZKHaHonmmE5iiKJRpDicomimaoKiaKoqmqSoeiIPgogqPotiyaxKlYPA+GuCqbBMa5KnaPovmwCwGj6LgP24RIhiyCwmkqMpsksNpKD6LQLBqOIzi0SxWlaHZtAOahPssM5Wi+IYtlsXpijKbZ5lyTo5mAE4UlqOpjHOQpEjubyanKPJvEuNgVj2TY1CCao+k2G52AyP5wAwBp9DYZZ1CCaxsAABAEICA")
oG2antt.Template = [Background(87) = 16777216] // oG2antt.Background(87) = 0x1000000
oG2antt.HeaderHeight = 24
oG2antt.HeaderAppearance = 4
var_Columns = oG2antt.Columns
	var_Columns.Add("City")
	// var_Columns.Add("Start").Visible = false
	var_Column = var_Columns.Add("Start")
	with (oG2antt)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Visible = False]
	endwith
	// var_Columns.Add("End").Visible = false
	var_Column1 = var_Columns.Add("End")
	with (oG2antt)
		TemplateDef = [dim var_Column1]
		TemplateDef = var_Column1
		Template = [var_Column1.Visible = False]
	endwith
oG2antt.ColumnsFloatBarVisible = 34 /*exColumnsFloatBarVisibleAsChild | exColumnsFloatBarVisibleIncludeCheckColumns*/
oG2antt.EndUpdate()
2354
Change the background of the Columns panel (solid color)

local oG2antt,var_Column,var_Column1,var_Columns

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.HeaderHeight = 24
oG2antt.HeaderAppearance = 4
var_Columns = oG2antt.Columns
	var_Columns.Add("City")
	// var_Columns.Add("Start").Visible = false
	var_Column = var_Columns.Add("Start")
	with (oG2antt)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Visible = False]
	endwith
	// var_Columns.Add("End").Visible = false
	var_Column1 = var_Columns.Add("End")
	with (oG2antt)
		TemplateDef = [dim var_Column1]
		TemplateDef = var_Column1
		Template = [var_Column1.Visible = False]
	endwith
oG2antt.ColumnsFloatBarVisible = 34 /*exColumnsFloatBarVisibleAsChild | exColumnsFloatBarVisibleIncludeCheckColumns*/
oG2antt.Template = [Background(87) = 15790320] // oG2antt.Background(87) = 0xf0f0f0
oG2antt.EndUpdate()
2353
Change the visual appearance of the Columns panel

local oG2antt,var_Column,var_Column1,var_Columns

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABNoCg6AADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6NIpAWLoJDCH4mSTHYxgJIMWwzDiBZgkCA4fiGEYnThCIxzTJ0aw1CKbYRAKCUKoUAJFsSnQAJIgOO4lULPMIhDDQKQTIKBahoehqIhaEQyDSJNb2DCIahhMSEbKtCooDhGFZUWzLVxTJJNawHJqJJDuOTpSjKH4+RjWFKUXR9b4BJSNAgqeCQTiSWZEVxRUS0XbGCyZLSQY7uAAMKgOVoDYzdGLwHTtOwrMa1QAsDSbKqWZ5uRpHcQ5aAGN5DPbMbqwOaqLznAaLQLtG4RTikVRPTDYaj437+OaHGyNbI6HTNPpTlWDJWjYXI8l8C4fg6GYAAEEISgGJJGHQOocgyIwYnqKhYAAIQTH2MYRjQJBRAmZptmEAYIjGU5dk8UgOFgBJUgCTQIBYBoBmCCAmAqApghgDJUDmYQFCCZoEk2OBUm+BZPCgZgagaYZIHYHoHmGWBcm8NwiEiFJVgmYgji4Kg6GKSI2C6C5jAiRgygwIojiycINkyeJmAYPJjkiTg+g+ZAIkCdIQkyWQWDuDxkBkJhKguZAzlIRQzGQc5ODWFJlEkVhWhWZYJFYTYTmUE4yF6F5mAmBhihiZhJhYX4WmQaAUnWGpOlmNhuhuZwJkYcocmcSY4naHZlkmKhrDuJ5JnYfofmgCgGgKIJnlmXJ2h4TQKBosRokoNoOiOaQKDSd" ;
 +"4kmiChMncPBpgoZoaiaaZKHaHonmmE5iiKJRpDicomimaoKiaKoqmqSoeiIPgogqPotiyaxKlYPA+GuCqbBMa5KnaPovmwCwGj6LgP24RIhiyCwmkqMpsksNpKD6LQLBqOIzi0SxWlaHZtAOahPssM5Wi+IYtlsXpijKbZ5lyTo5mAE4UlqOpjHOQpEjubyanKPJvEuNgVj2TY1CCao+k2G52AyP5wAwBp9DYZZ1CCaxsAABAEICA")
oG2antt.Template = [Background(92) = 16777216] // oG2antt.Background(92) = 0x1000000
oG2antt.Template = [Background(93) = 16185078] // oG2antt.Background(93) = 0xf6f6f6
oG2antt.BackColorHeader = 0x1000000
oG2antt.HeaderHeight = 24
oG2antt.HeaderAppearance = 4
var_Columns = oG2antt.Columns
	var_Columns.Add("City")
	// var_Columns.Add("Start").Visible = false
	var_Column = var_Columns.Add("Start")
	with (oG2antt)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Visible = False]
	endwith
	// var_Columns.Add("End").Visible = false
	var_Column1 = var_Columns.Add("End")
	with (oG2antt)
		TemplateDef = [dim var_Column1]
		TemplateDef = var_Column1
		Template = [var_Column1.Visible = False]
	endwith
oG2antt.Template = [Description(26) = "Show/Hide"] // oG2antt.Description(26) = "Show/Hide"
oG2antt.ColumnsFloatBarVisible = 2
oG2antt.EndUpdate()
2352
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (ditto mark)

local oG2antt,var_Column,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 24
oG2antt.DrawGridLines = -2
// oG2antt.Columns.Add("Country").ShowIdem = "<fgcolor gray>〃"
var_Column = oG2antt.Columns.Add("Country")
with (oG2antt)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.ShowIdem = "<fgcolor gray>〃"]
endwith
var_Items = oG2antt.Items
	var_Items.AddItem("Spain")
	var_Items.AddItem("Spain")
	var_Items.AddItem("Spain")
	var_Items.AddItem("Spain")
	var_Items.AddItem("Germany")
	var_Items.AddItem("Germany")
	var_Items.AddItem("Germany")
	var_Items.AddItem("Germany")
oG2antt.EndUpdate()
2351
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (space)

local oG2antt,var_Column,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 24
oG2antt.DrawGridLines = -2
// oG2antt.Columns.Add("Country").ShowIdem = " "
var_Column = oG2antt.Columns.Add("Country")
with (oG2antt)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.ShowIdem = " "]
endwith
var_Items = oG2antt.Items
	var_Items.AddItem("Spain")
	var_Items.AddItem("Spain")
	var_Items.AddItem("Spain")
	var_Items.AddItem("Spain")
	var_Items.AddItem("Germany")
	var_Items.AddItem("Germany")
	var_Items.AddItem("Germany")
	var_Items.AddItem("Germany")
oG2antt.EndUpdate()
2350
Displays a glitch funnel for drop-down filter buttons (empty or active)

local oG2antt,var_Appearance,var_Column,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
var_Appearance = oG2antt.VisualAppearance
	var_Appearance.RenderType = -1
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABa8IQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFMbxCKQahLEiTIhGUYJHgmK4tRiAUgxVDkBxrECZYqjcBZOiwLQ2TxDM7DNKUCBnIoABhGOaYDh+IQNQjUFKwTRFGRxK4EIRKAyTDLQdRyGSMMbjdQpBCbMiMRqhESKRq2UwYRYCFS1NalaztO6BUAvK67YrWez/YBfF+SfwGeqDYReWAPfgWERnQrGMLxbD8KwZAKTRjkGJ4XhuB41TbQMqufL9ByXHKSSDpGjaXjeO5VVjYNAvS69UzXNq3bhtQAOXCMEwCgI=")
	var_Appearance.Add(2,"CP:1 -2 0 0 0")
oG2antt.DrawGridLines = -1
oG2antt.GridLineStyle = 512
oG2antt.ShowFocusRect = false
oG2antt.Template = [Background(0) = 33554432] // oG2antt.Background(0) = 0x2000000
oG2antt.Template = [Background(41) = 33554433] // oG2antt.Background(41) = 0x2000001
oG2antt.HeaderAppearance = 4
oG2antt.BackColorHeader = 0xffffff
oG2antt.HeaderHeight = 24
oG2antt.HeaderVisible = 1
var_Column = oG2antt.Columns.Add("1st col")
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = false
	var_Column.Filter = "Item B"
	var_Column.FilterType = 240
oG2antt.Columns.Add("2nd col")
var_Items = oG2antt.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oG2antt.ApplyFilter()
oG2antt.EndUpdate()
2349
Stack vs Cascade

local h,oG2antt,var_Bar,var_Bar1,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.ScrollBySingleLine = true
oG2antt.HeaderAppearance = 1
oG2antt.Columns.Add("Type")
oG2antt.BackColorAlternate = 0xf0f0f0
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.AllowCreateBar = 1
	var_Chart.AllowLinkBars = false
	var_Chart.ResizeUnitScale = 65536
	// var_Chart.PaneWidth(false) = 128
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 128]
	endwith
	var_Chart.FirstVisibleDate = "01/01/2001"
	var_Bar = var_Chart.Bars.Copy("Task","T1")
		var_Bar.OverlaidType = 4
		// var_Bar.Def(3) = "<%=%9%>"
		with (oG2antt)
			TemplateDef = [dim var_Bar]
			TemplateDef = var_Bar
			Template = [var_Bar.Def(3) = "<%=%9%>"]
		endwith
	var_Bar1 = var_Chart.Bars.Copy("Task","T2")
		var_Bar1.OverlaidType = 515 /*exOverlaidBarsStackAutoArrange | exOverlaidBarsStack*/
		// var_Bar1.Def(3) = "<%=%9%>"
		with (oG2antt)
			TemplateDef = [dim var_Bar1]
			TemplateDef = var_Bar1
			Template = [var_Bar1.Def(3) = "<%=%9%>"]
		endwith
var_Items = oG2antt.Items
	h = var_Items.AddItem("Cascade")
	var_Items.AddBar(h,"T1","01/02/2001","01/04/2001","A1")
	var_Items.AddBar(h,"T1","01/03/2001","01/05/2001","A2")
	var_Items.AddBar(h,"T1","01/04/2001","01/07/2001","A3")
	var_Items.AddBar(h,"T1","01/02/2001","01/07/2001","A4")
	var_Items.AddBar(h,"T1","01/08/2001","01/12/2001","A5")
	var_Items.AddBar(h,"T1","01/08/2001","01/12/2001","A6")
	var_Items.AddBar(h,"T1","01/08/2001","01/12/2001","A7")
	var_Items.AddBar(h,"T1","01/08/2001","01/12/2001","A8")
	var_Items.AddBar(h,"T1","01/08/2001","01/12/2001","A9")
	var_Items.AddBar(h,"T1","01/08/2001","01/12/2001","AA")
	h = var_Items.AddItem("Stack-AutoArrange")
	var_Items.AddBar(h,"T2","01/02/2001","01/04/2001","A1")
	var_Items.AddBar(h,"T2","01/03/2001","01/05/2001","A2")
	var_Items.AddBar(h,"T2","01/04/2001","01/07/2001","A3")
	var_Items.AddBar(h,"T2","01/02/2001","01/07/2001","A4")
	var_Items.AddBar(h,"T2","01/08/2001","01/12/2001","A5")
	var_Items.AddBar(h,"T2","01/08/2001","01/12/2001","A6")
	var_Items.AddBar(h,"T2","01/08/2001","01/12/2001","A7")
	var_Items.AddBar(h,"T2","01/08/2001","01/12/2001","A8")
	var_Items.AddBar(h,"T2","01/08/2001","01/12/2001","A9")
	var_Items.AddBar(h,"T2","01/08/2001","01/12/2001","AA")
oG2antt.EndUpdate()
2348
Horizontally(left) align the multi-line caption of the bar

local h,oG2antt,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.HeaderAppearance = 4
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = "01/01/2001"
	// var_Chart.PaneWidth(false) = 128
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 128]
	endwith
	var_Chart.LevelCount = 2
var_Items = oG2antt.Items
	// var_Items.SelectableItem(var_Items.AddItem()) = false
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.SelectableItem(AddItem()) = False]
	endwith
	h = var_Items.AddItem("Task 1")
	// var_Items.ItemHeight(h) = 42
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemHeight(h) = 42]
	endwith
	var_Items.AddBar(h,"Task","01/02/2001","01/07/2001","K1","This is a bit of 1'st line<br>2'nd line<br>3'rd line")
	// var_Items.ItemBar(h,"K1",4) = 0
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",4) = 0]
	endwith
oG2antt.EndUpdate()
2347
Defines the colors, to display overlapping links

local h1,oG2antt,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
oG2antt.AntiAliasing = true
oG2antt.OverlapLinksColors = "black,gray,lightgray"
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = "12/28/2000"
	// var_Chart.PaneWidth(false) = 64
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 64]
	endwith
	var_Chart.ShowLinks = 642 /*exChangeColorOnOverlap | exPreventOverlapMixt | exShowDefaultLinks*/
	var_Chart.NonworkingDays = 0
	var_Chart.LinksStyle = 0
var_Items = oG2antt.Items
	var_Items.AddItem("")
	h1 = var_Items.AddItem("Item 1")
	var_Items.AddBar(h1,"Task","01/03/2001","01/06/2001","A")
	var_Items.AddBar(h1,"Task","01/08/2001","01/11/2001","B")
	var_Items.AddBar(h1,"Task","01/13/2001","01/16/2001","C")
	var_Items.AddBar(h1,"Task","01/18/2001","01/21/2001","D")
	var_Items.AddLink("Link1",h1,"D",h1,"A")
	var_Items.AddLink("Link2",h1,"C",h1,"B")
oG2antt.EndUpdate()
2346
The exPreventOverlapMixt option can be combined with the exChangeColorOnOverlap flag, allowing overlapping links to alternately adjust their width while also changing colors

local h1,oG2antt,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
oG2antt.AntiAliasing = true
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = "12/28/2000"
	// var_Chart.PaneWidth(false) = 64
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 64]
	endwith
	var_Chart.ShowLinks = 642 /*exChangeColorOnOverlap | exPreventOverlapMixt | exShowDefaultLinks*/
	var_Chart.NonworkingDays = 0
	var_Chart.LinksStyle = 0
var_Items = oG2antt.Items
	var_Items.AddItem("")
	h1 = var_Items.AddItem("Item 1")
	var_Items.AddBar(h1,"Task","01/03/2001","01/06/2001","A")
	var_Items.AddBar(h1,"Task","01/08/2001","01/11/2001","B")
	var_Items.AddBar(h1,"Task","01/13/2001","01/16/2001","C")
	var_Items.AddBar(h1,"Task","01/18/2001","01/21/2001","D")
	var_Items.AddLink("Link1",h1,"D",h1,"A")
	var_Items.AddLink("Link2",h1,"C",h1,"B")
oG2antt.EndUpdate()
2345
The exChangeColorOnOverlap flag changes the color for links in areas where they overlap with other links, enhancing clarity and distinction between them

local h1,oG2antt,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.AntiAliasing = true
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = "12/28/2000"
	// var_Chart.PaneWidth(false) = 64
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 64]
	endwith
	var_Chart.ShowLinks = 514 /*exChangeColorOnOverlap | exShowDefaultLinks*/
	var_Chart.NonworkingDays = 0
	var_Chart.LinksStyle = 0
var_Items = oG2antt.Items
	var_Items.AddItem("")
	h1 = var_Items.AddItem("Item 1")
	var_Items.AddBar(h1,"Task","01/03/2001","01/06/2001","A")
	var_Items.AddBar(h1,"Task","01/08/2001","01/11/2001","B")
	var_Items.AddBar(h1,"Task","01/13/2001","01/16/2001","C")
	var_Items.AddBar(h1,"Task","01/18/2001","01/21/2001","D")
	var_Items.AddLink("Link1",h1,"D",h1,"A")
	var_Items.AddLink("Link2",h1,"C",h1,"B")
oG2antt.EndUpdate()
2344
How can I assign a multiple-lines caption to an bar

local h,oG2antt,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.HeaderAppearance = 4
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = "01/01/2001"
	// var_Chart.PaneWidth(false) = 128
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 128]
	endwith
	var_Chart.LevelCount = 2
var_Items = oG2antt.Items
	// var_Items.SelectableItem(var_Items.AddItem()) = false
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.SelectableItem(AddItem()) = False]
	endwith
	h = var_Items.AddItem("Task 1")
	// var_Items.ItemHeight(h) = 42
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemHeight(h) = 42]
	endwith
	var_Items.AddBar(h,"Task","01/02/2001","01/07/2001","K1")
	// var_Items.ItemBar(h,"K1",3) = "This is a bit of 1'st line<br>2'nd line<br>3'rd line"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",3) = "This is a bit of 1'st line<br>2'nd line<br>3'rd line"]
	endwith
oG2antt.EndUpdate()
2343
The text on the chart overlap the rest of the bars, while using OverlaidType property on exOverlaidBarsStack

local h,oG2antt,var_Bar,var_Bar1,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	// var_Chart.PaneWidth(false) = 48
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 48]
	endwith
	var_Chart.FirstVisibleDate = "01/03/2002"
	var_Chart.LevelCount = 2
	var_Chart.FirstWeekDay = 1
	// var_Chart.Bars.Add("Text").Def(4) = 0
	var_Bar = var_Chart.Bars.Add("Text")
	with (oG2antt)
		TemplateDef = [dim var_Bar]
		TemplateDef = var_Bar
		Template = [var_Bar.Def(4) = 0]
	endwith
	var_Bar1 = var_Chart.Bars.Item("Task")
		// var_Bar1.Def(4) = 0
		with (oG2antt)
			TemplateDef = [dim var_Bar1]
			TemplateDef = var_Bar1
			Template = [var_Bar1.Def(4) = 0]
		endwith
		var_Bar1.OverlaidType = 4611 /*exOverlaidBarsIncludeCaption | exOverlaidBarsStackAutoArrange | exOverlaidBarsStack*/
		var_Bar1.OverlaidGroup = "Text,Task"
oG2antt.Columns.Add("Task")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Default")
	var_Items.AddBar(h,"Text","01/04/2002","01/04/2002","","This is another text")
	var_Items.AddBar(h,"Task","01/06/2002","01/08/2002","A","This is a bit of text")
oG2antt.EndUpdate()
2342
We are running our application on an Azure server using RDP, with the server language set to English. However, my client has their national language set to Swedish, but the tooltip is displaying dates in the English format (mm/dd/yyyy) instead of the Swedish format (yyyy-mm-dd) (method 2)

local h,oG2antt,var_Bars,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Def")
var_Chart = oG2antt.Chart
	var_Chart.AllowCreateBar = 0
	// var_Chart.PaneWidth(false) = 64
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 64]
	endwith
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = "01/01/2010"
	// var_Chart.Bars.Item("Task").Def(6) = "<%=`Start: ` + (date(%1) format `yyyy-MM-dd` )%>"
	var_Bars = var_Chart.Bars.Item("Task")
	with (oG2antt)
		TemplateDef = [dim var_Bars]
		TemplateDef = var_Bars
		Template = [var_Bars.Def(6) = "<%=`Start: ` + (date(%1) format `yyyy-MM-dd` )%>"]
	endwith
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task","01/02/2010","01/05/2010","A","A")
	var_Items.AddBar(h,"Task","01/05/2010","01/08/2010","B","B")
oG2antt.EndUpdate()
2341
We are running our application on an Azure server using RDP, with the server language set to English. However, my client has their national language set to Swedish, but the tooltip is displaying dates in the English format (mm/dd/yyyy) instead of the Swedish format (yyyy-mm-dd) (method 1)

local h,oG2antt,var_Bars,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Def")
var_Chart = oG2antt.Chart
	var_Chart.AllowCreateBar = 0
	// var_Chart.PaneWidth(false) = 64
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 64]
	endwith
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = "01/01/2010"
	// var_Chart.Bars.Item("Task").Def(6) = "<%=`Start: ` + year(%1) + `-` + (month(%1) lpad `00`) + `-` + (day(%1) lpad `00`)%>"
	var_Bars = var_Chart.Bars.Item("Task")
	with (oG2antt)
		TemplateDef = [dim var_Bars]
		TemplateDef = var_Bars
		Template = [var_Bars.Def(6) = "<%=`Start: ` + year(%1) + `-` + (month(%1) lpad `00`) + `-` + (day(%1) lpad `00`)%>"]
	endwith
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task","01/02/2010","01/05/2010","A","A")
	var_Items.AddBar(h,"Task","01/05/2010","01/08/2010","B","B")
oG2antt.EndUpdate()
2340
How can I replace or add an icon at runtime

local h,oG2antt,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.ReplaceIcon("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+OkYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==")
oG2antt.ReplaceIcon("C:\images\favicon.ico",0)
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = "01/01/2001"
	// var_Chart.PaneWidth(false) = 128
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 128]
	endwith
	var_Chart.LevelCount = 2
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",3) = "<img>1</img>"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",3) = "<img>1</img>"]
	endwith
oG2antt.EndUpdate()
2339
How can I define the sensitivity for link selection when the user clicks or selects a link
/*
with (this.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject)
	MouseMove = class::nativeObject_MouseMove
endwith
*/
// Occurs when the user moves the mouse.
function nativeObject_MouseMove(Button,Shift,X,Y)
	oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
	? Str(oG2antt.Chart.LinkFromPoint(-1,-1)) 
return

local h1,h2,h3,oG2antt,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = "12/29/2000"
	// var_Chart.PaneWidth(false) = 64
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 64]
	endwith
	var_Chart.LevelCount = 2
	var_Chart.LinksWidth = 1026
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
	var_Items.AddItem()
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/08/2001","01/10/2001","K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	var_Items.AddItem()
	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"Task","01/14/2001","01/16/2001","K3")
	var_Items.AddLink("L2",h2,"K2",h3,"K3")
oG2antt.EndUpdate()
2338
How can I let the user to create task-bars for leaf0-items only, when AllowCreateBar is exCreateBarAuto
/*
with (this.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject)
	CreateBar = class::nativeObject_CreateBar
endwith
*/
// Fired when the user creates a new bar.
function nativeObject_CreateBar(Item,DateStart,DateEnd)
	local var_Items
	oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
	var_Items = oG2antt.Items
		? "Call RemoveBar if the ChildCount property returns a non-zero value" 
		? Str(var_Items.ChildCount(Item)) 
		var_Items.RemoveBar(Item,"newbar")
return

local h,oG2antt,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.HeaderVisible = 1
oG2antt.HeaderAppearance = 4
var_Chart = oG2antt.Chart
	var_Chart.AllowCreateBar = 1
	var_Chart.LevelCount = 2
	// var_Chart.PaneWidth(false) = 128
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 128]
	endwith
oG2antt.Columns.Add("Task")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,null,"Child 1")
	var_Items.InsertItem(h,null,"Child 2")
	// var_Items.ExpandItem(h) = true
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ExpandItem(h) = True]
	endwith
oG2antt.EndUpdate()
2337
How can I convert the exBarStart/exBarEnd property to a string (by default it returns as VARIANT/VT_DATE type, method 3)

/*
with (this.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject)
	BarResizing = class::nativeObject_BarResizing
endwith
*/
// Occurs when a bar is moving or resizing.
function nativeObject_BarResizing(Item,Key)
	oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
	? "Start" 
	? Str(Key) 
	? Str(oG2antt.Items.ItemBar(Item,Key,547)) 
	? "End" 
	? Str(Key) 
	? Str(oG2antt.Items.ItemBar(Item,Key,548)) 
return

local oG2antt,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
oG2antt.Debug = true
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = "09/20/2006"
	var_Chart.LevelCount = 2
	// var_Chart.PaneWidth(false) = 96
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(0) = 96]
	endwith
	var_Chart.ResizeUnitScale = 1048576
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task","09/21/2006","09/24/2006","K1")
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task","09/22/2006","09/25/2006","K2")
	var_Items.AddBar(var_Items.AddItem("Task 3"),"Task","09/23/2006","09/26/2006","K3")
oG2antt.EndUpdate()
2336
How can I convert the exBarStart/exBarEnd property to a string (by default it returns as VARIANT/VT_DATE type, method 2)

/*
with (this.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject)
	BarResizing = class::nativeObject_BarResizing
endwith
*/
// Occurs when a bar is moving or resizing.
function nativeObject_BarResizing(Item,Key)
	oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
	? "Start" 
	? Str(Key) 
	? Str(oG2antt.FormatABC("dateF(value)",oG2antt.Items.ItemBar(Item,Key,1))) 
	? "End" 
	? Str(Key) 
	? Str(oG2antt.FormatABC("dateF(value)",oG2antt.Items.ItemBar(Item,Key,2))) 
return

local oG2antt,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
oG2antt.Debug = true
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = "09/20/2006"
	var_Chart.LevelCount = 2
	// var_Chart.PaneWidth(false) = 96
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(0) = 96]
	endwith
	var_Chart.ResizeUnitScale = 1048576
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task","09/21/2006","09/24/2006","K1")
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task","09/22/2006","09/25/2006","K2")
	var_Items.AddBar(var_Items.AddItem("Task 3"),"Task","09/23/2006","09/26/2006","K3")
oG2antt.EndUpdate()
2335
How can I convert the exBarStart/exBarEnd property to a string (by default it returns as VARIANT/VT_DATE type, method 1)

/*
with (this.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject)
	BarResizing = class::nativeObject_BarResizing
endwith
*/
// Occurs when a bar is moving or resizing.
function nativeObject_BarResizing(Item,Key)
	oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
	? "Start" 
	? Str(Key) 
	? Str(oG2antt.FormatABC("date(value) format `MM/dd/yyyy HH:mm:ss`",oG2antt.Items.ItemBar(Item,Key,1))) 
	? "End" 
	? Str(Key) 
	? Str(oG2antt.FormatABC("date(value) format `MM/dd/yyyy HH:mm:ss`",oG2antt.Items.ItemBar(Item,Key,2))) 
return

local oG2antt,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
oG2antt.Debug = true
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = "09/20/2006"
	var_Chart.LevelCount = 2
	// var_Chart.PaneWidth(false) = 96
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(0) = 96]
	endwith
	var_Chart.ResizeUnitScale = 1048576
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task","09/21/2006","09/24/2006","K1")
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task","09/22/2006","09/25/2006","K2")
	var_Items.AddBar(var_Items.AddItem("Task 3"),"Task","09/23/2006","09/26/2006","K3")
oG2antt.EndUpdate()
2334
Add/Remove/Updates the item-bar's resources

/*
with (this.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject)
	Click = class::nativeObject_Click
endwith
*/
// Occurs when the user presses and then releases the left mouse button over the tree control.
function nativeObject_Click()
	local h,var_Items
	oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
	var_Items = oG2antt.Items
		h = var_Items.SelectedItem(0)
		// var_Items.ItemBar(h,var_Items.FirstItemBar(h),49) = "+R4[10%]"
		with (oG2antt)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.ItemBar(h,FirstItemBar(h),49) = "+R4[10%]"]
		endwith
return

local h,oG2antt,var_Bar,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 24
var_Chart = oG2antt.Chart
	// var_Chart.PaneWidth(false) = 96
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 96]
	endwith
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = "01/01/2001"
	var_Bar = var_Chart.Bars.Item("Task")
		// var_Bar.Def(4) = 18
		with (oG2antt)
			TemplateDef = [dim var_Bar]
			TemplateDef = var_Bar
			Template = [var_Bar.Def(4) = 18]
		endwith
		// var_Bar.Def(3) = "<%=%49%>"
		with (oG2antt)
			TemplateDef = [dim var_Bar]
			TemplateDef = var_Bar
			Template = [var_Bar.Def(3) = "<%=%49%>"]
		endwith
oG2antt.Columns.Add("Machines")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Machine 1")
	var_Items.AddBar(h,"Task","01/06/2001","01/12/2001","K1")
	// var_Items.ItemBar(h,"K1",49) = "R1,R2"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",49) = "R1,R2"]
	endwith
	h = var_Items.AddItem("Machine 2")
	var_Items.AddBar(h,"Task","01/04/2001","01/14/2001","K2")
	// var_Items.ItemBar(h,"K2",49) = "R2[75%],R3"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K2",49) = "R2[75%],R3"]
	endwith
oG2antt.EndUpdate()
2333
Distributes resources to a bar

local h,oG2antt,var_Bar,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 24
var_Chart = oG2antt.Chart
	// var_Chart.PaneWidth(false) = 96
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 96]
	endwith
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = "01/01/2001"
	var_Bar = var_Chart.Bars.Item("Task")
		// var_Bar.Def(4) = 18
		with (oG2antt)
			TemplateDef = [dim var_Bar]
			TemplateDef = var_Bar
			Template = [var_Bar.Def(4) = 18]
		endwith
		// var_Bar.Def(3) = "<%=%49%>"
		with (oG2antt)
			TemplateDef = [dim var_Bar]
			TemplateDef = var_Bar
			Template = [var_Bar.Def(3) = "<%=%49%>"]
		endwith
oG2antt.Columns.Add("Machines")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Machine 1")
	var_Items.AddBar(h,"Task","01/06/2001","01/12/2001","K1")
	// var_Items.ItemBar(h,"K1",49) = "R1,R2"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",49) = "R1,R2"]
	endwith
	h = var_Items.AddItem("Machine 2")
	var_Items.AddBar(h,"Task","01/04/2001","01/14/2001","K2")
	// var_Items.ItemBar(h,"K2",49) = "R2[75%],R3"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K2",49) = "R2[75%],R3"]
	endwith
oG2antt.EndUpdate()
2332
How can I display additional information about a time zone when the user clicks on it (expandable)

local oG2antt,var_Chart

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
var_Chart = oG2antt.Chart
	// var_Chart.PaneWidth(false) = 0
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 0]
	endwith
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = "12/20/2009"
	var_Chart.MarkTimeZone("TZ","01/01/2010","01/03/2010",65280,"1;;<c>TimeZone<b><off -4><a ;exp=just more info about>*</a></b>;1")
2331
How can I have a tooltip for a marked TimeZone

/*
with (this.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject)
	MouseMove = class::nativeObject_MouseMove
endwith
*/
// Occurs when the user moves the mouse.
function nativeObject_MouseMove(Button,Shift,X,Y)
	oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
	oG2antt.ShowToolTip(oG2antt.Chart.TimeZoneFromPoint(-1,-1),"",null,"+8")
return

local oG2antt,var_Chart

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
var_Chart = oG2antt.Chart
	// var_Chart.PaneWidth(false) = 0
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 0]
	endwith
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = "12/28/2009"
	var_Chart.MarkTimeZone("Top","01/01/2010","01/05/2010",16711680,"1;;<fgcolor=FFFFFF>Top;1")
	var_Chart.MarkTimeZone("Partial","01/08/2010","01/12/2010",16711680,"50;;<fgcolor=FFFFFF>Partial;1")
	var_Chart.MarkTimeZone("Default","01/15/2010","01/19/2010",16711680,";;<fgcolor=FFFFFF>Default;1")
2330
Can I set a filter that automatically adds a * before and after the word, so the user can just search for 'cat' and it becomes '*cat*' automatically

local h,oG2antt,var_Column,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 24
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Items")
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = true
	// var_Column.Def(21) = "*<%filter%>*"
	with (oG2antt)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(21) = "*<%filter%>*"]
	endwith
	var_Column.FilterType = 3
	var_Column.Filter = "1"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,null,"Child 1")
	var_Items.InsertItem(h,null,"Child 2")
	// var_Items.ExpandItem(h) = true
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ExpandItem(h) = True]
	endwith
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,null,"Child 1")
	var_Items.InsertItem(h,null,"Child 2")
oG2antt.ApplyFilter()
oG2antt.EndUpdate()
2329
The fine dotted lines in the control appear much thicker than the standard ones we've been using. How can we fix this

local oG2antt,var_Chart

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 24
oG2antt.DrawGridLines = -1
oG2antt.GridLineStyle = 512
var_Chart = oG2antt.Chart
	var_Chart.GridLineStyle = 512
	var_Chart.DrawGridLines = -1
oG2antt.ColumnAutoResize = false
oG2antt.Columns.Add("Column 1")
oG2antt.Columns.Add("Column 2")
oG2antt.Columns.Add("Column 3")
oG2antt.Columns.Add("Column 4")
oG2antt.EndUpdate()
2328
Load data as a tree using a parent-id relationship

local oG2antt,rs,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.ColumnAutoResize = false
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 24
oG2antt.DrawGridLines = 2
oG2antt.LinesAtRoot = -1
rs = new OleAutoClient("ADODB.Recordset")
	rs.Open("Select * FROM Employees WHERE 1=0","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.mdb",3,3)
oG2antt.DataSource = rs
oG2antt.Columns.Item(0).Width = 128
rs = new OleAutoClient("ADODB.Recordset")
	rs.Open("Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.mdb",3,3)
oG2antt.PutItems(rs.GetRows(),";0;17")
// oG2antt.Items.ExpandItem(0) = true
var_Items = oG2antt.Items
with (oG2antt)
	TemplateDef = [dim var_Items]
	TemplateDef = var_Items
	Template = [var_Items.ExpandItem(0) = True]
endwith
oG2antt.EndUpdate()
2327
Is there a way to change the contents of the drop down editor based on a value in another column

/*
with (this.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject)
	AddItem = class::nativeObject_AddItem
endwith
*/
// Occurs after a new Item has been inserted to Items collection.
function nativeObject_AddItem(Item)
	local var_Items,var_Items1
	oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
	// oG2antt.Items.CellEditorVisible(Item,0) = 1
	var_Items = oG2antt.Items
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellEditorVisible(Item,0) = 1]
	endwith
	// oG2antt.Items.CellEditorVisible(Item,1) = 1
	var_Items1 = oG2antt.Items
	with (oG2antt)
		TemplateDef = [dim var_Items1]
		TemplateDef = var_Items1
		Template = [var_Items1.CellEditorVisible(Item,1) = 1]
	endwith
return

/*
with (this.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject)
	EditOpen = class::nativeObject_EditOpen
endwith
*/
// Occurs when the edit operation starts.
function nativeObject_EditOpen()
	local c,v,var_Editor,var_Items
	oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
	var_Items = oG2antt.Items
		v = var_Items.CellValue(var_Items.FocusItem,0)
		c = var_Items.CellCaption(var_Items.FocusItem,0)
	var_Editor = oG2antt.Columns.Item(1).Editor
		var_Editor.ClearItems()
		var_Editor.AddItem(v,Str(c))
return

local h,oG2antt,var_Column,var_Editor,var_Editor1,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 24
oG2antt.GridLineStyle = 512
var_Column = oG2antt.Columns.Add("DropDownList")
	var_Editor = var_Column.Editor
		var_Editor.EditType = 3
		var_Editor.AddItem(1,"First")
		var_Editor.AddItem(2,"Second")
		var_Editor.AddItem(3,"Third")
oG2antt.DrawGridLines = -1
// oG2antt.Columns.Add("DropDownList-Related").Editor.EditType = 3
var_Editor1 = oG2antt.Columns.Add("DropDownList-Related").Editor
with (oG2antt)
	TemplateDef = [dim var_Editor1]
	TemplateDef = var_Editor1
	Template = [var_Editor1.EditType = 3]
endwith
var_Items = oG2antt.Items
	// var_Items.CellValue(var_Items.AddItem(1),1) = -1
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellValue(AddItem(1),1) = -1]
	endwith
	// var_Items.CellValue(var_Items.AddItem(2),1) = -1
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellValue(AddItem(2),1) = -1]
	endwith
	// var_Items.CellValue(var_Items.AddItem(3),1) = -1
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellValue(AddItem(3),1) = -1]
	endwith
	// var_Items.LockedItemCount(2) = 1
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.LockedItemCount(2) = 1]
	endwith
	h = var_Items.LockedItem(2,0)
	// var_Items.ItemDivider(h) = 0
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemDivider(h) = 0]
	endwith
	// var_Items.ItemDividerLineAlignment(h) = 2
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemDividerLineAlignment(h) = 2]
	endwith
	// var_Items.CellEditorVisible(h,0) = false
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellEditorVisible(h,0) = False]
	endwith
	// var_Items.CellSingleLine(h,0) = false
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellSingleLine(h,0) = False]
	endwith
	// var_Items.CellValueFormat(h,0) = 1
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValueFormat(h,0) = 1]
	endwith
	// var_Items.CellValue(h,0) = "The drop down editor in the second column is filled during the <b>EditOpen event</b>, and the values are based on the selection on the first column."
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,0) = "The drop down editor in the second column is filled during the <b>EditOpen event</b>, and the values are based on the selection on the first column."]
	endwith
oG2antt.EndUpdate()
2326
Highlight the editable fields

/*
with (this.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject)
	Change = class::nativeObject_Change
endwith
*/
// Occurs when the user changes the cell's content.
function nativeObject_Change(Item,ColIndex,NewValue)
	oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
	oG2antt.Refresh()
return

local g1,g2,h,oG2antt,r,var_Column,var_Column1,var_Column2,var_Columns,var_ConditionalFormat,var_ConditionalFormat1,var_ConditionalFormat2,var_ConditionalFormats,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.FreezeEvents(true)
oG2antt.BeginUpdate()
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 24
oG2antt.LinesAtRoot = -1
var_ConditionalFormats = oG2antt.ConditionalFormats
	var_ConditionalFormat = var_ConditionalFormats.Add("%CE1")
		var_ConditionalFormat.Bold = true
		var_ConditionalFormat.BackColor = 0xf5f5f5
		var_ConditionalFormat.ApplyTo = 1 /*0x1 | */
	var_ConditionalFormat1 = var_ConditionalFormats.Add("%CE2")
		var_ConditionalFormat1.Bold = true
		var_ConditionalFormat1.BackColor = 0xf5f5f5
		var_ConditionalFormat1.ApplyTo = 2 /*0x2 | */
	var_ConditionalFormat2 = var_ConditionalFormats.Add("%CE3")
		var_ConditionalFormat2.Bold = true
		var_ConditionalFormat2.BackColor = 0xf5f5f5
		var_ConditionalFormat2.ApplyTo = 3 /*0x3 | */
var_Columns = oG2antt.Columns
	var_Columns.Add("Description")
	var_Column = var_Columns.Add("Qty")
		var_Column.Editor.EditType = 4
		// var_Column.Def(20) = "sum(current,rec,%1)"
		with (oG2antt)
			TemplateDef = [dim var_Column]
			TemplateDef = var_Column
			Template = [var_Column.Def(20) = "sum(current,rec,%1)"]
		endwith
	var_Column1 = var_Columns.Add("Price")
		// var_Column1.Def(20) = "avg(current,rec,%2)"
		with (oG2antt)
			TemplateDef = [dim var_Column1]
			TemplateDef = var_Column1
			Template = [var_Column1.Def(20) = "avg(current,rec,%2)"]
		endwith
		var_Column1.Editor.EditType = 4
	var_Column2 = var_Columns.Add("Amount")
		var_Column2.ComputedField = "%1 * %2"
		// var_Column2.Def(20) = "sum(current,rec,%3)"
		with (oG2antt)
			TemplateDef = [dim var_Column2]
			TemplateDef = var_Column2
			Template = [var_Column2.Def(20) = "sum(current,rec,%3)"]
		endwith
var_Items = oG2antt.Items
	r = var_Items.AddItem("Root")
	g1 = var_Items.InsertItem(r,null,"Group 1")
	h = var_Items.InsertItem(g1,null,"Item 1")
	// var_Items.CellValue(h,1) = 1
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,1) = 1]
	endwith
	// var_Items.CellValue(h,2) = 10
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,2) = 10]
	endwith
	h = var_Items.InsertItem(g1,null,"Item 2")
	// var_Items.CellValue(h,1) = 2
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,1) = 2]
	endwith
	// var_Items.CellValue(h,2) = 11
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,2) = 11]
	endwith
	g2 = var_Items.InsertItem(r,null,"Group 2")
	h = var_Items.InsertItem(g2,null,"Item 1")
	// var_Items.CellValue(h,1) = 3
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,1) = 3]
	endwith
	// var_Items.CellValue(h,2) = 12
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,2) = 12]
	endwith
	h = var_Items.InsertItem(g2,null,"Item 2")
	// var_Items.CellValue(h,1) = 4
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,1) = 4]
	endwith
	// var_Items.CellValue(h,2) = 13
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,2) = 13]
	endwith
	// var_Items.ExpandItem(0) = true
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.ExpandItem(0) = True]
	endwith
oG2antt.EndUpdate()
oG2antt.FreezeEvents(false)
2325
Highlight the total fields

/*
with (this.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject)
	Change = class::nativeObject_Change
endwith
*/
// Occurs when the user changes the cell's content.
function nativeObject_Change(Item,ColIndex,NewValue)
	oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
	oG2antt.Refresh()
return

local g1,g2,h,oG2antt,r,var_Column,var_Column1,var_Column2,var_Columns,var_ConditionalFormat,var_ConditionalFormat1,var_ConditionalFormat2,var_ConditionalFormats,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.FreezeEvents(true)
oG2antt.BeginUpdate()
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 24
oG2antt.LinesAtRoot = -1
var_ConditionalFormats = oG2antt.ConditionalFormats
	var_ConditionalFormat = var_ConditionalFormats.Add("%CT1")
		var_ConditionalFormat.ForeColor = 0x808080
		var_ConditionalFormat.ApplyTo = 1 /*0x1 | */
	var_ConditionalFormat1 = var_ConditionalFormats.Add("%CT2")
		var_ConditionalFormat1.ForeColor = 0x808080
		var_ConditionalFormat1.ApplyTo = 2 /*0x2 | */
	var_ConditionalFormat2 = var_ConditionalFormats.Add("%CT3")
		var_ConditionalFormat2.ForeColor = 0x808080
		var_ConditionalFormat2.ApplyTo = 3 /*0x3 | */
var_Columns = oG2antt.Columns
	var_Columns.Add("Description")
	var_Column = var_Columns.Add("Qty")
		var_Column.Editor.EditType = 4
		// var_Column.Def(20) = "sum(current,rec,%1)"
		with (oG2antt)
			TemplateDef = [dim var_Column]
			TemplateDef = var_Column
			Template = [var_Column.Def(20) = "sum(current,rec,%1)"]
		endwith
	var_Column1 = var_Columns.Add("Price")
		// var_Column1.Def(20) = "avg(current,rec,%2)"
		with (oG2antt)
			TemplateDef = [dim var_Column1]
			TemplateDef = var_Column1
			Template = [var_Column1.Def(20) = "avg(current,rec,%2)"]
		endwith
		var_Column1.Editor.EditType = 4
	var_Column2 = var_Columns.Add("Amount")
		var_Column2.ComputedField = "%1 * %2"
		// var_Column2.Def(20) = "sum(current,rec,%3)"
		with (oG2antt)
			TemplateDef = [dim var_Column2]
			TemplateDef = var_Column2
			Template = [var_Column2.Def(20) = "sum(current,rec,%3)"]
		endwith
var_Items = oG2antt.Items
	r = var_Items.AddItem("Root")
	g1 = var_Items.InsertItem(r,null,"Group 1")
	h = var_Items.InsertItem(g1,null,"Item 1")
	// var_Items.CellValue(h,1) = 1
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,1) = 1]
	endwith
	// var_Items.CellValue(h,2) = 10
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,2) = 10]
	endwith
	h = var_Items.InsertItem(g1,null,"Item 2")
	// var_Items.CellValue(h,1) = 2
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,1) = 2]
	endwith
	// var_Items.CellValue(h,2) = 11
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,2) = 11]
	endwith
	g2 = var_Items.InsertItem(r,null,"Group 2")
	h = var_Items.InsertItem(g2,null,"Item 1")
	// var_Items.CellValue(h,1) = 3
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,1) = 3]
	endwith
	// var_Items.CellValue(h,2) = 12
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,2) = 12]
	endwith
	h = var_Items.InsertItem(g2,null,"Item 2")
	// var_Items.CellValue(h,1) = 4
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,1) = 4]
	endwith
	// var_Items.CellValue(h,2) = 13
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,2) = 13]
	endwith
	// var_Items.ExpandItem(0) = true
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.ExpandItem(0) = True]
	endwith
oG2antt.EndUpdate()
oG2antt.FreezeEvents(false)
2324
Highlight the leaf items

local h,hR,oG2antt,var_Column,var_Columns,var_ConditionalFormat,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
// oG2antt.ConditionalFormats.Add("%CC0=0").ForeColor = 0x808080
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%CC0=0")
with (oG2antt)
	TemplateDef = [dim var_ConditionalFormat]
	TemplateDef = var_ConditionalFormat
	Template = [var_ConditionalFormat.ForeColor = 8421504]
endwith
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 24
oG2antt.LinesAtRoot = -1
var_Columns = oG2antt.Columns
	// var_Columns.Add("Item").Width = 16
	var_Column = var_Columns.Add("Item")
	with (oG2antt)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Width = 16]
	endwith
	var_Columns.Add("Desc")
var_Items = oG2antt.Items
	hR = var_Items.AddItem("Root")
	// var_Items.CellValue(hR,1) = "The root directory /"
	with (oG2antt)
		TemplateDef = [dim var_Items,hR]
		TemplateDef = var_Items
		TemplateDef = hR
		Template = [var_Items.CellValue(hR,1) = "The root directory /"]
	endwith
	// var_Items.ExpandItem(hR) = true
	with (oG2antt)
		TemplateDef = [dim var_Items,hR]
		TemplateDef = var_Items
		TemplateDef = hR
		Template = [var_Items.ExpandItem(hR) = True]
	endwith
	h = var_Items.InsertItem(hR,null,"Home")
	// var_Items.CellValue(h,1) = "The home directory with user directories Alice and Bob"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,1) = "The home directory with user directories Alice and Bob"]
	endwith
	var_Items.InsertItem(h,null,"Alice")
	var_Items.InsertItem(h,null,"Bob")
	// var_Items.ExpandItem(h) = true
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ExpandItem(h) = True]
	endwith
	h = var_Items.InsertItem(hR,null,"Etc")
	// var_Items.CellValue(h,1) = "The etc directory with one configuration file"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,1) = "The etc directory with one configuration file"]
	endwith
	h = var_Items.InsertItem(h,null,"nginx.conf")
	// var_Items.CellValue(var_Items.InsertItem(hR,null,"Var"),1) = "The var directory"
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellValue(InsertItem(hR,,"Var"),1) = "The var directory"]
	endwith
oG2antt.EndUpdate()
2323
Highlight the parent items

local h,hR,oG2antt,var_Column,var_Columns,var_ConditionalFormat,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
// oG2antt.ConditionalFormats.Add("%CC0").ForeColor = 0xff
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%CC0")
with (oG2antt)
	TemplateDef = [dim var_ConditionalFormat]
	TemplateDef = var_ConditionalFormat
	Template = [var_ConditionalFormat.ForeColor = 255]
endwith
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 24
oG2antt.LinesAtRoot = -1
var_Columns = oG2antt.Columns
	// var_Columns.Add("Item").Width = 16
	var_Column = var_Columns.Add("Item")
	with (oG2antt)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Width = 16]
	endwith
	var_Columns.Add("Desc")
var_Items = oG2antt.Items
	hR = var_Items.AddItem("Root")
	// var_Items.CellValue(hR,1) = "The root directory /"
	with (oG2antt)
		TemplateDef = [dim var_Items,hR]
		TemplateDef = var_Items
		TemplateDef = hR
		Template = [var_Items.CellValue(hR,1) = "The root directory /"]
	endwith
	// var_Items.ExpandItem(hR) = true
	with (oG2antt)
		TemplateDef = [dim var_Items,hR]
		TemplateDef = var_Items
		TemplateDef = hR
		Template = [var_Items.ExpandItem(hR) = True]
	endwith
	h = var_Items.InsertItem(hR,null,"Home")
	// var_Items.CellValue(h,1) = "The home directory with user directories Alice and Bob"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,1) = "The home directory with user directories Alice and Bob"]
	endwith
	var_Items.InsertItem(h,null,"Alice")
	var_Items.InsertItem(h,null,"Bob")
	// var_Items.ExpandItem(h) = true
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ExpandItem(h) = True]
	endwith
	h = var_Items.InsertItem(hR,null,"Etc")
	// var_Items.CellValue(h,1) = "The etc directory with one configuration file"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,1) = "The etc directory with one configuration file"]
	endwith
	h = var_Items.InsertItem(h,null,"nginx.conf")
	// var_Items.CellValue(var_Items.InsertItem(hR,null,"Var"),1) = "The var directory"
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellValue(InsertItem(hR,,"Var"),1) = "The var directory"]
	endwith
oG2antt.EndUpdate()
2322
Highlight the item being expanded or collapsed

local h,hR,oG2antt,var_Column,var_Columns,var_ConditionalFormat,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
// oG2antt.ConditionalFormats.Add("%CX0").Bold = true
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%CX0")
with (oG2antt)
	TemplateDef = [dim var_ConditionalFormat]
	TemplateDef = var_ConditionalFormat
	Template = [var_ConditionalFormat.Bold = True]
endwith
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 24
oG2antt.LinesAtRoot = -1
var_Columns = oG2antt.Columns
	// var_Columns.Add("Item").Width = 16
	var_Column = var_Columns.Add("Item")
	with (oG2antt)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Width = 16]
	endwith
	var_Columns.Add("Desc")
var_Items = oG2antt.Items
	hR = var_Items.AddItem("Root")
	// var_Items.CellValue(hR,1) = "The root directory /"
	with (oG2antt)
		TemplateDef = [dim var_Items,hR]
		TemplateDef = var_Items
		TemplateDef = hR
		Template = [var_Items.CellValue(hR,1) = "The root directory /"]
	endwith
	// var_Items.ExpandItem(hR) = true
	with (oG2antt)
		TemplateDef = [dim var_Items,hR]
		TemplateDef = var_Items
		TemplateDef = hR
		Template = [var_Items.ExpandItem(hR) = True]
	endwith
	h = var_Items.InsertItem(hR,null,"Home")
	// var_Items.CellValue(h,1) = "The home directory with user directories Alice and Bob"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,1) = "The home directory with user directories Alice and Bob"]
	endwith
	var_Items.InsertItem(h,null,"Alice")
	var_Items.InsertItem(h,null,"Bob")
	// var_Items.ExpandItem(h) = true
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ExpandItem(h) = True]
	endwith
	h = var_Items.InsertItem(hR,null,"Etc")
	// var_Items.CellValue(h,1) = "The etc directory with one configuration file"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,1) = "The etc directory with one configuration file"]
	endwith
	h = var_Items.InsertItem(h,null,"nginx.conf")
	// var_Items.CellValue(var_Items.InsertItem(hR,null,"Var"),1) = "The var directory"
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellValue(InsertItem(hR,,"Var"),1) = "The var directory"]
	endwith
oG2antt.EndUpdate()
2321
I am using exTotalColumn. Is there an option to exclude specific cells to display the total

/*
with (this.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject)
	Change = class::nativeObject_Change
endwith
*/
// Occurs when the user changes the cell's content.
function nativeObject_Change(Item,ColIndex,NewValue)
	oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
	oG2antt.Refresh()
return

local g1,g2,h,oG2antt,r,var_Column,var_Column1,var_Column2,var_Columns,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.FreezeEvents(true)
oG2antt.BeginUpdate()
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 24
oG2antt.LinesAtRoot = -1
var_Columns = oG2antt.Columns
	var_Columns.Add("Description")
	var_Column = var_Columns.Add("Qty")
		var_Column.Editor.EditType = 4
		// var_Column.Def(20) = "sum(current,rec,%1)"
		with (oG2antt)
			TemplateDef = [dim var_Column]
			TemplateDef = var_Column
			Template = [var_Column.Def(20) = "sum(current,rec,%1)"]
		endwith
	var_Column1 = var_Columns.Add("Price")
		// var_Column1.Def(20) = "avg(current,rec,%2)"
		with (oG2antt)
			TemplateDef = [dim var_Column1]
			TemplateDef = var_Column1
			Template = [var_Column1.Def(20) = "avg(current,rec,%2)"]
		endwith
		var_Column1.Editor.EditType = 4
	var_Column2 = var_Columns.Add("Amount")
		var_Column2.ComputedField = "%1 * %2"
		// var_Column2.Def(20) = "sum(current,rec,%3)"
		with (oG2antt)
			TemplateDef = [dim var_Column2]
			TemplateDef = var_Column2
			Template = [var_Column2.Def(20) = "sum(current,rec,%3)"]
		endwith
var_Items = oG2antt.Items
	r = var_Items.AddItem("Root")
	g1 = var_Items.InsertItem(r,null,"Group 1")
	// var_Items.FormatCell(g1,2) = "`<average missing>`"
	with (oG2antt)
		TemplateDef = [dim var_Items,g1]
		TemplateDef = var_Items
		TemplateDef = g1
		Template = [var_Items.FormatCell(g1,2) = "`<average missing>`"]
	endwith
	// var_Items.CellEditorVisible(g1,2) = false
	with (oG2antt)
		TemplateDef = [dim var_Items,g1]
		TemplateDef = var_Items
		TemplateDef = g1
		Template = [var_Items.CellEditorVisible(g1,2) = False]
	endwith
	// var_Items.CellBold(g1,2) = true
	with (oG2antt)
		TemplateDef = [dim var_Items,g1]
		TemplateDef = var_Items
		TemplateDef = g1
		Template = [var_Items.CellBold(g1,2) = True]
	endwith
	// var_Items.CellForeColor(g1,2) = 0xff
	with (oG2antt)
		TemplateDef = [dim var_Items,g1]
		TemplateDef = var_Items
		TemplateDef = g1
		Template = [var_Items.CellForeColor(g1,2) = 255]
	endwith
	h = var_Items.InsertItem(g1,null,"Item 1")
	// var_Items.CellValue(h,1) = 1
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,1) = 1]
	endwith
	// var_Items.CellValue(h,2) = 10
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,2) = 10]
	endwith
	h = var_Items.InsertItem(g1,null,"Item 2")
	// var_Items.CellValue(h,1) = 2
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,1) = 2]
	endwith
	// var_Items.CellValue(h,2) = 11
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,2) = 11]
	endwith
	g2 = var_Items.InsertItem(r,null,"Group 2")
	h = var_Items.InsertItem(g2,null,"Item 1")
	// var_Items.CellValue(h,1) = 3
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,1) = 3]
	endwith
	// var_Items.CellValue(h,2) = 12
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,2) = 12]
	endwith
	h = var_Items.InsertItem(g2,null,"Item 2")
	// var_Items.CellValue(h,1) = 4
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,1) = 4]
	endwith
	// var_Items.CellValue(h,2) = 13
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,2) = 13]
	endwith
	// var_Items.ExpandItem(0) = true
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.ExpandItem(0) = True]
	endwith
oG2antt.EndUpdate()
oG2antt.FreezeEvents(false)
2320
How can I add a total column

/*
with (this.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject)
	Change = class::nativeObject_Change
endwith
*/
// Occurs when the user changes the cell's content.
function nativeObject_Change(Item,ColIndex,NewValue)
	oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
	oG2antt.Refresh()
return

local g1,g2,h,oG2antt,r,var_Column,var_Column1,var_Column2,var_Columns,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.FreezeEvents(true)
oG2antt.BeginUpdate()
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 24
oG2antt.LinesAtRoot = -1
var_Columns = oG2antt.Columns
	var_Columns.Add("Description")
	var_Column = var_Columns.Add("Qty")
		var_Column.Editor.EditType = 4
		// var_Column.Def(20) = "sum(current,rec,%1)"
		with (oG2antt)
			TemplateDef = [dim var_Column]
			TemplateDef = var_Column
			Template = [var_Column.Def(20) = "sum(current,rec,%1)"]
		endwith
	var_Column1 = var_Columns.Add("Price")
		// var_Column1.Def(20) = "avg(current,rec,%2)"
		with (oG2antt)
			TemplateDef = [dim var_Column1]
			TemplateDef = var_Column1
			Template = [var_Column1.Def(20) = "avg(current,rec,%2)"]
		endwith
		var_Column1.Editor.EditType = 4
	var_Column2 = var_Columns.Add("Amount")
		var_Column2.ComputedField = "%1 * %2"
		// var_Column2.Def(20) = "sum(current,rec,%3)"
		with (oG2antt)
			TemplateDef = [dim var_Column2]
			TemplateDef = var_Column2
			Template = [var_Column2.Def(20) = "sum(current,rec,%3)"]
		endwith
var_Items = oG2antt.Items
	r = var_Items.AddItem("Root")
	g1 = var_Items.InsertItem(r,null,"Group 1")
	h = var_Items.InsertItem(g1,null,"Item 1")
	// var_Items.CellValue(h,1) = 1
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,1) = 1]
	endwith
	// var_Items.CellValue(h,2) = 10
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,2) = 10]
	endwith
	h = var_Items.InsertItem(g1,null,"Item 2")
	// var_Items.CellValue(h,1) = 2
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,1) = 2]
	endwith
	// var_Items.CellValue(h,2) = 11
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,2) = 11]
	endwith
	g2 = var_Items.InsertItem(r,null,"Group 2")
	h = var_Items.InsertItem(g2,null,"Item 1")
	// var_Items.CellValue(h,1) = 3
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,1) = 3]
	endwith
	// var_Items.CellValue(h,2) = 12
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,2) = 12]
	endwith
	h = var_Items.InsertItem(g2,null,"Item 2")
	// var_Items.CellValue(h,1) = 4
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,1) = 4]
	endwith
	// var_Items.CellValue(h,2) = 13
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellValue(h,2) = 13]
	endwith
	// var_Items.ExpandItem(0) = true
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.ExpandItem(0) = True]
	endwith
oG2antt.EndUpdate()
oG2antt.FreezeEvents(false)
2319
Is it possible when I move the horizontal scroll bar, that the whole chart scrolls live during move the horizontal scroll bar. Not it scrolls just when I release the left mouse, not during change the horizontal scroll position
local oG2antt,var_Chart

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
var_Chart = oG2antt.Chart
	// var_Chart.PaneWidth(false) = 0
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 0]
	endwith
	var_Chart.LevelCount = 2
	var_Chart.ToolTip = ""
2318
The exLinkStyle is not valid (the style of the link is still solid) if the link's width is greater than 1. What can be done
local h1,h2,h3,oG2antt,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = "01/01/2001"
	// var_Chart.PaneWidth(false) = 128
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 128]
	endwith
oG2antt.AntiAliasing = true
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	// var_Items.Link("L1",9) = 2
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("L1",9) = 2]
	endwith
	// var_Items.Link("L1",10) = 2
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("L1",10) = 2]
	endwith
	h3 = var_Items.AddItem("Task 4")
	var_Items.AddBar(h3,"Task","01/08/2001","01/10/2001","K3")
	var_Items.AddLink("L2",h2,"K2",h3,"K3")
	// var_Items.Link("L2",9) = 1
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("L2",9) = 1]
	endwith
	// var_Items.Link("L2",10) = 2
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("L2",10) = 2]
	endwith
oG2antt.EndUpdate()
2317
How can I change the tooltip's margins (method 2)

/*
with (this.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject)
	MouseMove = class::nativeObject_MouseMove
endwith
*/
// Occurs when the user moves the mouse.
function nativeObject_MouseMove(Button,Shift,X,Y)
	oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
	oG2antt.ShowToolTip(oG2antt.Chart.BarFromPoint(-1,-1))
return

local h,oG2antt,var_Bars,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.ToolTipMargin = "16,8"
oG2antt.Columns.Add("Def")
var_Chart = oG2antt.Chart
	var_Chart.AllowCreateBar = 0
	// var_Chart.PaneWidth(false) = 64
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 64]
	endwith
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = "01/01/2010"
	// var_Chart.Bars.Item("Task").Def(6) = "..."
	var_Bars = var_Chart.Bars.Item("Task")
	with (oG2antt)
		TemplateDef = [dim var_Bars]
		TemplateDef = var_Bars
		Template = [var_Bars.Def(6) = "..."]
	endwith
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task","01/02/2010","01/05/2010","A","A")
	var_Items.AddBar(h,"Task","01/05/2010","01/08/2010","B","B")
oG2antt.EndUpdate()
2316
Are there any properties to set text margins at tooltip, like Margins="5,5" (method 1). Margins is used to get some space between text and the tooltips border

/*
with (this.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject)
	MouseMove = class::nativeObject_MouseMove
endwith
*/
// Occurs when the user moves the mouse.
function nativeObject_MouseMove(Button,Shift,X,Y)
	oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
	oG2antt.ShowToolTip(oG2antt.Chart.BarFromPoint(-1,-1))
return

local h,oG2antt,var_Bars,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.ToolTipMargin = "16,8"
oG2antt.Columns.Add("Def")
var_Chart = oG2antt.Chart
	var_Chart.AllowCreateBar = 0
	// var_Chart.PaneWidth(false) = 64
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 64]
	endwith
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = "01/01/2010"
	// var_Chart.Bars.Item("Task").Def(6) = "..."
	var_Bars = var_Chart.Bars.Item("Task")
	with (oG2antt)
		TemplateDef = [dim var_Bars]
		TemplateDef = var_Bars
		Template = [var_Bars.Def(6) = "..."]
	endwith
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task","01/02/2010","01/05/2010","A","A")
	var_Items.AddBar(h,"Task","01/05/2010","01/08/2010","B","B")
oG2antt.EndUpdate()
2315
exShowExtendedLinks 

local oG2antt,var_Chart,var_Items,var_Level

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 24
oG2antt.HeaderHeight = 20
oG2antt.HeaderAppearance = 4
oG2antt.AntiAliasing = true
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	// var_Chart.PaneWidth(false) = 48
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 48]
	endwith
	var_Chart.LevelCount = 2
	var_Chart.UnitScale = 65536
	var_Chart.FirstVisibleDate = "01/10/2024"
	var_Level = var_Chart.Level(1)
		var_Level.DrawTickLines = 0
		var_Level.DrawTickLinesFrom(0,1)
	var_Chart.AllowResizeChart = -1 /*0xfffffef9 | exAllowChangeUnitScale | exAllowResizeChartMiddle | exAllowResizeChartHeader*/
	var_Chart.ShowLinks = 1
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("T1"),"Task","01/10/2024 10:00:00","01/10/2024 10:20:00","T1")
	var_Items.AddBar(var_Items.AddItem("T2"),"Task","01/10/2024 09:00:00","01/10/2024 12:00:00","T2")
	var_Items.AddBar(var_Items.AddItem("T3"),"Task","01/10/2024 08:00:00","01/10/2024 08:30:00","T3")
	var_Items.AddBar(var_Items.AddItem("T4"),"Task","01/10/2024 08:00:00","01/10/2024 08:30:00","T4")
	var_Items.AddLink("L13",var_Items.ItemByIndex(0),"T1",var_Items.ItemByIndex(2),"T3")
	var_Items.AddLink("L14",var_Items.ItemByIndex(0),"T1",var_Items.ItemByIndex(3),"T4")
	var_Items.AddLink("L24",var_Items.ItemByIndex(1),"T2",var_Items.ItemByIndex(3),"T4")
oG2antt.EndUpdate()
2314
According to the documentation of the ShowExtendedLinksEnum value exShowExtendedLinks (1) it is possible to distinctly visualise links (rather than showing them one over another) when two or more links start or end on the same bar

local oG2antt,var_Chart,var_Items,var_Level

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 24
oG2antt.HeaderHeight = 20
oG2antt.HeaderAppearance = 4
oG2antt.AntiAliasing = true
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	// var_Chart.PaneWidth(false) = 48
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 48]
	endwith
	var_Chart.LevelCount = 2
	var_Chart.UnitScale = 65536
	var_Chart.FirstVisibleDate = "01/10/2024"
	var_Level = var_Chart.Level(1)
		var_Level.DrawTickLines = 0
		var_Level.DrawTickLinesFrom(0,1)
	var_Chart.AllowResizeChart = -1 /*0xfffffef9 | exAllowChangeUnitScale | exAllowResizeChartMiddle | exAllowResizeChartHeader*/
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("T1"),"Task","01/10/2024 10:00:00","01/10/2024 10:20:00","T1")
	var_Items.AddBar(var_Items.AddItem("T2"),"Task","01/10/2024 09:00:00","01/10/2024 12:00:00","T2")
	var_Items.AddBar(var_Items.AddItem("T3"),"Task","01/10/2024 08:00:00","01/10/2024 08:30:00","T3")
	var_Items.AddBar(var_Items.AddItem("T4"),"Task","01/10/2024 08:00:00","01/10/2024 08:30:00","T4")
	var_Items.AddLink("L1",var_Items.ItemByIndex(0),"T1",var_Items.ItemByIndex(2),"T3")
	var_Items.AddLink("L2",var_Items.ItemByIndex(1),"T2",var_Items.ItemByIndex(3),"T4")
	// var_Items.Link("L2",15) = 4
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("L2",15) = 4]
	endwith
oG2antt.EndUpdate()
2313
How to use arrows key left/right to move the cursor left/right inside the text
local oG2antt,var_Editor,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
var_Editor = oG2antt.Columns.Add("Edit").Editor
	var_Editor.EditType = 1
	// var_Editor.Option(20) = false
	with (oG2antt)
		TemplateDef = [dim var_Editor]
		TemplateDef = var_Editor
		Template = [var_Editor.Option(20) = False]
	endwith
	// var_Editor.Option(21) = false
	with (oG2antt)
		TemplateDef = [dim var_Editor]
		TemplateDef = var_Editor
		Template = [var_Editor.Option(21) = False]
	endwith
var_Items = oG2antt.Items
	var_Items.AddItem("000")
	var_Items.AddItem("111")
	var_Items.AddItem("222")
oG2antt.EndUpdate()
2312
How can I force the cursor to jump to the end of the editor once the user clicks the cell
local oG2antt,var_Editor,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.SelBackColor = oG2antt.BackColor
oG2antt.SelForeColor = oG2antt.ForeColor
var_Editor = oG2antt.Columns.Add("Edit").Editor
	var_Editor.EditType = 1
	// var_Editor.Option(48) = -1
	with (oG2antt)
		TemplateDef = [dim var_Editor]
		TemplateDef = var_Editor
		Template = [var_Editor.Option(48) = -1]
	endwith
var_Items = oG2antt.Items
	var_Items.AddItem("000")
	var_Items.AddItem("111")
	var_Items.AddItem("222")
oG2antt.EndUpdate()
2311
How can I show the overview with a different color except or outside the selection

local oG2antt,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABVIDg6AADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADE2YAoJDUN4nDKMMDybBkRxtDCPIDnGQoDiGI4nSbKIzSCKMQhrEKZZrnaLJFgOTY8ABLEBvfSgASof6MKBlKhKGoiUo2SCFEaBTBNHxDL6raqqWJ5HDINQlWzbcjjKKFYRbOqTZDkGj4XqKTo3YBAdZSXJsXwTGKkji3ZgMOR3HaQaTjOgINpuDZdRzkUYZUDFSwSDqQIRtCpbJqzFZDZbLNbYBYME47AayID0CbdCgmaalSZHNxbVa0BzpXrFLw1TLoDy8AJ+ABseKzfo9PxdIygZRzKJ8aofE+YxynIfJcC8QgbCmL5eiEPIKH6RABlibJpicW4/FcAx/HOYRGmud4+CcHxdmiDhkGEIIIEkQJSGMHQHFGSBlFEUITEmewAAQIQ2AYRpDGQJAoEIXhXCkCB5kmSAdmgVZPmgZJ8gaT4oHSeIHk8aIEnWCJiEiFgmgmYoIiYJIIE8aB8niB0pmyfIGE+ZYmDQPpjgOUg6DqY5DgYPg2mQAxqEKEJkEkFhGhGZIJA4QA2mOY4GDwOsumCe4NAACJKDoPQOFkZJThaSoZHSGYXmYCYGGKGJmEmFhmCsJoDFYag5iaSISDIAAjAkPJLhyS4JlYbA5iSeZmHqHpnkmdh+hOZx5lSOAzGgSQ+DAAAimkNIkiKTh6DSbIjmkChGhKJ" ;
 +"JpEoVoWiSaJThyKImmSWI4ACCwNkqBhgDsahKhaJopmqComiqKpqkqEhghKYpAAIJIQmYA46jaLZrgqZo6i6a5KnaPotiZRQkiyIg6lIXw7myCwmkqMpsksNpOjObQLCKQYQiwOpOEKGAPAsZpajabZLHaXo3m4C4GlmNJNisVpFjWZZzkaao6m6S42m6O5vAuRpyjqLhLhidYxgmE5KnqPpvkudp+j+cAMAcAo+i8WIOkSPZuguZwDkKcJMDafpBE8XAengPJxEwVwWkWcYMGcGpGnGTBTBCRIwhkXwikichMhcJpJnKDIPB+NYNimAgqkucwMkcMoInKO4fC2F5ikyZw6k6c5MncPpPnOLJXAiTZJhOXxGlGdINCcSpSnSTQ3E6UY0CuYgulSdRNFcVpVnWDRnFSVBwh0axeledgNFsXJRA+HYXGaWZ2g2JxqlqdpNjcZZYmYCJDHKXJ3E2K4doux3gbE8OEF4ygtjuH6L8eAHAHgFGCO8bY2QZgZDiBwJ4FRijxE4G8DoxBxj6B6EINwTADjvBaMseYHBng1GaPMTg7wepxA4J4Rx8RjgfCYFMeoEQ6BpGqPUTob2MD2A6IQLoNAKiHAuG0WYAAJCVBCCETAHR3DMFWPgDwD29j4E8CoV4sw7imAIIcJASggAHBeBIJw5grikCmHoSYNxWjrH2BMAoNgqAZE8O0GYEg5DgAIG8DgxwjhXGaCYZIcgnxBGSDILgmwTjKHkJMNwqgjCREoGEC4RRMifHqJc" &
 +"YokQ6BgEYJEUIaQOhlHIIESAECAg=")
oG2antt.BackColorLevelHeader = oG2antt.BackColor
oG2antt.Template = [Background(199) = 1] // oG2antt.Background(199) = 0x1
oG2antt.Template = [Background(200) = 15790320] // oG2antt.Background(200) = 0xf0f0f0
oG2antt.Chart.OverviewSelBackColor = 0xffffff
oG2antt.Template = [Background(201) = 16777216] // oG2antt.Background(201) = 0x1000000
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = "06/21/2001"
	// var_Chart.PaneWidth(false) = 48
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 48]
	endwith
	var_Chart.OverviewVisible = 31746 /*0x400 | exOverviewShowSelMargins | exOverviewShowMargins | exOverviewShowDateTimeScaleBottom | exOverviewShowAllVisible*/
	var_Chart.OverviewHeight = 64
	var_Chart.LevelCount = 2
	var_Chart.UnitScale = 4096
	// var_Chart.Label(65536) = ""
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.Label(65536) = ""]
	endwith
	// var_Chart.Label(1048576) = ""
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.Label(1048576) = ""]
	endwith
	// var_Chart.Label(16777216) = ""
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.Label(16777216) = ""]
	endwith
	var_Chart.AllowOverviewZoom = 1
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Item 1"),"Task","01/02/2001","01/11/2001")
	var_Items.AddBar(var_Items.AddItem("Item 2"),"Task","07/02/2001","07/11/2001")
	var_Items.AddBar(var_Items.AddItem("Item 3"),"Task","11/02/2001","11/11/2001")
oG2antt.EndUpdate()
2310
Resize the chart using the overview's selection left and right margins (blue)

local oG2antt,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.BackColorLevelHeader = oG2antt.BackColor
oG2antt.Template = [Background(199) = 16711680] // oG2antt.Background(199) = 0xff0000
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = "06/21/2001"
	// var_Chart.PaneWidth(false) = 48
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 48]
	endwith
	var_Chart.OverviewVisible = 31746 /*0x400 | exOverviewShowSelMargins | exOverviewShowMargins | exOverviewShowDateTimeScaleBottom | exOverviewShowAllVisible*/
	var_Chart.OverviewHeight = 64
	var_Chart.LevelCount = 2
	var_Chart.UnitScale = 4096
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Item 1"),"Task","01/02/2001","01/11/2001")
	var_Items.AddBar(var_Items.AddItem("Item 2"),"Task","07/02/2001","07/11/2001")
	var_Items.AddBar(var_Items.AddItem("Item 3"),"Task","11/02/2001","11/11/2001")
oG2antt.EndUpdate()
2309
Resize the chart using the overview's selection left and right margins (black)

local oG2antt,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.BackColorLevelHeader = oG2antt.BackColor
oG2antt.Template = [Background(199) = 1] // oG2antt.Background(199) = 0x1
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = "06/21/2001"
	// var_Chart.PaneWidth(false) = 48
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 48]
	endwith
	var_Chart.OverviewVisible = 31746 /*0x400 | exOverviewShowSelMargins | exOverviewShowMargins | exOverviewShowDateTimeScaleBottom | exOverviewShowAllVisible*/
	var_Chart.OverviewHeight = 64
	var_Chart.LevelCount = 2
	var_Chart.UnitScale = 4096
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Item 1"),"Task","01/02/2001","01/11/2001")
	var_Items.AddBar(var_Items.AddItem("Item 2"),"Task","07/02/2001","07/11/2001")
	var_Items.AddBar(var_Items.AddItem("Item 3"),"Task","11/02/2001","11/11/2001")
oG2antt.EndUpdate()
2308
Disable temporarily the column's sort, resize and drag and drop

local oG2antt,var_Chart,var_Column,var_Column1,var_Editor,var_Level

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.OnResizeControl = 1
oG2antt.SortBarVisible = true
oG2antt.SortBarCaption = "<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)"
oG2antt.AllowGroupBy = true
oG2antt.HeaderEnabled = false
oG2antt.HeaderAppearance = 4
// oG2antt.Columns.Add("Index").FormatColumn = "1 index ``"
var_Column = oG2antt.Columns.Add("Index")
with (oG2antt)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.FormatColumn = "1 index ``"]
endwith
// oG2antt.Columns.Add("Pos").FormatColumn = "1 apos ``"
var_Column1 = oG2antt.Columns.Add("Pos")
with (oG2antt)
	TemplateDef = [dim var_Column1]
	TemplateDef = var_Column1
	Template = [var_Column1.FormatColumn = "1 apos ``"]
endwith
// oG2antt.Columns.Add("Edit").Editor.EditType = 1
var_Editor = oG2antt.Columns.Add("Edit").Editor
with (oG2antt)
	TemplateDef = [dim var_Editor]
	TemplateDef = var_Editor
	Template = [var_Editor.EditType = 1]
endwith
oG2antt.GridLineStyle = 512
oG2antt.DrawGridLines = 2
oG2antt.GridLineColor = 0xe0e0e0
var_Chart = oG2antt.Chart
	var_Chart.AllowCreateBar = 1
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = "12/28/2000"
	// var_Chart.PaneWidth(false) = 196
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 196]
	endwith
	var_Chart.GridLineStyle = 512
	var_Chart.DrawGridLines = -1
	var_Level = var_Chart.Level(1)
		var_Level.DrawGridLines = true
		var_Level.GridLineColor = oG2antt.GridLineColor
oG2antt.EndUpdate()
2307
Adds a Finish-Start(FS) link (method 3)

local h1,h2,oG2antt,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = "12/28/2000"
	// var_Chart.PaneWidth(false) = 64
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 64]
	endwith
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Item 1")
	var_Items.AddBar(h1,"Task","01/03/2001","01/06/2001")
	h2 = var_Items.AddItem("Item 2")
	var_Items.AddBar(h2,"Task","01/03/2001","01/06/2001")
	var_Items.AddLink("Link1",h1,"",h2,"")
	var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
2306
Adds a Start-Start(SS) link (method 3)

local h1,h2,oG2antt,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = "12/28/2000"
	// var_Chart.PaneWidth(false) = 64
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 64]
	endwith
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Item 1")
	var_Items.AddBar(h1,"Task","01/03/2001","01/06/2001")
	h2 = var_Items.AddItem("Item 2")
	var_Items.AddBar(h2,"Task","01/03/2001","01/06/2001")
	var_Items.AddLink("Link1",h1,"",h2,"")
	// var_Items.Link("Link1",6) = 0
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("Link1",6) = 0]
	endwith
	// var_Items.Link("Link1",7) = 0
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("Link1",7) = 0]
	endwith
	var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
2305
Adds a Finish-Finish(FF) link (method 3)

local h1,h2,oG2antt,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = "12/28/2000"
	// var_Chart.PaneWidth(false) = 64
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 64]
	endwith
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Item 1")
	var_Items.AddBar(h1,"Task","01/03/2001","01/06/2001")
	h2 = var_Items.AddItem("Item 2")
	var_Items.AddBar(h2,"Task","01/03/2001","01/06/2001")
	var_Items.AddLink("Link1",h1,"",h2,"")
	// var_Items.Link("Link1",6) = 2
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("Link1",6) = 2]
	endwith
	// var_Items.Link("Link1",7) = 2
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("Link1",7) = 2]
	endwith
	var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
2304
Adds a Start-Finish(SF) link (method 3)

local h1,h2,oG2antt,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = "12/28/2000"
	// var_Chart.PaneWidth(false) = 64
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 64]
	endwith
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Item 1")
	var_Items.AddBar(h1,"Task","01/03/2001","01/06/2001")
	h2 = var_Items.AddItem("Item 2")
	var_Items.AddBar(h2,"Task","01/03/2001","01/06/2001")
	var_Items.AddLink("Link1",h1,"",h2,"")
	// var_Items.Link("Link1",6) = 0
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("Link1",6) = 0]
	endwith
	// var_Items.Link("Link1",7) = 2
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("Link1",7) = 2]
	endwith
	var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
2303
Adds a Finish-Start(FS) link (method 2)

local h1,h2,oG2antt,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = "12/28/2000"
	// var_Chart.PaneWidth(false) = 64
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 64]
	endwith
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Item 1")
	var_Items.AddBar(h1,"Task","01/03/2001","01/06/2001")
	h2 = var_Items.AddItem("Item 2")
	var_Items.AddBar(h2,"Task","01/03/2001","01/06/2001")
	// var_Items.ItemBar(h2,"",270) = "1FS"
	with (oG2antt)
		TemplateDef = [dim var_Items,h2]
		TemplateDef = var_Items
		TemplateDef = h2
		Template = [var_Items.ItemBar(h2,"",270) = "1FS"]
	endwith
	var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
2302
Adds a Start-Start(SS) link (method 2)

local h1,h2,oG2antt,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = "12/28/2000"
	// var_Chart.PaneWidth(false) = 64
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 64]
	endwith
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Item 1")
	var_Items.AddBar(h1,"Task","01/03/2001","01/06/2001")
	h2 = var_Items.AddItem("Item 2")
	var_Items.AddBar(h2,"Task","01/03/2001","01/06/2001")
	// var_Items.ItemBar(h2,"",270) = "1SS"
	with (oG2antt)
		TemplateDef = [dim var_Items,h2]
		TemplateDef = var_Items
		TemplateDef = h2
		Template = [var_Items.ItemBar(h2,"",270) = "1SS"]
	endwith
	var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
2301
Adds a Finish-Finish(FF) link (method 2)

local h1,h2,oG2antt,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = "12/28/2000"
	// var_Chart.PaneWidth(false) = 64
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 64]
	endwith
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Item 1")
	var_Items.AddBar(h1,"Task","01/03/2001","01/06/2001")
	h2 = var_Items.AddItem("Item 2")
	var_Items.AddBar(h2,"Task","01/03/2001","01/06/2001")
	// var_Items.ItemBar(h2,"",270) = "1FF"
	with (oG2antt)
		TemplateDef = [dim var_Items,h2]
		TemplateDef = var_Items
		TemplateDef = h2
		Template = [var_Items.ItemBar(h2,"",270) = "1FF"]
	endwith
	var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()