|
2337
|
How can I convert the exBarStart/exBarEnd property to a string (by default it returns as VARIANT/VT_DATE type, method 3)
' Occurs when a bar is moving or resizing.
function BarResizing as v (Item as OLE::Exontrol.G2antt.1::HITEM,Key as A)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
? "Start"
? Key
? oG2antt.Items.ItemBar(Item,Key,547)
? "End"
? Key
? oG2antt.Items.ItemBar(Item,Key,548)
end function
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
oG2antt.Debug = .t.
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {09/20/2006}
var_Chart.LevelCount = 2
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 96"
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)
' Occurs when a bar is moving or resizing.
function BarResizing as v (Item as OLE::Exontrol.G2antt.1::HITEM,Key as A)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
? "Start"
? Key
? oG2antt.FormatABC("dateF(value)",oG2antt.Items.ItemBar(Item,Key,1))
? "End"
? Key
? oG2antt.FormatABC("dateF(value)",oG2antt.Items.ItemBar(Item,Key,2))
end function
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
oG2antt.Debug = .t.
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {09/20/2006}
var_Chart.LevelCount = 2
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 96"
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)
' Occurs when a bar is moving or resizing.
function BarResizing as v (Item as OLE::Exontrol.G2antt.1::HITEM,Key as A)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
? "Start"
? Key
? oG2antt.FormatABC("date(value) format `MM/dd/yyyy HH:mm:ss`",oG2antt.Items.ItemBar(Item,Key,1))
? "End"
? Key
? oG2antt.FormatABC("date(value) format `MM/dd/yyyy HH:mm:ss`",oG2antt.Items.ItemBar(Item,Key,2))
end function
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
oG2antt.Debug = .t.
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {09/20/2006}
var_Chart.LevelCount = 2
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 96"
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
' Occurs when the user presses and then releases the left mouse button over the tree control.
function Click as v ()
Dim h as N
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
var_Items = oG2antt.Items
h = var_Items.SelectedItem(0)
' var_Items.ItemBar(h,var_Items.FirstItemBar(h),49) = "+R4[10%]"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,FirstItemBar(h),49) = `+R4[10%]`"
end function
Dim h as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 24
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {01/01/2001}
var_Bar = var_Chart.Bars.Item("Task")
' var_Bar.Def(4) = 18
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(4) = 18"
' var_Bar.Def(3) = "<%=%49%>"
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(3) = `<%=%49%>`"
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"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K1`,49) = `R1,R2`"
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"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K2`,49) = `R2[75%],R3`"
oG2antt.EndUpdate()
|
|
2333
|
Distributes resources to a bar
Dim h as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 24
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {01/01/2001}
var_Bar = var_Chart.Bars.Item("Task")
' var_Bar.Def(4) = 18
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(4) = 18"
' var_Bar.Def(3) = "<%=%49%>"
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(3) = `<%=%49%>`"
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"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K1`,49) = `R1,R2`"
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"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K2`,49) = `R2[75%],R3`"
oG2antt.EndUpdate()
|
|
2332
|
How can I display additional information about a time zone when the user clicks on it (expandable)
Dim oG2antt as P
Dim var_Chart as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 0
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 0"
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
' Occurs when the user moves the mouse.
function MouseMove as v (Button as N,Shift as N,X as OLE::Exontrol.G2antt.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.G2antt.1::OLE_YPOS_PIXELS)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.ShowToolTip(oG2antt.Chart.TimeZoneFromPoint(-1,-1),"",,"+8")
end function
Dim oG2antt as P
Dim var_Chart as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 0
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 0"
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
Dim h as N
Dim oG2antt as P
Dim var_Column as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 24
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Items")
var_Column.DisplayFilterButton = .t.
var_Column.DisplayFilterPattern = .t.
' var_Column.Def(21) = "*<%filter%>*"
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(21) = `*<%filter%>*`"
var_Column.FilterType = 3
var_Column.Filter = "1"
var_Items = oG2antt.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"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
Dim oG2antt as P
Dim var_Chart as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
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 = .f.
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
Dim oG2antt as P
Dim rs as P
Dim var_Items as local
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ColumnAutoResize = .f.
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 24
oG2antt.DrawGridLines = 2
oG2antt.LinesAtRoot = -1
rs = OLE.Create("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 = OLE.Create("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) = .t.
var_Items = oG2antt.Items
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ExpandItem(0) = True"
oG2antt.EndUpdate()
|
|
2327
|
Is there a way to change the contents of the drop down editor based on a value in another column
' Occurs after a new Item has been inserted to Items collection.
function AddItem as v (Item as OLE::Exontrol.G2antt.1::HITEM)
Dim var_Items as local
Dim var_Items1 as local
oG2antt = topparent:CONTROL_ACTIVEX1.activex
' oG2antt.Items.CellEditorVisible(Item,0) = 1
var_Items = oG2antt.Items
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.CellEditorVisible(Item,0) = 1"
' oG2antt.Items.CellEditorVisible(Item,1) = 1
var_Items1 = oG2antt.Items
oG2antt.TemplateDef = "dim var_Items1"
oG2antt.TemplateDef = var_Items1
oG2antt.Template = "var_Items1.CellEditorVisible(Item,1) = 1"
end function
' Occurs when the edit operation starts.
function EditOpen as v ()
Dim c as
Dim v as
Dim var_Editor as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
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,c)
end function
Dim h as N
Dim oG2antt as P
Dim var_Column as P
Dim var_Editor as P
Dim var_Editor1 as local
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
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
oG2antt.TemplateDef = "dim var_Editor1"
oG2antt.TemplateDef = var_Editor1
oG2antt.Template = "var_Editor1.EditType = 3"
var_Items = oG2antt.Items
' var_Items.CellValue(var_Items.AddItem(1),1) = -1
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.CellValue(AddItem(1),1) = -1"
' var_Items.CellValue(var_Items.AddItem(2),1) = -1
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.CellValue(AddItem(2),1) = -1"
' var_Items.CellValue(var_Items.AddItem(3),1) = -1
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.CellValue(AddItem(3),1) = -1"
' var_Items.LockedItemCount(2) = 1
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.LockedItemCount(2) = 1"
h = var_Items.LockedItem(2,0)
' var_Items.ItemDivider(h) = 0
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemDivider(h) = 0"
' var_Items.ItemDividerLineAlignment(h) = 2
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemDividerLineAlignment(h) = 2"
' var_Items.CellEditorVisible(h,0) = .f.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellEditorVisible(h,0) = False"
' var_Items.CellSingleLine(h,0) = .f.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellSingleLine(h,0) = False"
' var_Items.CellValueFormat(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValueFormat(h,0) = 1"
' 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."
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.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.`"
oG2antt.EndUpdate()
|
|
2326
|
Highlight the editable fields
' Occurs when the user changes the cell's content.
function Change as v (Item as OLE::Exontrol.G2antt.1::HITEM,ColIndex as N,NewValue as A)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Refresh()
end function
Dim g1 as N
Dim g2 as N
Dim h as N
Dim oG2antt as P
Dim r as N
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Columns as P
Dim var_ConditionalFormat as P
Dim var_ConditionalFormat1 as P
Dim var_ConditionalFormat2 as P
Dim var_ConditionalFormats as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.FreezeEvents(.t.)
oG2antt.BeginUpdate()
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 24
oG2antt.LinesAtRoot = -1
var_ConditionalFormats = oG2antt.ConditionalFormats
var_ConditionalFormat = var_ConditionalFormats.Add("%CE1")
var_ConditionalFormat.Bold = .t.
var_ConditionalFormat.BackColor = 16119285
var_ConditionalFormat.ApplyTo = 1 '1 +
var_ConditionalFormat1 = var_ConditionalFormats.Add("%CE2")
var_ConditionalFormat1.Bold = .t.
var_ConditionalFormat1.BackColor = 16119285
var_ConditionalFormat1.ApplyTo = 2 '2 +
var_ConditionalFormat2 = var_ConditionalFormats.Add("%CE3")
var_ConditionalFormat2.Bold = .t.
var_ConditionalFormat2.BackColor = 16119285
var_ConditionalFormat2.ApplyTo = 3 '3 +
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)"
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(20) = `sum(current,rec,%1)`"
var_Column1 = var_Columns.Add("Price")
' var_Column1.Def(20) = "avg(current,rec,%2)"
oG2antt.TemplateDef = "dim var_Column1"
oG2antt.TemplateDef = var_Column1
oG2antt.Template = "var_Column1.Def(20) = `avg(current,rec,%2)`"
var_Column1.Editor.EditType = 4
var_Column2 = var_Columns.Add("Amount")
var_Column2.ComputedField = "%1 * %2"
' var_Column2.Def(20) = "sum(current,rec,%3)"
oG2antt.TemplateDef = "dim var_Column2"
oG2antt.TemplateDef = var_Column2
oG2antt.Template = "var_Column2.Def(20) = `sum(current,rec,%3)`"
var_Items = oG2antt.Items
r = var_Items.AddItem("Root")
g1 = var_Items.InsertItem(r,,"Group 1")
h = var_Items.InsertItem(g1,,"Item 1")
' var_Items.CellValue(h,1) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = 1"
' var_Items.CellValue(h,2) = 10
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,2) = 10"
h = var_Items.InsertItem(g1,,"Item 2")
' var_Items.CellValue(h,1) = 2
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = 2"
' var_Items.CellValue(h,2) = 11
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,2) = 11"
g2 = var_Items.InsertItem(r,,"Group 2")
h = var_Items.InsertItem(g2,,"Item 1")
' var_Items.CellValue(h,1) = 3
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = 3"
' var_Items.CellValue(h,2) = 12
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,2) = 12"
h = var_Items.InsertItem(g2,,"Item 2")
' var_Items.CellValue(h,1) = 4
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = 4"
' var_Items.CellValue(h,2) = 13
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,2) = 13"
' var_Items.ExpandItem(0) = .t.
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ExpandItem(0) = True"
oG2antt.EndUpdate()
oG2antt.FreezeEvents(.f.)
|
|
2325
|
Highlight the total fields
' Occurs when the user changes the cell's content.
function Change as v (Item as OLE::Exontrol.G2antt.1::HITEM,ColIndex as N,NewValue as A)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Refresh()
end function
Dim g1 as N
Dim g2 as N
Dim h as N
Dim oG2antt as P
Dim r as N
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Columns as P
Dim var_ConditionalFormat as P
Dim var_ConditionalFormat1 as P
Dim var_ConditionalFormat2 as P
Dim var_ConditionalFormats as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.FreezeEvents(.t.)
oG2antt.BeginUpdate()
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 24
oG2antt.LinesAtRoot = -1
var_ConditionalFormats = oG2antt.ConditionalFormats
var_ConditionalFormat = var_ConditionalFormats.Add("%CT1")
var_ConditionalFormat.ForeColor = 8421504
var_ConditionalFormat.ApplyTo = 1 '1 +
var_ConditionalFormat1 = var_ConditionalFormats.Add("%CT2")
var_ConditionalFormat1.ForeColor = 8421504
var_ConditionalFormat1.ApplyTo = 2 '2 +
var_ConditionalFormat2 = var_ConditionalFormats.Add("%CT3")
var_ConditionalFormat2.ForeColor = 8421504
var_ConditionalFormat2.ApplyTo = 3 '3 +
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)"
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(20) = `sum(current,rec,%1)`"
var_Column1 = var_Columns.Add("Price")
' var_Column1.Def(20) = "avg(current,rec,%2)"
oG2antt.TemplateDef = "dim var_Column1"
oG2antt.TemplateDef = var_Column1
oG2antt.Template = "var_Column1.Def(20) = `avg(current,rec,%2)`"
var_Column1.Editor.EditType = 4
var_Column2 = var_Columns.Add("Amount")
var_Column2.ComputedField = "%1 * %2"
' var_Column2.Def(20) = "sum(current,rec,%3)"
oG2antt.TemplateDef = "dim var_Column2"
oG2antt.TemplateDef = var_Column2
oG2antt.Template = "var_Column2.Def(20) = `sum(current,rec,%3)`"
var_Items = oG2antt.Items
r = var_Items.AddItem("Root")
g1 = var_Items.InsertItem(r,,"Group 1")
h = var_Items.InsertItem(g1,,"Item 1")
' var_Items.CellValue(h,1) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = 1"
' var_Items.CellValue(h,2) = 10
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,2) = 10"
h = var_Items.InsertItem(g1,,"Item 2")
' var_Items.CellValue(h,1) = 2
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = 2"
' var_Items.CellValue(h,2) = 11
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,2) = 11"
g2 = var_Items.InsertItem(r,,"Group 2")
h = var_Items.InsertItem(g2,,"Item 1")
' var_Items.CellValue(h,1) = 3
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = 3"
' var_Items.CellValue(h,2) = 12
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,2) = 12"
h = var_Items.InsertItem(g2,,"Item 2")
' var_Items.CellValue(h,1) = 4
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = 4"
' var_Items.CellValue(h,2) = 13
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,2) = 13"
' var_Items.ExpandItem(0) = .t.
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ExpandItem(0) = True"
oG2antt.EndUpdate()
oG2antt.FreezeEvents(.f.)
|
|
2324
|
Highlight the leaf items
Dim h as N
Dim hR as N
Dim oG2antt as P
Dim var_Column as local
Dim var_Columns as P
Dim var_ConditionalFormat as local
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
' oG2antt.ConditionalFormats.Add("%CC0=0").ForeColor = 8421504
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%CC0=0")
oG2antt.TemplateDef = "dim var_ConditionalFormat"
oG2antt.TemplateDef = var_ConditionalFormat
oG2antt.Template = "var_ConditionalFormat.ForeColor = 8421504"
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")
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Width = 16"
var_Columns.Add("Desc")
var_Items = oG2antt.Items
hR = var_Items.AddItem("Root")
' var_Items.CellValue(hR,1) = "The root directory /"
oG2antt.TemplateDef = "dim var_Items,hR"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = hR
oG2antt.Template = "var_Items.CellValue(hR,1) = `The root directory /`"
' var_Items.ExpandItem(hR) = .t.
oG2antt.TemplateDef = "dim var_Items,hR"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = hR
oG2antt.Template = "var_Items.ExpandItem(hR) = True"
h = var_Items.InsertItem(hR,,"Home")
' var_Items.CellValue(h,1) = "The home directory with user directories Alice and Bob"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = `The home directory with user directories Alice and Bob`"
var_Items.InsertItem(h,,"Alice")
var_Items.InsertItem(h,,"Bob")
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.InsertItem(hR,,"Etc")
' var_Items.CellValue(h,1) = "The etc directory with one configuration file"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = `The etc directory with one configuration file`"
h = var_Items.InsertItem(h,,"nginx.conf")
' var_Items.CellValue(var_Items.InsertItem(hR,,"Var"),1) = "The var directory"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.CellValue(InsertItem(hR,,`Var`),1) = `The var directory`"
oG2antt.EndUpdate()
|
|
2323
|
Highlight the parent items
Dim h as N
Dim hR as N
Dim oG2antt as P
Dim var_Column as local
Dim var_Columns as P
Dim var_ConditionalFormat as local
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
' oG2antt.ConditionalFormats.Add("%CC0").ForeColor = 255
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%CC0")
oG2antt.TemplateDef = "dim var_ConditionalFormat"
oG2antt.TemplateDef = var_ConditionalFormat
oG2antt.Template = "var_ConditionalFormat.ForeColor = 255"
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")
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Width = 16"
var_Columns.Add("Desc")
var_Items = oG2antt.Items
hR = var_Items.AddItem("Root")
' var_Items.CellValue(hR,1) = "The root directory /"
oG2antt.TemplateDef = "dim var_Items,hR"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = hR
oG2antt.Template = "var_Items.CellValue(hR,1) = `The root directory /`"
' var_Items.ExpandItem(hR) = .t.
oG2antt.TemplateDef = "dim var_Items,hR"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = hR
oG2antt.Template = "var_Items.ExpandItem(hR) = True"
h = var_Items.InsertItem(hR,,"Home")
' var_Items.CellValue(h,1) = "The home directory with user directories Alice and Bob"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = `The home directory with user directories Alice and Bob`"
var_Items.InsertItem(h,,"Alice")
var_Items.InsertItem(h,,"Bob")
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.InsertItem(hR,,"Etc")
' var_Items.CellValue(h,1) = "The etc directory with one configuration file"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = `The etc directory with one configuration file`"
h = var_Items.InsertItem(h,,"nginx.conf")
' var_Items.CellValue(var_Items.InsertItem(hR,,"Var"),1) = "The var directory"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.CellValue(InsertItem(hR,,`Var`),1) = `The var directory`"
oG2antt.EndUpdate()
|
|
2322
|
Highlight the item being expanded or collapsed
Dim h as N
Dim hR as N
Dim oG2antt as P
Dim var_Column as local
Dim var_Columns as P
Dim var_ConditionalFormat as local
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
' oG2antt.ConditionalFormats.Add("%CX0").Bold = .t.
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%CX0")
oG2antt.TemplateDef = "dim var_ConditionalFormat"
oG2antt.TemplateDef = var_ConditionalFormat
oG2antt.Template = "var_ConditionalFormat.Bold = True"
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")
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Width = 16"
var_Columns.Add("Desc")
var_Items = oG2antt.Items
hR = var_Items.AddItem("Root")
' var_Items.CellValue(hR,1) = "The root directory /"
oG2antt.TemplateDef = "dim var_Items,hR"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = hR
oG2antt.Template = "var_Items.CellValue(hR,1) = `The root directory /`"
' var_Items.ExpandItem(hR) = .t.
oG2antt.TemplateDef = "dim var_Items,hR"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = hR
oG2antt.Template = "var_Items.ExpandItem(hR) = True"
h = var_Items.InsertItem(hR,,"Home")
' var_Items.CellValue(h,1) = "The home directory with user directories Alice and Bob"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = `The home directory with user directories Alice and Bob`"
var_Items.InsertItem(h,,"Alice")
var_Items.InsertItem(h,,"Bob")
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.InsertItem(hR,,"Etc")
' var_Items.CellValue(h,1) = "The etc directory with one configuration file"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = `The etc directory with one configuration file`"
h = var_Items.InsertItem(h,,"nginx.conf")
' var_Items.CellValue(var_Items.InsertItem(hR,,"Var"),1) = "The var directory"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.CellValue(InsertItem(hR,,`Var`),1) = `The var directory`"
oG2antt.EndUpdate()
|
|
2321
|
I am using exTotalColumn. Is there an option to exclude specific cells to display the total
' Occurs when the user changes the cell's content.
function Change as v (Item as OLE::Exontrol.G2antt.1::HITEM,ColIndex as N,NewValue as A)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Refresh()
end function
Dim g1 as N
Dim g2 as N
Dim h as N
Dim oG2antt as P
Dim r as N
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Columns as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.FreezeEvents(.t.)
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)"
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(20) = `sum(current,rec,%1)`"
var_Column1 = var_Columns.Add("Price")
' var_Column1.Def(20) = "avg(current,rec,%2)"
oG2antt.TemplateDef = "dim var_Column1"
oG2antt.TemplateDef = var_Column1
oG2antt.Template = "var_Column1.Def(20) = `avg(current,rec,%2)`"
var_Column1.Editor.EditType = 4
var_Column2 = var_Columns.Add("Amount")
var_Column2.ComputedField = "%1 * %2"
' var_Column2.Def(20) = "sum(current,rec,%3)"
oG2antt.TemplateDef = "dim var_Column2"
oG2antt.TemplateDef = var_Column2
oG2antt.Template = "var_Column2.Def(20) = `sum(current,rec,%3)`"
var_Items = oG2antt.Items
r = var_Items.AddItem("Root")
g1 = var_Items.InsertItem(r,,"Group 1")
' var_Items.FormatCell(g1,2) = "`<average missing>`"
oG2antt.TemplateDef = "dim var_Items,g1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = g1
oG2antt.Template = "var_Items.FormatCell(g1,2) = ```<average missing>```"
' var_Items.CellEditorVisible(g1,2) = .f.
oG2antt.TemplateDef = "dim var_Items,g1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = g1
oG2antt.Template = "var_Items.CellEditorVisible(g1,2) = False"
' var_Items.CellBold(g1,2) = .t.
oG2antt.TemplateDef = "dim var_Items,g1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = g1
oG2antt.Template = "var_Items.CellBold(g1,2) = True"
' var_Items.CellForeColor(g1,2) = 255
oG2antt.TemplateDef = "dim var_Items,g1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = g1
oG2antt.Template = "var_Items.CellForeColor(g1,2) = 255"
h = var_Items.InsertItem(g1,,"Item 1")
' var_Items.CellValue(h,1) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = 1"
' var_Items.CellValue(h,2) = 10
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,2) = 10"
h = var_Items.InsertItem(g1,,"Item 2")
' var_Items.CellValue(h,1) = 2
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = 2"
' var_Items.CellValue(h,2) = 11
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,2) = 11"
g2 = var_Items.InsertItem(r,,"Group 2")
h = var_Items.InsertItem(g2,,"Item 1")
' var_Items.CellValue(h,1) = 3
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = 3"
' var_Items.CellValue(h,2) = 12
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,2) = 12"
h = var_Items.InsertItem(g2,,"Item 2")
' var_Items.CellValue(h,1) = 4
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = 4"
' var_Items.CellValue(h,2) = 13
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,2) = 13"
' var_Items.ExpandItem(0) = .t.
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ExpandItem(0) = True"
oG2antt.EndUpdate()
oG2antt.FreezeEvents(.f.)
|
|
2320
|
How can I add a total column
' Occurs when the user changes the cell's content.
function Change as v (Item as OLE::Exontrol.G2antt.1::HITEM,ColIndex as N,NewValue as A)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Refresh()
end function
Dim g1 as N
Dim g2 as N
Dim h as N
Dim oG2antt as P
Dim r as N
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Columns as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.FreezeEvents(.t.)
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)"
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(20) = `sum(current,rec,%1)`"
var_Column1 = var_Columns.Add("Price")
' var_Column1.Def(20) = "avg(current,rec,%2)"
oG2antt.TemplateDef = "dim var_Column1"
oG2antt.TemplateDef = var_Column1
oG2antt.Template = "var_Column1.Def(20) = `avg(current,rec,%2)`"
var_Column1.Editor.EditType = 4
var_Column2 = var_Columns.Add("Amount")
var_Column2.ComputedField = "%1 * %2"
' var_Column2.Def(20) = "sum(current,rec,%3)"
oG2antt.TemplateDef = "dim var_Column2"
oG2antt.TemplateDef = var_Column2
oG2antt.Template = "var_Column2.Def(20) = `sum(current,rec,%3)`"
var_Items = oG2antt.Items
r = var_Items.AddItem("Root")
g1 = var_Items.InsertItem(r,,"Group 1")
h = var_Items.InsertItem(g1,,"Item 1")
' var_Items.CellValue(h,1) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = 1"
' var_Items.CellValue(h,2) = 10
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,2) = 10"
h = var_Items.InsertItem(g1,,"Item 2")
' var_Items.CellValue(h,1) = 2
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = 2"
' var_Items.CellValue(h,2) = 11
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,2) = 11"
g2 = var_Items.InsertItem(r,,"Group 2")
h = var_Items.InsertItem(g2,,"Item 1")
' var_Items.CellValue(h,1) = 3
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = 3"
' var_Items.CellValue(h,2) = 12
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,2) = 12"
h = var_Items.InsertItem(g2,,"Item 2")
' var_Items.CellValue(h,1) = 4
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = 4"
' var_Items.CellValue(h,2) = 13
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,2) = 13"
' var_Items.ExpandItem(0) = .t.
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ExpandItem(0) = True"
oG2antt.EndUpdate()
oG2antt.FreezeEvents(.f.)
|
|
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
Dim oG2antt as P
Dim var_Chart as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 0
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 0"
var_Chart.LevelCount = 2
var_Chart.ToolTip = ""
|
|
2318
|
The exLinkStyle is not valid (the style of the link is still solid) if the link's width is greater than 1. What can be done
Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2001}
' var_Chart.PaneWidth(.f.) = 128
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 128"
oG2antt.AntiAliasing = .t.
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
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`L1`,9) = 2"
' var_Items.Link("L1",10) = 2
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`L1`,10) = 2"
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
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`L2`,9) = 1"
' var_Items.Link("L2",10) = 2
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`L2`,10) = 2"
oG2antt.EndUpdate()
|
|
2317
|
How can I change the tooltip's margins (method 2)
' Occurs when the user moves the mouse.
function MouseMove as v (Button as N,Shift as N,X as OLE::Exontrol.G2antt.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.G2antt.1::OLE_YPOS_PIXELS)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.ShowToolTip(oG2antt.Chart.BarFromPoint(-1,-1))
end function
Dim h as N
Dim oG2antt as P
Dim var_Bars as local
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ToolTipMargin = "16,8"
oG2antt.Columns.Add("Def")
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = 0
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {01/01/2010}
' var_Chart.Bars.Item("Task").Def(6) = "..."
var_Bars = var_Chart.Bars.Item("Task")
oG2antt.TemplateDef = "dim var_Bars"
oG2antt.TemplateDef = var_Bars
oG2antt.Template = "var_Bars.Def(6) = `...`"
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
' Occurs when the user moves the mouse.
function MouseMove as v (Button as N,Shift as N,X as OLE::Exontrol.G2antt.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.G2antt.1::OLE_YPOS_PIXELS)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.ShowToolTip(oG2antt.Chart.BarFromPoint(-1,-1))
end function
Dim h as N
Dim oG2antt as P
Dim var_Bars as local
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ToolTipMargin = "16,8"
oG2antt.Columns.Add("Def")
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = 0
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {01/01/2010}
' var_Chart.Bars.Item("Task").Def(6) = "..."
var_Bars = var_Chart.Bars.Item("Task")
oG2antt.TemplateDef = "dim var_Bars"
oG2antt.TemplateDef = var_Bars
oG2antt.Template = "var_Bars.Def(6) = `...`"
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
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
Dim var_Level as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 24
oG2antt.HeaderHeight = 20
oG2antt.HeaderAppearance = 4
oG2antt.AntiAliasing = .t.
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 48
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 48"
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 'fffffef9 + 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
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
Dim var_Level as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 24
oG2antt.HeaderHeight = 20
oG2antt.HeaderAppearance = 4
oG2antt.AntiAliasing = .t.
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 48
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 48"
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 'fffffef9 + 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
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`L2`,15) = 4"
oG2antt.EndUpdate()
|
|
2313
|
How to use arrows key left/right to move the cursor left/right inside the text
Dim oG2antt as P
Dim var_Editor as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Editor = oG2antt.Columns.Add("Edit").Editor
var_Editor.EditType = 1
' var_Editor.Option(20) = .f.
oG2antt.TemplateDef = "dim var_Editor"
oG2antt.TemplateDef = var_Editor
oG2antt.Template = "var_Editor.Option(20) = False"
' var_Editor.Option(21) = .f.
oG2antt.TemplateDef = "dim var_Editor"
oG2antt.TemplateDef = var_Editor
oG2antt.Template = "var_Editor.Option(21) = False"
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
Dim oG2antt as P
Dim var_Editor as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
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
oG2antt.TemplateDef = "dim var_Editor"
oG2antt.TemplateDef = var_Editor
oG2antt.Template = "var_Editor.Option(48) = -1"
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
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABVIDg6AADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADE2YAoJDUN4nDKMMDybBkRxtDCPIDnGQoDiGI4nSbKIzSCKMQhrEKZZrnaLJFgOTY8ABLEBvfSgASof6MKBlKhKGoiUo2SCFEaBTBNHxDL6raqqWJ5HDINQlWzbcjjKKFYRbOqTZDkGj4XqKTo3YBAdZSXJsXwTGKkji3ZgMOR3HaQaTjOgINpuDZdRzkUYZUDFSwSDqQIRtCpbJqzFZDZbLNbYBYME47AayID0CbdCgmaalSZHNxbVa0BzpXrFLw1TLoDy8AJ+ABseKzfo9PxdIygZRzKJ8aofE+YxynIfJcC8QgbCmL5eiEPIKH6RABlibJpicW4/FcAx/HOYRGmud4+CcHxdmiDhkGEIIIEkQJSGMHQHFGSBlFEUITEmewAAQIQ2AYRpDGQJAoEIXhXCkCB5kmSAdmgVZPmgZJ8gaT4oHSeIHk8aIEnWCJiEiFgmgmYoIiYJIIE8aB8niB0pmyfIGE+ZYmDQPpjgOUg6DqY5DgYPg2mQAxqEKEJkEkFhGhGZIJA4QA2mOY4GDwOsumCe4NAACJKDoPQOFkZJThaSoZHSGYXmYCYGGKGJmEmFhmCsJoDFYag5iaSISDIAAjAkPJLhyS4JlYbA5iSeZmHqHpnkmdh+hOZx5lSOAzGgSQ+DAAAimkNIkiKTh6DSbIjmkChGhKJJpEoVoWiSaJThyKImmSWI4ACCwNkqBhgDsahKhaJopmqComiqKpqkqEhghKYpAAIJIQmYA46jaLZrgqZo6i6a5KnaPotiZRQkiyIg6lIXw7myCwmkqMpsksNpOjObQLCKQYQiwOpOEKGAPAsZpajabZLHaXo3m4C4GlmNJNisVpFjWZZzkaao6m6S42m6O5vAuRpyjqLhLhidYxgmE5KnqPpvkudp+j+cAMAcAo+i8WIOkSPZuguZwDkKcJMDafpBE8XAengPJxEwVwWkWcYMGcGpGnGTBTBCRIwhkXwikichMhcJpJnKDIPB+NYNimAgqkucwMkcMoInKO4fC2F5ikyZw6k6c5MncPpPnOLJXAiTZJhOXxGlGdINCcSpSnSTQ3E6UY0CuYgulSdRNFcVpVnWDRnFSVBwh0axeledgNFsXJRA+HYXGaWZ2g2JxqlqdpNjcZZYmYCJDHKXJ3E2K4doux3gbE8OEF4ygtjuH6L8eAHAHgFGCO8bY2QZgZDiBwJ4FRijxE4G8DoxBxj6B6EINwTADjvBaMseYHBng1GaPMTg7wepxA4J4Rx8RjgfCYFMeoEQ6BpGqPUTob2MD2A6IQLoNAKiHAuG0WYAAJCVBCCETAHR3DMFWPgDwD29j4E8CoV4sw7imAIIcJASggAHBeBIJw5grikCmHoSYNxWjrH2BMAoNgqAZE8O0GYEg5DgAIG8DgxwjhXGaCYZIcgnxBGSDILgmwTjKHkJMNwqgjCREoGEC4RRMifHqJcYokQ6BgEYJEUIaQOhlHIIESAECAg=")
oG2antt.BackColorLevelHeader = oG2antt.BackColor
oG2antt.Template = "Background(199) = 1" // oG2antt.Background(199) = 1
oG2antt.Template = "Background(200) = 15790320" // oG2antt.Background(200) = 15790320
oG2antt.Chart.OverviewSelBackColor = 16777215
oG2antt.Template = "Background(201) = 16777216" // oG2antt.Background(201) = 16777216
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {06/21/2001}
' var_Chart.PaneWidth(.f.) = 48
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 48"
var_Chart.OverviewVisible = 31746 '400 + exOverviewShowSelMargins + exOverviewShowMargins + exOverviewShowDateTimeScaleBottom + exOverviewShowAllVisible
var_Chart.OverviewHeight = 64
var_Chart.LevelCount = 2
var_Chart.UnitScale = 4096
' var_Chart.Label(65536) = ""
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.Label(65536) = ``"
' var_Chart.Label(1048576) = ""
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.Label(1048576) = ``"
' var_Chart.Label(16777216) = ""
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.Label(16777216) = ``"
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)
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.BackColorLevelHeader = oG2antt.BackColor
oG2antt.Template = "Background(199) = 16711680" // oG2antt.Background(199) = 16711680
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {06/21/2001}
' var_Chart.PaneWidth(.f.) = 48
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 48"
var_Chart.OverviewVisible = 31746 '400 + 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)
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.BackColorLevelHeader = oG2antt.BackColor
oG2antt.Template = "Background(199) = 1" // oG2antt.Background(199) = 1
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {06/21/2001}
' var_Chart.PaneWidth(.f.) = 48
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 48"
var_Chart.OverviewVisible = 31746 '400 + 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
Dim oG2antt as P
Dim var_Chart as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Editor as local
Dim var_Level as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.OnResizeControl = 1
oG2antt.SortBarVisible = .t.
oG2antt.SortBarCaption = "<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)"
oG2antt.AllowGroupBy = .t.
oG2antt.HeaderEnabled = .f.
oG2antt.HeaderAppearance = 4
' oG2antt.Columns.Add("Index").FormatColumn = "1 index ``"
var_Column = oG2antt.Columns.Add("Index")
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.FormatColumn = `1 index `````"
' oG2antt.Columns.Add("Pos").FormatColumn = "1 apos ``"
var_Column1 = oG2antt.Columns.Add("Pos")
oG2antt.TemplateDef = "dim var_Column1"
oG2antt.TemplateDef = var_Column1
oG2antt.Template = "var_Column1.FormatColumn = `1 apos `````"
' oG2antt.Columns.Add("Edit").Editor.EditType = 1
var_Editor = oG2antt.Columns.Add("Edit").Editor
oG2antt.TemplateDef = "dim var_Editor"
oG2antt.TemplateDef = var_Editor
oG2antt.Template = "var_Editor.EditType = 1"
oG2antt.GridLineStyle = 512
oG2antt.DrawGridLines = 2
oG2antt.GridLineColor = 14737632
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = 1
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 196
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 196"
var_Chart.GridLineStyle = 512
var_Chart.DrawGridLines = -1
var_Level = var_Chart.Level(1)
var_Level.DrawGridLines = .t.
var_Level.GridLineColor = oG2antt.GridLineColor
oG2antt.EndUpdate()
|
|
2307
|
Adds a Finish-Start(FS) link (method 3)
Dim h1 as N
Dim h2 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
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)
Dim h1 as N
Dim h2 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
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
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`Link1`,6) = 0"
' var_Items.Link("Link1",7) = 0
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`Link1`,7) = 0"
var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
|
|
2305
|
Adds a Finish-Finish(FF) link (method 3)
Dim h1 as N
Dim h2 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
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
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`Link1`,6) = 2"
' var_Items.Link("Link1",7) = 2
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`Link1`,7) = 2"
var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
|
|
2304
|
Adds a Start-Finish(SF) link (method 3)
Dim h1 as N
Dim h2 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
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
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`Link1`,6) = 0"
' var_Items.Link("Link1",7) = 2
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`Link1`,7) = 2"
var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
|
|
2303
|
Adds a Finish-Start(FS) link (method 2)
Dim h1 as N
Dim h2 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
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"
oG2antt.TemplateDef = "dim var_Items,h2"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h2
oG2antt.Template = "var_Items.ItemBar(h2,``,270) = `1FS`"
var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
|
|
2302
|
Adds a Start-Start(SS) link (method 2)
Dim h1 as N
Dim h2 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
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"
oG2antt.TemplateDef = "dim var_Items,h2"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h2
oG2antt.Template = "var_Items.ItemBar(h2,``,270) = `1SS`"
var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
|
|
2301
|
Adds a Finish-Finish(FF) link (method 2)
Dim h1 as N
Dim h2 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
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"
oG2antt.TemplateDef = "dim var_Items,h2"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h2
oG2antt.Template = "var_Items.ItemBar(h2,``,270) = `1FF`"
var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
|
|
2300
|
Adds a Start-Finish(SF) link (method 2)
Dim h1 as N
Dim h2 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
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) = "1SF"
oG2antt.TemplateDef = "dim var_Items,h2"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h2
oG2antt.Template = "var_Items.ItemBar(h2,``,270) = `1SF`"
var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
|
|
2299
|
Adds a Start-Finish(SF) link (method 1)
Dim h1 as N
Dim h2 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
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",260) = "SF"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`Link1`,260) = `SF`"
var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
|
|
2298
|
Adds a Finish-Finish(FF) link (method 1)
Dim h1 as N
Dim h2 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
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",260) = "FF"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`Link1`,260) = `FF`"
var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
|
|
2297
|
Adds a Start-Start(SS) link (method 1)
Dim h1 as N
Dim h2 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
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",260) = "SS"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`Link1`,260) = `SS`"
var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
|
|
2296
|
Adds a Finish-Start(FS) link (method 1)
Dim h1 as N
Dim h2 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
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",260) = "FS"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`Link1`,260) = `FS`"
var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
|
|
2295
|
What is the difference between lags with "W" or without
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
var_Bar = var_Chart.Bars.Add("Task:Split")
var_Bar.Shortcut = "Task"
' var_Bar.Def(20) = .t.
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(20) = True"
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/03/2001},{01/06/2001})
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",{01/03/2001},{01/06/2001})
var_Items.AddBar(var_Items.AddItem("Item 3"),"Task",{01/03/2001},{01/06/2001})
' var_Items.ItemBar(var_Items.ItemByIndex(0),"",271) = "2SF:-1,3SF:-1W"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemBar(ItemByIndex(0),``,271) = `2SF:-1,3SF:-1W`"
var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
|
|
2294
|
What is the difference between lags with "W" or without
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/03/2001},{01/06/2001})
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",{01/03/2001},{01/06/2001})
var_Items.AddBar(var_Items.AddItem("Item 3"),"Task",{01/03/2001},{01/06/2001})
' var_Items.ItemBar(var_Items.ItemByIndex(0),"",271) = "2SF:-1,3SF:-1W"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemBar(ItemByIndex(0),``,271) = `2SF:-1,3SF:-1W`"
var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
|
|
2293
|
How can I remove all outgoing links
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/01/2001},{01/04/2001})
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",{01/05/2001},{01/08/2001})
var_Items.AddBar(var_Items.AddItem("Item 3"),"Task",{01/09/2001},{01/12/2001})
var_Items.AddLink("L1",var_Items.ItemByIndex(0),"",var_Items.ItemByIndex(1),"")
var_Items.AddLink("L2",var_Items.ItemByIndex(1),"",var_Items.ItemByIndex(2),"")
' var_Items.ItemBar(var_Items.ItemByIndex(1),"",271) = ""
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemBar(ItemByIndex(1),``,271) = ``"
oG2antt.EndUpdate()
|
|
2292
|
How can I remove all incoming links
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/01/2001},{01/04/2001})
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",{01/05/2001},{01/08/2001})
var_Items.AddBar(var_Items.AddItem("Item 3"),"Task",{01/09/2001},{01/12/2001})
var_Items.AddLink("L1",var_Items.ItemByIndex(0),"",var_Items.ItemByIndex(1),"")
var_Items.AddLink("L2",var_Items.ItemByIndex(1),"",var_Items.ItemByIndex(2),"")
' var_Items.ItemBar(var_Items.ItemByIndex(1),"",270) = ""
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemBar(ItemByIndex(1),``,270) = ``"
oG2antt.EndUpdate()
|
|
2291
|
How do I add a link between two bars (method 3)
Dim h as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
var_Items = oG2antt.Items
h = var_Items.AddItem("Item 1")
var_Items.AddBar(h,"Task",{01/01/2001},{01/04/2001})
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",{01/05/2001},{01/08/2001})
' var_Items.ItemBar(h,"",271) = "2SF"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,``,271) = `2SF`"
oG2antt.EndUpdate()
|
|
2290
|
How do I add a link between two bars (method 2)
Dim h as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Name")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
var_Items = oG2antt.Items
h = var_Items.AddItem("Item 1")
var_Items.AddBar(h,"Task",{01/01/2001},{01/04/2001})
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",{01/05/2001},{01/08/2001})
' var_Items.ItemBar(h,"",270) = "2SF"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,``,270) = `2SF`"
oG2antt.EndUpdate()
|
|
2289
|
Highlight the selected-link while editing the predecessor/successor column
' Occurs when the user links two bars using the mouse.
function AddLink as v (LinkKey as C)
Dim var_Items as local
oG2antt = topparent:CONTROL_ACTIVEX1.activex
' oG2antt.Items.Link(LinkKey,15) = 3
var_Items = oG2antt.Items
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(LinkKey,15) = 3"
end function
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Column4 as P
Dim var_Column5 as P
Dim var_Columns as P
Dim var_Editor as P
Dim var_Editor1 as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.OnResizeControl = 1
oG2antt.HeaderAppearance = 4
oG2antt.ColumnAutoResize = .f.
oG2antt.HeaderHeight = 32
oG2antt.DefaultItemHeight = 28
oG2antt.BackColorLevelHeader = 16777215
oG2antt.Template = "Background(197) = 10526880" // oG2antt.Background(197) = 10526880
oG2antt.Template = "Background(198) = 8421504" // oG2antt.Background(198) = 8421504
var_Columns = oG2antt.Columns
' var_Columns.Add("Name").Width = 48
var_Column = var_Columns.Add("Name")
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Width = 48"
var_Column1 = var_Columns.Add("Start")
var_Column1.Width = 48
var_Column1.Editor.EditType = 7
' var_Column1.Def(18) = 1
oG2antt.TemplateDef = "dim var_Column1"
oG2antt.TemplateDef = var_Column1
oG2antt.Template = "var_Column1.Def(18) = 1"
var_Column2 = var_Columns.Add("End")
var_Column2.Width = 48
var_Column2.Editor.EditType = 7
' var_Column2.Def(18) = 543
oG2antt.TemplateDef = "dim var_Column2"
oG2antt.TemplateDef = var_Column2
oG2antt.Template = "var_Column2.Def(18) = 543"
var_Column3 = var_Columns.Add("Predecessor")
var_Editor = var_Column3.Editor
var_Editor.EditType = 1
var_Editor.EditType = 8
var_Editor.Mask = ";;;rich"
' var_Column3.Def(18) = 270
oG2antt.TemplateDef = "dim var_Column3"
oG2antt.TemplateDef = var_Column3
oG2antt.Template = "var_Column3.Def(18) = 270"
var_Column4 = var_Columns.Add("Successor")
var_Editor1 = var_Column4.Editor
var_Editor1.EditType = 1
var_Editor1.EditType = 8
var_Editor1.Mask = ";;;rich"
' var_Column4.Def(18) = 271
oG2antt.TemplateDef = "dim var_Column4"
oG2antt.TemplateDef = var_Column4
oG2antt.Template = "var_Column4.Def(18) = 271"
var_Column5 = var_Columns.Add("(I)")
var_Column5.FormatColumn = "1 index ``"
var_Column5.Position = 0
var_Column5.AllowSizing = .f.
var_Column5.Width = 20
oG2antt.ColumnAutoResize = .t.
oG2antt.GridLineStyle = 512
oG2antt.DrawGridLines = -1
oG2antt.GridLineColor = 14737632
oG2antt.AntiAliasing = .t.
var_Chart = oG2antt.Chart
var_Chart.ShowLinks = 1
var_Chart.LinksStyle = 0
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 362
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 362"
var_Chart.NonworkingDays = 0
var_Chart.AllowLinkBars = .t.
var_Chart.AllowCreateBar = 2
var_Chart.AllowZoomOnFly = -1 'fffffcc4 + exZoomOnFlyIncludeSelectedItems + exZoomOnFlyBarsOnly + exZoomOnFly + exZoomOnFlyCtrl + exZoomOnFlyShift
var_Chart.GridLineStyle = 512
var_Chart.DrawGridLines = -1
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.Height = 15
' var_Bar.Def(3) = "<%=%C5%>"
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(3) = `<%=%C5%>`"
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = .t.
var_Items.AddBar(var_Items.AddItem("Phase A"),"Task",{01/01/2001},{01/06/2001})
var_Items.AddBar(var_Items.AddItem("Phase B"),"Task",{01/02/2001},{01/07/2001})
var_Items.AddBar(var_Items.AddItem("Phase C"),"Task",{12/29/2000},{01/04/2001})
var_Items.AddLink("L1",var_Items.ItemByIndex(0),"",var_Items.ItemByIndex(1),"")
' var_Items.Link("L1",17) = 1
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`L1`,17) = 1"
var_Items.AddLink("L2",var_Items.ItemByIndex(0),"",var_Items.ItemByIndex(2),"")
var_Items.AddLink("L3",var_Items.ItemByIndex(2),"",var_Items.ItemByIndex(1),"")
var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
|
|
2288
|
Adding an editable successor column
Dim oG2antt as P
Dim var_Chart as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Columns as P
Dim var_Editor as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.HeaderAppearance = 4
var_Columns = oG2antt.Columns
' var_Columns.Add("Name").Width = 48
var_Column = var_Columns.Add("Name")
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Width = 48"
var_Column1 = var_Columns.Add("Successor")
var_Editor = var_Column1.Editor
var_Editor.EditType = 1
var_Editor.EditType = 8
var_Editor.Mask = ";;;rich"
' var_Column1.Def(18) = 271
oG2antt.TemplateDef = "dim var_Column1"
oG2antt.TemplateDef = var_Column1
oG2antt.Template = "var_Column1.Def(18) = 271"
var_Column2 = var_Columns.Add("(I)")
var_Column2.FormatColumn = "1 index ``"
var_Column2.Position = 0
var_Column2.AllowSizing = .f.
var_Column2.Width = 20
oG2antt.ColumnAutoResize = .t.
oG2antt.GridLineStyle = 512
oG2antt.DrawGridLines = -1
oG2antt.GridLineColor = 14737632
oG2antt.AntiAliasing = .t.
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 256
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 256"
var_Chart.AllowLinkBars = .t.
var_Chart.AllowCreateBar = 2
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = .t.
var_Items.AddBar(var_Items.AddItem("Phase A"),"Task",{01/01/2001},{01/06/2001})
var_Items.AddBar(var_Items.AddItem("Phase B"),"Task",{01/02/2001},{01/07/2001})
var_Items.AddBar(var_Items.AddItem("Phase C"),"Task",{12/29/2000},{01/04/2001})
var_Items.AddLink("L1",var_Items.ItemByIndex(0),"",var_Items.ItemByIndex(1),"")
var_Items.AddLink("L2",var_Items.ItemByIndex(0),"",var_Items.ItemByIndex(2),"")
var_Items.AddLink("L3",var_Items.ItemByIndex(2),"",var_Items.ItemByIndex(1),"")
oG2antt.EndUpdate()
|
|
2287
|
Adding an editable predecessor column
Dim oG2antt as P
Dim var_Chart as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Columns as P
Dim var_Editor as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.HeaderAppearance = 4
var_Columns = oG2antt.Columns
' var_Columns.Add("Name").Width = 48
var_Column = var_Columns.Add("Name")
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Width = 48"
var_Column1 = var_Columns.Add("Predecessor")
var_Editor = var_Column1.Editor
var_Editor.EditType = 1
var_Editor.EditType = 8
var_Editor.Mask = ";;;rich"
' var_Column1.Def(18) = 270
oG2antt.TemplateDef = "dim var_Column1"
oG2antt.TemplateDef = var_Column1
oG2antt.Template = "var_Column1.Def(18) = 270"
var_Column2 = var_Columns.Add("(I)")
var_Column2.FormatColumn = "1 index ``"
var_Column2.Position = 0
var_Column2.AllowSizing = .f.
var_Column2.Width = 20
oG2antt.ColumnAutoResize = .t.
oG2antt.GridLineStyle = 512
oG2antt.DrawGridLines = -1
oG2antt.GridLineColor = 14737632
oG2antt.AntiAliasing = .t.
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 256
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 256"
var_Chart.AllowLinkBars = .t.
var_Chart.AllowCreateBar = 2
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = .t.
var_Items.AddBar(var_Items.AddItem("Phase A"),"Task",{01/01/2001},{01/06/2001})
var_Items.AddBar(var_Items.AddItem("Phase B"),"Task",{01/02/2001},{01/07/2001})
var_Items.AddBar(var_Items.AddItem("Phase C"),"Task",{12/29/2000},{01/04/2001})
var_Items.AddLink("L1",var_Items.ItemByIndex(0),"",var_Items.ItemByIndex(1),"")
var_Items.AddLink("L2",var_Items.ItemByIndex(0),"",var_Items.ItemByIndex(2),"")
var_Items.AddLink("L3",var_Items.ItemByIndex(2),"",var_Items.ItemByIndex(1),"")
oG2antt.EndUpdate()
|
|
2286
|
Adding an Index column
Dim oG2antt as P
Dim var_Chart as local
Dim var_Column as local
Dim var_Column1 as P
Dim var_Columns as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
' oG2antt.Chart.PaneWidth(.t.) = 0
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(True) = 0"
var_Columns = oG2antt.Columns
' var_Columns.Add("Name").Width = 48
var_Column = var_Columns.Add("Name")
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Width = 48"
var_Column1 = var_Columns.Add("Index")
var_Column1.FormatColumn = "1 index ``"
var_Column1.Position = 0
var_Column1.AllowSizing = .f.
var_Column1.Width = 48
var_Items = oG2antt.Items
var_Items.AddItem("Phase A")
var_Items.AddItem("Phase B")
var_Items.AddItem("Phase C")
oG2antt.EndUpdate()
|
|
2285
|
Create a new bar should start at 1 day (after moving some pixel to the right 1 days is showing) and new days should been showing as soon as you hit the next day. How can I do that (create bar manually)
' Fired when the user creates a new bar.
function CreateBar as v (Item as OLE::Exontrol.G2antt.1::HITEM,DateStart as T,DateEnd as T)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Items.AddBar(Item,"Task",DateStart,DateEnd,"","new")
end function
Dim oG2antt as P
Dim var_Chart as P
Dim var_Column as local
Dim var_Items as P
Dim var_Level as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.OnResizeControl = 1
oG2antt.HeaderAppearance = 4
' oG2antt.Columns.Add("Index").FormatColumn = "1 index ``"
var_Column = oG2antt.Columns.Add("Index")
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.FormatColumn = `1 index `````"
oG2antt.GridLineStyle = 512
oG2antt.DrawGridLines = 1
oG2antt.GridLineColor = 14737632
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
var_Chart.NonworkingDays = 0
var_Chart.AllowLinkBars = .t.
var_Chart.AllowCreateBar = -2
var_Chart.AllowZoomOnFly = -1 'fffffcc4 + exZoomOnFlyIncludeSelectedItems + exZoomOnFlyBarsOnly + exZoomOnFly + exZoomOnFlyCtrl + exZoomOnFlyShift
var_Chart.GridLineStyle = oG2antt.GridLineStyle
var_Chart.DrawGridLines = -1
var_Level = var_Chart.Level(1)
var_Level.DrawGridLines = .t.
var_Level.GridLineColor = oG2antt.GridLineColor
var_Items = oG2antt.Items
var_Items.AddItem("")
var_Items.AddItem("")
var_Items.AddItem("")
oG2antt.EndUpdate()
|
|
2284
|
Create a new bar should start at 1 day (after moving some pixel to the right 1 days is showing) and new days should been showing as soon as you hit the next day. How can I do that (create bar automatically)
Dim oG2antt as P
Dim var_Chart as P
Dim var_Column as local
Dim var_Level as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.OnResizeControl = 1
oG2antt.HeaderAppearance = 4
' oG2antt.Columns.Add("Index").FormatColumn = "1 index ``"
var_Column = oG2antt.Columns.Add("Index")
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.FormatColumn = `1 index `````"
oG2antt.GridLineStyle = 512
oG2antt.DrawGridLines = 1
oG2antt.GridLineColor = 14737632
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/28/2000}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
var_Chart.NonworkingDays = 0
var_Chart.AllowLinkBars = .t.
var_Chart.AllowCreateBar = 2
var_Chart.AllowZoomOnFly = -1 'fffffcc4 + exZoomOnFlyIncludeSelectedItems + exZoomOnFlyBarsOnly + exZoomOnFly + exZoomOnFlyCtrl + exZoomOnFlyShift
var_Chart.GridLineStyle = oG2antt.GridLineStyle
var_Chart.DrawGridLines = -1
var_Level = var_Chart.Level(1)
var_Level.DrawGridLines = .t.
var_Level.GridLineColor = oG2antt.GridLineColor
oG2antt.EndUpdate()
|
|
2283
|
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of working-days when using the DateTickerLabel property (method 4, locale)
Dim oG2antt as P
Dim var_Bar as local
Dim var_Bars as local
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ScrollBars = 2050 'exVScrollEmptySpace + exVertical
oG2antt.Template = "Background(195) = 1" // oG2antt.Background(195) = 1
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
' var_Chart.Bars.Add("Task:Split").Shortcut = "Task"
var_Bar = var_Chart.Bars.Add("Task:Split")
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Shortcut = `Task`"
' var_Chart.Bars.Item("Task").Def(20) = .t.
var_Bars = var_Chart.Bars.Item("Task")
oG2antt.TemplateDef = "dim var_Bars"
oG2antt.TemplateDef = var_Bars
oG2antt.Template = "var_Bars.Def(20) = True"
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 96"
var_Chart.AllowCreateBar = 1
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.LevelCount = 2
var_Chart.DrawDateTicker = .t.
var_Chart.DateTickerLabel = "<%=value format `ddd dd`%><fgcolor 808080><%=(value=end?` (` + (wcount) + `wd)`:``)%>"
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{06/21/2005},{06/28/2005})
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{06/28/2005},{07/01/2005})
oG2antt.EndUpdate()
|
|
2282
|
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of days when using the DateTickerLabel property (method 4, locale)
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ScrollBars = 2050 'exVScrollEmptySpace + exVertical
oG2antt.Template = "Background(195) = 1" // oG2antt.Background(195) = 1
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 96"
var_Chart.AllowCreateBar = 1
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.LevelCount = 2
var_Chart.DrawDateTicker = .t.
var_Chart.DateTickerLabel = "<%=value format `ddd dd`%><fgcolor 808080><%=(value=end?` (` + (end-start) + `d)`:``)%>"
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{06/21/2005},{06/28/2005})
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{06/28/2005},{07/01/2005})
oG2antt.EndUpdate()
|
|
2281
|
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of days when using the DateTickerLabel property (method 3, english locale)
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ScrollBars = 2050 'exVScrollEmptySpace + exVertical
oG2antt.Template = "Background(195) = 1" // oG2antt.Background(195) = 1
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 96"
var_Chart.AllowCreateBar = 1
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.LevelCount = 2
var_Chart.DrawDateTicker = .t.
var_Chart.DateTickerLabel = "<%=(0 array (0:=(longdate(date(value)) split `,`)) left 3) + ` ` + ((2 array ((1 array =:0) split ` `)) lpad `00`) + (value=end?` (` + (end-start) + `d)`:``)%>"
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{06/21/2005},{06/28/2005})
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{06/28/2005},{07/01/2005})
oG2antt.EndUpdate()
|
|
2280
|
How can I display the "<%ddd%> <%d%> <%mmm%>" format for start and end margins, but end margin should display one day before followed by the number of days
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ScrollBars = 2050 'exVScrollEmptySpace + exVertical
oG2antt.Template = "Background(195) = 1" // oG2antt.Background(195) = 1
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 96"
var_Chart.AllowCreateBar = 1
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.LevelCount = 2
var_Chart.DrawDateTicker = .t.
var_Chart.DateTickerLabel = "<%=(weekday(0:=(value-(value=end?1:0))) array 'Sun Mon Tue Wed Thu Fri Sat' split ' ') + ` ` + day(=:0) + ` ` + ((month(=:0) - 1) array 'Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec' split ' ') + (value=end?` (` + (end-start) + `d)`:``)%>"
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{06/21/2005},{06/28/2005})
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{06/28/2005},{07/01/2005})
oG2antt.EndUpdate()
|
|
2279
|
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of days when using the DateTickerLabel property (method 2)
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ScrollBars = 2050 'exVScrollEmptySpace + exVertical
oG2antt.Template = "Background(195) = 1" // oG2antt.Background(195) = 1
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 96"
var_Chart.AllowCreateBar = 1
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.LevelCount = 2
var_Chart.DrawDateTicker = .t.
var_Chart.DateTickerLabel = "<%ddd%> <%d%> <%mmm%><%=(value=end?` (` + (end-start) + `d)`:``)%>"
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{06/21/2005},{06/28/2005})
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{06/28/2005},{07/01/2005})
oG2antt.EndUpdate()
|
|
2278
|
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of days when using the DateTickerLabel property (method 1)
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ScrollBars = 2050 'exVScrollEmptySpace + exVertical
oG2antt.Template = "Background(195) = 1" // oG2antt.Background(195) = 1
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 96"
var_Chart.AllowCreateBar = 1
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.LevelCount = 2
var_Chart.DrawDateTicker = .t.
var_Chart.DateTickerLabel = "<%=(weekday(value) array 'Sun Mon Tue Wed Thu Fri Sat' split ' ') + ` ` + day(value) + ` ` + ((month(value) - 1) array 'Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec' split ' ') + (value=end?` (` + (end-start) + `d)`:``)%>"
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{06/21/2005},{06/28/2005})
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{06/28/2005},{07/01/2005})
oG2antt.EndUpdate()
|
|
2277
|
How can I display just the end-margin when user resizes the bar
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ScrollBars = 2050 'exVScrollEmptySpace + exVertical
oG2antt.Template = "Background(195) = 1" // oG2antt.Background(195) = 1
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 96"
var_Chart.AllowCreateBar = 1
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.LevelCount = 2
var_Chart.DrawDateTicker = .t.
var_Chart.DateTickerLabel = "<%=value=start?``:value%>"
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{06/21/2005},{06/28/2005})
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{06/23/2005},{07/03/2005})
oG2antt.EndUpdate()
|
|
2276
|
Is it possible to include the number of days (duration in days, hours, minutes) within the date-label
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ScrollBars = 2050 'exVScrollEmptySpace + exVertical
oG2antt.Template = "Background(195) = 1" // oG2antt.Background(195) = 1
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 96"
var_Chart.AllowCreateBar = 1
var_Chart.ResizeUnitScale = 65536
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.LevelCount = 2
var_Chart.DrawDateTicker = .t.
var_Chart.DateTickerLabel = "<%=date(value=end?value-1:value)%><fgcolor 666666><off -4><%=value=end?` ` + ((1:=int(0:= end - start)) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s) ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : ''):``%>"
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{06/21/2005},{06/28/2005})
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{06/23/2005},{07/03/2005})
oG2antt.EndUpdate()
|
|
2275
|
Is it possible to include the number of days within the date-label
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ScrollBars = 2050 'exVScrollEmptySpace + exVertical
oG2antt.Template = "Background(195) = 1" // oG2antt.Background(195) = 1
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 96"
var_Chart.AllowCreateBar = 1
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.LevelCount = 2
var_Chart.DrawDateTicker = .t.
var_Chart.DateTickerLabel = "<%mmm%> <%d%><fgcolor 808080><%=value=end?` (`+(end - start) + ` days)`:``%>"
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{06/21/2005},{06/28/2005})
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{06/23/2005},{07/03/2005})
oG2antt.EndUpdate()
|
|
2274
|
Is it possible to show the date-label with the bar being created, moved or resized instead below the header-bar
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ScrollBars = 2050 'exVScrollEmptySpace + exVertical
oG2antt.Template = "Background(195) = 1" // oG2antt.Background(195) = 1
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 96"
var_Chart.AllowCreateBar = 1
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.LevelCount = 2
var_Chart.DrawDateTicker = .t.
var_Chart.DateTickerLabel = "<%mmm%> <%d%>"
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{06/21/2005},{06/28/2005})
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{06/23/2005},{07/03/2005})
oG2antt.EndUpdate()
|
|
2273
|
Date-label customization
Dim oG2antt as P
Dim var_Appearance as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Appearance = oG2antt.VisualAppearance
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABT0GACAADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCOIwAFBIZhrE4ZRwGCQRRgyI43RhHUBzVIUBxDEaTZLlGY4NjSIYHThPMzyDRlEyBBqVKKoWLZMjiIY2RhJM7SBR0OROGQaRJrewZHDUMJiQjZVoVNTkNyxH6uYzoKSqVACLowTJNFZXDDkeR5JqcKBqChIEpKO5wRriAABVZoAA3Rq+AAuPBJIwYAAyXTIdTwThkBz3R6tchgOw7LxeZJpWbZOo0TgGFwTLDQNCifI7Vi6NJ1DdcKLNNx3tDBdpGXZ4JznGa8a7jN57dr+JQ7U6degACytKxLBeOprHMcA+GafxaAiBIUA0JgziGVJkGUGJIFyUYiBEN5VBsGxCEUEIcn0cAxBgWBijmM4Ekec57n0RwJBgBgCgCEZCC4BoBmAdBwgSApgkgMQcB8YQIEYERHAceBWBaBYRkGQgagaYY0HAaYHmICIBBwGJiEiFglEcBYYiYKoKhGQRCC6C5inQcBNgyYxIlIMoNGMWI2DCDAigiLgrgiYhohoHoIGIGBmByBwhEgXgXgOYQoEoCoDGCWAWAiAggAgDgDEcH5pGUHAoCWSR2F0cxOjSHQJEAQCAg=")
var_Appearance.Add(2,"CP:1 -2 -2 4 4")
oG2antt.ScrollBars = 2050 'exVScrollEmptySpace + exVertical
oG2antt.Template = "Background(192) = 33554432" // oG2antt.Background(192) = 33554432
oG2antt.Template = "Background(193) = 16777215" // oG2antt.Background(193) = 16777215
oG2antt.Template = "Background(194) = 1" // oG2antt.Background(194) = 1
oG2antt.Template = "Background(195) = 1" // oG2antt.Background(195) = 1
oG2antt.Template = "Background(196) = 4" // oG2antt.Background(196) = 4
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 96"
var_Chart.AllowCreateBar = 1
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.LevelCount = 2
var_Chart.DrawDateTicker = .t.
var_Chart.DateTickerLabel = "<%mmm%><br><%d%>"
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{06/21/2005},{06/28/2005})
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{06/23/2005},{07/03/2005})
oG2antt.EndUpdate()
|
|
2272
|
How can I change the visual appearance for the date-label (EBN)
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABaICg6AADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVAceAAGaUZrjSgobjmOYhAJCL70WAFFr/DCgZThGgJHomMIhAhHAJwTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69JbwMLbSgMIKFABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFoiC8X4QnAOQ8B4dp6BONQoBoTBnEOKZIkoMYQi2JZECIb4mDYNoEgoIQ8k2PIIDEGBAEuO4UmcF5xHufgqiACAGAKAJfmKdJogGWRAACbYCk0KA0mCA5OFgRgSgSYRIDyYAymGCAsm0QhNAgdJmgeX5DgiYYImISIWCaCBhCMUgqEITJIjSZ4Lk4OJGDKDJjEiVgvDmYpTDILILGAc4gmSD5kAkBhChCY5YmYOwzA6GQmBSEpkkgShJDoZBkA4OQ6iUSB+FaFZlgkZJmhUDopEQAIOE6OYGDeGJmEmFg3hgTo5HoYIYGOWY2G6G9cCIaoLE6SZWE+HZngmZhPh1YJMkyBolkoBoCiCZbBn4O4ogmIoKiKaJJiKCA7ieY4+hKHwpEoVoW3MI4+H4PApkgaoeieagIGqHF3jocoPimaoKiaD4omeY5Gi6JhrAqRoyiYapjkYfg8iuCoOjqLprkqDo4DzcROkKLRsEsFpG4+I5OH4PQskqfpOjObQKn6TA9XEVpWjIbYLGaWoyG0Y5WlWNYtDuBpijibQ7HYfg9i6Cx2mqOpuksdpoD3cRenKO5vEuVp26wI5eH4PgvkuZp+j+cALmafA+XEZwGkCcIMCcCpAnAY5mH4PoxAwNwSkScRMDcEA+jCfBfBqRpxkwdwYgsZBzm8IpInITIXCaSdxHMKpKnKTI3C6S4lmgNJSkCT5slcNpNnODJnAMNZzkQJpvDYdAMDUTpQnQRQ7A2UANhuPRKFKZJ4iiVIOHUDRGDmU4higJJrGuQAEAQgI")
oG2antt.ScrollBars = 2050 'exVScrollEmptySpace + exVertical
oG2antt.Template = "Background(192) = 16777216" // oG2antt.Background(192) = 16777216
oG2antt.Template = "Background(193) = 657930" // oG2antt.Background(193) = 657930
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 96"
var_Chart.AllowCreateBar = 1
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.LevelCount = 2
var_Chart.DrawDateTicker = .t.
var_Chart.DateTickerLabel = " <%mmm%> <%d%>"
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{06/21/2005},{06/28/2005})
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{06/23/2005},{07/03/2005})
oG2antt.EndUpdate()
|
|
2271
|
How can I change the visual appearance for the date-label (solid colors)
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ScrollBars = 2050 'exVScrollEmptySpace + exVertical
oG2antt.Template = "Background(192) = 1" // oG2antt.Background(192) = 1
oG2antt.Template = "Background(193) = 16777215" // oG2antt.Background(193) = 16777215
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 96"
var_Chart.AllowCreateBar = 1
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.LevelCount = 2
var_Chart.DrawDateTicker = .t.
var_Chart.DateTickerLabel = "<%mmm%> <%d%>"
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{06/21/2005},{06/28/2005})
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{06/23/2005},{07/03/2005})
oG2antt.EndUpdate()
|
|
2270
|
Expandable-caption
' Occurs when an anchor element is clicked.
function AnchorClick as v (AnchorID as C,Options as C)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
? AnchorID
end function
Dim h as N
Dim oG2antt as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ColumnAutoResize = .t.
oG2antt.TreeColumnIndex = -1
oG2antt.DrawGridLines = -1
oG2antt.GridLineStyle = 512
oG2antt.BackColorAlternate = 15790320
oG2antt.ShowFocusRect = .f.
oG2antt.Columns.Add("Default")
var_Items = oG2antt.Items
var_Items.AddItem("before item")
h = var_Items.AddItem("<solidline> <c><b>Bank Account 1</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4AjMGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEBA==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>+ withdraw(amount: Currency)")
' var_Items.CellValueFormat(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValueFormat(h,0) = 1"
' var_Items.CellSingleLine(h,0) = .f.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellSingleLine(h,0) = False"
h = var_Items.AddItem("<solidline> <c><b>Bank Account 2</b><br> <c><fgcolor 808080>properties</solidline><a 1;e64=gArAAgABvAB3ABuABlAByAA6gYAKYAOkNABphIAM8RHgAMMRGIAHcLAA2AA0AA9jQAIIAHEsABCAB6mEyO01ABznBwnBrlcvJU4Os4NkwlsClstjctIoAIYAJoAMYAKkXk8wqMIltRlEtNVQABHABoAFNsRPABVABWo1XpMHAE+l88otTONWslasoAosbGFwjFqoton1owN7jZRAE3jdTI1jnIAJeQnxJyFqxWHtUKqdTr9/jcKv9fNtgj8bwUFuFbABOAFonlNM1xsGun0+0tFpt3h1TitfxWlt9ft41toyyM6nRIqQAMUZnxkAF3kJMjMhxUVtkT4FtpsylsqlQ+AEdh3kEwAEYAHMlAHGv8jjovjwA8kd5/n8uRg1FjDpP8jKGPIgSCOej6io+ziSIgginqGhyHIZBY8oilSCL++b+L4q0AKshUBgBESAgA==><r>▼</a></fgcolor><br><c><fgcolor 808080>methods</fgcolor><r><a 2;e64=gArAAgABkABlABwABvABzABpAB0AAoABhABthYAOoAN0RAA6gYAIcaAByksHjgAMYAPIAFIAHkVkIyAA7lA2AA0AA9ABnABBAA4n4AIQANVDoECoBFkQAJoAO9Dp9CIlDop2q0NABojNAJ4AKNDplAoBIpAAI4AphXo1qmVHp9pJ1dp10r8+oFzphSut4AFfldmsgArFLABKrcqt1cGFgxONKk9AGNkcYNYAON1p5GABsABVklcy54h91yMQhxYttzkdHy84plRwxZodmJNDtIxutH2g3zufrUdy9RrlCF8p0Ejz2XGuS2ViolDnk8H0wk/VEwAEYAHIAnHNxs2mPHi3VmJi64AgUEqMQiVcg0mi1RikWjEMjcdiUggkjjaTJMhCOpWlqXgAACAg><fgcolor 808080>▼</fgcolor></a>")
' var_Items.CellValueFormat(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValueFormat(h,0) = 1"
' var_Items.CellSingleLine(h,0) = .f.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellSingleLine(h,0) = False"
var_Items.AddItem("after item")
oG2antt.EndUpdate()
|
|
2269
|
Expandable-caption
Dim h as N
Dim oG2antt as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ColumnAutoResize = .t.
oG2antt.TreeColumnIndex = -1
oG2antt.DrawGridLines = -1
oG2antt.GridLineStyle = 512
oG2antt.BackColorAlternate = 15790320
oG2antt.ShowFocusRect = .f.
oG2antt.Columns.Add("Default")
var_Items = oG2antt.Items
var_Items.AddItem("before item")
h = var_Items.AddItem("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
' var_Items.CellValueFormat(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValueFormat(h,0) = 1"
' var_Items.CellSingleLine(h,0) = .f.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellSingleLine(h,0) = False"
var_Items.AddItem("after item")
oG2antt.EndUpdate()
|
|
2268
|
Can I change the pattern for a specific bar only
Dim h as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {12/31/2009}
var_Chart.LevelCount = 2
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.StartColor = 16777215
var_Bar.EndColor = var_Bar.Color
oG2antt.Columns.Add("Types")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Original"),"Task",{01/04/2010},{01/09/2010},"")
h = var_Items.AddItem("W/h Pattern")
var_Items.AddBar(h,"Task",{01/04/2010},{01/09/2010},"")
' var_Items.ItemBar(h,"",42) = 6
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,``,42) = 6"
var_Items.AddBar(var_Items.AddItem("Original"),"Task",{01/04/2010},{01/09/2010},"")
oG2antt.EndUpdate()
|
|
2267
|
Force hover-all feature
Dim oG2antt as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Template = "Background(500) = -1" // oG2antt.Background(500) = -1
|
|
2266
|
Disable hover-all feature (Windows 11 or greater)
Dim oG2antt as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Template = "Background(500) = 1" // oG2antt.Background(500) = 1
|
|
2265
|
I'm using the Milestone bar type, but find it to small and want to enlarge it. I can change the bar height, but then the shape gets a bit distorted (e.g. it doesn't scale properly)
Dim oG2antt as P
Dim var_Appearance as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Appearance = oG2antt.VisualAppearance
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABJYCg6AADACAxRDgMQBQKAAzQFAYZhmGSGAAGIZhXgmFgAQhFcZQSKUOQTDKMIRfeQwAiNf4hQKBMIjKKAShaHCVIDlSThYAKCQxDZNUCQXDcdRRDaBR7hGgoaj6JolSRFUgSABEEigNIxToOU4jFgeCR2C7AZBEbTENBtBIUKDsKA4IBiFxAVjQFpSNZlWzdN64LhuK47UrWbYiXZeN5XXblaTxPrAMBwKzrLwPBqHXrfeIYXhlDzVC7GchxTCsSxXCaPY7lWZZPRGN49ODMNBibL9EwSA6laToWpRVpGSYpVrGdT2KgNQxbL61YLse5ZTrGF5vXrONz4LBeAwHP7FXLwfJaVxFeaPZq7eT6LRfEKa5PmgdJ7DuLotkeL5Am0eA4F2ToOHeK5hnOco8HIfQ/GOUZumWeY9h2fx/lOJ5Im8bY+j+LpWnecYxH6YAHgWMB/hgeAGAYe4aheSZ5gGYJICGG4BByaA2BIfRgjYRgTgWihaAobhhggdgBG+IY1nYHoImCRgaBAeQiEiJgHHGIgVnoKoLmEOBFmUchjAiVgYF4XZoloOoImKaJNGyDpkAiJZdggZAZBYLxphmWQaEqDRYmkLhOhEZJZD4UoMFSGJ6FOFZhheEhDhYJZHGYW4PGWWYFlSDQjmkbhi0WBZaCcepmgmBgygsJtLHCCYnBkBh0hkWAJlYMIICeBgKHqBxhimdh3h+ZYWEoa4MigR4hh6IZnhoJheGuIpYD6DhumAOhFh+JJaCedoWgIaYGg2RYjCgahNnGIIbgmaZqigKI5jmaoVGqOIiEuKxjnobZjhGKwJCKNRoCSSpejaLorggeo8i8a51koVIwFaeoijOIRsEsApJhgIArC4ZIziaKg+lCM5tDsRoUjUXRqkqWIrhuSxulmKQtmkIYsjgY4LGqZIum4e4UAAOpRBQJQBICA==")
var_Appearance.Add(2,"CP:1 1 1 11 -2")
oG2antt.DefaultItemHeight = 32
oG2antt.HeaderAppearance = 4
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
' var_Chart.PaneWidth(.f.) = 128
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 128"
var_Chart.FirstVisibleDate = {01/01/2001}
var_Bar = var_Chart.Bars.Item("Milestone")
var_Bar.Height = 24
var_Bar.Color = 33554432
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Milestone",{01/02/2001},{01/02/2001})
oG2antt.EndUpdate()
|
|
2264
|
I'm using the Milestone bar type, but find it to small and want to enlarge it. I can change the bar height, but then the shape gets a bit distorted (e.g. it doesn't scale properly)
Dim oG2antt as P
Dim var_Appearance as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Appearance = oG2antt.VisualAppearance
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABXYCg6AADACAxRDgMQBQKAAzQFAYZhmGSGAAGIZhXgmFgAQhFcZQSKUOQTDKMIRfeQwAiNf4hQKBMIjKKAShaHCVIDlSThYAKCQxDZNUCDNDYAR1FCeQACCCaDgOII/SZJMiRNIEQARBIoDRMM5DVLIZYHQjCcBkERtNQvHiBRQoSw6GAAGIaRDQMZSNZlWxMfx9XyeBoVeapFhbO4mZavEyCeTgfS3MBwLA3XZxTTxKIaD6KASbepEKh6VDNF52bYrA6XWy/T6PW7GDLmUY1H5UQpnfR4Uj/JyUT7KIS7bpMNTOWYfZ7XcxibKaZw2LDvIoxWL6UosH7UEpXfR/RLGcIVL7KKTLbpQNp8GwYXJWAMBJ+mubB3gaV5qhyNp/FIFhfmoLgPg+RZkmCeA7gWN46iSXJ4G2Mh6m+ax7nGdJ4G6MxegoXpaiSPJ/CmRZTnyJR3iAOAKASAZgGOfImBcD5iigXx7B6ZhVHAPhPHMWJDD0CohkSfQrEYE58ioGAPnKJBfggYg4goJIJmIaImCOA8gjQYg9kqMZAngNQMAOSIrByT5CmAcA/ksMYon8K4GEOfIsBjLQuESEYkFkHhKhIZJJCCLQYk+YpEGZNhBkSbgrkeM7viIT5zBCAA/kucZsn8LxHHOfI4BwT5ylQbU9kGLJ/CyBoJj4cYcCcKZUjYGwPkMDDlkqcZhgUMwPBKaIID8DQSReMoIVYRQgmiIgIn8MJlnMCB+VKaYUjpOxylgboaEbQQ3BuD5TBgfg8kuAgMncbobgOYJjDWTwCmCB1oGIVJ/DQCQDnyTAjCsYgujkP5MjqaJKhcDIaCSRwg3eMIGDyCxyAieA3k0FxRG8dgOCMVJxC8CJTnCVwmg+cxchgP5NCIUpcjeLZbHyfw1gkexYhteZSDjkQNAeSYDGyT5LCyUQ8EvL58DeSkrFwJ+ZmSG4/G+cxsh0PxNkKDJ0C+CQGkWOBthadpQniNBtDIMJ8DiSlWGMKYPnOCImD8TgiiidI6GyO41huQwdGcYorj1g5smIKZPkOBweC+SQjmCYA0i6bIRjYbgYFMNJvC0CBLCCCA9k2Iwik6SQOjWJQDEAQCAg")
var_Appearance.Add(2,"CP:1 -6 0 20 0")
oG2antt.DefaultItemHeight = 32
oG2antt.HeaderAppearance = 4
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
' var_Chart.PaneWidth(.f.) = 128
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 128"
var_Chart.FirstVisibleDate = {01/01/2001}
var_Bar = var_Chart.Bars.Item("Milestone")
var_Bar.Height = 28
var_Bar.Color = 33554432
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Milestone",{01/02/2001},{01/02/2001})
oG2antt.EndUpdate()
|
|
2263
|
I'm using the Milestone bar type, but find it to small and want to enlarge it. I can change the bar height, but then the shape gets a bit distorted (e.g. it doesn't scale properly)
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 32
oG2antt.HeaderAppearance = 4
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
' var_Chart.PaneWidth(.f.) = 128
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 128"
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.Bars.Item("Milestone").Height = 28
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Milestone",{01/02/2001},{01/02/2001})
oG2antt.EndUpdate()
|
|
2262
|
Display the bar's tooltip at runtime
' Occurs when the user moves the mouse.
function MouseMove as v (Button as N,Shift as N,X as OLE::Exontrol.G2antt.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.G2antt.1::OLE_YPOS_PIXELS)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.ShowToolTip(oG2antt.Chart.BarFromPoint(-1,-1))
end function
Dim h as N
Dim oG2antt as P
Dim var_Bars as local
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Def")
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = 0
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {01/01/2010}
' var_Chart.Bars.Item("Task").Def(6) = "..."
var_Bars = var_Chart.Bars.Item("Task")
oG2antt.TemplateDef = "dim var_Bars"
oG2antt.TemplateDef = var_Bars
oG2antt.Template = "var_Bars.Def(6) = `...`"
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()
|
|
2261
|
Includes the cell's state and user-data to bar's tooltip
Dim h as N
Dim oG2antt as P
Dim var_Bars as local
Dim var_Chart as P
Dim var_Column as local
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
' oG2antt.Columns.Add("Def").Def(0) = .t.
var_Column = oG2antt.Columns.Add("Def")
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(0) = True"
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = 0
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {01/01/2010}
' var_Chart.Bars.Item("Task").Def(6) = "<%=%C0%><br>Start: <%=%1%><br>End: <%=%2%><br>State: <b><%=%CS0%></b><br>UserData: <b><%=%CD0%></b>"
var_Bars = var_Chart.Bars.Item("Task")
oG2antt.TemplateDef = "dim var_Bars"
oG2antt.TemplateDef = var_Bars
oG2antt.Template = "var_Bars.Def(6) = `<%=%C0%><br>Start: <%=%1%><br>End: <%=%2%><br>State: <b><%=%CS0%></b><br>UserData: <b><%=%CD0%></b>`"
var_Items = oG2antt.Items
h = var_Items.AddItem("Machine 1")
' var_Items.CellState(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellState(h,0) = 1"
' var_Items.CellData(h,0) = "just some data"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellData(h,0) = `just some data`"
var_Items.AddBar(h,"Task",{01/02/2010},{01/05/2010},"A","A")
h = var_Items.AddItem("Machine 2")
var_Items.AddBar(h,"Task",{01/02/2010},{01/05/2010},"B","B")
' var_Items.CellData(h,0) = "just nother data"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellData(h,0) = `just nother data`"
oG2antt.EndUpdate()
|
|
2260
|
Shows the tooltip of the object moved relative to its default position
' Occurs when the user moves the mouse.
function MouseMove as v (Button as N,Shift as N,X as OLE::Exontrol.G2antt.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.G2antt.1::OLE_YPOS_PIXELS)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.ShowToolTip("<null>","<null>",,"+8","+8")
end function
Dim h as N
Dim oG2antt as P
Dim var_Bars as local
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Def")
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = 0
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {01/01/2010}
' var_Chart.Bars.Item("Task").Def(6) = "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
var_Bars = var_Chart.Bars.Item("Task")
oG2antt.TemplateDef = "dim var_Bars"
oG2antt.TemplateDef = var_Bars
oG2antt.Template = "var_Bars.Def(6) = `<b><%=%C0 + `` `` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>`"
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()
|
|
2259
|
Adds, changes or replaces the title of the object's tooltip
' Occurs when the user moves the mouse.
function MouseMove as v (Button as N,Shift as N,X as OLE::Exontrol.G2antt.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.G2antt.1::OLE_YPOS_PIXELS)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.ShowToolTip("<null>",oG2antt.Chart.BarFromPoint(-1,-1))
end function
Dim h as N
Dim oG2antt as P
Dim var_Bars as local
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Def")
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = 0
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {01/01/2010}
' var_Chart.Bars.Item("Task").Def(6) = "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
var_Bars = var_Chart.Bars.Item("Task")
oG2antt.TemplateDef = "dim var_Bars"
oG2antt.TemplateDef = var_Bars
oG2antt.Template = "var_Bars.Def(6) = `<b><%=%C0 + `` `` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>`"
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()
|
|
2258
|
Adds, changes or replaces the object's tooltip
' Occurs when the user moves the mouse.
function MouseMove as v (Button as N,Shift as N,X as OLE::Exontrol.G2antt.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.G2antt.1::OLE_YPOS_PIXELS)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.ShowToolTip(oG2antt.Chart.BarFromPoint(-1,-1))
end function
Dim h as N
Dim oG2antt as P
Dim var_Bars as local
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Def")
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = 0
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {01/01/2010}
' var_Chart.Bars.Item("Task").Def(6) = "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
var_Bars = var_Chart.Bars.Item("Task")
oG2antt.TemplateDef = "dim var_Bars"
oG2antt.TemplateDef = var_Bars
oG2antt.Template = "var_Bars.Def(6) = `<b><%=%C0 + `` `` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>`"
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()
|
|
2257
|
Shows a new tooltip and title at current position
' Occurs when the user moves the mouse.
function MouseMove as v (Button as N,Shift as N,X as OLE::Exontrol.G2antt.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.G2antt.1::OLE_YPOS_PIXELS)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.ShowToolTip("new content","new title")
end function
Dim h as N
Dim oG2antt as P
Dim var_Bars as local
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Def")
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = 0
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {01/01/2010}
' var_Chart.Bars.Item("Task").Def(6) = "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
var_Bars = var_Chart.Bars.Item("Task")
oG2antt.TemplateDef = "dim var_Bars"
oG2antt.TemplateDef = var_Bars
oG2antt.Template = "var_Bars.Def(6) = `<b><%=%C0 + `` `` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>`"
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()
|
|
2256
|
Shows a new tooltip and title moved relative to the current position
' Occurs when the user moves the mouse.
function MouseMove as v (Button as N,Shift as N,X as OLE::Exontrol.G2antt.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.G2antt.1::OLE_YPOS_PIXELS)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.ShowToolTip("new content","new title",,"+8","+8")
end function
Dim h as N
Dim oG2antt as P
Dim var_Bars as local
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Def")
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = 0
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {01/01/2010}
' var_Chart.Bars.Item("Task").Def(6) = "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
var_Bars = var_Chart.Bars.Item("Task")
oG2antt.TemplateDef = "dim var_Bars"
oG2antt.TemplateDef = var_Bars
oG2antt.Template = "var_Bars.Def(6) = `<b><%=%C0 + `` `` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>`"
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()
|
|
2255
|
Displays a different tooltip at a fixed position
' Occurs when the user moves the mouse.
function MouseMove as v (Button as N,Shift as N,X as OLE::Exontrol.G2antt.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.G2antt.1::OLE_YPOS_PIXELS)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.ShowToolTip("new content","",,128,128)
end function
Dim h as N
Dim oG2antt as P
Dim var_Bars as local
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Def")
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = 0
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {01/01/2010}
' var_Chart.Bars.Item("Task").Def(6) = "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
var_Bars = var_Chart.Bars.Item("Task")
oG2antt.TemplateDef = "dim var_Bars"
oG2antt.TemplateDef = var_Bars
oG2antt.Template = "var_Bars.Def(6) = `<b><%=%C0 + `` `` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>`"
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()
|
|
2254
|
Hide the tooltip
' Occurs when the user moves the mouse.
function MouseMove as v (Button as N,Shift as N,X as OLE::Exontrol.G2antt.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.G2antt.1::OLE_YPOS_PIXELS)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.ShowToolTip("","")
end function
Dim h as N
Dim oG2antt as P
Dim var_Bars as local
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Def")
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = 0
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {01/01/2010}
' var_Chart.Bars.Item("Task").Def(6) = "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
var_Bars = var_Chart.Bars.Item("Task")
oG2antt.TemplateDef = "dim var_Bars"
oG2antt.TemplateDef = var_Bars
oG2antt.Template = "var_Bars.Def(6) = `<b><%=%C0 + `` `` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>`"
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()
|
|
2253
|
I need 2 bars that are linked together and cannot be moved/splitted alone (moving one should move the two bars, like a « Group » of bars). How can I achieve that
Dim h1 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.HeaderVisible = 1
oG2antt.HeaderAppearance = 4
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2001}
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Chart.LevelCount = 2
var_Items = oG2antt.Items
var_Items.AddItem()
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",{01/05/2001 12:00:00},{01/07/2001},"T1")
' var_Items.ItemBar(h1,"",4) = 18
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,``,4) = 18"
var_Items.AddBar(h1,"Task",{01/03/2001},{01/04/2001 12:00:00},"T2")
' var_Items.ItemBar(h1,"T2",33) = 255
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,`T2`,33) = 255"
var_Items.GroupBars(h1,"T1",.t.,h1,"T2",.t.,27,0)
var_Items.AddItem()
oG2antt.EndUpdate()
|
|
2252
|
How can I show the tooltip programmatically ( I want to be able to set the tooltip content dynamically just before the tooltip start to appear, not using the exBarTooltip )
' Fired when the control prepares the object's tooltip.
function ToolTip as v (Item as OLE::Exontrol.G2antt.1::HITEM,ColIndex as N,Visible as L,X as N,Y as N,CX as N,CY as N)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.ShowToolTip(oG2antt.Chart.BarFromPoint(-1,-1))
end function
Dim h as N
Dim oG2antt as P
Dim var_Bars as local
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Def")
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = 0
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {01/01/2010}
' var_Chart.Bars.Item("Task").Def(6) = "..."
var_Bars = var_Chart.Bars.Item("Task")
oG2antt.TemplateDef = "dim var_Bars"
oG2antt.TemplateDef = var_Bars
oG2antt.Template = "var_Bars.Def(6) = `...`"
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")
var_Items.AddBar(h,"Task",{01/08/2010},{01/11/2010},"C","C")
var_Items.GroupBars(h,"A",.f.,h,"B",.t.,39)
var_Items.GroupBars(h,"B",.f.,h,"C",.t.,39)
oG2antt.EndUpdate()
|
|
2251
|
I'd like to move itembars from one item to another, using .Chart.Bars("Task").Def(exBarCanMoveToAnother) = True this works for any new bar. The question is how can I specify this feature for bars already created
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 32
oG2antt.DrawGridLines = -2
oG2antt.GridLineStyle = 512
oG2antt.HeaderAppearance = 4
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.DrawGridLines = -2
var_Chart.GridLineStyle = 512
var_Chart.FirstVisibleDate = {01/01/2001}
' var_Chart.PaneWidth(.f.) = 48
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 48"
var_Chart.AllowLinkBars = .f.
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.OverlaidType = 4
' var_Bar.Def(3) = "only horizontal"
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(3) = `only horizontal`"
' var_Bar.Def(59) = 18
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(59) = 18"
' var_Bar.Def(28) = .t.
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(28) = True"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/03/2001},{01/05/2001},"A")
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",{01/04/2001},{01/06/2001},"B")
var_Items.AddBar(var_Items.AddItem("Item 3"),"Task",{01/03/2001},{01/05/2001},"C")
' var_Items.ItemBar(0,"<*>",28) = .f.
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemBar(0,`<*>`,28) = False"
oG2antt.EndUpdate()
|
|
2250
|
I'd like to move itembars from one item to another, using .Chart.Bars("Task").Def(exBarCanMoveToAnother) = True this works for any new bar. The question is can I disable this for particular item-bars
Dim h as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 32
oG2antt.DrawGridLines = -2
oG2antt.GridLineStyle = 512
oG2antt.HeaderAppearance = 4
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.DrawGridLines = -2
var_Chart.GridLineStyle = 512
var_Chart.FirstVisibleDate = {01/01/2001}
' var_Chart.PaneWidth(.f.) = 48
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 48"
var_Chart.AllowLinkBars = .f.
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.OverlaidType = 4
' var_Bar.Def(3) = "anywhere"
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(3) = `anywhere`"
' var_Bar.Def(59) = 18
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(59) = 18"
' var_Bar.Def(28) = .t.
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(28) = True"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/03/2001},{01/05/2001},"A")
h = var_Items.AddItem("Item 2")
var_Items.AddBar(h,"Task",{01/04/2001},{01/06/2001},"B","only horiontal")
' var_Items.ItemBar(h,"B",28) = .f.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`B`,28) = False"
var_Items.AddBar(var_Items.AddItem("Item 3"),"Task",{01/03/2001},{01/05/2001},"C")
oG2antt.EndUpdate()
|
|
2249
|
I need the top row to display months, while the second to show units in weeks, but can 10 by 10 days days. Is it possible
Dim oG2antt as P
Dim var_Chart as P
Dim var_Level as local
Dim var_Level1 as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 0
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 0"
var_Chart.DrawGridLines = 2
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.UnitWidth = 30
var_Chart.LevelCount = 2
' var_Chart.Level(0).Unit = 16
var_Level = var_Chart.Level(0)
oG2antt.TemplateDef = "dim var_Level"
oG2antt.TemplateDef = var_Level
oG2antt.Template = "var_Level.Unit = 16"
var_Level1 = var_Chart.Level(1)
var_Level1.Unit = 4096
var_Level1.Count = 10
oG2antt.EndUpdate()
|
|
2248
|
Limit the chart's margins when using the CopyTo method
Dim oG2antt as P
Dim var_Chart as P
Dim var_Chart1 as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Columns as P
Dim var_CopyTo as
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.MarkSearchColumn = .f.
var_Columns = oG2antt.Columns
var_Columns.Add("Tasks")
var_Column = var_Columns.Add("Start")
' var_Column.Def(18) = 1
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(18) = 1"
var_Column.Editor.EditType = 4
var_Column1 = var_Columns.Add("End")
' var_Column1.Def(18) = 2
oG2antt.TemplateDef = "dim var_Column1"
oG2antt.TemplateDef = var_Column1
oG2antt.Template = "var_Column1.Def(18) = 2"
var_Column1.Editor.EditType = 4
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 196
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 196"
var_Chart.LevelCount = 2
var_Chart.ShowEmptyBars = 1
var_Chart.FirstVisibleDate = {01/01/2009}
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = .t.
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{01/02/2009},{01/07/2009})
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{01/04/2009},{01/09/2009})
var_Chart1 = oG2antt.Chart
var_Chart1.StartPrintDate = {01/04/2009}
var_Chart1.EndPrintDate = {01/05/2009}
var_CopyTo = oG2antt.CopyTo("c:/temp/xtest.pdf")
? "Look for C:\Temp\xtest.pdf file."
oG2antt.EndUpdate()
|
|
2247
|
I want to always keep the bottom item stationary. It can always display even when scrolling vertically. The bar placed at the bottom item is must be movable to other items
Dim color as
Dim h as N
Dim oG2antt as P
Dim var_Bars as local
Dim var_Chart as P
Dim var_Chart1 as local
Dim var_Chart2 as local
Dim var_Chart3 as local
Dim var_Chart4 as local
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
color = 15790320
oG2antt.BeginUpdate()
oG2antt.Debug = .t.
oG2antt.HeaderVisible = 1
oG2antt.HeaderAppearance = 4
oG2antt.ShowLockedItems = .t.
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 128
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 128"
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/31/2015}
' var_Chart.Bars.Item("Task").Def(28) = .t.
var_Bars = var_Chart.Bars.Item("Task")
oG2antt.TemplateDef = "dim var_Bars"
oG2antt.TemplateDef = var_Bars
oG2antt.Template = "var_Bars.Def(28) = True"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
' var_Items.LockedItemCount(0) = 3
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.LockedItemCount(0) = 3"
h = var_Items.LockedItem(0,0)
' var_Items.ItemBackColor(h) = color
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBackColor(h) = color"
' oG2antt.Chart.ItemBackColor(h) = color
var_Chart1 = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart1"
oG2antt.TemplateDef = var_Chart1
oG2antt.Template = "Me.Chart.ItemBackColor(h) = color"
' var_Items.CellValue(h,0) = "locked-top 1"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,0) = `locked-top 1`"
var_Items.AddBar(h,"Task",{01/04/2016},{01/08/2016},"T1")
h = var_Items.LockedItem(0,1)
' var_Items.ItemBackColor(h) = color
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBackColor(h) = color"
' oG2antt.Chart.ItemBackColor(h) = color
var_Chart2 = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart2"
oG2antt.TemplateDef = var_Chart2
oG2antt.Template = "Me.Chart.ItemBackColor(h) = color"
' var_Items.CellValue(h,0) = "locked-top 2"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,0) = `locked-top 2`"
var_Items.AddBar(h,"Task",{01/05/2016},{01/09/2016},"T2")
h = var_Items.LockedItem(0,2)
' var_Items.SelectItem(h) = .f.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.SelectItem(h) = False"
' var_Items.ItemDivider(h) = 0
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemDivider(h) = 0"
' var_Items.ItemHeight(h) = 2
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemHeight(h) = 2"
var_Items.AddBar(var_Items.AddItem("un-locked item 1"),"Task",{01/04/2016},{01/08/2016},"T3")
var_Items.AddBar(var_Items.AddItem("un-locked item 2"),"Task",{01/05/2016},{01/09/2016},"T4")
' var_Items.LockedItemCount(1) = 3
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.LockedItemCount(1) = 3"
h = var_Items.LockedItem(1,0)
' var_Items.SelectItem(h) = .f.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.SelectItem(h) = False"
' var_Items.ItemDivider(h) = 0
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemDivider(h) = 0"
' var_Items.ItemHeight(h) = 2
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemHeight(h) = 2"
h = var_Items.LockedItem(1,1)
' var_Items.ItemBackColor(h) = color
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBackColor(h) = color"
' oG2antt.Chart.ItemBackColor(h) = color
var_Chart3 = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart3"
oG2antt.TemplateDef = var_Chart3
oG2antt.Template = "Me.Chart.ItemBackColor(h) = color"
' var_Items.CellValue(h,0) = "locked-bottom 1"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,0) = `locked-bottom 1`"
var_Items.AddBar(h,"Task",{01/04/2016},{01/08/2016},"T5")
h = var_Items.LockedItem(1,2)
' var_Items.ItemBackColor(h) = color
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBackColor(h) = color"
' oG2antt.Chart.ItemBackColor(h) = color
var_Chart4 = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart4"
oG2antt.TemplateDef = var_Chart4
oG2antt.Template = "Me.Chart.ItemBackColor(h) = color"
' var_Items.CellValue(h,0) = "locked-bottom 2"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,0) = `locked-bottom 2`"
var_Items.AddBar(h,"Task",{01/05/2016},{01/09/2016},"T6")
oG2antt.EndUpdate()
|
|
2246
|
How can I get a cell that shows the sum of a column of minutes in hours + minutes format
Dim h as N
Dim oG2antt as P
Dim var_Column as P
Dim var_Editor as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.HeaderAppearance = 4
var_Column = oG2antt.Columns.Add("Minutes")
var_Column.SortType = 1
var_Editor = var_Column.Editor
var_Editor.EditType = 1
var_Editor.Numeric = -1
var_Items = oG2antt.Items
var_Items.AddItem(10)
var_Items.AddItem(20)
var_Items.AddItem(30)
var_Items.AddItem(40)
var_Items.AddItem(50)
h = var_Items.AddItem("sum(all,dir,dbl(%0))")
' var_Items.SelectableItem(h) = .f.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.SelectableItem(h) = False"
' var_Items.SortableItem(h) = .f.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.SortableItem(h) = False"
' var_Items.CellValueFormat(h,0) = 5 'exTotalField + exHTML
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValueFormat(h,0) = 5"
' var_Items.CellHAlignment(h,0) = 2
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellHAlignment(h,0) = 2"
' var_Items.FormatCell(h,0) = "'<b>HH:NN</b>: '+ (int(value/60) lpad '00') + ':' + ((value mod 60) lpad '00')"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `'<b>HH:NN</b>: '+ (int(value/60) lpad '00') + ':' + ((value mod 60) lpad '00')`"
oG2antt.EndUpdate()
|
|
2245
|
Ensure that a bar fits the chart's visible area (unique keys)
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.HeaderAppearance = 4
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {03/26/2023}
var_Chart.LevelCount = 2
' var_Chart.PaneWidth(.f.) = 128
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 128"
oG2antt.Columns.Add("Tasks")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task A"),"Task",{01/02/2001},{01/12/2001},"T1")
var_Items.AddBar(var_Items.AddItem("Task B"),"Task",{01/20/2001},{01/31/2001},"T2")
var_Items.EnsureVisibleBar(0,"T1")
oG2antt.EndUpdate()
|
|
2244
|
Ensure that a bar fits the chart's visible area
Dim h1 as N
Dim h2 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.HeaderAppearance = 4
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {03/26/2023}
var_Chart.LevelCount = 2
' var_Chart.PaneWidth(.f.) = 128
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 128"
oG2antt.Columns.Add("Tasks")
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task A")
var_Items.AddBar(h1,"Task",{01/02/2001},{01/12/2001},"T1")
h2 = var_Items.AddItem("Task B")
var_Items.AddBar(h2,"Task",{01/20/2001},{01/31/2001},"T2")
var_Items.EnsureVisibleBar(h1,"T1")
oG2antt.EndUpdate()
|
|
2243
|
Is it possible to change the visual appearance for the frame to create newly bar by drag and drop
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oG2antt.Template = "Background(188) = 16777216" // oG2antt.Background(188) = 16777216
oG2antt.Template = "Background(189) = 15" // oG2antt.Background(189) = 15
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = 1
' var_Chart.PaneWidth(.f.) = 128
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 128"
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {01/01/2001}
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.Color = 16777216
var_Bar.Height = 15
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/07/2001})
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",{01/06/2001},{01/14/2001})
oG2antt.EndUpdate()
|
|
2242
|
Highlight the match once the filter is applied
' Occurs when the filter was changed.
function FilterChange as v ()
Dim format as
oG2antt = topparent:CONTROL_ACTIVEX1.activex
format = oG2antt.FormatABC("`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value + `</fgcolor></bgcolor>'`",oG2antt.FilterBarPromptPattern)
oG2antt.Columns.Item(0).FormatColumn = format
oG2antt.Columns.Item(1).FormatColumn = format
oG2antt.Columns.Item(2).FormatColumn = format
end function
Dim h0 as N
Dim oG2antt as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Columns as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.SelBackColor = oG2antt.BackColor
oG2antt.SelForeColor = oG2antt.ForeColor
oG2antt.ColumnAutoResize = .t.
oG2antt.ContinueColumnScroll = .f.
oG2antt.MarkSearchColumn = .f.
oG2antt.SearchColumnIndex = 1
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 23
oG2antt.BackColorLevelHeader = oG2antt.BackColor
oG2antt.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
oG2antt.FilterBarPromptVisible = 2055 'exFilterBarCompact + exFilterBarCaptionVisible + exFilterBarVisible + exFilterBarPromptVisible
oG2antt.FilterBarBackColor = oG2antt.BackColor
oG2antt.FilterBarPromptPattern = "and"
var_Columns = oG2antt.Columns
var_Column = var_Columns.Add("Name")
' var_Column.Def(17) = 1
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(17) = 1"
var_Column.FormatColumn = "lower(value)"
var_Column1 = var_Columns.Add("Title")
' var_Column1.Def(17) = 1
oG2antt.TemplateDef = "dim var_Column1"
oG2antt.TemplateDef = var_Column1
oG2antt.Template = "var_Column1.Def(17) = 1"
var_Column1.FormatColumn = "lower(value)"
var_Column2 = var_Columns.Add("City")
' var_Column2.Def(17) = 1
oG2antt.TemplateDef = "dim var_Column2"
oG2antt.TemplateDef = var_Column2
oG2antt.Template = "var_Column2.Def(17) = 1"
var_Column2.FormatColumn = "lower(value)"
var_Items = oG2antt.Items
h0 = var_Items.AddItem("Nancy Davolio")
' var_Items.CellValue(h0,1) = "Sales Representative"
oG2antt.TemplateDef = "dim var_Items,h0"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h0
oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"
' var_Items.CellValue(h0,2) = "Seattle"
oG2antt.TemplateDef = "dim var_Items,h0"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h0
oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"
h0 = var_Items.AddItem("Andrew Fuller")
' var_Items.CellValue(h0,1) = "Vice President, Sales"
oG2antt.TemplateDef = "dim var_Items,h0"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h0
oG2antt.Template = "var_Items.CellValue(h0,1) = `Vice President, Sales`"
' var_Items.CellValue(h0,2) = "Tacoma"
oG2antt.TemplateDef = "dim var_Items,h0"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h0
oG2antt.Template = "var_Items.CellValue(h0,2) = `Tacoma`"
' var_Items.SelectItem(h0) = .t.
oG2antt.TemplateDef = "dim var_Items,h0"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h0
oG2antt.Template = "var_Items.SelectItem(h0) = 1"
h0 = var_Items.AddItem("Janet Leverling")
' var_Items.CellValue(h0,1) = "Sales Representative"
oG2antt.TemplateDef = "dim var_Items,h0"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h0
oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"
' var_Items.CellValue(h0,2) = "Kirkland"
oG2antt.TemplateDef = "dim var_Items,h0"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h0
oG2antt.Template = "var_Items.CellValue(h0,2) = `Kirkland`"
h0 = var_Items.AddItem("Margaret Peacock")
' var_Items.CellValue(h0,1) = "Sales Representative"
oG2antt.TemplateDef = "dim var_Items,h0"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h0
oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"
' var_Items.CellValue(h0,2) = "Redmond"
oG2antt.TemplateDef = "dim var_Items,h0"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h0
oG2antt.Template = "var_Items.CellValue(h0,2) = `Redmond`"
h0 = var_Items.AddItem("Steven Buchanan")
' var_Items.CellValue(h0,1) = "Sales Manager"
oG2antt.TemplateDef = "dim var_Items,h0"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h0
oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Manager`"
' var_Items.CellValue(h0,2) = "London"
oG2antt.TemplateDef = "dim var_Items,h0"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h0
oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"
h0 = var_Items.AddItem("Michael Suyama")
' var_Items.CellValue(h0,1) = "Sales Representative"
oG2antt.TemplateDef = "dim var_Items,h0"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h0
oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"
' var_Items.CellValue(h0,2) = "London"
oG2antt.TemplateDef = "dim var_Items,h0"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h0
oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"
h0 = var_Items.AddItem("Robert King")
' var_Items.CellValue(h0,1) = "Sales Representative"
oG2antt.TemplateDef = "dim var_Items,h0"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h0
oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"
' var_Items.CellValue(h0,2) = "London"
oG2antt.TemplateDef = "dim var_Items,h0"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h0
oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"
h0 = var_Items.AddItem("Laura Callahan")
' var_Items.CellValue(h0,1) = "Inside Sales Coordinator"
oG2antt.TemplateDef = "dim var_Items,h0"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h0
oG2antt.Template = "var_Items.CellValue(h0,1) = `Inside Sales Coordinator`"
' var_Items.CellValue(h0,2) = "Seattle"
oG2antt.TemplateDef = "dim var_Items,h0"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h0
oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"
h0 = var_Items.AddItem("Anne Dodsworth")
' var_Items.CellValue(h0,1) = "Sales Representative"
oG2antt.TemplateDef = "dim var_Items,h0"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h0
oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"
' var_Items.CellValue(h0,2) = "London"
oG2antt.TemplateDef = "dim var_Items,h0"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h0
oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"
oG2antt.EndUpdate()
|
|
2241
|
The count of filtered items includes the group-parents. How can I exclude them from count
Dim oG2antt as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.DrawGridLines = 2
oG2antt.HeaderAppearance = 1
oG2antt.HeaderHeight = 24
oG2antt.SortBarHeight = 28
oG2antt.SortBarVisible = .t.
oG2antt.AllowGroupBy = .t.
oG2antt.Columns.Add("Col 1")
oG2antt.Columns.Add("Col 2")
var_Items = oG2antt.Items
' var_Items.CellValue(var_Items.AddItem("219 Smith"),1) = "Ignacio 1234"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.CellValue(AddItem(`219 Smith`),1) = `Ignacio 1234`"
' var_Items.CellValue(var_Items.AddItem("1666 County Road 309A"),1) = "897 Manassa"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.CellValue(AddItem(`1666 County Road 309A`),1) = `897 Manassa`"
' var_Items.CellValue(var_Items.AddItem("38 Lone Pine"),1) = "Durango 11"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.CellValue(AddItem(`38 Lone Pine`),1) = `Durango 11`"
' var_Items.CellValue(var_Items.AddItem("612 Jachim Street"),1) = "Lamar 222"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.CellValue(AddItem(`612 Jachim Street`),1) = `Lamar 222`"
oG2antt.Layout = "MultipleSort=\"C1:1\""
oG2antt.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? leafitemcount + ` result(s)` : ``)"
oG2antt.FilterBarPromptVisible = 2055 'exFilterBarCompact + exFilterBarCaptionVisible + exFilterBarVisible + exFilterBarPromptVisible
oG2antt.FilterBarPromptType = 257 'exFilterPromptCaseSensitive + exFilterPromptContainsAll
oG2antt.FilterBarPromptPattern = "12"
oG2antt.FilterBarBackColor = oG2antt.BackColor
oG2antt.EndUpdate()
|
|
2240
|
Is it possible to display the count of filtered items
Dim oG2antt as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.DrawGridLines = 2
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 24
oG2antt.Columns.Add("Col 1")
oG2antt.Columns.Add("Col 2")
var_Items = oG2antt.Items
' var_Items.CellValue(var_Items.AddItem("219 Smith"),1) = "Ignacio 1234"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.CellValue(AddItem(`219 Smith`),1) = `Ignacio 1234`"
' var_Items.CellValue(var_Items.AddItem("1666 County Road 309A"),1) = "897 Manassa"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.CellValue(AddItem(`1666 County Road 309A`),1) = `897 Manassa`"
' var_Items.CellValue(var_Items.AddItem("38 Lone Pine"),1) = "Durango 11"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.CellValue(AddItem(`38 Lone Pine`),1) = `Durango 11`"
' var_Items.CellValue(var_Items.AddItem("612 Jachim Street"),1) = "Lamar 222"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.CellValue(AddItem(`612 Jachim Street`),1) = `Lamar 222`"
oG2antt.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
oG2antt.FilterBarPromptVisible = 2055 'exFilterBarCompact + exFilterBarCaptionVisible + exFilterBarVisible + exFilterBarPromptVisible
oG2antt.FilterBarPromptType = 257 'exFilterPromptCaseSensitive + exFilterPromptContainsAll
oG2antt.FilterBarPromptPattern = "12"
oG2antt.FilterBarBackColor = oG2antt.BackColor
oG2antt.EndUpdate()
|
|
2239
|
ADOR, MDB (JET)
' Occurs after a new Item has been inserted to Items collection.
function AddItem as v (Item as OLE::Exontrol.G2antt.1::HITEM)
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
var_Items = oG2antt.Items
var_Items.AddBar(Item,"Task",var_Items.CellValue(Item,2),var_Items.CellValue(Item,4))
end function
Dim oG2antt as P
Dim rs as P
Dim var_Chart as P
Dim var_Columns as local
Dim var_Columns1 as local
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ColumnAutoResize = .f.
rs = OLE.Create("ADOR.Recordset")
rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.mdb",3,3)
oG2antt.DataSource = rs
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {08/04/1994}
var_Chart.LevelCount = 2
' var_Chart.PaneWidth(.f.) = 256
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 256"
oG2antt.Items.AllowCellValueToItemBar = .t.
' oG2antt.Columns.Item(2).Def(18) = 1
var_Columns = oG2antt.Columns.Item(2)
oG2antt.TemplateDef = "dim var_Columns"
oG2antt.TemplateDef = var_Columns
oG2antt.Template = "var_Columns.Def(18) = 1"
' oG2antt.Columns.Item(4).Def(18) = 2
var_Columns1 = oG2antt.Columns.Item(4)
oG2antt.TemplateDef = "dim var_Columns1"
oG2antt.TemplateDef = var_Columns1
oG2antt.Template = "var_Columns1.Def(18) = 2"
oG2antt.EndUpdate()
|
|
2238
|
exOverlaidBarsOffset + exOverlaidBarTransparent + exBarCanMoveToAnother
Dim h as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 22
oG2antt.DrawGridLines = -2
oG2antt.GridLineStyle = 512
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.DrawGridLines = -2
var_Chart.GridLineStyle = 512
var_Chart.ResizeUnitScale = 65536
' var_Chart.PaneWidth(.f.) = 48
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 48"
var_Chart.FirstVisibleDate = {01/01/2001}
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.OverlaidType = 257 'exOverlaidBarsTransparent + exOverlaidBarsOffset
' var_Bar.Overlaid(256) = 70
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Overlaid(256) = 70"
' var_Bar.Def(28) = .t.
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(28) = True"
oG2antt.ItemsAllowSizing = -1
var_Items = oG2antt.Items
' var_Items.SelectableItem(var_Items.AddItem()) = .f.
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.SelectableItem(AddItem()) = False"
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/02/2001},{01/04/2001},"A1")
var_Items.AddBar(h,"Task",{01/03/2001},{01/05/2001},"A2")
var_Items.AddBar(h,"Task",{01/04/2001},{01/07/2001},"A3")
' var_Items.ItemHeight(h) = 64
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemHeight(h) = 64"
h = var_Items.AddItem("Task 2")
var_Items.AddBar(h,"Task",{01/07/2001},{01/10/2001},"A4")
var_Items.AddBar(h,"Task",{01/08/2001},{01/12/2001},"A5")
' var_Items.SelectableItem(var_Items.AddItem()) = .f.
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.SelectableItem(AddItem()) = False"
oG2antt.EndUpdate()
|
|
2237
|
Editors (ImageSize = 32)
Dim h as N
Dim oG2antt as P
Dim rs as P
Dim var_Appearance as P
Dim var_Column as local
Dim var_ComboBox as P
Dim var_Editor as local
Dim var_Editor1 as local
Dim var_Editor10 as P
Dim var_Editor11 as P
Dim var_Editor12 as local
Dim var_Editor13 as local
Dim var_Editor14 as local
Dim var_Editor15 as local
Dim var_Editor16 as P
Dim var_Editor17 as local
Dim var_Editor18 as P
Dim var_Editor19 as P
Dim var_Editor2 as P
Dim var_Editor20 as local
Dim var_Editor21 as local
Dim var_Editor22 as P
Dim var_Editor23 as P
Dim var_Editor24 as local
Dim var_Editor3 as P
Dim var_Editor4 as P
Dim var_Editor5 as P
Dim var_Editor6 as P
Dim var_Editor7 as local
Dim var_Editor8 as local
Dim var_Editor9 as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ImageSize = 32
oG2antt.DefaultItemHeight = 36
oG2antt.HeaderHeight = oG2antt.DefaultItemHeight
oG2antt.SortBarHeight = oG2antt.DefaultItemHeight
oG2antt.Font.Size = 16
oG2antt.FilterBarFont.Size = oG2antt.Font.Size
oG2antt.ToolTipFont.Size = oG2antt.Font.Size
oG2antt.Indent = 26
oG2antt.Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWRJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
var_Appearance = oG2antt.VisualAppearance
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==")
var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4gaBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==")
var_Appearance.Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjVHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=")
var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
oG2antt.BackColorHeader = 80135878
oG2antt.SelBackColor = 67108864
oG2antt.SelForeColor = 65536
oG2antt.ShowFocusRect = .f.
oG2antt.Template = "CheckImage(0) = 16777216" // oG2antt.CheckImage(0) = 16777216
oG2antt.Template = "CheckImage(1) = 33554432" // oG2antt.CheckImage(1) = 33554432
oG2antt.Template = "CheckImage(2) = 50331648" // oG2antt.CheckImage(2) = 50331648
' oG2antt.Columns.Add("Editors").Def(17) = 1
var_Column = oG2antt.Columns.Add("Editors")
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(17) = 1"
var_Items = oG2antt.Items
' var_Items.CellEditor(var_Items.AddItem("(ReadOnly)"),0).EditType = 0
var_Editor = var_Items.CellEditor(var_Items.AddItem("(ReadOnly)"),0)
oG2antt.TemplateDef = "dim var_Editor"
oG2antt.TemplateDef = var_Editor
oG2antt.Template = "var_Editor.EditType = 0"
' var_Items.CellEditor(var_Items.AddItem("(EditType)"),0).EditType = 1
var_Editor1 = var_Items.CellEditor(var_Items.AddItem("(EditType)"),0)
oG2antt.TemplateDef = "dim var_Editor1"
oG2antt.TemplateDef = var_Editor1
oG2antt.Template = "var_Editor1.EditType = 1"
h = var_Items.AddItem("Value 1")
var_Editor2 = var_Items.CellEditor(h,0)
var_Editor2.EditType = 2
var_Editor2.AddItem(1,"Value 1",1)
var_Editor2.AddItem(2,"Value 2",2)
var_Editor2.AddItem(3,"Value 3",3)
' var_Items.FormatCell(h,0) = "value + ' (DropDownType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (DropDownType)'`"
h = var_Items.AddItem(1)
var_Editor3 = var_Items.CellEditor(h,0)
var_Editor3.EditType = 3
var_Editor3.DropDownAutoWidth = 0
var_Editor3.AddItem(1,"Nancy Davolio",1)
var_Editor3.AddItem(2,"Andrew Fuller",2)
var_Editor3.AddItem(3,"Janet Leverling",3)
var_Editor3.AddItem(4,"Peacock Margaret",3)
var_Editor3.AddItem(5,"Steven Buchanan",2)
var_Editor3.AddItem(6,"Michael Suyama",1)
var_Editor3.AddItem(7,"Robert King",2)
var_Editor3.AddItem(8,"Laura Callahan",3)
var_Editor3.AddItem(9,"Anne Dodsworth",2)
' var_Items.FormatCell(h,0) = "value + ' (DropDownList - single column list)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (DropDownList - single column list)'`"
h = var_Items.AddItem(1)
var_Editor4 = var_Items.CellEditor(h,0)
var_Editor4.EditType = 3
var_Editor4.DropDownAutoWidth = 0
var_Editor4.AddItem(1,"Nancy Davolio",1)
var_Editor4.AddItem(2,"Andrew Fuller",2)
var_Editor4.InsertItem(3,"Janet Leverling",3,2)
var_Editor4.InsertItem(4,"Peacock Margaret",3,2)
var_Editor4.InsertItem(5,"Steven Buchanan",2,2)
var_Editor4.InsertItem(6,"Michael Suyama",1,5)
var_Editor4.InsertItem(7,"Robert King",2,2)
var_Editor4.InsertItem(8,"Laura Callahan",3,2)
var_Editor4.InsertItem(9,"Anne Dodsworth",2,5)
var_Editor4.ExpandAll()
' var_Items.FormatCell(h,0) = "value + ' (DropDownList - single column tree)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (DropDownList - single column tree)'`"
h = var_Items.AddItem(1)
var_Editor5 = var_Items.CellEditor(h,0)
var_Editor5.EditType = 3
var_Editor5.DropDownAutoWidth = 0
' var_Editor5.Option(57) = "Name¦Title¦City¦Phone"
oG2antt.TemplateDef = "dim var_Editor5"
oG2antt.TemplateDef = var_Editor5
oG2antt.Template = "var_Editor5.Option(57) = `Name¦Title¦City¦Phone`"
' var_Editor5.Option(58) = "312¦¦¦96"
oG2antt.TemplateDef = "dim var_Editor5"
oG2antt.TemplateDef = var_Editor5
oG2antt.Template = "var_Editor5.Option(58) = `312¦¦¦96`"
var_Editor5.AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
var_Editor5.AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
var_Editor5.AddItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3)
var_Editor5.AddItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3)
var_Editor5.AddItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2)
var_Editor5.AddItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1)
var_Editor5.AddItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2)
var_Editor5.AddItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3)
var_Editor5.AddItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2)
' var_Items.FormatCell(h,0) = "value + ' (DropDownList - multiple columns list)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (DropDownList - multiple columns list)'`"
h = var_Items.AddItem(1)
var_Editor6 = var_Items.CellEditor(h,0)
var_Editor6.EditType = 3
var_Editor6.DropDownAutoWidth = 0
' var_Editor6.Option(57) = "Name¦Title¦City¦Phone"
oG2antt.TemplateDef = "dim var_Editor6"
oG2antt.TemplateDef = var_Editor6
oG2antt.Template = "var_Editor6.Option(57) = `Name¦Title¦City¦Phone`"
' var_Editor6.Option(58) = "312¦¦¦96"
oG2antt.TemplateDef = "dim var_Editor6"
oG2antt.TemplateDef = var_Editor6
oG2antt.Template = "var_Editor6.Option(58) = `312¦¦¦96`"
var_Editor6.AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
var_Editor6.AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
var_Editor6.InsertItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3,2)
var_Editor6.InsertItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3,2)
var_Editor6.InsertItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2,2)
var_Editor6.InsertItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1,5)
var_Editor6.InsertItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2,2)
var_Editor6.InsertItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3,2)
var_Editor6.InsertItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2,5)
var_Editor6.ExpandAll()
' var_Items.FormatCell(h,0) = "value + ' (DropDownList - multiple columns tree)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (DropDownList - multiple columns tree)'`"
h = var_Items.AddItem(100)
' var_Items.CellEditor(h,0).EditType = 4
var_Editor7 = var_Items.CellEditor(h,0)
oG2antt.TemplateDef = "dim var_Editor7"
oG2antt.TemplateDef = var_Editor7
oG2antt.Template = "var_Editor7.EditType = 4"
' var_Items.FormatCell(h,0) = "value + ' (SpinType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (SpinType)'`"
' var_Items.CellEditor(var_Items.AddItem("(MemoType)"),0).EditType = 5
var_Editor8 = var_Items.CellEditor(var_Items.AddItem("(MemoType)"),0)
oG2antt.TemplateDef = "dim var_Editor8"
oG2antt.TemplateDef = var_Editor8
oG2antt.Template = "var_Editor8.EditType = 5"
h = var_Items.AddItem(3)
var_Editor9 = var_Items.CellEditor(h,0)
var_Editor9.EditType = 6
var_Editor9.AddItem(1,"Border",1)
var_Editor9.AddItem(2,"Single",2)
var_Editor9.AddItem(4,"Frame",3)
' var_Items.FormatCell(h,0) = "value + ' (CheckListType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (CheckListType)'`"
h = var_Items.AddItem("193.226.40.161")
var_Editor10 = var_Items.CellEditor(h,0)
var_Editor10.Mask = "{0,255}.{0,255}.{0,255}.{0,255}"
var_Editor10.EditType = 8
' var_Items.FormatCell(h,0) = "value + ' (MaskType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (MaskType)'`"
h = var_Items.AddItem(65280)
var_Editor11 = var_Items.CellEditor(h,0)
var_Editor11.EditType = 9
var_Editor11.Mask = "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
' var_Items.FormatCell(h,0) = "value + ' (ColorType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (ColorType)'`"
h = var_Items.AddItem("Tahoma")
' var_Items.CellEditor(h,0).EditType = 10
var_Editor12 = var_Items.CellEditor(h,0)
oG2antt.TemplateDef = "dim var_Editor12"
oG2antt.TemplateDef = var_Editor12
oG2antt.Template = "var_Editor12.EditType = 10"
' var_Items.FormatCell(h,0) = "value + ' (FontType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (FontType)'`"
h = var_Items.AddItem("gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWamYyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDAwBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQG4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYABGQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyCAAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATFASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CAJDQNg/p4AAdoC")
' var_Items.CellEditor(h,0).EditType = 11
var_Editor13 = var_Items.CellEditor(h,0)
oG2antt.TemplateDef = "dim var_Editor13"
oG2antt.TemplateDef = var_Editor13
oG2antt.Template = "var_Editor13.EditType = 11"
' var_Items.FormatCell(h,0) = "value + ' (PictureType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (PictureType)'`"
' var_Items.CellEditor(var_Items.AddItem("(ButtonType)"),0).EditType = 12
var_Editor14 = var_Items.CellEditor(var_Items.AddItem("(ButtonType)"),0)
oG2antt.TemplateDef = "dim var_Editor14"
oG2antt.TemplateDef = var_Editor14
oG2antt.Template = "var_Editor14.EditType = 12"
h = var_Items.AddItem(25)
' var_Items.CellEditor(h,0).EditType = 13
var_Editor15 = var_Items.CellEditor(h,0)
oG2antt.TemplateDef = "dim var_Editor15"
oG2antt.TemplateDef = var_Editor15
oG2antt.Template = "var_Editor15.EditType = 13"
' var_Items.FormatCell(h,0) = "value + ' (ProgressBarType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (ProgressBarType)'`"
h = var_Items.AddItem("Value 1")
var_Editor16 = var_Items.CellEditor(h,0)
var_Editor16.EditType = 14
var_Editor16.AddItem(1,"Value 1",1)
var_Editor16.AddItem(2,"Value 2",2)
var_Editor16.AddItem(3,"Value 3",3)
' var_Items.FormatCell(h,0) = "value + ' (PickEditType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (PickEditType)'`"
' var_Items.CellEditor(var_Items.AddItem("(LinkEditType)"),0).EditType = 15
var_Editor17 = var_Items.CellEditor(var_Items.AddItem("(LinkEditType)"),0)
oG2antt.TemplateDef = "dim var_Editor17"
oG2antt.TemplateDef = var_Editor17
oG2antt.Template = "var_Editor17.EditType = 15"
var_Editor18 = var_Items.CellEditor(var_Items.AddItem("(UserEditorType)"),0)
var_Editor18.EditType = 16
var_Editor18.UserEditor("Exontrol.ComboBox","")
var_ComboBox = var_Editor18.UserEditorObject
var_ComboBox.BeginUpdate()
var_ComboBox.LabelHeight = oG2antt.DefaultItemHeight
var_ComboBox.Style = 2
var_ComboBox.ColumnAutoResize = .f.
rs = OLE.Create("ADOR.Recordset")
rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
var_ComboBox.DataSource = rs
var_ComboBox.MinHeightList = 128
var_ComboBox.SearchColumnIndex = 0
var_ComboBox.UseTabKey = .f.
var_ComboBox.EndUpdate()
h = var_Items.AddItem(255)
var_Editor19 = var_Items.CellEditor(h,0)
var_Editor19.EditType = 17
' var_Editor19.Option(4) = .t.
oG2antt.TemplateDef = "dim var_Editor19"
oG2antt.TemplateDef = var_Editor19
oG2antt.Template = "var_Editor19.Option(4) = True"
' var_Items.FormatCell(h,0) = "value + ' (ColorListType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (ColorListType)'`"
' var_Items.CellEditor(var_Items.AddItem(65280),0).EditType = 17
var_Editor20 = var_Items.CellEditor(var_Items.AddItem(65280),0)
oG2antt.TemplateDef = "dim var_Editor20"
oG2antt.TemplateDef = var_Editor20
oG2antt.Template = "var_Editor20.EditType = 17"
' var_Items.CellEditor(var_Items.AddItem("(MemoDropDownType)"),0).EditType = 18
var_Editor21 = var_Items.CellEditor(var_Items.AddItem("(MemoDropDownType)"),0)
oG2antt.TemplateDef = "dim var_Editor21"
oG2antt.TemplateDef = var_Editor21
oG2antt.Template = "var_Editor21.EditType = 18"
var_Editor22 = var_Items.CellEditor(var_Items.AddItem(-1),0)
var_Editor22.EditType = 19
' var_Editor22.Option(17) = 1
oG2antt.TemplateDef = "dim var_Editor22"
oG2antt.TemplateDef = var_Editor22
oG2antt.Template = "var_Editor22.Option(17) = 1"
h = var_Items.AddItem(50)
var_Editor23 = var_Items.CellEditor(h,0)
var_Editor23.EditType = 20
' var_Editor23.Option(41) = -60
oG2antt.TemplateDef = "dim var_Editor23"
oG2antt.TemplateDef = var_Editor23
oG2antt.Template = "var_Editor23.Option(41) = -60"
' var_Editor23.Option(53) = 10
oG2antt.TemplateDef = "dim var_Editor23"
oG2antt.TemplateDef = var_Editor23
oG2antt.Template = "var_Editor23.Option(53) = 10"
' var_Editor23.Option(63) = 2
oG2antt.TemplateDef = "dim var_Editor23"
oG2antt.TemplateDef = var_Editor23
oG2antt.Template = "var_Editor23.Option(63) = 2"
' var_Items.FormatCell(h,0) = "value + ' (SliderType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (SliderType)'`"
h = var_Items.AddItem(100)
' var_Items.CellEditor(h,0).EditType = 21
var_Editor24 = var_Items.CellEditor(h,0)
oG2antt.TemplateDef = "dim var_Editor24"
oG2antt.TemplateDef = var_Editor24
oG2antt.Template = "var_Editor24.EditType = 21"
' var_Items.FormatCell(h,0) = "value + ' (CalculatorType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (CalculatorType)'`"
var_Items.EnsureVisibleItem(h)
oG2antt.EndUpdate()
|
|
2236
|
Editors (ImageSize = 16, default)
Dim h as N
Dim oG2antt as P
Dim rs as P
Dim var_Appearance as P
Dim var_Column as local
Dim var_ComboBox as P
Dim var_Editor as local
Dim var_Editor1 as local
Dim var_Editor10 as P
Dim var_Editor11 as P
Dim var_Editor12 as local
Dim var_Editor13 as local
Dim var_Editor14 as local
Dim var_Editor15 as local
Dim var_Editor16 as P
Dim var_Editor17 as local
Dim var_Editor18 as P
Dim var_Editor19 as P
Dim var_Editor2 as P
Dim var_Editor20 as local
Dim var_Editor21 as local
Dim var_Editor22 as P
Dim var_Editor23 as P
Dim var_Editor24 as local
Dim var_Editor3 as P
Dim var_Editor4 as P
Dim var_Editor5 as P
Dim var_Editor6 as P
Dim var_Editor7 as local
Dim var_Editor8 as local
Dim var_Editor9 as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ImageSize = 16
oG2antt.Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
var_Appearance = oG2antt.VisualAppearance
var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
' oG2antt.Columns.Add("Editors").Def(17) = 1
var_Column = oG2antt.Columns.Add("Editors")
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(17) = 1"
var_Items = oG2antt.Items
' var_Items.CellEditor(var_Items.AddItem("(ReadOnly)"),0).EditType = 0
var_Editor = var_Items.CellEditor(var_Items.AddItem("(ReadOnly)"),0)
oG2antt.TemplateDef = "dim var_Editor"
oG2antt.TemplateDef = var_Editor
oG2antt.Template = "var_Editor.EditType = 0"
' var_Items.CellEditor(var_Items.AddItem("(EditType)"),0).EditType = 1
var_Editor1 = var_Items.CellEditor(var_Items.AddItem("(EditType)"),0)
oG2antt.TemplateDef = "dim var_Editor1"
oG2antt.TemplateDef = var_Editor1
oG2antt.Template = "var_Editor1.EditType = 1"
h = var_Items.AddItem("Value 1")
var_Editor2 = var_Items.CellEditor(h,0)
var_Editor2.EditType = 2
var_Editor2.AddItem(1,"Value 1",1)
var_Editor2.AddItem(2,"Value 2",2)
var_Editor2.AddItem(3,"Value 3",3)
' var_Items.FormatCell(h,0) = "value + ' (DropDownType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (DropDownType)'`"
h = var_Items.AddItem(1)
var_Editor3 = var_Items.CellEditor(h,0)
var_Editor3.EditType = 3
var_Editor3.DropDownAutoWidth = 0
var_Editor3.AddItem(1,"Nancy Davolio",1)
var_Editor3.AddItem(2,"Andrew Fuller",2)
var_Editor3.AddItem(3,"Janet Leverling",3)
var_Editor3.AddItem(4,"Peacock Margaret",3)
var_Editor3.AddItem(5,"Steven Buchanan",2)
var_Editor3.AddItem(6,"Michael Suyama",1)
var_Editor3.AddItem(7,"Robert King",2)
var_Editor3.AddItem(8,"Laura Callahan",3)
var_Editor3.AddItem(9,"Anne Dodsworth",2)
' var_Items.FormatCell(h,0) = "value + ' (DropDownList - single column list)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (DropDownList - single column list)'`"
h = var_Items.AddItem(1)
var_Editor4 = var_Items.CellEditor(h,0)
var_Editor4.EditType = 3
var_Editor4.DropDownAutoWidth = 0
var_Editor4.AddItem(1,"Nancy Davolio",1)
var_Editor4.AddItem(2,"Andrew Fuller",2)
var_Editor4.InsertItem(3,"Janet Leverling",3,2)
var_Editor4.InsertItem(4,"Peacock Margaret",3,2)
var_Editor4.InsertItem(5,"Steven Buchanan",2,2)
var_Editor4.InsertItem(6,"Michael Suyama",1,5)
var_Editor4.InsertItem(7,"Robert King",2,2)
var_Editor4.InsertItem(8,"Laura Callahan",3,2)
var_Editor4.InsertItem(9,"Anne Dodsworth",2,5)
var_Editor4.ExpandAll()
' var_Items.FormatCell(h,0) = "value + ' (DropDownList - single column tree)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (DropDownList - single column tree)'`"
h = var_Items.AddItem(1)
var_Editor5 = var_Items.CellEditor(h,0)
var_Editor5.EditType = 3
var_Editor5.DropDownAutoWidth = 0
' var_Editor5.Option(57) = "Name¦Title¦City¦Phone"
oG2antt.TemplateDef = "dim var_Editor5"
oG2antt.TemplateDef = var_Editor5
oG2antt.Template = "var_Editor5.Option(57) = `Name¦Title¦City¦Phone`"
' var_Editor5.Option(58) = "312¦¦¦96"
oG2antt.TemplateDef = "dim var_Editor5"
oG2antt.TemplateDef = var_Editor5
oG2antt.Template = "var_Editor5.Option(58) = `312¦¦¦96`"
var_Editor5.AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
var_Editor5.AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
var_Editor5.AddItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3)
var_Editor5.AddItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3)
var_Editor5.AddItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2)
var_Editor5.AddItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1)
var_Editor5.AddItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2)
var_Editor5.AddItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3)
var_Editor5.AddItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2)
' var_Items.FormatCell(h,0) = "value + ' (DropDownList - multiple columns list)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (DropDownList - multiple columns list)'`"
h = var_Items.AddItem(1)
var_Editor6 = var_Items.CellEditor(h,0)
var_Editor6.EditType = 3
var_Editor6.DropDownAutoWidth = 0
' var_Editor6.Option(57) = "Name¦Title¦City¦Phone"
oG2antt.TemplateDef = "dim var_Editor6"
oG2antt.TemplateDef = var_Editor6
oG2antt.Template = "var_Editor6.Option(57) = `Name¦Title¦City¦Phone`"
' var_Editor6.Option(58) = "312¦¦¦96"
oG2antt.TemplateDef = "dim var_Editor6"
oG2antt.TemplateDef = var_Editor6
oG2antt.Template = "var_Editor6.Option(58) = `312¦¦¦96`"
var_Editor6.AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
var_Editor6.AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
var_Editor6.InsertItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3,2)
var_Editor6.InsertItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3,2)
var_Editor6.InsertItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2,2)
var_Editor6.InsertItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1,5)
var_Editor6.InsertItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2,2)
var_Editor6.InsertItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3,2)
var_Editor6.InsertItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2,5)
var_Editor6.ExpandAll()
' var_Items.FormatCell(h,0) = "value + ' (DropDownList - multiple columns tree)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (DropDownList - multiple columns tree)'`"
h = var_Items.AddItem(100)
' var_Items.CellEditor(h,0).EditType = 4
var_Editor7 = var_Items.CellEditor(h,0)
oG2antt.TemplateDef = "dim var_Editor7"
oG2antt.TemplateDef = var_Editor7
oG2antt.Template = "var_Editor7.EditType = 4"
' var_Items.FormatCell(h,0) = "value + ' (SpinType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (SpinType)'`"
' var_Items.CellEditor(var_Items.AddItem("(MemoType)"),0).EditType = 5
var_Editor8 = var_Items.CellEditor(var_Items.AddItem("(MemoType)"),0)
oG2antt.TemplateDef = "dim var_Editor8"
oG2antt.TemplateDef = var_Editor8
oG2antt.Template = "var_Editor8.EditType = 5"
h = var_Items.AddItem(3)
var_Editor9 = var_Items.CellEditor(h,0)
var_Editor9.EditType = 6
var_Editor9.AddItem(1,"Border",1)
var_Editor9.AddItem(2,"Single",2)
var_Editor9.AddItem(4,"Frame",3)
' var_Items.FormatCell(h,0) = "value + ' (CheckListType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (CheckListType)'`"
h = var_Items.AddItem("193.226.40.161")
var_Editor10 = var_Items.CellEditor(h,0)
var_Editor10.Mask = "{0,255}.{0,255}.{0,255}.{0,255}"
var_Editor10.EditType = 8
' var_Items.FormatCell(h,0) = "value + ' (MaskType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (MaskType)'`"
h = var_Items.AddItem(65280)
var_Editor11 = var_Items.CellEditor(h,0)
var_Editor11.EditType = 9
var_Editor11.Mask = "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
' var_Items.FormatCell(h,0) = "value + ' (ColorType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (ColorType)'`"
h = var_Items.AddItem("Tahoma")
' var_Items.CellEditor(h,0).EditType = 10
var_Editor12 = var_Items.CellEditor(h,0)
oG2antt.TemplateDef = "dim var_Editor12"
oG2antt.TemplateDef = var_Editor12
oG2antt.Template = "var_Editor12.EditType = 10"
' var_Items.FormatCell(h,0) = "value + ' (FontType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (FontType)'`"
h = var_Items.AddItem("gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWamYyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDAwBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQG4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYABGQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyCAAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATFASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CAJDQNg/p4AAdoC")
' var_Items.CellEditor(h,0).EditType = 11
var_Editor13 = var_Items.CellEditor(h,0)
oG2antt.TemplateDef = "dim var_Editor13"
oG2antt.TemplateDef = var_Editor13
oG2antt.Template = "var_Editor13.EditType = 11"
' var_Items.FormatCell(h,0) = "value + ' (PictureType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (PictureType)'`"
' var_Items.CellEditor(var_Items.AddItem("(ButtonType)"),0).EditType = 12
var_Editor14 = var_Items.CellEditor(var_Items.AddItem("(ButtonType)"),0)
oG2antt.TemplateDef = "dim var_Editor14"
oG2antt.TemplateDef = var_Editor14
oG2antt.Template = "var_Editor14.EditType = 12"
h = var_Items.AddItem(25)
' var_Items.CellEditor(h,0).EditType = 13
var_Editor15 = var_Items.CellEditor(h,0)
oG2antt.TemplateDef = "dim var_Editor15"
oG2antt.TemplateDef = var_Editor15
oG2antt.Template = "var_Editor15.EditType = 13"
' var_Items.FormatCell(h,0) = "value + ' (ProgressBarType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (ProgressBarType)'`"
h = var_Items.AddItem("Value 1")
var_Editor16 = var_Items.CellEditor(h,0)
var_Editor16.EditType = 14
var_Editor16.AddItem(1,"Value 1",1)
var_Editor16.AddItem(2,"Value 2",2)
var_Editor16.AddItem(3,"Value 3",3)
' var_Items.FormatCell(h,0) = "value + ' (PickEditType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (PickEditType)'`"
' var_Items.CellEditor(var_Items.AddItem("(LinkEditType)"),0).EditType = 15
var_Editor17 = var_Items.CellEditor(var_Items.AddItem("(LinkEditType)"),0)
oG2antt.TemplateDef = "dim var_Editor17"
oG2antt.TemplateDef = var_Editor17
oG2antt.Template = "var_Editor17.EditType = 15"
var_Editor18 = var_Items.CellEditor(var_Items.AddItem("(UserEditorType)"),0)
var_Editor18.EditType = 16
var_Editor18.UserEditor("Exontrol.ComboBox","")
var_ComboBox = var_Editor18.UserEditorObject
var_ComboBox.BeginUpdate()
var_ComboBox.LabelHeight = oG2antt.DefaultItemHeight
var_ComboBox.Style = 2
var_ComboBox.ColumnAutoResize = .f.
rs = OLE.Create("ADOR.Recordset")
rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
var_ComboBox.DataSource = rs
var_ComboBox.MinHeightList = 128
var_ComboBox.SearchColumnIndex = 0
var_ComboBox.UseTabKey = .f.
var_ComboBox.EndUpdate()
h = var_Items.AddItem(255)
var_Editor19 = var_Items.CellEditor(h,0)
var_Editor19.EditType = 17
' var_Editor19.Option(4) = .t.
oG2antt.TemplateDef = "dim var_Editor19"
oG2antt.TemplateDef = var_Editor19
oG2antt.Template = "var_Editor19.Option(4) = True"
' var_Items.FormatCell(h,0) = "value + ' (ColorListType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (ColorListType)'`"
' var_Items.CellEditor(var_Items.AddItem(65280),0).EditType = 17
var_Editor20 = var_Items.CellEditor(var_Items.AddItem(65280),0)
oG2antt.TemplateDef = "dim var_Editor20"
oG2antt.TemplateDef = var_Editor20
oG2antt.Template = "var_Editor20.EditType = 17"
' var_Items.CellEditor(var_Items.AddItem("(MemoDropDownType)"),0).EditType = 18
var_Editor21 = var_Items.CellEditor(var_Items.AddItem("(MemoDropDownType)"),0)
oG2antt.TemplateDef = "dim var_Editor21"
oG2antt.TemplateDef = var_Editor21
oG2antt.Template = "var_Editor21.EditType = 18"
var_Editor22 = var_Items.CellEditor(var_Items.AddItem(-1),0)
var_Editor22.EditType = 19
' var_Editor22.Option(17) = 1
oG2antt.TemplateDef = "dim var_Editor22"
oG2antt.TemplateDef = var_Editor22
oG2antt.Template = "var_Editor22.Option(17) = 1"
h = var_Items.AddItem(50)
var_Editor23 = var_Items.CellEditor(h,0)
var_Editor23.EditType = 20
' var_Editor23.Option(41) = -60
oG2antt.TemplateDef = "dim var_Editor23"
oG2antt.TemplateDef = var_Editor23
oG2antt.Template = "var_Editor23.Option(41) = -60"
' var_Editor23.Option(53) = 10
oG2antt.TemplateDef = "dim var_Editor23"
oG2antt.TemplateDef = var_Editor23
oG2antt.Template = "var_Editor23.Option(53) = 10"
' var_Editor23.Option(63) = 2
oG2antt.TemplateDef = "dim var_Editor23"
oG2antt.TemplateDef = var_Editor23
oG2antt.Template = "var_Editor23.Option(63) = 2"
' var_Items.FormatCell(h,0) = "value + ' (SliderType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (SliderType)'`"
h = var_Items.AddItem(100)
' var_Items.CellEditor(h,0).EditType = 21
var_Editor24 = var_Items.CellEditor(h,0)
oG2antt.TemplateDef = "dim var_Editor24"
oG2antt.TemplateDef = var_Editor24
oG2antt.Template = "var_Editor24.EditType = 21"
' var_Items.FormatCell(h,0) = "value + ' (CalculatorType)'"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.FormatCell(h,0) = `value + ' (CalculatorType)'`"
var_Items.EnsureVisibleItem(h)
oG2antt.EndUpdate()
|
|
2235
|
Is it possible to limit the overlaid to two rows only
Dim h1 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.NonworkingDays = 0
var_Chart.FirstVisibleDate = {09/17/2006}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
var_Chart.LevelCount = 2
var_Chart.Bars.Item("Task").OverlaidType = 4
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task")
var_Items.AddBar(h1,"Task",{09/26/2006},{10/06/2006},"K1","K1")
var_Items.AddBar(h1,"Task",{10/05/2006},{10/10/2006},"K3","K2")
var_Items.AddBar(h1,"Task",{09/21/2006},{09/27/2006},"T1","T")
' var_Items.ItemBar(0,"<T*>",33) = 65280
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemBar(0,`<T*>`,33) = 65280"
' var_Items.ItemBar(0,"<K*>",52) = "Level0"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemBar(0,`<K*>`,52) = `Level0`"
' var_Items.ItemBar(0,"<T*>",52) = "Level1"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemBar(0,`<T*>`,52) = `Level1`"
' var_Items.ItemMaxHeight(h1) = 26
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemMaxHeight(h1) = 26"
oG2antt.EndUpdate()
|
|
2234
|
Is it possible to sort the bars
Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim h4 as N
Dim h5 as N
Dim oG2antt as P
Dim var_Bar as local
Dim var_Chart as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.AntiAliasing = .t.
' oG2antt.Columns.Add("Task").AllowSort = .f.
var_Column = oG2antt.Columns.Add("Task")
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.AllowSort = False"
var_Column1 = oG2antt.Columns.Add("Name")
' var_Column1.Def(18) = 0
oG2antt.TemplateDef = "dim var_Column1"
oG2antt.TemplateDef = var_Column1
oG2antt.Template = "var_Column1.Def(18) = 0"
var_Column1.SortType = 0
var_Column1.Visible = .f.
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {12/31/2000}
' var_Chart.PaneWidth(.f.) = 48
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 48"
var_Chart.LevelCount = 2
var_Chart.Bars.Item("Task").Pattern = 1
' var_Chart.Bars.Copy("Task","Red").Color = 255
var_Bar = var_Chart.Bars.Copy("Task","Red")
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Color = 255"
var_Chart.NonworkingDaysPattern = 6
var_Chart.NonworkingDaysColor = 14737632
var_Chart.LinksStyle = 0
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = .t.
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001})
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Red",{01/02/2001},{01/05/2001})
h3 = var_Items.AddItem("Task 3")
var_Items.AddBar(h3,"Task",{01/02/2001},{01/05/2001})
h4 = var_Items.AddItem("Task 4")
var_Items.AddBar(h4,"Red",{01/02/2001},{01/05/2001})
h5 = var_Items.AddItem("Task 5")
var_Items.AddBar(h5,"Red",{01/02/2001},{01/05/2001})
var_Items.AddLink("L1",h1,"",h3,"")
var_Items.AddLink("L2",h2,"",h4,"")
var_Items.AddLink("L3",h3,"",h4,"")
var_Items.AddLink("L4",h4,"",h5,"")
var_Items.SchedulePDM(0,"")
oG2antt.Chart.ShowLinks = 1
oG2antt.Columns.Item("Name").SortOrder = 1
oG2antt.EndUpdate()
|
|
2233
|
Re-order the cell's caption, icons and images/pictures
Dim h as N
Dim oG2antt as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Images("gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmDcD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB")
var_Column = oG2antt.Columns.Add("ToLeft")
' var_Column.Def(0) = .t.
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(0) = True"
var_Column1 = oG2antt.Columns.Add("ToRight")
' var_Column1.Def(0) = .t.
oG2antt.TemplateDef = "dim var_Column1"
oG2antt.TemplateDef = var_Column1
oG2antt.Template = "var_Column1.Def(0) = True"
' var_Column1.Def(34) = "caption,picture,icons,icon,check"
oG2antt.TemplateDef = "dim var_Column1"
oG2antt.TemplateDef = var_Column1
oG2antt.Template = "var_Column1.Def(34) = `caption,picture,icons,icon,check`"
oG2antt.DefaultItemHeight = 32
oG2antt.DrawGridLines = 2
oG2antt.HeaderAppearance = 4
var_Items = oG2antt.Items
h = var_Items.AddItem("Caption")
' var_Items.CellImage(h,0) = 2
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellImage(h,0) = 2"
' var_Items.CellImages(h,0) = "1,2"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellImages(h,0) = `1,2`"
' var_Items.CellPicture(h,0) = oG2antt.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)")
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellPicture(h,0) = Me.ExecuteTemplate(`loadpicture(``gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==``)`)"
' var_Items.CellValue(h,1) = var_Items.CellValue(h,0)
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = CellValue(h,0)"
' var_Items.CellHAlignment(h,1) = 2
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellHAlignment(h,1) = 2"
' var_Items.CellImage(h,1) = var_Items.CellImage(h,0)
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellImage(h,1) = CellImage(h,0)"
' var_Items.CellImages(h,1) = "2,1"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellImages(h,1) = `2,1`"
' var_Items.CellPicture(h,1) = var_Items.CellPicture(h,0)
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellPicture(h,1) = CellPicture(h,0)"
h = var_Items.AddItem("<b>HTML</b> <off 4>Caption")
' var_Items.CellValueFormat(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValueFormat(h,0) = 1"
' var_Items.CellImage(h,0) = 2
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellImage(h,0) = 2"
' var_Items.CellImages(h,0) = "1,2"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellImages(h,0) = `1,2`"
' var_Items.CellPicture(h,0) = oG2antt.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)")
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellPicture(h,0) = Me.ExecuteTemplate(`loadpicture(``gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==``)`)"
' var_Items.CellValue(h,1) = var_Items.CellValue(h,0)
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = CellValue(h,0)"
' var_Items.CellValueFormat(h,1) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValueFormat(h,1) = 1"
' var_Items.CellHAlignment(h,1) = 2
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellHAlignment(h,1) = 2"
' var_Items.CellImage(h,1) = var_Items.CellImage(h,0)
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellImage(h,1) = CellImage(h,0)"
' var_Items.CellImages(h,1) = "2,1"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellImages(h,1) = `2,1`"
' var_Items.CellPicture(h,1) = var_Items.CellPicture(h,0)
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellPicture(h,1) = CellPicture(h,0)"
oG2antt.EndUpdate()
|
|
2232
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
' Fired after a new column has been added.
function AddColumn as v (Column as OLE::Exontrol.G2antt.1::IColumn)
' Column.Def(48) = 2
' Column.Def(49) = 2
oG2antt = topparent:CONTROL_ACTIVEX1.activex
end function
' Occurs after a new Item has been inserted to Items collection.
function AddItem as v (Item as OLE::Exontrol.G2antt.1::HITEM)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Items.AddBar(Item,"Task",{01/02/2022},{01/08/2022},,"<img>1</img>")
end function
Dim h as N
Dim hR as N
Dim oG2antt as P
Dim var_Appearance as P
Dim var_Chart as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ImageSize = 32
oG2antt.DefaultItemHeight = 36
oG2antt.HeaderHeight = oG2antt.DefaultItemHeight
oG2antt.SortBarHeight = oG2antt.DefaultItemHeight
oG2antt.Font.Size = 16
oG2antt.FilterBarFont.Size = oG2antt.Font.Size
oG2antt.ToolTipFont.Size = oG2antt.Font.Size
oG2antt.Indent = 26
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2022}
var_Chart.Bars.Item("Task").Height = 22
oG2antt.Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWRJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
var_Appearance = oG2antt.VisualAppearance
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==")
var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4gaBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==")
var_Appearance.Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjVHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=")
var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
oG2antt.BackColorHeader = 80135878
oG2antt.SelBackColor = 67108864
oG2antt.SelForeColor = 65536
oG2antt.Template = "CheckImage(0) = 16777216" // oG2antt.CheckImage(0) = 16777216
oG2antt.Template = "CheckImage(1) = 33554432" // oG2antt.CheckImage(1) = 33554432
oG2antt.Template = "CheckImage(2) = 50331648" // oG2antt.CheckImage(2) = 50331648
oG2antt.Template = "Background(20) = SelBackColor" // oG2antt.Background(20) = oG2antt.SelBackColor
oG2antt.Template = "Background(21) = SelForeColor" // oG2antt.Background(21) = oG2antt.SelForeColor
oG2antt.Template = "Background(26) = BackColor" // oG2antt.Background(26) = oG2antt.BackColor
oG2antt.Template = "Background(27) = ForeColor" // oG2antt.Background(27) = oG2antt.ForeColor
oG2antt.Template = "Background(32) = -1" // oG2antt.Background(32) = -1
oG2antt.Template = "Background(0) = 67108864" // oG2antt.Background(0) = 67108864
oG2antt.Template = "Background(41) = 67174657" // oG2antt.Background(41) = 67174657
oG2antt.Template = "Background(1) = 67109119" // oG2antt.Background(1) = 67109119
oG2antt.HeaderAppearance = 4
oG2antt.ShowFocusRect = .f.
oG2antt.SortBarVisible = .t.
oG2antt.AllowGroupBy = .t.
oG2antt.BackColorSortBar = oG2antt.BackColor
oG2antt.BackColorLevelHeader = oG2antt.BackColor
oG2antt.FilterBarDropDownHeight = 1
var_Column = oG2antt.Columns.Add("Check")
' var_Column.Def(0) = .t.
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(0) = True"
var_Column.PartialCheck = .t.
var_Column.Width = 128
var_Column.DisplayFilterButton = .t.
var_Column.FilterList = 256
var_Column1 = oG2antt.Columns.Add("Pos")
var_Column1.FormatColumn = "1 pos ``"
var_Column1.AllowSort = .f.
var_Column1.Width = 48
var_Column1.AllowSizing = .f.
var_Column1.Alignment = 1
var_Column1.HeaderAlignment = 1
var_Column2 = oG2antt.Columns.Add("Image")
var_Column2.DisplayFilterButton = .t.
var_Column2.FilterList = 8480 'exShowExclude + exShowCheckBox + exSortItemsAsc
var_Column2.FilterType = 10
var_Column2.DisplayExpandButton = .t.
var_Column2.ExpandColumns = "1,2,3"
var_Column2.Width = 128
var_Column2.HeaderImage = 1
var_Column3 = oG2antt.Columns.Add("Images")
' var_Column3.Def(0) = .t.
oG2antt.TemplateDef = "dim var_Column3"
oG2antt.TemplateDef = var_Column3
oG2antt.Template = "var_Column3.Def(0) = True"
var_Column3.Width = 196
var_Column3.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images"
oG2antt.Columns.Item("Pos").Position = 3
var_Items = oG2antt.Items
hR = var_Items.AddItem("Root")
' var_Items.ItemDivider(hR) = 0
oG2antt.TemplateDef = "dim var_Items,hR"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = hR
oG2antt.Template = "var_Items.ItemDivider(hR) = 0"
' var_Items.ItemDividerLine(hR) = 0
oG2antt.TemplateDef = "dim var_Items,hR"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = hR
oG2antt.Template = "var_Items.ItemDividerLine(hR) = 0"
h = var_Items.InsertItem(hR,,"Child A")
' var_Items.CellImage(h,2) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellImage(h,2) = 1"
' var_Items.CellImages(h,3) = "1,2,3"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellImages(h,3) = `1,2,3`"
' var_Items.CellValue(h,3) = "123"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,3) = `123`"
h = var_Items.InsertItem(hR,,"Child B")
' var_Items.CellState(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellState(h,0) = 1"
' var_Items.CellImage(h,2) = 3
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellImage(h,2) = 3"
' var_Items.CellImages(h,3) = "2,3,1"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellImages(h,3) = `2,3,1`"
' var_Items.CellValue(h,3) = "231"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,3) = `231`"
' var_Items.SelectItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.SelectItem(h) = True"
h = var_Items.InsertItem(hR,,"Child C")
' var_Items.CellImage(h,2) = 2
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellImage(h,2) = 2"
' var_Items.CellState(h,3) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellState(h,3) = 1"
' var_Items.CellValue(h,3) = "312"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,3) = `312`"
' var_Items.CellImages(h,3) = "3,1,2"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellImages(h,3) = `3,1,2`"
' var_Items.ExpandItem(hR) = .t.
oG2antt.TemplateDef = "dim var_Items,hR"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = hR
oG2antt.Template = "var_Items.ExpandItem(hR) = True"
oG2antt.EndUpdate()
|
|
2231
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
' Fired after a new column has been added.
function AddColumn as v (Column as OLE::Exontrol.G2antt.1::IColumn)
' Column.Def(48) = 2
' Column.Def(49) = 2
oG2antt = topparent:CONTROL_ACTIVEX1.activex
end function
' Occurs after a new Item has been inserted to Items collection.
function AddItem as v (Item as OLE::Exontrol.G2antt.1::HITEM)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Items.AddBar(Item,"Task",{01/02/2022},{01/08/2022},,"<img>1</img>")
end function
Dim h as N
Dim hR as N
Dim oG2antt as P
Dim var_Appearance as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Chart.FirstVisibleDate = {01/01/2022}
oG2antt.ImageSize = 16
oG2antt.Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
var_Appearance = oG2antt.VisualAppearance
var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
oG2antt.BackColorHeader = 80135878
oG2antt.SelBackColor = 67108864
oG2antt.SelForeColor = 65536
oG2antt.Template = "Background(20) = SelBackColor" // oG2antt.Background(20) = oG2antt.SelBackColor
oG2antt.Template = "Background(21) = SelForeColor" // oG2antt.Background(21) = oG2antt.SelForeColor
oG2antt.Template = "Background(26) = BackColor" // oG2antt.Background(26) = oG2antt.BackColor
oG2antt.Template = "Background(27) = ForeColor" // oG2antt.Background(27) = oG2antt.ForeColor
oG2antt.Template = "Background(32) = -1" // oG2antt.Background(32) = -1
oG2antt.Template = "Background(0) = 67108864" // oG2antt.Background(0) = 67108864
oG2antt.Template = "Background(41) = 67174657" // oG2antt.Background(41) = 67174657
oG2antt.Template = "Background(1) = 67109119" // oG2antt.Background(1) = 67109119
oG2antt.HeaderAppearance = 4
oG2antt.ShowFocusRect = .f.
oG2antt.SortBarVisible = .t.
oG2antt.AllowGroupBy = .t.
oG2antt.BackColorSortBar = oG2antt.BackColor
oG2antt.BackColorLevelHeader = oG2antt.BackColor
oG2antt.FilterBarDropDownHeight = 1
var_Column = oG2antt.Columns.Add("Check")
' var_Column.Def(0) = .t.
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(0) = True"
var_Column.PartialCheck = .t.
var_Column.Width = 128
var_Column.DisplayFilterButton = .t.
var_Column.FilterList = 256
var_Column1 = oG2antt.Columns.Add("Pos")
var_Column1.FormatColumn = "1 pos ``"
var_Column1.AllowSort = .f.
var_Column1.Width = 48
var_Column1.AllowSizing = .f.
var_Column1.Alignment = 1
var_Column1.HeaderAlignment = 1
var_Column2 = oG2antt.Columns.Add("Image")
var_Column2.DisplayFilterButton = .t.
var_Column2.FilterList = 8480 'exShowExclude + exShowCheckBox + exSortItemsAsc
var_Column2.FilterType = 10
var_Column2.DisplayExpandButton = .t.
var_Column2.ExpandColumns = "1,2,3"
var_Column2.Width = 128
var_Column2.HeaderImage = 1
var_Column3 = oG2antt.Columns.Add("Images")
' var_Column3.Def(0) = .t.
oG2antt.TemplateDef = "dim var_Column3"
oG2antt.TemplateDef = var_Column3
oG2antt.Template = "var_Column3.Def(0) = True"
var_Column3.Width = 196
var_Column3.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images"
oG2antt.Columns.Item("Pos").Position = 3
var_Items = oG2antt.Items
hR = var_Items.AddItem("Root")
' var_Items.ItemDivider(hR) = 0
oG2antt.TemplateDef = "dim var_Items,hR"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = hR
oG2antt.Template = "var_Items.ItemDivider(hR) = 0"
' var_Items.ItemDividerLine(hR) = 0
oG2antt.TemplateDef = "dim var_Items,hR"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = hR
oG2antt.Template = "var_Items.ItemDividerLine(hR) = 0"
h = var_Items.InsertItem(hR,,"Child A")
' var_Items.CellImage(h,2) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellImage(h,2) = 1"
' var_Items.CellImages(h,3) = "1,2,3"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellImages(h,3) = `1,2,3`"
' var_Items.CellValue(h,3) = "123"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,3) = `123`"
h = var_Items.InsertItem(hR,,"Child B")
' var_Items.CellState(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellState(h,0) = 1"
' var_Items.CellImage(h,2) = 3
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellImage(h,2) = 3"
' var_Items.CellImages(h,3) = "2,3,1"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellImages(h,3) = `2,3,1`"
' var_Items.CellValue(h,3) = "231"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,3) = `231`"
' var_Items.SelectItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.SelectItem(h) = True"
h = var_Items.InsertItem(hR,,"Child C")
' var_Items.CellImage(h,2) = 2
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellImage(h,2) = 2"
' var_Items.CellState(h,3) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellState(h,3) = 1"
' var_Items.CellValue(h,3) = "312"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,3) = `312`"
' var_Items.CellImages(h,3) = "3,1,2"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellImages(h,3) = `3,1,2`"
' var_Items.ExpandItem(hR) = .t.
oG2antt.TemplateDef = "dim var_Items,hR"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = hR
oG2antt.Template = "var_Items.ExpandItem(hR) = True"
oG2antt.EndUpdate()
|
|
2230
|
How do I clip/hide/align the bar's caption/text based on the bar's size/width/length
Dim h as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Clip")
oG2antt.ScrollBySingleLine = .t.
oG2antt.DrawGridLines = -2
var_Chart = oG2antt.Chart
var_Chart.AllowResizeChart = 6 'exAllowResizeChartMiddle + exAllowResizeChartHeader
var_Chart.DrawGridLines = -2
var_Chart.FirstVisibleDate = {12/23/2000}
var_Chart.LevelCount = 2
' var_Chart.PaneWidth(.f.) = 216
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 216"
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.Pattern = 32
var_Bar.Color = 10790052
var_Bar.StartColor = 15790320
var_Bar.EndColor = var_Bar.StartColor
var_Bar.OverlaidType = 4611 'exOverlaidBarsIncludeCaption + exOverlaidBarsStackAutoArrange + exOverlaidBarsStack
var_Bar.Height = 15
var_Chart.MinUnitWidth = var_Chart.UnitWidth
var_Items = oG2antt.Items
h = var_Items.AddItem("no clip, (0-2)")
var_Items.AddBar(h,"Task",{01/02/2001},{01/04/2001},"K1")
' var_Items.ItemBar(h,"K1",44) = "no clip, right(<b>2</b>)"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K1`,44) = `no clip, right(<b>2</b>)`"
' var_Items.ItemBar(h,"K1",45) = 2
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K1`,45) = 2"
var_Items.AddBar(h,"Task",{01/02/2001},{01/04/2001},"K2")
' var_Items.ItemBar(h,"K2",44) = "no clip, center(<b>1</b>)"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K2`,44) = `no clip, center(<b>1</b>)`"
' var_Items.ItemBar(h,"K2",45) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K2`,45) = 1"
var_Items.AddBar(h,"Task",{01/02/2001},{01/04/2001},"K3")
' var_Items.ItemBar(h,"K3",44) = "no clip, left(<b>0</b>)"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K3`,44) = `no clip, left(<b>0</b>)`"
' var_Items.ItemBar(h,"K3",45) = 0
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K3`,45) = 0"
h = var_Items.AddItem("clip, inside (3-5)")
var_Items.AddBar(h,"Task",{12/28/2000},{01/08/2001},"K1")
' var_Items.ItemBar(h,"K1",44) = "clip, inside, right(<b>5</b>)"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K1`,44) = `clip, inside, right(<b>5</b>)`"
' var_Items.ItemBar(h,"K1",45) = 5
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K1`,45) = 5"
var_Items.AddBar(h,"Task",{12/28/2000},{01/08/2001},"K2")
' var_Items.ItemBar(h,"K2",44) = "clip, inside, center(<b>4</b>)"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K2`,44) = `clip, inside, center(<b>4</b>)`"
' var_Items.ItemBar(h,"K2",45) = 4
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K2`,45) = 4"
var_Items.AddBar(h,"Task",{12/28/2000},{01/08/2001},"K3")
' var_Items.ItemBar(h,"K3",44) = "clip, inside, left(<b>3</b>)"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K3`,44) = `clip, inside, left(<b>3</b>)`"
' var_Items.ItemBar(h,"K3",45) = 3
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K3`,45) = 3"
h = var_Items.AddItem("hide on min width, clip if not fit, inside (6-8)")
var_Items.AddBar(h,"Task",{12/26/2000},{01/10/2001},"K1")
' var_Items.ItemBar(h,"K1",44) = "hide on min width, clip if not fit, inside, right(<b>8</b>)"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K1`,44) = `hide on min width, clip if not fit, inside, right(<b>8</b>)`"
' var_Items.ItemBar(h,"K1",45) = 8
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K1`,45) = 8"
var_Items.AddBar(h,"Task",{12/26/2000},{01/10/2001},"K2")
' var_Items.ItemBar(h,"K2",44) = "hide on min width, clip if not fit, inside, center(<b>7</b>)"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K2`,44) = `hide on min width, clip if not fit, inside, center(<b>7</b>)`"
' var_Items.ItemBar(h,"K2",45) = 7
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K2`,45) = 7"
var_Items.AddBar(h,"Task",{12/26/2000},{01/10/2001},"K3")
' var_Items.ItemBar(h,"K3",44) = "hide on min width, clip if not fit, inside, left(<b>6</b>)"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K3`,44) = `hide on min width, clip if not fit, inside, left(<b>6</b>)`"
' var_Items.ItemBar(h,"K3",45) = 6
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K3`,45) = 6"
h = var_Items.AddItem("hide if not fit, no clip, inside (9-11)")
var_Items.AddBar(h,"Task",{12/28/2000},{01/08/2001},"K1")
' var_Items.ItemBar(h,"K1",44) = "hide if not fit, no clip, inside, right(<b>11</b>)"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K1`,44) = `hide if not fit, no clip, inside, right(<b>11</b>)`"
' var_Items.ItemBar(h,"K1",45) = 11
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K1`,45) = 11"
var_Items.AddBar(h,"Task",{12/28/2000},{01/08/2001},"K2")
' var_Items.ItemBar(h,"K2",44) = "hide if not fit, no clip, center(<b>10</b>)"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K2`,44) = `hide if not fit, no clip, center(<b>10</b>)`"
' var_Items.ItemBar(h,"K2",45) = 10
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K2`,45) = 10"
var_Items.AddBar(h,"Task",{12/28/2000},{01/08/2001},"K3")
' var_Items.ItemBar(h,"K3",44) = "hide if not fit, no clip, inside, left(<b>9</b>)"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K3`,44) = `hide if not fit, no clip, inside, left(<b>9</b>)`"
' var_Items.ItemBar(h,"K3",45) = 9
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K3`,45) = 9"
h = var_Items.AddItem("no clip, inside, outside (12-14)")
var_Items.AddBar(h,"Task",{12/28/2000},{01/08/2001},"K1")
' var_Items.ItemBar(h,"K1",44) = "no clip, inside, outside, right(<b>14</b>)"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K1`,44) = `no clip, inside, outside, right(<b>14</b>)`"
' var_Items.ItemBar(h,"K1",45) = 14
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K1`,45) = 14"
var_Items.AddBar(h,"Task",{12/28/2000},{01/08/2001},"K2")
' var_Items.ItemBar(h,"K2",44) = "no clip, inside, outside, center(<b>13</b>)"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K2`,44) = `no clip, inside, outside, center(<b>13</b>)`"
' var_Items.ItemBar(h,"K2",45) = 13
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K2`,45) = 13"
var_Items.AddBar(h,"Task",{12/28/2000},{01/08/2001},"K3")
' var_Items.ItemBar(h,"K3",44) = "no clip, inside, outside, left(<b>12</b>)"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K3`,44) = `no clip, inside, outside, left(<b>12</b>)`"
' var_Items.ItemBar(h,"K3",45) = 12
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K3`,45) = 12"
h = var_Items.AddItem("no clip, outside (16-18)")
var_Items.AddBar(h,"Task",{12/30/2000},{01/06/2001},"K1")
' var_Items.ItemBar(h,"K1",44) = "no clip, outside, right(<b>18</b>)"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K1`,44) = `no clip, outside, right(<b>18</b>)`"
' var_Items.ItemBar(h,"K1",45) = 18
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K1`,45) = 18"
var_Items.AddBar(h,"Task",{12/30/2000},{01/06/2001},"K2")
' var_Items.ItemBar(h,"K2",44) = "no clip, outside, center(<b>17</b>)"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K2`,44) = `no clip, outside, center(<b>17</b>)`"
' var_Items.ItemBar(h,"K2",45) = 17
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K2`,45) = 17"
var_Items.AddBar(h,"Task",{12/30/2000},{01/06/2001},"K3")
' var_Items.ItemBar(h,"K3",44) = "no clip, outside, left(<b>16</b>)"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K3`,44) = `no clip, outside, left(<b>16</b>)`"
' var_Items.ItemBar(h,"K3",45) = 16
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K3`,45) = 16"
oG2antt.EndUpdate()
|
|
2229
|
The user clicks the drop-down filter, select a value and the control's list filters for the selected item(s). Is there a way for when the user then goes to the next column to add another filter and the drop down arrow is clicked for the list of values they can filter by to be limited to what is being displayed in the list due to the first filter they set
' Fired after a new column has been added.
function AddColumn as v (Column as OLE::Exontrol.G2antt.1::IColumn)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
end function
' Occurs after a new Item has been inserted to Items collection.
function AddItem as v (Item as OLE::Exontrol.G2antt.1::HITEM)
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
var_Items = oG2antt.Items
var_Items.AddBar(Item,"Task",var_Items.CellValue(Item,2),var_Items.CellValue(Item,4))
end function
Dim oG2antt as P
Dim rs as P
Dim var_Chart as P
Dim var_Columns as local
Dim var_Columns1 as local
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ColumnAutoResize = .f.
rs = OLE.Create("ADOR.Recordset")
rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
oG2antt.DataSource = rs
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {08/04/1994}
var_Chart.LevelCount = 2
' var_Chart.PaneWidth(.f.) = 290
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 290"
oG2antt.Items.AllowCellValueToItemBar = .t.
' oG2antt.Columns.Item(2).Def(18) = 1
var_Columns = oG2antt.Columns.Item(2)
oG2antt.TemplateDef = "dim var_Columns"
oG2antt.TemplateDef = var_Columns
oG2antt.Template = "var_Columns.Def(18) = 1"
' oG2antt.Columns.Item(4).Def(18) = 2
var_Columns1 = oG2antt.Columns.Item(4)
oG2antt.TemplateDef = "dim var_Columns1"
oG2antt.TemplateDef = var_Columns1
oG2antt.Template = "var_Columns1.Def(18) = 2"
oG2antt.Columns.Item("ShipVia").Position = 2
oG2antt.EndUpdate()
|
|
2228
|
Does the control display images from database (DAO)
Dim oG2antt as P
Dim rs as P
Dim var_Column as P
Dim var_PrivDBEngine as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ColumnAutoResize = .f.
oG2antt.DrawGridLines = -1
oG2antt.GridLineStyle = 512
oG2antt.DefaultItemHeight = 48
var_PrivDBEngine = OLE.Create("DAO.DBEngine.36")
rs = var_PrivDBEngine.OpenDatabase("C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.mdb").OpenRecordset("Employees")
oG2antt.DataSource = rs
var_Column = oG2antt.Columns.Item("Photo")
var_Column.Position = 1
var_Column.Width = 128
oG2antt.EndUpdate()
|
|
2227
|
Does the control display images from database (ADO)
Dim oG2antt as P
Dim rs as P
Dim var_Column as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ColumnAutoResize = .f.
oG2antt.DrawGridLines = -1
oG2antt.GridLineStyle = 512
oG2antt.DefaultItemHeight = 48
rs = OLE.Create("ADODB.Recordset")
rs.Open("Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
oG2antt.DataSource = rs
var_Column = oG2antt.Columns.Item("Photo")
var_Column.Position = 1
var_Column.Width = 128
oG2antt.EndUpdate()
|
|
2226
|
Is it possible to set from code, a column sort without being inserted in the sortbar
Dim oG2antt as P
Dim rs as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ColumnAutoResize = .f.
rs = OLE.Create("ADOR.Recordset")
rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",1,3)
oG2antt.DataSource = rs
oG2antt.SortBarVisible = .t.
oG2antt.Layout = "singlesort=\"C1:1\""
oG2antt.EndUpdate()
|
|
2225
|
Is it possible to view all events the control fires
' Fired before an item is about to be expanded (collapsed).
function BeforeExpandItem as v (Item as OLE::Exontrol.G2antt.1::HITEM,Cancel as A)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Refresh()
end function
' Notifies the application once the control fires an event.
function Event as v (EventID as N)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
? oG2antt.EventParam(-2)
end function
Dim h as N
Dim h1 as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Indent = 16
oG2antt.LinesAtRoot = -1
oG2antt.HasLines = 1
oG2antt.DrawGridLines = 1
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {09/20/2006}
var_Chart.ShowCollapsedBars = .t.
var_Chart.LevelCount = 2
' var_Chart.PaneWidth(.f.) = 128
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 128"
var_Chart.DrawGridLines = 1
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.OverlaidType = 3
var_Bar.Color = 0
var_Bar.StartColor = 12895428
var_Bar.EndColor = 12895428
var_Bar.Pattern = 32
var_Items = oG2antt.Items
h = var_Items.AddItem("Project 1")
h1 = var_Items.InsertItem(h,,"Resources")
var_Items.AddBar(h1,"Task",{09/21/2006},{09/25/2006},"A")
var_Items.AddBar(h1,"Task",{09/24/2006},{09/28/2006},"B")
var_Items.AddBar(h1,"Task",{09/27/2006},{09/29/2006},"C")
h = var_Items.AddItem("Project 2")
h1 = var_Items.InsertItem(h,,"Resources")
var_Items.AddBar(h1,"Task",{09/21/2006},{09/25/2006},"A")
var_Items.AddBar(h1,"Task",{09/24/2006},{09/28/2006},"B")
var_Items.AddBar(h1,"Task",{09/27/2006},{09/29/2006},"C")
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
oG2antt.EndUpdate()
|
|
2224
|
How can I find all occurences of the giving value, within a column
Dim oG2antt as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Default")
var_Column = oG2antt.Columns.Add("Pos")
var_Column.FormatColumn = "1 pos 'A-Z'"
var_Column.Position = 0
var_Column.AllowSizing = .f.
var_Column.Width = 32
var_Column.Enabled = .f.
var_Column1 = oG2antt.Columns.Add("Index")
var_Column1.FormatColumn = "0 index ''"
var_Column1.AllowSizing = .f.
var_Column1.Width = 32
var_Column1.Enabled = .f.
var_Items = oG2antt.Items
var_Items.AddItem("A")
var_Items.AddItem("A")
var_Items.AddItem("A")
? var_Items.CellCaption(var_Items.FindItem("A",0,0),1)
? var_Items.CellCaption(var_Items.FindItem("A",0,1),1)
? var_Items.CellCaption(var_Items.FindItem("A",0,2),1)
oG2antt.EndUpdate()
|
|
2223
|
How can I specify the bar's legend within the control's histogram (sample 2, expression)
Dim h as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Machines")
oG2antt.DrawGridLines = 1
oG2antt.HeaderAppearance = 4
oG2antt.HeaderVisible = 1
var_Chart = oG2antt.Chart
var_Chart.DrawGridLines = 1
' var_Chart.PaneWidth(.f.) = 128
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 128"
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.LevelCount = 2
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.Pattern = 1
' var_Bar.Def(4) = 18
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(4) = 18"
var_Bar.OverlaidType = 4
var_Bar.HistogramPattern = var_Bar.Pattern
var_Bar.HistogramType = 256
var_Bar.HistogramCumulativeOriginalColorBars = 1
var_Bar.HistogramItems = -4
var_Bar.HistogramRulerLinesColor = 6710886
' var_Bar.Def(6) = "<%=%3%> <fgcolor 666666><font ;6><off 4><%=%C0%>"
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(6) = `<%=%3%> <fgcolor 666666><font ;6><off 4><%=%C0%>`"
' var_Bar.Def(60) = "<fgcolor=666666><%=lower(%3)%>"
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(60) = `<fgcolor=666666><%=lower(%3)%>`"
var_Chart.HistogramHeight = 64
var_Chart.HistogramVisible = .t.
var_Items = oG2antt.Items
h = var_Items.AddItem("Machine 1")
var_Items.AddBar(h,"Task",{01/02/2001},{01/09/2001},1,"Bill")
var_Items.AddBar(h,"Task",{01/03/2001},{01/10/2001},2,"Laura")
' var_Items.ItemBar(h,2,33) = 16776960
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,2,33) = 16776960"
h = var_Items.AddItem("Machine 2")
var_Items.AddBar(h,"Task",{01/12/2001},{01/19/2001},3,"Bill")
var_Items.AddBar(h,"Task",{01/10/2001},{01/13/2001},4,"Laura")
var_Items.AddBar(h,"Task",{01/10/2001},{01/14/2001},5,"Bill")
' var_Items.ItemBar(h,4,33) = 16776960
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,4,33) = 16776960"
var_Items.AddBar(var_Items.AddItem("Machine 3"),"Task",{01/02/2001},{01/09/2001},6,"Bill")
oG2antt.EndUpdate()
|
|
2222
|
How can I specify the bar's legend within the control's histogram (sample 1)
Dim h as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Machines")
oG2antt.DrawGridLines = 1
oG2antt.HeaderAppearance = 4
oG2antt.HeaderVisible = 1
var_Chart = oG2antt.Chart
var_Chart.DrawGridLines = 1
' var_Chart.PaneWidth(.f.) = 128
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 128"
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.LevelCount = 2
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.Pattern = 1
' var_Bar.Def(4) = 18
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(4) = 18"
var_Bar.OverlaidType = 4
var_Bar.HistogramPattern = var_Bar.Pattern
var_Bar.HistogramType = 256
var_Bar.HistogramCumulativeOriginalColorBars = 1
var_Bar.HistogramItems = -4
' var_Bar.Def(3) = "Bill"
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(3) = `Bill`"
' var_Bar.Def(60) = "B(ill)"
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(60) = `B(ill)`"
var_Chart.HistogramHeight = 64
var_Chart.HistogramVisible = .t.
var_Items = oG2antt.Items
h = var_Items.AddItem("Machine 1")
var_Items.AddBar(h,"Task",{01/02/2001},{01/09/2001},1)
var_Items.AddBar(h,"Task",{01/03/2001},{01/10/2001},2,"Laura")
' var_Items.ItemBar(h,2,33) = 16776960
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,2,33) = 16776960"
' var_Items.ItemBar(h,2,60) = "L(aura)"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,2,60) = `L(aura)`"
h = var_Items.AddItem("Machine 2")
var_Items.AddBar(h,"Task",{01/12/2001},{01/19/2001},3)
var_Items.AddBar(h,"Task",{01/10/2001},{01/13/2001},4,"Laura")
var_Items.AddBar(h,"Task",{01/10/2001},{01/14/2001},5)
' var_Items.ItemBar(h,4,33) = 16776960
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,4,33) = 16776960"
' var_Items.ItemBar(h,4,60) = "L(aura)"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,4,60) = `L(aura)`"
var_Items.AddBar(var_Items.AddItem("Machine 3"),"Task",{01/02/2001},{01/09/2001},6)
oG2antt.EndUpdate()
|
|
2221
|
When I drag a bar and I drag it over other items, but just release it on one of the items (last item), the BarParentChange event is triggered for every item. I need it just when I drop it (release left mouse). How can I do this
' Occurs just before moving a bar from current item to another item.
function BarParentChange as v (Item as OLE::Exontrol.G2antt.1::HITEM,Key as A,NewItem as OLE::Exontrol.G2antt.1::HITEM,Cancel as L)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
? "Hover Over Item: "
? oG2antt.Items.CellCaption(NewItem,0)
Cancel = oG2antt.Items.ItemData(NewItem)
end function
' Occurs after the chart has been changed.
function ChartEndChanging as v (Operation as OLE::Exontrol.G2antt.1::BarOperationEnum)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
? "ChartEndChanging "
? Operation
end function
' Occurs when the chart is about to be changed.
function ChartStartChanging as v (Operation as OLE::Exontrol.G2antt.1::BarOperationEnum)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
? "ChartStartChanging "
? Operation
end function
Dim h as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2001}
' var_Chart.PaneWidth(.f.) = 48
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 48"
var_Chart.AllowLinkBars = .f.
var_Chart.Bars.Item("Task").OverlaidType = 257 'exOverlaidBarsTransparent + exOverlaidBarsOffset
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
h = var_Items.AddItem("Item 1")
' var_Items.EnableItem(h) = .f.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.EnableItem(h) = False"
' var_Items.ItemData(h) = -1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemData(h) = -1"
h = var_Items.AddItem("Item 2")
' var_Items.ItemData(h) = 0
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemData(h) = 0"
var_Items.AddBar(h,"Task",{01/05/2001},{01/07/2001},"B")
' var_Items.ItemBar(h,"B",28) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`B`,28) = True"
' var_Items.ItemData(var_Items.AddItem("Item 3")) = 0
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemData(AddItem(`Item 3`)) = 0"
' var_Items.ItemData(var_Items.AddItem("Item 4")) = 0
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemData(AddItem(`Item 4`)) = 0"
oG2antt.EndUpdate()
|
|
2220
|
Hide non-working days, Hide non-working hours
Dim oG2antt as P
Dim var_Chart as P
Dim var_Level as P
Dim var_Level1 as local
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {07/29/2022}
' var_Chart.Label(65536) = "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.Label(65536) = `<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536`"
' var_Chart.PaneWidth(.f.) = 0
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 0"
var_Chart.LevelCount = 2
var_Chart.UnitWidth = 12
var_Chart.NonworkingDaysColor = 3355443
var_Chart.NonworkingDaysPattern = 6
var_Chart.NonworkingHoursColor = 12303291
var_Chart.NonworkingHoursPattern = 6
var_Chart.AllowResizeChart = 262 'exAllowChangeUnitScale + exAllowResizeChartMiddle + exAllowResizeChartHeader
var_Level = var_Chart.Level(0)
var_Level.Label = "<%dddd%>"
var_Level.Alignment = 1
' var_Chart.Level(1).Label = 65536
var_Level1 = var_Chart.Level(1)
oG2antt.TemplateDef = "dim var_Level1"
oG2antt.TemplateDef = var_Level1
oG2antt.Template = "var_Level1.Label = 65536"
var_Chart.UnitScale = 65536
var_Chart.NonworkingHours = 16773375
var_Chart.ShowNonworkingUnits = .f.
var_Chart.ShowNonworkingDates = .f.
var_Chart.ShowNonworkingHours = .f.
oG2antt.EndUpdate()
|
|
2219
|
Show non-working days pattern, Hide non-working hours
Dim oG2antt as P
Dim var_Chart as P
Dim var_Level as P
Dim var_Level1 as local
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {07/29/2022}
' var_Chart.Label(65536) = "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.Label(65536) = `<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536`"
' var_Chart.PaneWidth(.f.) = 0
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 0"
var_Chart.LevelCount = 2
var_Chart.UnitWidth = 12
var_Chart.NonworkingDaysColor = 3355443
var_Chart.NonworkingDaysPattern = 6
var_Chart.NonworkingHoursColor = 12303291
var_Chart.NonworkingHoursPattern = 6
var_Chart.AllowResizeChart = 262 'exAllowChangeUnitScale + exAllowResizeChartMiddle + exAllowResizeChartHeader
var_Level = var_Chart.Level(0)
var_Level.Label = "<%dddd%>"
var_Level.Alignment = 1
' var_Chart.Level(1).Label = 65536
var_Level1 = var_Chart.Level(1)
oG2antt.TemplateDef = "dim var_Level1"
oG2antt.TemplateDef = var_Level1
oG2antt.Template = "var_Level1.Label = 65536"
var_Chart.UnitScale = 65536
var_Chart.NonworkingHours = 16773375
var_Chart.ShowNonworkingUnits = .f.
var_Chart.ShowNonworkingDates = .t.
var_Chart.ShowNonworkingHours = .f.
oG2antt.EndUpdate()
|
|
2218
|
Hide non-working days, Show non-working hours pattern
Dim oG2antt as P
Dim var_Chart as P
Dim var_Level as P
Dim var_Level1 as local
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {07/29/2022}
' var_Chart.Label(65536) = "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.Label(65536) = `<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536`"
' var_Chart.PaneWidth(.f.) = 0
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 0"
var_Chart.LevelCount = 2
var_Chart.UnitWidth = 12
var_Chart.NonworkingDaysColor = 3355443
var_Chart.NonworkingDaysPattern = 6
var_Chart.NonworkingHoursColor = 12303291
var_Chart.NonworkingHoursPattern = 6
var_Chart.AllowResizeChart = 262 'exAllowChangeUnitScale + exAllowResizeChartMiddle + exAllowResizeChartHeader
var_Level = var_Chart.Level(0)
var_Level.Label = "<%dddd%>"
var_Level.Alignment = 1
' var_Chart.Level(1).Label = 65536
var_Level1 = var_Chart.Level(1)
oG2antt.TemplateDef = "dim var_Level1"
oG2antt.TemplateDef = var_Level1
oG2antt.Template = "var_Level1.Label = 65536"
var_Chart.UnitScale = 65536
var_Chart.NonworkingHours = 16773375
var_Chart.ShowNonworkingUnits = .f.
var_Chart.ShowNonworkingDates = .f.
var_Chart.ShowNonworkingHours = .t.
oG2antt.EndUpdate()
|
|
2217
|
Hide non-working days pattern, Show non-working hours pattern
Dim oG2antt as P
Dim var_Chart as P
Dim var_Level as P
Dim var_Level1 as local
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {07/29/2022}
' var_Chart.Label(65536) = "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.Label(65536) = `<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536`"
' var_Chart.PaneWidth(.f.) = 0
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 0"
var_Chart.LevelCount = 2
var_Chart.UnitWidth = 12
var_Chart.NonworkingDaysColor = 3355443
var_Chart.NonworkingDaysPattern = 6
var_Chart.NonworkingHoursColor = 12303291
var_Chart.NonworkingHoursPattern = 6
var_Chart.AllowResizeChart = 262 'exAllowChangeUnitScale + exAllowResizeChartMiddle + exAllowResizeChartHeader
var_Level = var_Chart.Level(0)
var_Level.Label = "<%dddd%>"
var_Level.Alignment = 1
' var_Chart.Level(1).Label = 65536
var_Level1 = var_Chart.Level(1)
oG2antt.TemplateDef = "dim var_Level1"
oG2antt.TemplateDef = var_Level1
oG2antt.Template = "var_Level1.Label = 65536"
var_Chart.UnitScale = 65536
var_Chart.NonworkingHours = 16773375
var_Chart.ShowNonworkingUnits = .t.
var_Chart.ShowNonworkingDates = .f.
var_Chart.ShowNonworkingHours = .t.
oG2antt.EndUpdate()
|
|
2216
|
Hide non-working days pattern, Hide non-working hours pattern
Dim oG2antt as P
Dim var_Chart as P
Dim var_Level as P
Dim var_Level1 as local
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {07/29/2022}
' var_Chart.Label(65536) = "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.Label(65536) = `<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536`"
' var_Chart.PaneWidth(.f.) = 0
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 0"
var_Chart.LevelCount = 2
var_Chart.UnitWidth = 12
var_Chart.NonworkingDaysColor = 3355443
var_Chart.NonworkingDaysPattern = 6
var_Chart.NonworkingHoursColor = 12303291
var_Chart.NonworkingHoursPattern = 6
var_Chart.AllowResizeChart = 262 'exAllowChangeUnitScale + exAllowResizeChartMiddle + exAllowResizeChartHeader
var_Level = var_Chart.Level(0)
var_Level.Label = "<%dddd%>"
var_Level.Alignment = 1
' var_Chart.Level(1).Label = 65536
var_Level1 = var_Chart.Level(1)
oG2antt.TemplateDef = "dim var_Level1"
oG2antt.TemplateDef = var_Level1
oG2antt.Template = "var_Level1.Label = 65536"
var_Chart.UnitScale = 65536
var_Chart.NonworkingHours = 16773375
var_Chart.ShowNonworkingUnits = .t.
var_Chart.ShowNonworkingDates = .f.
var_Chart.ShowNonworkingHours = .f.
oG2antt.EndUpdate()
|
|
2215
|
Show non-working days pattern, Hide non-working hours pattern
Dim oG2antt as P
Dim var_Chart as P
Dim var_Level as P
Dim var_Level1 as local
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {07/29/2022}
' var_Chart.Label(65536) = "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.Label(65536) = `<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536`"
' var_Chart.PaneWidth(.f.) = 0
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 0"
var_Chart.LevelCount = 2
var_Chart.UnitWidth = 12
var_Chart.NonworkingDaysColor = 3355443
var_Chart.NonworkingDaysPattern = 6
var_Chart.NonworkingHoursColor = 12303291
var_Chart.NonworkingHoursPattern = 6
var_Chart.AllowResizeChart = 262 'exAllowChangeUnitScale + exAllowResizeChartMiddle + exAllowResizeChartHeader
var_Level = var_Chart.Level(0)
var_Level.Label = "<%dddd%>"
var_Level.Alignment = 1
' var_Chart.Level(1).Label = 65536
var_Level1 = var_Chart.Level(1)
oG2antt.TemplateDef = "dim var_Level1"
oG2antt.TemplateDef = var_Level1
oG2antt.Template = "var_Level1.Label = 65536"
var_Chart.UnitScale = 65536
var_Chart.NonworkingHours = 16773375
var_Chart.ShowNonworkingUnits = .t.
var_Chart.ShowNonworkingDates = .t.
var_Chart.ShowNonworkingHours = .f.
oG2antt.EndUpdate()
|
|
2214
|
Show non-working days pattern, Show non-working hours pattern
Dim oG2antt as P
Dim var_Chart as P
Dim var_Level as P
Dim var_Level1 as local
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {07/29/2022}
' var_Chart.Label(65536) = "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.Label(65536) = `<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536`"
' var_Chart.PaneWidth(.f.) = 0
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 0"
var_Chart.LevelCount = 2
var_Chart.UnitWidth = 12
var_Chart.NonworkingDaysColor = 3355443
var_Chart.NonworkingDaysPattern = 6
var_Chart.NonworkingHoursColor = 12303291
var_Chart.NonworkingHoursPattern = 6
var_Chart.AllowResizeChart = 262 'exAllowChangeUnitScale + exAllowResizeChartMiddle + exAllowResizeChartHeader
var_Level = var_Chart.Level(0)
var_Level.Label = "<%dddd%>"
var_Level.Alignment = 1
' var_Chart.Level(1).Label = 65536
var_Level1 = var_Chart.Level(1)
oG2antt.TemplateDef = "dim var_Level1"
oG2antt.TemplateDef = var_Level1
oG2antt.Template = "var_Level1.Label = 65536"
var_Chart.UnitScale = 65536
var_Chart.NonworkingHours = 16773375
var_Chart.ShowNonworkingUnits = .t.
var_Chart.ShowNonworkingDates = .t.
var_Chart.ShowNonworkingHours = .t.
oG2antt.EndUpdate()
|
|
2213
|
The chart display no labels (empty header) when the unit's width is too small. What can I do to change this behavior
Dim oG2antt as P
Dim var_Chart as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
var_Chart = oG2antt.Chart
' var_Chart.Label(4096) = "<font ;6><%d1%><|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%>, <%m3%> <%d%>, '<%yy%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%><||><||>4096"
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.Label(4096) = `<font ;6><%d1%><|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%>, <%m3%> <%d%>, '<%yy%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%><||><||>4096`"
var_Chart.AllowResizeChart = 262 'exAllowChangeUnitScale + exAllowResizeChartMiddle + exAllowResizeChartHeader
var_Chart.LevelCount = 2
' var_Chart.PaneWidth(.f.) = 0
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 0"
var_Chart.MarkTodayColor = var_Chart.BackColor
var_Chart.UnitScale = 4096
var_Chart.UnitWidth = 12
|
|
2212
|
How do I get the height of the bar from the cursor
' Occurs when the user moves the mouse.
function MouseMove as v (Button as N,Shift as N,X as OLE::Exontrol.G2antt.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.G2antt.1::OLE_YPOS_PIXELS)
Dim b as
Dim i as N
Dim n as
oG2antt = topparent:CONTROL_ACTIVEX1.activex
b = oG2antt.Chart.BarFromPoint(-1,-1)
i = oG2antt.ItemFromPoint(-1,-1,c,hit)
n = oG2antt.Items.ItemBar(i,b,0)
? "Height"
? oG2antt.Chart.Bars.Item(n).Height
end function
Dim h1 as N
Dim oG2antt as P
Dim var_Bar as local
Dim var_Bar1 as local
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
oG2antt.DefaultItemHeight = 52
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {10/10/2017}
' var_Chart.PaneWidth(.f.) = 0
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 0"
var_Chart.NonworkingDays = 0
var_Chart.MarkTodayColor = var_Chart.BackColor
var_Chart.Bars.Item("Task").Pattern = 1
' var_Chart.Bars.Copy("Task","T1").Color = 255
var_Bar = var_Chart.Bars.Copy("Task","T1")
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Color = 255"
' var_Chart.Bars.Copy("Task","T2").Height = 25
var_Bar1 = var_Chart.Bars.Copy("Task","T2")
oG2antt.TemplateDef = "dim var_Bar1"
oG2antt.TemplateDef = var_Bar1
oG2antt.Template = "var_Bar1.Height = 25"
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task")
var_Items.AddBar(h1,"T1",{10/15/2017},{10/25/2017},"2")
var_Items.AddBar(h1,"T2",{10/18/2017},{10/22/2017},"1")
h1 = var_Items.AddItem("Task")
var_Items.AddBar(h1,"T1",{10/15/2017},{10/25/2017},"1")
var_Items.AddBar(h1,"T2",{10/18/2017},{10/22/2017},"2")
oG2antt.EndUpdate()
|
|
2211
|
The zone shows truncated if I use BackColorAlternate. Is there anything I can do so it shows as solid instead
Dim oG2antt as P
Dim var_Chart as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.BackColorAlternate = 15790320
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 0
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 0"
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {01/01/2010}
var_Chart.MarkTimeZone("Z1",{01/04/2010},{01/04/2010},16744544,"1:3;;solid-zone")
var_Chart.MarkTimeZone("Z2",{01/08/2010},{01/08/2010},16744544,"0:3;;truncated-zone")
oG2antt.EndUpdate()
|
|
2210
|
How can I prevent expanding/collapsing the child items
' Fired before an item is about to be expanded (collapsed).
function BeforeExpandItem as v (Item as OLE::Exontrol.G2antt.1::HITEM,Cancel as A)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
Cancel = oG2antt.Items.ItemParent(Item)
end function
Dim h as N
Dim oG2antt as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.SingleSel = .f.
oG2antt.Columns.Add("Default")
oG2antt.LinesAtRoot = -1
var_Items = oG2antt.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(var_Items.InsertItem(h,,"Child 1.1"),,"Child")
var_Items.InsertItem(h,,"Child 1.2")
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(var_Items.InsertItem(h,,"Child 2.1"),,"Child")
var_Items.InsertItem(h,,"Child 2.2")
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
oG2antt.EndUpdate()
|
|
2209
|
How can I display the EBN bigger or smaller (thumb)
Dim oG2antt as P
Dim var_Appearance as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Appearance = oG2antt.VisualAppearance
var_Appearance.Add(1,"c:\exontrol\images\normal.ebn")
var_Appearance.Add(10,"CP:1 0 3 0 -3")
var_Appearance.Add(17,"CP:1 3 0 -3 0")
oG2antt.Template = "Background(388) = 167772160" // oG2antt.Background(388) = 167772160
oG2antt.Template = "Background(260) = 285212672" // oG2antt.Background(260) = 285212672
oG2antt.ScrollBars = 3855 'exVScrollEmptySpace + exHScrollEmptySpace + exVScrollOnThumbRelease + exHScrollOnThumbRelease + exDisableBoth
oG2antt.ScrollBySingleLine = .t.
oG2antt.Columns.Add("Def")
var_Items = oG2antt.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
var_Items.AddItem(3)
oG2antt.EndUpdate()
|
|
2208
|
I am using GroupBy feature to create a tree, but the top rows are aligned with the children, not indented. What could be wrong
' Occurs after a new Group Item has been inserted to Items collection.
function AddGroupItem as v (Item as OLE::Exontrol.G2antt.1::HITEM)
Dim color as
Dim var_Chart as local
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
color = 14474460
var_Items = oG2antt.Items
' var_Items.ItemDivider(Item) = -1
oG2antt.TemplateDef = "dim var_Items,Item"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = Item
oG2antt.Template = "var_Items.ItemDivider(Item) = -1"
' var_Items.CellValue(Item,1) = var_Items.CellCaption(Item,var_Items.GroupItem(Item))
oG2antt.TemplateDef = "dim var_Items,Item"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = Item
oG2antt.Template = "var_Items.CellValue(Item,1) = CellCaption(Item,GroupItem(Item))"
var_Items.AddBar(Item,"Progress",{12/02/2017},{12/02/2017})
var_Items.DefineSummaryBars(Item,"",-3,"")
' var_Items.ItemBold(Item) = .t.
oG2antt.TemplateDef = "dim var_Items,Item"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = Item
oG2antt.Template = "var_Items.ItemBold(Item) = True"
' var_Items.ItemBackColor(Item) = color
oG2antt.TemplateDef = "dim var_Items,Item"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = Item
oG2antt.Template = "var_Items.ItemBackColor(Item) = color"
' oG2antt.Chart.ItemBackColor(Item) = color
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.ItemBackColor(Item) = color"
end function
' Occurs after a new Item has been inserted to Items collection.
function AddItem as v (Item as OLE::Exontrol.G2antt.1::HITEM)
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
var_Items = oG2antt.Items
var_Items.AddBar(Item,"Task",{12/04/2017},{12/10/2017})
' var_Items.ItemBar(Item,"",514) = var_Items.ItemToIndex(Item)
oG2antt.TemplateDef = "dim var_Items,Item"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = Item
oG2antt.Template = "var_Items.ItemBar(Item,``,514) = ItemToIndex(Item)"
end function
Dim h as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Columns as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/02/2017}
' var_Chart.PaneWidth(.f.) = 128
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 128"
var_Columns = oG2antt.Columns
var_Columns.Add("C1")
var_Columns.Add("C2")
oG2antt.LinesAtRoot = -1
oG2antt.SortBarVisible = .t.
oG2antt.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
oG2antt.AllowGroupBy = .t.
var_Items = oG2antt.Items
h = var_Items.AddItem("Item A")
' var_Items.CellValue(h,1) = "SubItem A.1"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = `SubItem A.1`"
h = var_Items.AddItem("Item A")
' var_Items.CellValue(h,1) = "SubItem A.1"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = `SubItem A.1`"
h = var_Items.AddItem("Item A")
' var_Items.CellValue(h,1) = "SubItem A.1"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = `SubItem A.1`"
h = var_Items.AddItem("Item A")
' var_Items.CellValue(h,1) = "SubItem A.1"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = `SubItem A.1`"
h = var_Items.AddItem("Item B")
' var_Items.CellValue(h,1) = "SubItem B.1"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = `SubItem B.1`"
h = var_Items.AddItem("Item B")
' var_Items.CellValue(h,1) = "SubItem B.1"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = `SubItem B.1`"
oG2antt.Columns.Item(0).SortOrder = 1
oG2antt.EndUpdate()
|
|
2207
|
How can I change the names from English to my locale (localization)
Dim oG2antt as P
Dim var_Chart as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.AllowResizeChart = 262 'exAllowChangeUnitScale + exAllowResizeChartMiddle + exAllowResizeChartHeader
var_Chart.MonthNames = var_Chart.LocMonthNames
var_Chart.WeekDays = var_Chart.LocWeekDays
var_Chart.AMPM = var_Chart.LocAMPM
var_Chart.FirstWeekDay = var_Chart.LocFirstWeekDay
' var_Chart.Label(16) = "<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyyy%>"
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.Label(16) = `<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyyy%>`"
' var_Chart.Label(256) = "<|>KW<%ww%><|><%d%>. <%loc_m3%>, '<%yy%><r>KW<%ww%><|><%d%>. <%loc_mmmm%>, <%yyyy%><r>KW<%ww%><||><||>256"
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.Label(256) = `<|>KW<%ww%><|><%d%>. <%loc_m3%>, '<%yy%><r>KW<%ww%><|><%d%>. <%loc_mmmm%>, <%yyyy%><r>KW<%ww%><||><||>256`"
' var_Chart.Label(4096) = "<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%><|><%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%><||><||>4096"
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.Label(4096) = `<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%><|><%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%><||><||>4096`"
' var_Chart.Label(65536) = "<|><%hh%><|><%hh%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%> <%hh%><|><%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%><||><||>65536"
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.Label(65536) = `<|><%hh%><|><%hh%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%> <%hh%><|><%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%><||><||>65536`"
' var_Chart.Label(1048576) = "<|><%nn%><|><%hh%>:<%nn%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%> <%hh%>:<%nn%><|><%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>:<%nn%>"
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.Label(1048576) = `<|><%nn%><|><%hh%>:<%nn%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%> <%hh%>:<%nn%><|><%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>:<%nn%>`"
' var_Chart.Label(16777216) = "<|><%ss%><|><%nn%>:<%ss%><|><%hh%>:<%nn%>:<%ss%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%> <%hh%>:<%nn%>:<%ss%><|><%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>:<%nn%>:<%ss%>"
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.Label(16777216) = `<|><%ss%><|><%nn%>:<%ss%><|><%hh%>:<%nn%>:<%ss%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%> <%hh%>:<%nn%>:<%ss%><|><%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>:<%nn%>:<%ss%>`"
' var_Chart.LabelToolTip(16) = "<%loc_mmmm%>/<%yyyy%>"
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.LabelToolTip(16) = `<%loc_mmmm%>/<%yyyy%>`"
' var_Chart.LabelToolTip(256) = "<%d%>. <%loc_mmmm%>, <%yyyy%> KW<%ww%>"
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.LabelToolTip(256) = `<%d%>. <%loc_mmmm%>, <%yyyy%> KW<%ww%>`"
' var_Chart.LabelToolTip(4096) = "<%loc_dddd%>, <%d%>. <%loc_mmmm%> , <%yyyy%>"
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.LabelToolTip(4096) = `<%loc_dddd%>, <%d%>. <%loc_mmmm%> , <%yyyy%>`"
' var_Chart.LabelToolTip(65536) = "<%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>"
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.LabelToolTip(65536) = `<%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>`"
' var_Chart.LabelToolTip(1048576) = "<%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>:<%nn%>"
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.LabelToolTip(1048576) = `<%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>:<%nn%>`"
' var_Chart.LabelToolTip(16777216) = "<%loc_dddd%>, <%d%>. <%loc_mmmm%> <%yyyy%> <%hh%>:<%nn%>:<%ss%>"
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.LabelToolTip(16777216) = `<%loc_dddd%>, <%d%>. <%loc_mmmm%> <%yyyy%> <%hh%>:<%nn%>:<%ss%>`"
var_Chart.ToolTip = "<%ddd%> <%d%>. <%loc_mmmm%> <%yyyy%>"
' var_Chart.PaneWidth(.f.) = 0
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 0"
var_Chart.LevelCount = 2
var_Chart.UnitScale = 4096
var_Chart.UnitWidth = 24
oG2antt.EndUpdate()
|
|
2206
|
Is it possible to change the pattern for selection within the control's overview part (I would prefer a semi-transparent or solid color instead)
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.VisualAppearance.Add(2,"gBFLBCJwBAEHhEJAAEhABMsGACAADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYJAKCQ5DBJUBjTBcEwKGCQBwASQpUhqHYDTbIMByBIUIxUACUJAgeCRYiAMo8RrSEZARBNGR3GqaJ7oGTpRoaP4iSBTUThBRsPyhHqOBpEWIRSqKEQ1DBYcI2RZUaxBJQAAbrWr5VpKKYnSzBA4TBQkSTpGicZxteoJeiefIEVTHFwRNaFNS1Linb7ia5qCwmOJXUjcYAYfBOIR1SSBbIsawbNACbJnWjENYVdAdNTlAbPNAyPBqSDaMYRDCOND1BhuNATWSNLq2XZ5OzrGIaVjmWbbfwELZFUqydJ0exeiYNw/kGZBuDCHR/DeEYaCgGhMGcQ4pkiSxDgGXhIESW5MFgbQJBQZx+DScJEGsVZdnufggG+f5fnPFB/ooBZ/EaIAoBYBoBmASAeAqApfjgJgMgOYAoDoEIEl+WBKBSBQhGgXgQgYYYoDIHIHGCKB+CCAYiCiDgREWYhoG4KIKGGaIuCyCBfhiRQJDqXxgAEASAg")
oG2antt.SelBackMode = 1
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.OverviewVisible = -1
var_Chart.OverviewHeight = 64
var_Chart.FirstVisibleDate = {07/30/2018}
var_Chart.LevelCount = 2
' var_Chart.PaneWidth(.f.) = 128
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 128"
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = 8421504
var_Chart.OverviewSelBackColor = 33619712
' var_Chart.OverviewSelTransparent(.t.) = 50
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.OverviewSelTransparent(True) = 50"
oG2antt.SelBackColor = oG2antt.BackColor
oG2antt.SelForeColor = oG2antt.ForeColor
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{08/02/2017},{08/08/2017})
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{08/03/2018},{08/10/2018})
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",{08/04/2019},{08/12/2019})
' var_Items.SelectItem(var_Items.ItemByIndex(1)) = .t.
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.SelectItem(ItemByIndex(1)) = True"
oG2antt.EndUpdate()
|
|
2205
|
How can I display an item of picture type
Dim h as N
Dim h1 as N
Dim oG2antt as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.ScrollBySingleLine = .f.
oG2antt.HeaderAppearance = 4
oG2antt.HeaderHeight = 24
' oG2antt.Columns.Add("Artikel").HTMLCaption = "<u>Artikel"
var_Column = oG2antt.Columns.Add("Artikel")
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.HTMLCaption = `<u>Artikel`"
' oG2antt.Columns.Add("Waarde").HTMLCaption = "<u>Waarde"
var_Column1 = oG2antt.Columns.Add("Waarde")
oG2antt.TemplateDef = "dim var_Column1"
oG2antt.TemplateDef = var_Column1
oG2antt.Template = "var_Column1.HTMLCaption = `<u>Waarde`"
oG2antt.Template = "HTMLPicture(`T22128`) = `c:\exontrol\images\zipdisk.gif`" // oG2antt.HTMLPicture("T22128") = "c:\exontrol\images\zipdisk.gif"
var_Items = oG2antt.Items
h = var_Items.AddItem("T22128-28)2D")
h1 = var_Items.InsertItem(h,,"<img>T22128:128</img>")
' var_Items.CellValueFormat(h1,0) = 1
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.CellValueFormat(h1,0) = 1"
' var_Items.ItemHeight(h1) = 128
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemHeight(h1) = 128"
h1 = var_Items.InsertItem(h,,"werkvoorbereiding")
' var_Items.CellValue(h1,1) = "5.80"
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.CellValue(h1,1) = `5.80`"
' var_Items.CellBold(h1,1) = .t.
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.CellBold(h1,1) = True"
' var_Items.CellValue(var_Items.InsertItem(h1,,"Type"),1) = "Eenvoudig"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.CellValue(InsertItem(h1,,`Type`),1) = `Eenvoudig`"
' var_Items.CellValue(var_Items.InsertItem(h1,,"Prijs p/uur"),1) = "60,00"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.CellValue(InsertItem(h1,,`Prijs p/uur`),1) = `60,00`"
' var_Items.CellValue(var_Items.InsertItem(h1,,"Marhe"),1) = "15,00%"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.CellValue(InsertItem(h1,,`Marhe`),1) = `15,00%`"
' var_Items.CellValue(var_Items.InsertItem(h1,,"Insteltijd min."),1) = "5,00"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.CellValue(InsertItem(h1,,`Insteltijd min.`),1) = `5,00`"
' var_Items.CellValue(var_Items.InsertItem(h1,,"Aantal"),1) = 1
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.CellValue(InsertItem(h1,,`Aantal`),1) = 1"
' var_Items.CellValue(var_Items.InsertItem(h1,,"Kostprije"),1) = "5,00"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.CellValue(InsertItem(h1,,`Kostprije`),1) = `5,00`"
' var_Items.ExpandItem(h1) = .t.
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ExpandItem(h1) = True"
h1 = var_Items.InsertItem(h,,"materiall")
' var_Items.CellValue(h1,1) = "14.82"
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.CellValue(h1,1) = `14.82`"
' var_Items.CellBold(h1,1) = .t.
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.CellBold(h1,1) = True"
' var_Items.ItemHasChildren(h1) = .t.
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemHasChildren(h1) = True"
h1 = var_Items.InsertItem(h,,"snijden")
' var_Items.CellValue(h1,1) = "3.13"
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.CellValue(h1,1) = `3.13`"
' var_Items.CellBold(h1,1) = .t.
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.CellBold(h1,1) = True"
' var_Items.ItemHasChildren(h1) = .t.
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemHasChildren(h1) = True"
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
oG2antt.EndUpdate()
|
|
2204
|
How can I bold the root group-items
' Occurs after a new Group Item has been inserted to Items collection.
function AddGroupItem as v (Item as OLE::Exontrol.G2antt.1::HITEM)
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
var_Items = oG2antt.Items
var_Items.AddBar(Item,"Progress",{12/02/2017},{12/02/2017})
var_Items.DefineSummaryBars(Item,"",-3,"")
' var_Items.ItemBold(Item) = .t.
oG2antt.TemplateDef = "dim var_Items,Item"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = Item
oG2antt.Template = "var_Items.ItemBold(Item) = True"
end function
' Occurs after a new Item has been inserted to Items collection.
function AddItem as v (Item as OLE::Exontrol.G2antt.1::HITEM)
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Items.AddBar(Item,"Task",{12/04/2017},{12/10/2017})
end function
Dim h as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Columns as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {12/02/2017}
' var_Chart.PaneWidth(.f.) = 342
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 342"
var_Columns = oG2antt.Columns
var_Column = var_Columns.Add("C1")
var_Column.GroupByFormatCell = "'<caption> (' + value + ')'"
var_Columns.Add("C2")
var_Columns.Add("C3")
var_Column1 = var_Columns.Add("Pos")
var_Column1.FormatColumn = "1 pos ``"
var_Column1.AllowGroupBy = .f.
var_Column1.Position = 0
var_Column1.Width = 48
var_Column1.AllowSizing = .f.
oG2antt.SortBarVisible = .t.
oG2antt.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
oG2antt.AllowGroupBy = .t.
var_Items = oG2antt.Items
h = var_Items.AddItem("Item A")
' var_Items.CellValue(h,1) = "SubItem A.1"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = `SubItem A.1`"
' var_Items.CellValue(h,2) = "SubItem A.2"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,2) = `SubItem A.2`"
h = var_Items.AddItem("Item A")
' var_Items.CellValue(h,1) = "SubItem A.1"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = `SubItem A.1`"
' var_Items.CellValue(h,2) = "SubItem A.2"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,2) = `SubItem A.2`"
h = var_Items.AddItem("Item A")
' var_Items.CellValue(h,1) = "SubItem A.1"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = `SubItem A.1`"
' var_Items.CellValue(h,2) = "SubItem A.2"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,2) = `SubItem A.2`"
h = var_Items.AddItem("Item A")
' var_Items.CellValue(h,1) = "SubItem A.1"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = `SubItem A.1`"
' var_Items.CellValue(h,2) = "SubItem A.2"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,2) = `SubItem A.2`"
h = var_Items.AddItem("Item B")
' var_Items.CellValue(h,1) = "SubItem B.1"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = `SubItem B.1`"
' var_Items.CellValue(h,2) = "SubItem B.2"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,2) = `SubItem B.2`"
h = var_Items.AddItem("Item B")
' var_Items.CellValue(h,1) = "SubItem B.1"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,1) = `SubItem B.1`"
' var_Items.CellValue(h,2) = "SubItem B.2"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValue(h,2) = `SubItem B.2`"
oG2antt.Columns.Item(0).SortOrder = 1
oG2antt.EndUpdate()
|
|
2203
|
The exBarTransparent does not work for overlaid-bars
Dim h as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.BackColorAlternate = 15790320
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = 1
var_Chart.AllowLinkBars = .f.
' var_Chart.PaneWidth(.f.) = 48
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 48"
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.LevelCount = 2
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.OverlaidType = 515 'exOverlaidBarsStackAutoArrange + exOverlaidBarsStack
var_Bar.Pattern = 1
' var_Bar.Overlaid(256) = 0
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Overlaid(256) = 0"
' var_Bar.Def(3) = "<%=%9%>"
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(3) = `<%=%9%>`"
' var_Bar.Def(4) = 18
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(4) = 18"
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/02/2001},{01/04/2001},"A1")
var_Items.AddBar(h,"Task",{01/03/2001},{01/05/2001},"A2")
h = var_Items.AddItem("Task 2")
var_Items.AddBar(h,"Task",{01/07/2001},{01/11/2001},"B1")
var_Items.AddBar(h,"Task",{01/08/2001},{01/12/2001},"B2")
' var_Items.ItemBar(0,"<*>",19) = 75
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemBar(0,`<*>`,19) = 75"
oG2antt.EndUpdate()
|
|
2202
|
We’re adding tasks on the chart which have a caption that is not clipped (and left aligned). When we add another task right after the first one, then the caption from that first bar is “stuck” behind the second bar. The bar's z-order is determined by the bar's key.
Dim h1 as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Bar1 as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
oG2antt.DefaultItemHeight = 24
var_Chart = oG2antt.Chart
var_Chart.NonworkingDays = 0
var_Chart.FirstVisibleDate = {09/17/2006}
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Chart.LevelCount = 2
var_Bar = var_Chart.Bars.Add("Green")
var_Bar.Color = 65280
' var_Bar.Def(18) = -2
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(18) = -2"
' var_Bar.Def(3) = "<%=%9%>"
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(3) = `<%=%9%>`"
' var_Bar.Def(4) = 18
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Def(4) = 18"
var_Bar1 = var_Chart.Bars.Add("Red")
var_Bar1.Color = 255
' var_Bar1.Def(18) = 2
oG2antt.TemplateDef = "dim var_Bar1"
oG2antt.TemplateDef = var_Bar1
oG2antt.Template = "var_Bar1.Def(18) = 2"
' var_Bar1.Def(3) = "<%=%9%>"
oG2antt.TemplateDef = "dim var_Bar1"
oG2antt.TemplateDef = var_Bar1
oG2antt.Template = "var_Bar1.Def(3) = `<%=%9%>`"
' var_Bar1.Def(4) = 18
oG2antt.TemplateDef = "dim var_Bar1"
oG2antt.TemplateDef = var_Bar1
oG2antt.Template = "var_Bar1.Def(4) = 18"
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Red / Green")
var_Items.AddBar(h1,"Green",{09/21/2006},{09/27/2006},"K1")
var_Items.AddBar(h1,"Red",{09/23/2006},{09/25/2006},"K2")
h1 = var_Items.AddItem("Green / Red")
var_Items.AddBar(h1,"Green",{09/21/2006},{09/27/2006},"K2")
var_Items.AddBar(h1,"Red",{09/23/2006},{09/25/2006},"K1")
oG2antt.EndUpdate()
|
|
2201
|
The caption/text of the link is overwritten by its line. What can be done
Dim h as N
Dim h1 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
Dim var_Level as local
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 64"
var_Chart.FirstVisibleDate = {06/21/2005}
var_Chart.ResizeUnitScale = 65536
var_Chart.UnitWidth = 48
' var_Chart.Level(0).Label = "<b><%mmm%></b> <%dd%>"
var_Level = var_Chart.Level(0)
oG2antt.TemplateDef = "dim var_Level"
oG2antt.TemplateDef = var_Level
oG2antt.Template = "var_Level.Label = `<b><%mmm%></b> <%dd%>`"
var_Chart.LinksWidth = 3
var_Items = oG2antt.Items
h = var_Items.AddItem("Root")
var_Items.AddBar(h,"Task",{06/22/2005},{06/23/2005})
h1 = var_Items.InsertItem(h,,"Child")
var_Items.AddBar(h1,"Task",{06/24/2005 08:00:00},{06/24/2005 16:00:00})
var_Items.AddLink("Link1",h,"",h1,"")
' var_Items.Link("Link1",12) = "<bgcolor=FFFFFF> link </bgcolor>"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`Link1`,12) = `<bgcolor=FFFFFF> link </bgcolor>`"
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
oG2antt.EndUpdate()
|