|
52
|
Print and Print Preview
with thisform.G2Host1
.HostReadOnly = 0
with .Host
.BeginUpdate
var_s = "gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+Ok"
var_s = var_s + "YB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA=="
.ReplaceIcon(var_s)
.ReplaceIcon("C:\images\favicon.ico",0)
with .Chart
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 128
.LevelCount = 2
endwith
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1")
.DefaultItem = h
.ItemBar(0,"K1",3) = "<img>1</img>"
endwith
.EndUpdate
endwith
with CreateObject("Exontrol.Print")
.PrintExt = thisform.G2Host1.Host.Object
.Preview
endwith
endwith
|
|
51
|
How can I replace or add an icon at runtime
with thisform.G2Host1
with .Host
.BeginUpdate
var_s = "gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+Ok"
var_s = var_s + "YB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA=="
.ReplaceIcon(var_s)
.ReplaceIcon("C:\images\favicon.ico",0)
with .Chart
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 128
.LevelCount = 2
endwith
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1")
.DefaultItem = h
.ItemBar(0,"K1",3) = "<img>1</img>"
endwith
.EndUpdate
endwith
endwith
|
|
50
|
How do I get the start/end of the bar once the BarResize/BarResizing event occurs
*** HostEvent event - Notifies the application once the host fires an event. ***
LPARAMETERS EventID
with thisform.G2Host1
h = .HostEventParam(0)
key = .HostEventParam(1)
DEBUGOUT( .HostEventParam(-2) )
DEBUGOUT( "Start:" )
DEBUGOUT( .Host.Items.ItemBar(h,key,1) )
DEBUGOUT( .HostEventParam(-2) )
DEBUGOUT( "End:" )
DEBUGOUT( .Host.Items.ItemBar(h,key,2) )
endwith
with thisform.G2Host1
with .Host.Chart
.PaneWidth(0) = 128
.FirstVisibleDate = {^2019-3-30}
endwith
with .Host.Items
.AddBar(.AddItem("Task"),"Task",{^2019-4-1},{^2019-4-14})
endwith
endwith
|
|
49
|
How do I get the bar/task from the cursor
*** HostEvent event - Notifies the application once the host fires an event. ***
LPARAMETERS EventID
with thisform.G2Host1
DEBUGOUT( "Event:" )
DEBUGOUT( .HostEventParam(-2) )
with .Host
i = .ItemFromPoint(-1,-1,c,h)
DEBUGOUT( "Cell:" )
DEBUGOUT( .Items.CellCaption(i,c) )
with .Chart
b = .BarFromPoint(-1,1)
DEBUGOUT( "Bar:" )
DEBUGOUT( thisform.G2Host1.Host.Items.ItemBar(i,b,0) )
endwith
endwith
endwith
|
|
48
|
How do I get the cell from the cursor
*** HostEvent event - Notifies the application once the host fires an event. ***
LPARAMETERS EventID
with thisform.G2Host1
DEBUGOUT( "Event:" )
DEBUGOUT( .HostEventParam(-2) )
with .Host
i = .ItemFromPoint(-1,-1,c,h)
DEBUGOUT( "Cell:" )
DEBUGOUT( .Items.CellCaption(i,c) )
endwith
endwith
|
|
47
|
How can I highlights cells based on its value
with thisform.G2Host1
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataField(2) = "ReportsTo"
.Object.DataSource("Tasks") = .DataSource("Items")
.Object.DataMember("Tasks") = "EmployeeDetails"
.Object.DataField(7) = "Tasks"
.Object.DataField(8) = "EmployeeID"
.Object.DataField(9) = "DateStart"
.Object.DataField(10) = "DateEnd"
.Object.DataField(14) = "TaskID"
.Object.DataField(12) = "Color"
.Object.DataField(13) = "TaskName"
with .Host
.BeginUpdate
.BackColorAlternate = RGB(0,0,0)
with .Columns.Item("Title")
.Def(4) = 15790320
.Width = .AutoWidth
endwith
with .ConditionalFormats
.Add("lower(%4) contains `manager`").Bold = .T.
.Add("%3").BackColor = RGB(240,240,240)
endwith
.Items.ExpandItem(0) = .T.
with .Columns.Item("EmployeeID")
.Width = .AutoWidth
endwith
.EndUpdate
endwith
endwith
|
|
46
|
How do I programatically hide a column
with thisform.G2Host1
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataField(2) = "ReportsTo"
.Object.DataSource("Tasks") = .DataSource("Items")
.Object.DataMember("Tasks") = "EmployeeDetails"
.Object.DataField(7) = "Tasks"
.Object.DataField(8) = "EmployeeID"
.Object.DataField(9) = "DateStart"
.Object.DataField(10) = "DateEnd"
.Object.DataField(14) = "TaskID"
.Object.DataField(12) = "Color"
.Object.DataField(13) = "TaskName"
.Host.Columns.Item("LastName").Visible = .F.
endwith
|
|
45
|
Is it possible to get the information from the control when we click on the bar/item
*** HostEvent event - Notifies the application once the host fires an event. ***
LPARAMETERS EventID
with thisform.G2Host1
DEBUGOUT( .HostEventParam(-2) )
with .Host
i = .ItemFromPoint(-1,-1,c,hit)
DEBUGOUT( "cell's value from cursor: " )
DEBUGOUT( .Items.CellValue(i,c) )
DEBUGOUT( "cell's value on col 1: " )
DEBUGOUT( .Items.CellValue(i,1) )
b = .Chart.BarFromPoint(-1,-1)
DEBUGOUT( "Bar:" )
DEBUGOUT( b )
DEBUGOUT( "Bar Start:" )
DEBUGOUT( .Items.ItemBar(i,b,1) )
DEBUGOUT( "Bar End:" )
DEBUGOUT( .Items.ItemBar(i,b,2) )
DEBUGOUT( "Bar Caption:" )
DEBUGOUT( .Items.ItemBar(i,b,3) )
endwith
endwith
with thisform.G2Host1
with .Host
.Debug = .T.
with .Chart.Bars.Item("Task")
.OverlaidType = 515 && OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
endwith
endwith
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataField(2) = "ReportsTo"
.Object.DataSource("Tasks") = .DataSource("Items")
.Object.DataMember("Tasks") = "EmployeeDetails"
.Object.DataField(7) = "Tasks"
.Object.DataField(8) = "EmployeeID"
.Object.DataField(9) = "DateStart"
.Object.DataField(10) = "DateEnd"
.Object.DataField(14) = "TaskID"
.Object.DataField(12) = "Color"
.Object.DataField(13) = "TaskName"
.Host.Items.ExpandItem(0) = .T.
with .Host.Chart
.PaneWidth(0) = 128
.ScrollTo({^2017-5-27},1)
endwith
endwith
|
|
44
|
How do I get the bar from the cursor
*** HostEvent event - Notifies the application once the host fires an event. ***
LPARAMETERS EventID
with thisform.G2Host1
DEBUGOUT( .HostEventParam(-2) )
DEBUGOUT( .Host.Chart.BarFromPoint(-1,-1) )
endwith
with thisform.G2Host1
with .Host
.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExG2Host\Sample\EBN\Assorted\wbs-ass.ebn")
with .Chart.Bars.Item("Task")
.Height = 15
.Color = 0x1ff0000
.OverlaidType = 515 && OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
endwith
endwith
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataField(2) = "ReportsTo"
.Object.DataSource("Tasks") = .DataSource("Items")
.Object.DataMember("Tasks") = "EmployeeDetails"
.Object.DataField(7) = "Tasks"
.Object.DataField(8) = "EmployeeID"
.Object.DataField(9) = "DateStart"
.Object.DataField(10) = "DateEnd"
.Object.DataField(14) = "TaskID"
.Object.DataField(12) = "Color"
.Object.DataField(13) = "TaskName"
.Host.Items.ExpandItem(0) = .T.
with .Host.Chart
.PaneWidth(0) = 128
.ScrollTo({^2017-5-27},1)
endwith
endwith
|
|
43
|
How do I add Start/End columns
*** HostEvent event - Notifies the application once the host fires an event. ***
LPARAMETERS EventID
with thisform.G2Host1
DEBUGOUT( .HostEventParam(-2) )
endwith
with thisform.G2Host1
.HostReadOnly = 255 && HostReadOnlyEnum.exHostReadWrite Or HostReadOnlyEnum.exHostAllowAddEmptyItem
with .Host
.SingleSel = .F.
.OnResizeControl = 1
.ScrollBars = 2058 && ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exDisableNoVertical
with .Columns.Add("Start")
.AllowSizing = .F.
.Def(18) = 1
.Editor.EditType = 7
endwith
with .Columns.Add("End")
.AllowSizing = .F.
.Def(18) = 2
.Editor.EditType = 7
endwith
.Items.AllowCellValueToItemBar = .T.
with .Chart
.AllowCreateBar = 1
.PaneWidth(0) = 256
.Bars.Item("Task").OverlaidType = 515 && OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
endwith
endwith
endwith
|
|
42
|
How do I hide the left/items/columns part of the control
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
with .Host.Chart.Bars.Item("Task")
.Pattern = 1
.Color = RGB(0,0,255)
.Def(19) = 50
endwith
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataField(2) = "ReportsTo"
.Object.DataSource("Tasks") = .DataSource("Items")
.Object.DataMember("Tasks") = "EmployeeDetails"
.Object.DataField(7) = "Tasks"
.Object.DataField(8) = "EmployeeID"
.Object.DataField(9) = "DateStart"
.Object.DataField(10) = "DateEnd"
.Object.DataField(14) = "TaskID"
.Object.DataField(12) = "Color"
.Object.DataField(13) = "TaskName"
.Host.Items.ExpandItem(0) = .T.
.HostReadOnly = 255 && HostReadOnlyEnum.exHostReadWrite Or HostReadOnlyEnum.exHostAllowAddEmptyItem
with .Host
.OnResizeControl = 129 && OnResizeControlEnum.exDisableSplitter Or OnResizeControlEnum.exResizeChart
with .Chart
.ColumnsFormatLevel = "1"
.PaneWidth(0) = 0
.ScrollTo({^2017-5-27},1)
endwith
endwith
endwith
|
|
41
|
How do I hide the right/chart/tasks part of the control
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
with .Host.Chart.Bars.Item("Task")
.Pattern = 1
.Color = RGB(0,0,255)
.Def(19) = 50
endwith
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataField(2) = "ReportsTo"
.Object.DataSource("Tasks") = .DataSource("Items")
.Object.DataMember("Tasks") = "EmployeeDetails"
.Object.DataField(7) = "Tasks"
.Object.DataField(8) = "EmployeeID"
.Object.DataField(9) = "DateStart"
.Object.DataField(10) = "DateEnd"
.Object.DataField(14) = "TaskID"
.Object.DataField(12) = "Color"
.Object.DataField(13) = "TaskName"
.Host.Items.ExpandItem(0) = .T.
with .Host
with .Chart
.PaneWidth(1) = 0
.OverviewVisible = 0
endwith
endwith
endwith
|
|
40
|
How do hide the top/overview part of the control
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataField(2) = "ReportsTo"
.Object.DataField(7) = .DataField(0)
.Object.DataField(9) = "BirthDate"
.Object.DataField(10) = "HireDate"
with .Host
with .Chart
.OverviewVisible = 0
.PaneWidth(0) = 256
.ScrollTo({^1969-4-27},1)
endwith
endwith
endwith
|
|
39
|
How do I resize the panels
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
with .Host
.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExG2Host\Sample\EBN\Assorted\wbs-ass.ebn")
with .Chart.Bars.Item("Task")
.Height = 15
.Color = 0x1ff0000
.OverlaidType = 515 && OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
endwith
endwith
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataField(2) = "ReportsTo"
.Object.DataSource("Tasks") = .DataSource("Items")
.Object.DataMember("Tasks") = "EmployeeDetails"
.Object.DataField(7) = "Tasks"
.Object.DataField(8) = "EmployeeID"
.Object.DataField(9) = "DateStart"
.Object.DataField(10) = "DateEnd"
.Object.DataField(14) = "TaskID"
.Object.DataField(12) = "Color"
.Object.DataField(13) = "TaskName"
.Host.Items.ExpandItem(0) = .T.
with .Host.Chart
.PaneWidth(0) = 128
.ScrollTo({^2017-5-27},1)
endwith
endwith
|
|
38
|
How do I lock the first column
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
with .Host
.CountLockedColumns = 1
.BackColorLock = .BackColorAlternate
endwith
endwith
|
|
37
|
How do I specify a different color for the tasks ( EBN color )
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
with .Host
.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExG2Host\Sample\EBN\Assorted\wbs-ass.ebn")
with .Chart.Bars.Item("Task")
.Height = 15
.Color = 0x1ff0000
.OverlaidType = 515 && OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
endwith
endwith
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataField(2) = "ReportsTo"
.Object.DataSource("Tasks") = .DataSource("Items")
.Object.DataMember("Tasks") = "EmployeeDetails"
.Object.DataField(7) = "Tasks"
.Object.DataField(8) = "EmployeeID"
.Object.DataField(9) = "DateStart"
.Object.DataField(10) = "DateEnd"
.Object.DataField(14) = "TaskID"
.Object.DataField(12) = "Color"
.Object.DataField(13) = "TaskName"
.Host.Items.ExpandItem(0) = .T.
.Host.Chart.PaneWidth(0) = 256
.Host.Chart.ScrollTo({^2017-5-27},1)
endwith
|
|
36
|
How do I specify a different color for the tasks ( solid color, transparent )
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
with .Host.Chart.Bars.Item("Task")
.Pattern = 1
.Color = RGB(0,0,255)
.Def(19) = 50
endwith
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataField(2) = "ReportsTo"
.Object.DataSource("Tasks") = .DataSource("Items")
.Object.DataMember("Tasks") = "EmployeeDetails"
.Object.DataField(7) = "Tasks"
.Object.DataField(8) = "EmployeeID"
.Object.DataField(9) = "DateStart"
.Object.DataField(10) = "DateEnd"
.Object.DataField(14) = "TaskID"
.Object.DataField(12) = "Color"
.Object.DataField(13) = "TaskName"
.Host.Items.ExpandItem(0) = .T.
.Host.Chart.PaneWidth(0) = 256
.Host.Chart.ScrollTo({^2017-5-27},1)
endwith
|
|
35
|
GroupBy
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataSource("Tasks") = .DataSource("Items")
.Object.DataMember("Tasks") = "EmployeeDetails"
.Object.DataField(7) = "Tasks"
.Object.DataField(8) = "EmployeeID"
.Object.DataField(9) = "DateStart"
.Object.DataField(10) = "DateEnd"
.Object.DataField(14) = "TaskID"
.Object.DataSource("Links") = .DataSource("Items")
.Object.DataMember("Links") = "EmployeeLinks"
.Object.DataField(15) = "Links"
.Object.DataField(16) = "Start"
.Object.DataField(17) = "End"
with .Host
.AllowGroupBy = .T.
.SortBarVisible = .T.
.BackColorSortBar = thisform.G2Host1.Host.BackColor
.BackColorSortBarCaption = .BackColorSortBar
.SortBarCaption = "<sha ;;0><fgcolor=FF0000>Drag a <b>column</b> header here to sort by that column."
with .Chart.Bars.Item("Task")
.OverlaidType = 515 && OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
endwith
.Items.ExpandItem(0) = .T.
.CountLockedColumns = 1
.BackColorLock = .BackColorAlternate
with .Columns.Item("EmployeeID")
.AllowGroupBy = .F.
.Def(7) = thisform.G2Host1.Host.BackColorAlternate
endwith
.Columns.Item("Title").SortOrder = 1
endwith
.Host.Chart.ScrollTo({^2017-5-27},1)
endwith
|
|
34
|
How can I hide a column
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Host.Columns.Item(0).Visible = .F.
endwith
|
|
33
|
Can row errors being highligted until the user correct them, not to clear them as soon a change occurs
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.HostDef(7) = .F.
endwith
|
|
32
|
No error is highligthed
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
endwith
|
|
31
|
I've noticed that rows with errors are shown in red. Is it possible to change the colors
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.HostDef(6) = 0
.Object.HostDef(5) = 16777215
endwith
|
|
30
|
Is it possible to rename the (New) to something else
with thisform.G2Host1
.Object.HostDef(1) = "*"
with .Host
.BeginUpdate
.Items.AddItem("A")
.Items.AddItem("B")
.EndUpdate
endwith
.Refresh
endwith
|
|
29
|
How can I hide the (New) item (sample 2)
with thisform.G2Host1
.HostReadOnly = 240 && HostReadOnlyEnum.exHostAllowUpdate Or HostReadOnlyEnum.exHostAllowDelete
with .Host
.BeginUpdate
.Items.AddItem("A")
.Items.AddItem("B")
.EndUpdate
endwith
endwith
|
|
28
|
How can I hide the (New) item (sample 1)
with thisform.G2Host1
.Object.HostDef(1) = ""
with .Host
.BeginUpdate
.Items.AddItem("A")
.Items.AddItem("B")
.EndUpdate
endwith
.Refresh
endwith
|
|
27
|
Read-Only
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.HostReadOnly = 0
endwith
|
|
26
|
How can I prevent user create new /delete tasks ( only move or resize then )
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataSource("Tasks") = .DataSource("Items")
.Object.DataMember("Tasks") = "EmployeeDetails"
.Object.DataField(7) = "Tasks"
.Object.DataField(8) = "EmployeeID"
.Object.DataField(9) = "DateStart"
.Object.DataField(10) = "DateEnd"
.Object.DataField(14) = "TaskID"
.Object.DataSource("Links") = .DataSource("Items")
.Object.DataMember("Links") = "EmployeeLinks"
.Object.DataField(15) = "Links"
.Object.DataField(16) = "Start"
.Object.DataField(17) = "End"
with .Host.Chart.Bars.Item("Task")
.OverlaidType = 515 && OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
endwith
.Host.Items.ExpandItem(0) = .T.
.HostReadOnly = 128
.Host.Chart.ScrollTo({^2017-5-27},1)
endwith
|
|
25
|
How do I get the row/item/task/link from the cursor
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
*** HostEvent event - Notifies the application once the host fires an event. ***
LPARAMETERS EventID
with thisform.G2Host1
DEBUGOUT( .HostContext.ToString )
endwith
with thisform.G2Host1
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.HostReadOnly = 141 && HostReadOnlyEnum.exHostAllowUpdate Or HostReadOnlyEnum.exHostAllowAddNew
endwith
|
|
24
|
Disable Delete
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.HostReadOnly = 141 && HostReadOnlyEnum.exHostAllowUpdate Or HostReadOnlyEnum.exHostAllowAddNew
endwith
|
|
23
|
Disable AddNew
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.HostReadOnly = 240 && HostReadOnlyEnum.exHostAllowUpdate Or HostReadOnlyEnum.exHostAllowDelete
endwith
|
|
22
|
ACCDB sample ( file )
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataField(2) = "ReportsTo"
.Object.DataSource("Tasks") = .DataSource("Items")
.Object.DataMember("Tasks") = "EmployeeDetails"
.Object.DataField(7) = "Tasks"
.Object.DataField(8) = "EmployeeID"
.Object.DataField(9) = "DateStart"
.Object.DataField(10) = "DateEnd"
.Object.DataField(14) = "TaskID"
.Object.DataSource("Links") = .DataSource("Items")
.Object.DataMember("Links") = "EmployeeLinks"
.Object.DataField(15) = "Links"
.Object.DataField(16) = "Start"
.Object.DataField(17) = "End"
with .Host.Chart.Bars.Item("Task")
.OverlaidType = 515 && OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
endwith
.Host.Items.ExpandItem(0) = .T.
.Host.Chart.ScrollTo({^2017-5-27},1)
endwith
|
|
21
|
MDB sample ( file )
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\sample.mdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataField(2) = "ReportsTo"
.Object.DataSource("Tasks") = .DataSource("Items")
.Object.DataMember("Tasks") = "EmployeeDetails"
.Object.DataField(7) = "Tasks"
.Object.DataField(8) = "EmployeeID"
.Object.DataField(9) = "DateStart"
.Object.DataField(10) = "DateEnd"
.Object.DataField(14) = "TaskID"
.Object.DataSource("Links") = .DataSource("Items")
.Object.DataMember("Links") = "EmployeeLinks"
.Object.DataField(15) = "Links"
.Object.DataField(16) = "Start"
.Object.DataField(17) = "End"
with .Host.Chart.Bars.Item("Task")
.OverlaidType = 515 && OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
endwith
.Host.Items.ExpandItem(0) = .T.
.Host.Chart.ScrollTo({^2017-5-27},1)
endwith
|
|
20
|
DBF sample ( file )
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\sample.dbf"
.Object.DataField(0) = "Items"
endwith
|
|
19
|
DAO sample ( object, DAO.DBEngine.120, multiple tasks, multiple tables )
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
with CreateObject("DAO.DBEngine.120")
with .OpenDatabase("C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
rsEmployees = .OpenRecordset("Employees")
rsTasks = .OpenRecordset("EmployeeDetails")
rsLinks = .OpenRecordset("EmployeeLinks")
endwith
endwith
.Object.DataSource("Items") = rsEmployees
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataField(2) = "ReportsTo"
.Object.DataSource("Tasks") = rsTasks
.Object.DataField(7) = "Tasks"
.Object.DataField(8) = "EmployeeID"
.Object.DataField(9) = "DateStart"
.Object.DataField(10) = "DateEnd"
.Object.DataField(14) = "TaskID"
.Object.DataSource("Links") = rsLinks
.Object.DataField(15) = "Links"
.Object.DataField(16) = "Start"
.Object.DataField(17) = "End"
with .Host.Chart.Bars.Item("Task")
.OverlaidType = 515 && OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
endwith
.Host.Items.ExpandItem(0) = .T.
.Host.Chart.ScrollTo({^2017-5-27},1)
endwith
|
|
18
|
DAO sample ( file, multiple tasks, multiple tables )
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
.Object.DataTechnology("Items") = "DAO.DBEngine.120;DAO.DBEngine.36"
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataField(2) = "ReportsTo"
.Object.DataTechnology("Tasks") = "DAO.DBEngine.120;DAO.DBEngine.36"
.Object.DataSource("Tasks") = .DataSource("Items")
.Object.DataMember("Tasks") = "EmployeeDetails"
.Object.DataField(7) = "Tasks"
.Object.DataField(8) = "EmployeeID"
.Object.DataField(9) = "DateStart"
.Object.DataField(10) = "DateEnd"
.Object.DataField(14) = "TaskID"
.Object.DataTechnology("Links") = "DAO.DBEngine.120;DAO.DBEngine.36"
.Object.DataSource("Links") = .DataSource("Items")
.Object.DataMember("Links") = "EmployeeLinks"
.Object.DataField(15) = "Links"
.Object.DataField(16) = "Start"
.Object.DataField(17) = "End"
with .Host.Chart.Bars.Item("Task")
.OverlaidType = 515 && OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
endwith
.Host.Items.ExpandItem(0) = .T.
.Host.Chart.ScrollTo({^2017-5-27},1)
endwith
|
|
17
|
DAO sample ( object, DAO.DBEngine.120, single task, single table )
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
with CreateObject("DAO.DBEngine.120")
with .OpenDatabase("C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
rsEmployees = .OpenRecordset("Employees")
rsLinks = .OpenRecordset("EmployeeLinks")
endwith
endwith
.Object.DataSource("Items") = rsEmployees
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataField(2) = "ReportsTo"
.Object.DataField(7) = .DataField(0)
.Object.DataField(9) = "BirthDate"
.Object.DataField(10) = "HireDate"
.Object.DataSource("Links") = rsLinks
.Object.DataField(15) = "Links"
.Object.DataField(16) = "Start"
.Object.DataField(17) = "End"
endwith
|
|
16
|
DAO sample ( file, single task, single table )
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
.Object.DataTechnology("Items") = "DAO.DBEngine.120;DAO.DBEngine.36"
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataField(2) = "ReportsTo"
.Object.DataField(7) = .DataField(0)
.Object.DataField(9) = "BirthDate"
.Object.DataField(10) = "HireDate"
.Object.DataTechnology("Links") = "DAO.DBEngine.120;DAO.DBEngine.36"
.Object.DataSource("Links") = .DataSource("Items")
.Object.DataMember("Links") = "EmployeeLinks"
.Object.DataField(15) = "Links"
.Object.DataField(16) = "Start"
.Object.DataField(17) = "End"
endwith
|
|
15
|
DAO sample ( tree recordset )
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
.Object.DataTechnology("Items") = "DAO.DBEngine.120;DAO.DBEngine.36"
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataField(2) = "ReportsTo"
endwith
|
|
14
|
DAO sample ( flat recordset )
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
with CreateObject("DAO.DBEngine.120")
with .OpenDatabase("C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
rsEmployees = .OpenRecordset("Employees")
endwith
endwith
.Object.DataSource("Items") = rsEmployees
.Object.DataField(0) = "Items"
endwith
|
|
13
|
DAO sample ( flat )
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
.Object.DataTechnology("Items") = "DAO.DBEngine.120;DAO.DBEngine.36"
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
endwith
|
|
12
|
ADO sample ( object, ADODB.Recordset, multiple tasks )
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
rsEmployees = CreateObject("ADODB.Recordset")
rsEmployees.Open("Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb",3,3)
.Object.DataSource("Items") = rsEmployees
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataField(2) = "ReportsTo"
rsTasks = CreateObject("ADODB.Recordset")
rsTasks.Open("EmployeeDetails","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb",3,3)
.Object.DataSource("Tasks") = rstasks
.Object.DataField(7) = "Tasks"
.Object.DataField(8) = "EmployeeID"
.Object.DataField(9) = "DateStart"
.Object.DataField(10) = "DateEnd"
.Object.DataField(14) = "TaskID"
rsLinks = CreateObject("ADODB.Recordset")
rsLinks.Open("EmployeeLinks","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb",3,3)
.Object.DataSource("Links") = rsLinks
.Object.DataField(15) = "Links"
.Object.DataField(16) = "Start"
.Object.DataField(17) = "End"
with .Host.Chart.Bars.Item("Task")
.OverlaidType = 515 && OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
endwith
.Host.Items.ExpandItem(0) = .T.
.Host.Chart.ScrollTo({^2017-5-27},1)
endwith
|
|
11
|
ADO sample ( file, multiple tasks, multiple tables )
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
.Object.DataTechnology("Items") = "ADODB.Recordset;ADOR.Recordset"
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataField(2) = "ReportsTo"
.Object.DataTechnology("Tasks") = "ADODB.Recordset;ADOR.Recordset"
.Object.DataSource("Tasks") = .DataSource("Items")
.Object.DataMember("Tasks") = "EmployeeDetails"
.Object.DataField(7) = "Tasks"
.Object.DataField(8) = "EmployeeID"
.Object.DataField(9) = "DateStart"
.Object.DataField(10) = "DateEnd"
.Object.DataField(14) = "TaskID"
.Object.DataTechnology("Links") = "ADODB.Recordset;ADOR.Recordset"
.Object.DataSource("Links") = .DataSource("Items")
.Object.DataMember("Links") = "EmployeeLinks"
.Object.DataField(15) = "Links"
.Object.DataField(16) = "Start"
.Object.DataField(17) = "End"
with .Host.Chart.Bars.Item("Task")
.OverlaidType = 515 && OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
endwith
.Host.Items.ExpandItem(0) = .T.
.Host.Chart.ScrollTo({^2017-5-27},1)
endwith
|
|
10
|
ADO sample ( object, ADODB.Recordset, single task, single table )
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
rsEmployees = CreateObject("ADODB.Recordset")
rsEmployees.Open("Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb",3,3)
.Object.DataSource("Items") = rsEmployees
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataField(2) = "ReportsTo"
.Object.DataField(7) = .DataField(0)
.Object.DataField(9) = "BirthDate"
.Object.DataField(10) = "HireDate"
rsLinks = CreateObject("ADODB.Recordset")
rsLinks.Open("EmployeeLinks","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb",3,3)
.Object.DataSource("Links") = rsLinks
.Object.DataField(15) = "Links"
.Object.DataField(16) = "Start"
.Object.DataField(17) = "End"
endwith
|
|
9
|
ADO sample ( file, single task, single table )
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
.Object.DataTechnology("Items") = "ADODB.Recordset;ADOR.Recordset"
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataField(2) = "ReportsTo"
.Object.DataField(7) = .DataField(0)
.Object.DataField(9) = "BirthDate"
.Object.DataField(10) = "HireDate"
.Object.DataTechnology("Links") = "ADODB.Recordset;ADOR.Recordset"
.Object.DataSource("Links") = .DataSource("Items")
.Object.DataMember("Links") = "EmployeeLinks"
.Object.DataField(15) = "Links"
.Object.DataField(16) = "Start"
.Object.DataField(17) = "End"
endwith
|
|
8
|
ADO sample ( tree recordset )
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
.Object.DataTechnology("Items") = "ADODB.Recordset;ADOR.Recordset"
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
.Object.DataField(1) = "EmployeeID"
.Object.DataField(2) = "ReportsTo"
endwith
|
|
7
|
ADO sample ( flat recordset )
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
rsEmployees = CreateObject("ADODB.Recordset")
rsEmployees.Open("Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb",3,3)
.Object.DataSource("Items") = rsEmployees
.Object.DataField(0) = "Items"
endwith
|
|
6
|
ADO sample ( flat table )
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
.Object.DataTechnology("Items") = "ADODB.Recordset;ADOR.Recordset"
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb"
.Object.DataMember("Items") = "Employees"
.Object.DataField(0) = "Items"
endwith
|
|
5
|
XML sample ( object, MSXML.DOMDocument )
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
xml = CreateObject("MSXML.DOMDocument")
xml.async = .F.
xml.load("C:\Program Files\Exontrol\ExG2Host\Sample\sample.xml")
.Object.DataSource("Items") = xml
.Object.DataField(0) = "Items"
with .Host
.LinesAtRoot = -1
.SingleSel = .F.
.AutoDrag = 3
endwith
endwith
|
|
4
|
XML sample ( file tree )
*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
with thisform.G2Host1
DEBUGOUT( Error )
DEBUGOUT( Description )
endwith
with thisform.G2Host1
.Object.DataTechnology("Items") = "MSXML.DOMDocument"
.Object.DataSource("Items") = "C:\Program Files\Exontrol\ExG2Host\Sample\sample.xml"
.Object.DataField(0) = "Items"
with .Host
.LinesAtRoot = -1
.SingleSel = .F.
.AutoDrag = 3
endwith
endwith
|
|
3
|
How can I let user create new items/bars when clicking the empty area of the control
*** HostEvent event - Notifies the application once the host fires an event. ***
LPARAMETERS EventID
with thisform.G2Host1
DEBUGOUT( .HostEventParam(-2) )
endwith
with thisform.G2Host1
.HostReadOnly = 255 && HostReadOnlyEnum.exHostReadWrite Or HostReadOnlyEnum.exHostAllowAddEmptyItem
with .Host
.ScrollBars = 2058 && ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exDisableNoVertical
with .Chart
.PaneWidth(0) = 128
.AllowCreateBar = 1
endwith
endwith
endwith
|
|
2
|
How do I handle events of the host
*** HostEvent event - Notifies the application once the host fires an event. ***
LPARAMETERS EventID
with thisform.G2Host1
DEBUGOUT( .HostEventParam(-2) )
endwith
with thisform.G2Host1
with .Host
.BeginUpdate
.Columns.Add("new column")
.EndUpdate
endwith
endwith
|
|
1
|
How can I get the version of the host/exg2antt control
with thisform.G2Host1
DEBUGOUT( .Version )
DEBUGOUT( "Host" )
DEBUGOUT( .Host.Version )
endwith
|