|
50
|
How do I get the start/end of the bar once the BarResize/BarResizing event occurs
// Notifies the application once the host fires an event.
Procedure OnComHostEvent OLEHostEventEnum llEventID
Forward Send OnComHostEvent llEventID
Variant h
Get ComHostEventParam 0 to h
Variant key
Get ComHostEventParam 1 to key
Variant v
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Variant voItems
Get ComItems of hoG2antt to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComItemBar of hoItems h key OLEexBarStart to v
Send Destroy to hoItems
Send Destroy to hoG2antt
Showln (ComHostEventParam(Self,-2)) "Start:" v
Variant v1
Variant voG2antt1
Get ComHost to voG2antt1
Handle hoG2antt1
Get Create (RefClass(cComG2antt)) to hoG2antt1
Set pvComObject of hoG2antt1 to voG2antt1
Variant voItems1
Get ComItems of hoG2antt1 to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComItemBar of hoItems1 h key OLEexBarEnd to v1
Send Destroy to hoItems1
Send Destroy to hoG2antt1
Showln (ComHostEventParam(Self,-2)) "End:" v1
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voG2antt2
Get ComHost to voG2antt2
Handle hoG2antt2
Get Create (RefClass(cComG2antt)) to hoG2antt2
Set pvComObject of hoG2antt2 to voG2antt2
Variant voChart
Get ComChart of hoG2antt2 to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 128
Set ComFirstVisibleDate of hoChart to "3/30/2019"
Send Destroy to hoChart
Send Destroy to hoG2antt2
Variant voG2antt3
Get ComHost to voG2antt3
Handle hoG2antt3
Get Create (RefClass(cComG2antt)) to hoG2antt3
Set pvComObject of hoG2antt3 to voG2antt3
Variant voItems2
Get ComItems of hoG2antt3 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Send ComAddBar of hoItems2 (ComAddItem(hoItems2,"Task")) "Task" "4/1/2019" "4/14/2019" Nothing Nothing
Send Destroy to hoItems2
Send Destroy to hoG2antt3
End_Procedure
|
|
49
|
How do I get the bar/task from the cursor
// Notifies the application once the host fires an event.
Procedure OnComHostEvent OLEHostEventEnum llEventID
Forward Send OnComHostEvent llEventID
Showln "Event:" (ComHostEventParam(Self,-2))
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Variant i
Get ComItemFromPoint of hoG2antt -1 -1 c h to i
Variant v
Variant voItems
Get ComItems of hoG2antt to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComCellCaption of hoItems i c to v
Send Destroy to hoItems
Showln "Cell:" v
Variant voChart
Get ComChart of hoG2antt to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant b
Get ComBarFromPoint of hoChart -1 1 to b
Variant v1
Variant voG2antt1
Get ComHost to voG2antt1
Handle hoG2antt1
Get Create (RefClass(cComG2antt)) to hoG2antt1
Set pvComObject of hoG2antt1 to voG2antt1
Variant voItems1
Get ComItems of hoG2antt1 to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComItemBar of hoItems1 i b OLEexBarName to v1
Send Destroy to hoItems1
Send Destroy to hoG2antt1
Showln "Bar:" v1
Send Destroy to hoChart
Send Destroy to hoG2antt
End_Procedure
|
|
48
|
How do I get the cell from the cursor
// Notifies the application once the host fires an event.
Procedure OnComHostEvent OLEHostEventEnum llEventID
Forward Send OnComHostEvent llEventID
Showln "Event:" (ComHostEventParam(Self,-2))
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Variant i
Get ComItemFromPoint of hoG2antt -1 -1 c h to i
Variant v
Variant voItems
Get ComItems of hoG2antt to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComCellCaption of hoItems i c to v
Send Destroy to hoItems
Showln "Cell:" v
Send Destroy to hoG2antt
End_Procedure
|
|
47
|
How can I highlights cells based on its value
Procedure OnCreate
Forward Send OnCreate
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataField OLEexItemsParentID to "ReportsTo"
Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
Set ComDataMember "Tasks" to "EmployeeDetails"
Set ComDataField OLEexTasksDataSource to "Tasks"
Set ComDataField OLEexTasksItemID to "EmployeeID"
Set ComDataField OLEexTasksStart to "DateStart"
Set ComDataField OLEexTasksEnd to "DateEnd"
Set ComDataField OLEexTasksID to "TaskID"
Set ComDataField OLEexTasksColor to "Color"
Set ComDataField OLEexTasksCaption to "TaskName"
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Send ComBeginUpdate of hoG2antt
Set ComBackColorAlternate of hoG2antt to (RGB(0,0,0))
Variant voColumns
Get ComColumns of hoG2antt to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns "Title" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellBackColor to 15790320
Set ComWidth of hoColumn to (ComAutoWidth(hoColumn))
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voConditionalFormats
Get ComConditionalFormats of hoG2antt to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "lower(%4) contains `manager`" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBold of hoConditionalFormat to True
Send Destroy to hoConditionalFormat
Variant voConditionalFormat1
Get ComAdd of hoConditionalFormats "%3" Nothing to voConditionalFormat1
Handle hoConditionalFormat1
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat1
Set pvComObject of hoConditionalFormat1 to voConditionalFormat1
Set ComBackColor of hoConditionalFormat1 to (RGB(240,240,240))
Send Destroy to hoConditionalFormat1
Send Destroy to hoConditionalFormats
Variant voItems
Get ComItems of hoG2antt to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComExpandItem of hoItems 0 to True
Send Destroy to hoItems
Variant voColumns1
Get ComColumns of hoG2antt to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComItem of hoColumns1 "EmployeeID" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to (ComAutoWidth(hoColumn1))
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Send ComEndUpdate of hoG2antt
Send Destroy to hoG2antt
End_Procedure
|
|
46
|
How do I programatically hide a column
Procedure OnCreate
Forward Send OnCreate
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataField OLEexItemsParentID to "ReportsTo"
Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
Set ComDataMember "Tasks" to "EmployeeDetails"
Set ComDataField OLEexTasksDataSource to "Tasks"
Set ComDataField OLEexTasksItemID to "EmployeeID"
Set ComDataField OLEexTasksStart to "DateStart"
Set ComDataField OLEexTasksEnd to "DateEnd"
Set ComDataField OLEexTasksID to "TaskID"
Set ComDataField OLEexTasksColor to "Color"
Set ComDataField OLEexTasksCaption to "TaskName"
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Variant voColumns
Get ComColumns of hoG2antt to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns "LastName" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voColumn1
Get ComItem of hoColumn "LastName" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumn
Send Destroy to hoColumns
Send Destroy to hoG2antt
End_Procedure
|
|
45
|
Is it possible to get the information from the control when we click on the bar/item
// Notifies the application once the host fires an event.
Procedure OnComHostEvent OLEHostEventEnum llEventID
Forward Send OnComHostEvent llEventID
Showln (ComHostEventParam(Self,-2))
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Variant i
Get ComItemFromPoint of hoG2antt -1 -1 c hit to i
Variant v
Variant voItems
Get ComItems of hoG2antt to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComCellValue of hoItems i c to v
Send Destroy to hoItems
Showln "cell's value from cursor: " v
Variant v1
Variant voItems1
Get ComItems of hoG2antt to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComCellValue of hoItems1 i 1 to v1
Send Destroy to hoItems1
Showln "cell's value on col 1: " v1
Variant v2
Variant voChart
Get ComChart of hoG2antt to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComBarFromPoint of hoChart -1 -1 to v2
Send Destroy to hoChart
Variant b
Move v2 to b
Showln "Bar:" b
Variant v3
Variant voItems2
Get ComItems of hoG2antt to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComItemBar of hoItems2 i b OLEexBarStart to v3
Send Destroy to hoItems2
Showln "Bar Start:" v3
Variant v4
Variant voItems3
Get ComItems of hoG2antt to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Get ComItemBar of hoItems3 i b OLEexBarEnd to v4
Send Destroy to hoItems3
Showln "Bar End:" v4
Variant v5
Variant voItems4
Get ComItems of hoG2antt to voItems4
Handle hoItems4
Get Create (RefClass(cComItems)) to hoItems4
Set pvComObject of hoItems4 to voItems4
Get ComItemBar of hoItems4 i b OLEexBarCaption to v5
Send Destroy to hoItems4
Showln "Bar Caption:" v5
Send Destroy to hoG2antt
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voG2antt1
Get ComHost to voG2antt1
Handle hoG2antt1
Get Create (RefClass(cComG2antt)) to hoG2antt1
Set pvComObject of hoG2antt1 to voG2antt1
Set ComDebug of hoG2antt1 to True
Variant voChart1
Get ComChart of hoG2antt1 to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Set ComOverlaidGroup of hoBar1 to "Task,Progress"
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart1
Send Destroy to hoG2antt1
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataField OLEexItemsParentID to "ReportsTo"
Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
Set ComDataMember "Tasks" to "EmployeeDetails"
Set ComDataField OLEexTasksDataSource to "Tasks"
Set ComDataField OLEexTasksItemID to "EmployeeID"
Set ComDataField OLEexTasksStart to "DateStart"
Set ComDataField OLEexTasksEnd to "DateEnd"
Set ComDataField OLEexTasksID to "TaskID"
Set ComDataField OLEexTasksColor to "Color"
Set ComDataField OLEexTasksCaption to "TaskName"
Variant voG2antt2
Get ComHost to voG2antt2
Handle hoG2antt2
Get Create (RefClass(cComG2antt)) to hoG2antt2
Set pvComObject of hoG2antt2 to voG2antt2
Variant voItems5
Get ComItems of hoG2antt2 to voItems5
Handle hoItems5
Get Create (RefClass(cComItems)) to hoItems5
Set pvComObject of hoItems5 to voItems5
Set ComExpandItem of hoItems5 0 to True
Send Destroy to hoItems5
Send Destroy to hoG2antt2
Variant voG2antt3
Get ComHost to voG2antt3
Handle hoG2antt3
Get Create (RefClass(cComG2antt)) to hoG2antt3
Set pvComObject of hoG2antt3 to voG2antt3
Variant voChart2
Get ComChart of hoG2antt3 to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Set ComPaneWidth of hoChart2 False to 128
Send ComScrollTo of hoChart2 "5/27/2017" 1
Send Destroy to hoChart2
Send Destroy to hoG2antt3
End_Procedure
|
|
44
|
How do I get the bar from the cursor
// Notifies the application once the host fires an event.
Procedure OnComHostEvent OLEHostEventEnum llEventID
Forward Send OnComHostEvent llEventID
Showln (ComHostEventParam(Self,-2))
Variant v
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Variant voChart
Get ComChart of hoG2antt to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComBarFromPoint of hoChart -1 -1 to v
Send Destroy to hoChart
Send Destroy to hoG2antt
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voG2antt1
Get ComHost to voG2antt1
Handle hoG2antt1
Get Create (RefClass(cComG2antt)) to hoG2antt1
Set pvComObject of hoG2antt1 to voG2antt1
Variant voAppearance
Get ComVisualAppearance of hoG2antt1 to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "C:\Program Files\Exontrol\ExG2Host\Sample\EBN\Assorted\wbs-ass.ebn" to Nothing
Send Destroy to hoAppearance
Variant voChart1
Get ComChart of hoG2antt1 to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComHeight of hoBar1 to 15
Set ComColor of hoBar1 to |CI$1ff0000
Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Set ComOverlaidGroup of hoBar1 to "Task,Progress"
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart1
Send Destroy to hoG2antt1
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataField OLEexItemsParentID to "ReportsTo"
Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
Set ComDataMember "Tasks" to "EmployeeDetails"
Set ComDataField OLEexTasksDataSource to "Tasks"
Set ComDataField OLEexTasksItemID to "EmployeeID"
Set ComDataField OLEexTasksStart to "DateStart"
Set ComDataField OLEexTasksEnd to "DateEnd"
Set ComDataField OLEexTasksID to "TaskID"
Set ComDataField OLEexTasksColor to "Color"
Set ComDataField OLEexTasksCaption to "TaskName"
Variant voG2antt2
Get ComHost to voG2antt2
Handle hoG2antt2
Get Create (RefClass(cComG2antt)) to hoG2antt2
Set pvComObject of hoG2antt2 to voG2antt2
Variant voItems
Get ComItems of hoG2antt2 to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComExpandItem of hoItems 0 to True
Send Destroy to hoItems
Send Destroy to hoG2antt2
Variant voG2antt3
Get ComHost to voG2antt3
Handle hoG2antt3
Get Create (RefClass(cComG2antt)) to hoG2antt3
Set pvComObject of hoG2antt3 to voG2antt3
Variant voChart2
Get ComChart of hoG2antt3 to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Set ComPaneWidth of hoChart2 False to 128
Send ComScrollTo of hoChart2 "5/27/2017" 1
Send Destroy to hoChart2
Send Destroy to hoG2antt3
End_Procedure
|
|
43
|
How do I add Start/End columns
// Notifies the application once the host fires an event.
Procedure OnComHostEvent OLEHostEventEnum llEventID
Forward Send OnComHostEvent llEventID
Showln (ComHostEventParam(Self,-2))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComHostReadOnly to (OLEexHostReadWrite + OLEexHostAllowAddEmptyItem)
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Set ComSingleSel of hoG2antt to False
Set ComOnResizeControl of hoG2antt to OLEexResizeChart
Set ComScrollBars of hoG2antt to (OLEexVScrollEmptySpace + OLEexDisableNoVertical)
Variant voColumns
Get ComColumns of hoG2antt to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAllowSizing of hoColumn to False
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEDateType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns of hoG2antt to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComAllowSizing of hoColumn1 to False
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLEDateType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems of hoG2antt to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Send Destroy to hoItems
Variant voChart
Get ComChart of hoG2antt to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
Set ComPaneWidth of hoChart False to 256
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Send Destroy to hoG2antt
End_Procedure
|
|
42
|
How do I hide the left/items/columns part of the control
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Variant voChart
Get ComChart of hoG2antt to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComPattern of hoBar1 to OLEexPatternSolid
Set ComColor of hoBar1 to (RGB(0,0,255))
Set ComDef of hoBar1 OLEexBarTransparent to 50
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Send Destroy to hoG2antt
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataField OLEexItemsParentID to "ReportsTo"
Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
Set ComDataMember "Tasks" to "EmployeeDetails"
Set ComDataField OLEexTasksDataSource to "Tasks"
Set ComDataField OLEexTasksItemID to "EmployeeID"
Set ComDataField OLEexTasksStart to "DateStart"
Set ComDataField OLEexTasksEnd to "DateEnd"
Set ComDataField OLEexTasksID to "TaskID"
Set ComDataField OLEexTasksColor to "Color"
Set ComDataField OLEexTasksCaption to "TaskName"
Variant voG2antt1
Get ComHost to voG2antt1
Handle hoG2antt1
Get Create (RefClass(cComG2antt)) to hoG2antt1
Set pvComObject of hoG2antt1 to voG2antt1
Variant voItems
Get ComItems of hoG2antt1 to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComExpandItem of hoItems 0 to True
Send Destroy to hoItems
Send Destroy to hoG2antt1
Set ComHostReadOnly to (OLEexHostReadWrite + OLEexHostAllowAddEmptyItem)
Variant voG2antt2
Get ComHost to voG2antt2
Handle hoG2antt2
Get Create (RefClass(cComG2antt)) to hoG2antt2
Set pvComObject of hoG2antt2 to voG2antt2
Set ComOnResizeControl of hoG2antt2 to (OLEexDisableSplitter + OLEexResizeChart)
Variant voChart1
Get ComChart of hoG2antt2 to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComColumnsFormatLevel of hoChart1 to "1"
Set ComPaneWidth of hoChart1 False to 0
Send ComScrollTo of hoChart1 "5/27/2017" 1
Send Destroy to hoChart1
Send Destroy to hoG2antt2
End_Procedure
|
|
41
|
How do I hide the right/chart/tasks part of the control
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Variant voChart
Get ComChart of hoG2antt to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComPattern of hoBar1 to OLEexPatternSolid
Set ComColor of hoBar1 to (RGB(0,0,255))
Set ComDef of hoBar1 OLEexBarTransparent to 50
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Send Destroy to hoG2antt
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataField OLEexItemsParentID to "ReportsTo"
Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
Set ComDataMember "Tasks" to "EmployeeDetails"
Set ComDataField OLEexTasksDataSource to "Tasks"
Set ComDataField OLEexTasksItemID to "EmployeeID"
Set ComDataField OLEexTasksStart to "DateStart"
Set ComDataField OLEexTasksEnd to "DateEnd"
Set ComDataField OLEexTasksID to "TaskID"
Set ComDataField OLEexTasksColor to "Color"
Set ComDataField OLEexTasksCaption to "TaskName"
Variant voG2antt1
Get ComHost to voG2antt1
Handle hoG2antt1
Get Create (RefClass(cComG2antt)) to hoG2antt1
Set pvComObject of hoG2antt1 to voG2antt1
Variant voItems
Get ComItems of hoG2antt1 to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComExpandItem of hoItems 0 to True
Send Destroy to hoItems
Send Destroy to hoG2antt1
Variant voG2antt2
Get ComHost to voG2antt2
Handle hoG2antt2
Get Create (RefClass(cComG2antt)) to hoG2antt2
Set pvComObject of hoG2antt2 to voG2antt2
Variant voChart1
Get ComChart of hoG2antt2 to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 True to 0
Set ComOverviewVisible of hoChart1 to OLEexOverviewHidden
Send Destroy to hoChart1
Send Destroy to hoG2antt2
End_Procedure
|
|
40
|
How do hide the top/overview part of the control
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataField OLEexItemsParentID to "ReportsTo"
Set ComDataField OLEexTasksDataSource to (ComDataField(Self,OLEexItemsDataSource))
Set ComDataField OLEexTasksStart to "BirthDate"
Set ComDataField OLEexTasksEnd to "HireDate"
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Variant voChart
Get ComChart of hoG2antt to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComOverviewVisible of hoChart to OLEexOverviewHidden
Set ComPaneWidth of hoChart False to 256
Send ComScrollTo of hoChart "4/27/1969" 1
Send Destroy to hoChart
Send Destroy to hoG2antt
End_Procedure
|
|
39
|
How do I resize the panels
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Variant voAppearance
Get ComVisualAppearance of hoG2antt to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "C:\Program Files\Exontrol\ExG2Host\Sample\EBN\Assorted\wbs-ass.ebn" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart of hoG2antt to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComHeight of hoBar1 to 15
Set ComColor of hoBar1 to |CI$1ff0000
Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Set ComOverlaidGroup of hoBar1 to "Task,Progress"
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Send Destroy to hoG2antt
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataField OLEexItemsParentID to "ReportsTo"
Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
Set ComDataMember "Tasks" to "EmployeeDetails"
Set ComDataField OLEexTasksDataSource to "Tasks"
Set ComDataField OLEexTasksItemID to "EmployeeID"
Set ComDataField OLEexTasksStart to "DateStart"
Set ComDataField OLEexTasksEnd to "DateEnd"
Set ComDataField OLEexTasksID to "TaskID"
Set ComDataField OLEexTasksColor to "Color"
Set ComDataField OLEexTasksCaption to "TaskName"
Variant voG2antt1
Get ComHost to voG2antt1
Handle hoG2antt1
Get Create (RefClass(cComG2antt)) to hoG2antt1
Set pvComObject of hoG2antt1 to voG2antt1
Variant voItems
Get ComItems of hoG2antt1 to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComExpandItem of hoItems 0 to True
Send Destroy to hoItems
Send Destroy to hoG2antt1
Variant voG2antt2
Get ComHost to voG2antt2
Handle hoG2antt2
Get Create (RefClass(cComG2antt)) to hoG2antt2
Set pvComObject of hoG2antt2 to voG2antt2
Variant voChart1
Get ComChart of hoG2antt2 to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 128
Send ComScrollTo of hoChart1 "5/27/2017" 1
Send Destroy to hoChart1
Send Destroy to hoG2antt2
End_Procedure
|
|
38
|
How do I lock the first column
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Set ComCountLockedColumns of hoG2antt to 1
Set ComBackColorLock of hoG2antt to (ComBackColorAlternate(hoG2antt))
Send Destroy to hoG2antt
End_Procedure
|
|
37
|
How do I specify a different color for the tasks ( EBN color )
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Variant voAppearance
Get ComVisualAppearance of hoG2antt to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "C:\Program Files\Exontrol\ExG2Host\Sample\EBN\Assorted\wbs-ass.ebn" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart of hoG2antt to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComHeight of hoBar1 to 15
Set ComColor of hoBar1 to |CI$1ff0000
Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Set ComOverlaidGroup of hoBar1 to "Task,Progress"
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Send Destroy to hoG2antt
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataField OLEexItemsParentID to "ReportsTo"
Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
Set ComDataMember "Tasks" to "EmployeeDetails"
Set ComDataField OLEexTasksDataSource to "Tasks"
Set ComDataField OLEexTasksItemID to "EmployeeID"
Set ComDataField OLEexTasksStart to "DateStart"
Set ComDataField OLEexTasksEnd to "DateEnd"
Set ComDataField OLEexTasksID to "TaskID"
Set ComDataField OLEexTasksColor to "Color"
Set ComDataField OLEexTasksCaption to "TaskName"
Variant voG2antt1
Get ComHost to voG2antt1
Handle hoG2antt1
Get Create (RefClass(cComG2antt)) to hoG2antt1
Set pvComObject of hoG2antt1 to voG2antt1
Variant voItems
Get ComItems of hoG2antt1 to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComExpandItem of hoItems 0 to True
Send Destroy to hoItems
Send Destroy to hoG2antt1
Variant voG2antt2
Get ComHost to voG2antt2
Handle hoG2antt2
Get Create (RefClass(cComG2antt)) to hoG2antt2
Set pvComObject of hoG2antt2 to voG2antt2
Variant voChart1
Get ComChart of hoG2antt2 to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 256
Send Destroy to hoChart1
Send Destroy to hoG2antt2
Variant voG2antt3
Get ComHost to voG2antt3
Handle hoG2antt3
Get Create (RefClass(cComG2antt)) to hoG2antt3
Set pvComObject of hoG2antt3 to voG2antt3
Variant voChart2
Get ComChart of hoG2antt3 to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Send ComScrollTo of hoChart2 "5/27/2017" 1
Send Destroy to hoChart2
Send Destroy to hoG2antt3
End_Procedure
|
|
36
|
How do I specify a different color for the tasks ( solid color, transparent )
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Variant voChart
Get ComChart of hoG2antt to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComPattern of hoBar1 to OLEexPatternSolid
Set ComColor of hoBar1 to (RGB(0,0,255))
Set ComDef of hoBar1 OLEexBarTransparent to 50
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Send Destroy to hoG2antt
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataField OLEexItemsParentID to "ReportsTo"
Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
Set ComDataMember "Tasks" to "EmployeeDetails"
Set ComDataField OLEexTasksDataSource to "Tasks"
Set ComDataField OLEexTasksItemID to "EmployeeID"
Set ComDataField OLEexTasksStart to "DateStart"
Set ComDataField OLEexTasksEnd to "DateEnd"
Set ComDataField OLEexTasksID to "TaskID"
Set ComDataField OLEexTasksColor to "Color"
Set ComDataField OLEexTasksCaption to "TaskName"
Variant voG2antt1
Get ComHost to voG2antt1
Handle hoG2antt1
Get Create (RefClass(cComG2antt)) to hoG2antt1
Set pvComObject of hoG2antt1 to voG2antt1
Variant voItems
Get ComItems of hoG2antt1 to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComExpandItem of hoItems 0 to True
Send Destroy to hoItems
Send Destroy to hoG2antt1
Variant voG2antt2
Get ComHost to voG2antt2
Handle hoG2antt2
Get Create (RefClass(cComG2antt)) to hoG2antt2
Set pvComObject of hoG2antt2 to voG2antt2
Variant voChart1
Get ComChart of hoG2antt2 to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 256
Send Destroy to hoChart1
Send Destroy to hoG2antt2
Variant voG2antt3
Get ComHost to voG2antt3
Handle hoG2antt3
Get Create (RefClass(cComG2antt)) to hoG2antt3
Set pvComObject of hoG2antt3 to voG2antt3
Variant voChart2
Get ComChart of hoG2antt3 to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Send ComScrollTo of hoChart2 "5/27/2017" 1
Send Destroy to hoChart2
Send Destroy to hoG2antt3
End_Procedure
|
|
35
|
GroupBy
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
Set ComDataMember "Tasks" to "EmployeeDetails"
Set ComDataField OLEexTasksDataSource to "Tasks"
Set ComDataField OLEexTasksItemID to "EmployeeID"
Set ComDataField OLEexTasksStart to "DateStart"
Set ComDataField OLEexTasksEnd to "DateEnd"
Set ComDataField OLEexTasksID to "TaskID"
Set ComDataSource "Links" to (ComDataSource(Self,"Items"))
Set ComDataMember "Links" to "EmployeeLinks"
Set ComDataField OLEexLinksDataSource to "Links"
Set ComDataField OLEexLinksStart to "Start"
Set ComDataField OLEexLinksEnd to "End"
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Set ComAllowGroupBy of hoG2antt to True
Set ComSortBarVisible of hoG2antt to True
Variant v
Variant voG2antt1
Get ComHost to voG2antt1
Handle hoG2antt1
Get Create (RefClass(cComG2antt)) to hoG2antt1
Set pvComObject of hoG2antt1 to voG2antt1
Get ComBackColor of hoG2antt1 to v
Send Destroy to hoG2antt1
Set ComBackColorSortBar of hoG2antt to v
Set ComBackColorSortBarCaption of hoG2antt to (ComBackColorSortBar(hoG2antt))
Set ComSortBarCaption of hoG2antt to "<sha ;;0><fgcolor=FF0000>Drag a <b>column</b> header here to sort by that column."
Variant voChart
Get ComChart of hoG2antt to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Set ComOverlaidGroup of hoBar1 to "Task,Progress"
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems of hoG2antt to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComExpandItem of hoItems 0 to True
Send Destroy to hoItems
Set ComCountLockedColumns of hoG2antt to 1
Set ComBackColorLock of hoG2antt to (ComBackColorAlternate(hoG2antt))
Variant voColumns
Get ComColumns of hoG2antt to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns "EmployeeID" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAllowGroupBy of hoColumn to False
Variant v1
Variant voG2antt2
Get ComHost to voG2antt2
Handle hoG2antt2
Get Create (RefClass(cComG2antt)) to hoG2antt2
Set pvComObject of hoG2antt2 to voG2antt2
Get ComBackColorAlternate of hoG2antt2 to v1
Send Destroy to hoG2antt2
Set ComDef of hoColumn OLEexHeaderBackColor to v1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns of hoG2antt to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComItem of hoColumns1 "Title" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComSortOrder of hoColumn1 to OLESortAscending
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Send Destroy to hoG2antt
Variant voG2antt3
Get ComHost to voG2antt3
Handle hoG2antt3
Get Create (RefClass(cComG2antt)) to hoG2antt3
Set pvComObject of hoG2antt3 to voG2antt3
Variant voChart1
Get ComChart of hoG2antt3 to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Send ComScrollTo of hoChart1 "5/27/2017" 1
Send Destroy to hoChart1
Send Destroy to hoG2antt3
End_Procedure
|
|
34
|
How can I hide a column
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Variant voColumns
Get ComColumns of hoG2antt to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 0 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voColumn1
Get ComItem of hoColumn 0 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumn
Send Destroy to hoColumns
Send Destroy to hoG2antt
End_Procedure
|
|
33
|
Can row errors being highligted until the user correct them, not to clear them as soon a change occurs
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComHostDef OLEexErrorClearOnChange to False
End_Procedure
|
|
32
|
No error is highligthed
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
End_Procedure
|
|
31
|
I've noticed that rows with errors are shown in red. Is it possible to change the colors
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComHostDef OLEexErrorBackColor to 0
Set ComHostDef OLEexErrorForeColor to 16777215
End_Procedure
|
|
30
|
Is it possible to rename the (New) to something else
Procedure OnCreate
Forward Send OnCreate
Set ComHostDef OLEexNew to "*"
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Send ComBeginUpdate of hoG2antt
Variant voItems
Get ComItems of hoG2antt to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "A" to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems of hoG2antt to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 "B" to Nothing
Send Destroy to hoItems1
Send ComEndUpdate of hoG2antt
Send Destroy to hoG2antt
Send ComRefresh
End_Procedure
|
|
29
|
How can I hide the (New) item (sample 2)
Procedure OnCreate
Forward Send OnCreate
Set ComHostReadOnly to (OLEexHostAllowUpdate + OLEexHostAllowDelete)
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Send ComBeginUpdate of hoG2antt
Variant voItems
Get ComItems of hoG2antt to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "A" to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems of hoG2antt to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 "B" to Nothing
Send Destroy to hoItems1
Send ComEndUpdate of hoG2antt
Send Destroy to hoG2antt
End_Procedure
|
|
28
|
How can I hide the (New) item (sample 1)
Procedure OnCreate
Forward Send OnCreate
Set ComHostDef OLEexNew to ""
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Send ComBeginUpdate of hoG2antt
Variant voItems
Get ComItems of hoG2antt to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "A" to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems of hoG2antt to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 "B" to Nothing
Send Destroy to hoItems1
Send ComEndUpdate of hoG2antt
Send Destroy to hoG2antt
Send ComRefresh
End_Procedure
|
|
27
|
Read-Only
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComHostReadOnly to OLEexHostReadOnly
End_Procedure
|
|
26
|
How can I prevent user create new /delete tasks ( only move or resize then )
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
Set ComDataMember "Tasks" to "EmployeeDetails"
Set ComDataField OLEexTasksDataSource to "Tasks"
Set ComDataField OLEexTasksItemID to "EmployeeID"
Set ComDataField OLEexTasksStart to "DateStart"
Set ComDataField OLEexTasksEnd to "DateEnd"
Set ComDataField OLEexTasksID to "TaskID"
Set ComDataSource "Links" to (ComDataSource(Self,"Items"))
Set ComDataMember "Links" to "EmployeeLinks"
Set ComDataField OLEexLinksDataSource to "Links"
Set ComDataField OLEexLinksStart to "Start"
Set ComDataField OLEexLinksEnd to "End"
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Variant voChart
Get ComChart of hoG2antt to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Set ComOverlaidGroup of hoBar1 to "Task,Progress"
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Send Destroy to hoG2antt
Variant voG2antt1
Get ComHost to voG2antt1
Handle hoG2antt1
Get Create (RefClass(cComG2antt)) to hoG2antt1
Set pvComObject of hoG2antt1 to voG2antt1
Variant voItems
Get ComItems of hoG2antt1 to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComExpandItem of hoItems 0 to True
Send Destroy to hoItems
Send Destroy to hoG2antt1
Set ComHostReadOnly to OLEexHostAllowUpdate
Variant voG2antt2
Get ComHost to voG2antt2
Handle hoG2antt2
Get Create (RefClass(cComG2antt)) to hoG2antt2
Set pvComObject of hoG2antt2 to voG2antt2
Variant voChart1
Get ComChart of hoG2antt2 to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Send ComScrollTo of hoChart1 "5/27/2017" 1
Send Destroy to hoChart1
Send Destroy to hoG2antt2
End_Procedure
|
|
25
|
How do I get the row/item/task/link from the cursor
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
// Notifies the application once the host fires an event.
Procedure OnComHostEvent OLEHostEventEnum llEventID
Forward Send OnComHostEvent llEventID
Variant v
Variant voHostContext
Get ComHostContext to voHostContext
Handle hoHostContext
Get Create (RefClass(cComHostContext)) to hoHostContext
Set pvComObject of hoHostContext to voHostContext
Get ComToString of hoHostContext to v
Send Destroy to hoHostContext
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComHostReadOnly to (OLEexHostAllowUpdate + OLEexHostAllowAddNew)
End_Procedure
|
|
24
|
Disable Delete
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComHostReadOnly to (OLEexHostAllowUpdate + OLEexHostAllowAddNew)
End_Procedure
|
|
23
|
Disable AddNew
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComHostReadOnly to (OLEexHostAllowUpdate + OLEexHostAllowDelete)
End_Procedure
|
|
22
|
ACCDB sample ( file )
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataField OLEexItemsParentID to "ReportsTo"
Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
Set ComDataMember "Tasks" to "EmployeeDetails"
Set ComDataField OLEexTasksDataSource to "Tasks"
Set ComDataField OLEexTasksItemID to "EmployeeID"
Set ComDataField OLEexTasksStart to "DateStart"
Set ComDataField OLEexTasksEnd to "DateEnd"
Set ComDataField OLEexTasksID to "TaskID"
Set ComDataSource "Links" to (ComDataSource(Self,"Items"))
Set ComDataMember "Links" to "EmployeeLinks"
Set ComDataField OLEexLinksDataSource to "Links"
Set ComDataField OLEexLinksStart to "Start"
Set ComDataField OLEexLinksEnd to "End"
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Variant voChart
Get ComChart of hoG2antt to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Set ComOverlaidGroup of hoBar1 to "Task,Progress"
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Send Destroy to hoG2antt
Variant voG2antt1
Get ComHost to voG2antt1
Handle hoG2antt1
Get Create (RefClass(cComG2antt)) to hoG2antt1
Set pvComObject of hoG2antt1 to voG2antt1
Variant voItems
Get ComItems of hoG2antt1 to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComExpandItem of hoItems 0 to True
Send Destroy to hoItems
Send Destroy to hoG2antt1
Variant voG2antt2
Get ComHost to voG2antt2
Handle hoG2antt2
Get Create (RefClass(cComG2antt)) to hoG2antt2
Set pvComObject of hoG2antt2 to voG2antt2
Variant voChart1
Get ComChart of hoG2antt2 to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Send ComScrollTo of hoChart1 "5/27/2017" 1
Send Destroy to hoChart1
Send Destroy to hoG2antt2
End_Procedure
|
|
21
|
MDB sample ( file )
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.mdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataField OLEexItemsParentID to "ReportsTo"
Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
Set ComDataMember "Tasks" to "EmployeeDetails"
Set ComDataField OLEexTasksDataSource to "Tasks"
Set ComDataField OLEexTasksItemID to "EmployeeID"
Set ComDataField OLEexTasksStart to "DateStart"
Set ComDataField OLEexTasksEnd to "DateEnd"
Set ComDataField OLEexTasksID to "TaskID"
Set ComDataSource "Links" to (ComDataSource(Self,"Items"))
Set ComDataMember "Links" to "EmployeeLinks"
Set ComDataField OLEexLinksDataSource to "Links"
Set ComDataField OLEexLinksStart to "Start"
Set ComDataField OLEexLinksEnd to "End"
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Variant voChart
Get ComChart of hoG2antt to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Set ComOverlaidGroup of hoBar1 to "Task,Progress"
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Send Destroy to hoG2antt
Variant voG2antt1
Get ComHost to voG2antt1
Handle hoG2antt1
Get Create (RefClass(cComG2antt)) to hoG2antt1
Set pvComObject of hoG2antt1 to voG2antt1
Variant voItems
Get ComItems of hoG2antt1 to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComExpandItem of hoItems 0 to True
Send Destroy to hoItems
Send Destroy to hoG2antt1
Variant voG2antt2
Get ComHost to voG2antt2
Handle hoG2antt2
Get Create (RefClass(cComG2antt)) to hoG2antt2
Set pvComObject of hoG2antt2 to voG2antt2
Variant voChart1
Get ComChart of hoG2antt2 to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Send ComScrollTo of hoChart1 "5/27/2017" 1
Send Destroy to hoChart1
Send Destroy to hoG2antt2
End_Procedure
|
|
20
|
DBF sample ( file )
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.dbf"
Set ComDataField OLEexItemsDataSource to "Items"
End_Procedure
|
|
19
|
DAO sample ( object, DAO.DBEngine.120, multiple tasks, multiple tables )
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Handle hoPrivDBEngine
Get Create (RefClass(cComPrivDBEngine)) to hoPrivDBEngine // Import the 'Microsoft Office 12.0 Access database engine Object Library' library
Variant voDatabase
Get ComOpenDatabase of hoPrivDBEngine "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb" Nothing Nothing Nothing to voDatabase
Handle hoDatabase
Get Create (RefClass(cComDatabase)) to hoDatabase
Set pvComObject of hoDatabase to voDatabase
Variant rsEmployees
Get ComOpenRecordset of hoDatabase "Employees" Nothing Nothing Nothing to rsEmployees
Variant rsTasks
Get ComOpenRecordset of hoDatabase "EmployeeDetails" Nothing Nothing Nothing to rsTasks
Variant rsLinks
Get ComOpenRecordset of hoDatabase "EmployeeLinks" Nothing Nothing Nothing to rsLinks
Send Destroy to hoDatabase
Send Destroy to hoPrivDBEngine
Set ComDataSource "Items" to rsEmployees
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataField OLEexItemsParentID to "ReportsTo"
Set ComDataSource "Tasks" to rsTasks
Set ComDataField OLEexTasksDataSource to "Tasks"
Set ComDataField OLEexTasksItemID to "EmployeeID"
Set ComDataField OLEexTasksStart to "DateStart"
Set ComDataField OLEexTasksEnd to "DateEnd"
Set ComDataField OLEexTasksID to "TaskID"
Set ComDataSource "Links" to rsLinks
Set ComDataField OLEexLinksDataSource to "Links"
Set ComDataField OLEexLinksStart to "Start"
Set ComDataField OLEexLinksEnd to "End"
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Variant voChart
Get ComChart of hoG2antt to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Set ComOverlaidGroup of hoBar1 to "Task,Progress"
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Send Destroy to hoG2antt
Variant voG2antt1
Get ComHost to voG2antt1
Handle hoG2antt1
Get Create (RefClass(cComG2antt)) to hoG2antt1
Set pvComObject of hoG2antt1 to voG2antt1
Variant voItems
Get ComItems of hoG2antt1 to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComExpandItem of hoItems 0 to True
Send Destroy to hoItems
Send Destroy to hoG2antt1
Variant voG2antt2
Get ComHost to voG2antt2
Handle hoG2antt2
Get Create (RefClass(cComG2antt)) to hoG2antt2
Set pvComObject of hoG2antt2 to voG2antt2
Variant voChart1
Get ComChart of hoG2antt2 to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Send ComScrollTo of hoChart1 "5/27/2017" 1
Send Destroy to hoChart1
Send Destroy to hoG2antt2
End_Procedure
|
|
18
|
DAO sample ( file, multiple tasks, multiple tables )
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataTechnology "Items" to "DAO.DBEngine.120;DAO.DBEngine.36"
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataField OLEexItemsParentID to "ReportsTo"
Set ComDataTechnology "Tasks" to "DAO.DBEngine.120;DAO.DBEngine.36"
Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
Set ComDataMember "Tasks" to "EmployeeDetails"
Set ComDataField OLEexTasksDataSource to "Tasks"
Set ComDataField OLEexTasksItemID to "EmployeeID"
Set ComDataField OLEexTasksStart to "DateStart"
Set ComDataField OLEexTasksEnd to "DateEnd"
Set ComDataField OLEexTasksID to "TaskID"
Set ComDataTechnology "Links" to "DAO.DBEngine.120;DAO.DBEngine.36"
Set ComDataSource "Links" to (ComDataSource(Self,"Items"))
Set ComDataMember "Links" to "EmployeeLinks"
Set ComDataField OLEexLinksDataSource to "Links"
Set ComDataField OLEexLinksStart to "Start"
Set ComDataField OLEexLinksEnd to "End"
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Variant voChart
Get ComChart of hoG2antt to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Set ComOverlaidGroup of hoBar1 to "Task,Progress"
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Send Destroy to hoG2antt
Variant voG2antt1
Get ComHost to voG2antt1
Handle hoG2antt1
Get Create (RefClass(cComG2antt)) to hoG2antt1
Set pvComObject of hoG2antt1 to voG2antt1
Variant voItems
Get ComItems of hoG2antt1 to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComExpandItem of hoItems 0 to True
Send Destroy to hoItems
Send Destroy to hoG2antt1
Variant voG2antt2
Get ComHost to voG2antt2
Handle hoG2antt2
Get Create (RefClass(cComG2antt)) to hoG2antt2
Set pvComObject of hoG2antt2 to voG2antt2
Variant voChart1
Get ComChart of hoG2antt2 to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Send ComScrollTo of hoChart1 "5/27/2017" 1
Send Destroy to hoChart1
Send Destroy to hoG2antt2
End_Procedure
|
|
17
|
DAO sample ( object, DAO.DBEngine.120, single task, single table )
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Handle hoPrivDBEngine
Get Create (RefClass(cComPrivDBEngine)) to hoPrivDBEngine // Import the 'Microsoft Office 12.0 Access database engine Object Library' library
Variant voDatabase
Get ComOpenDatabase of hoPrivDBEngine "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb" Nothing Nothing Nothing to voDatabase
Handle hoDatabase
Get Create (RefClass(cComDatabase)) to hoDatabase
Set pvComObject of hoDatabase to voDatabase
Variant rsEmployees
Get ComOpenRecordset of hoDatabase "Employees" Nothing Nothing Nothing to rsEmployees
Variant rsLinks
Get ComOpenRecordset of hoDatabase "EmployeeLinks" Nothing Nothing Nothing to rsLinks
Send Destroy to hoDatabase
Send Destroy to hoPrivDBEngine
Set ComDataSource "Items" to rsEmployees
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataField OLEexItemsParentID to "ReportsTo"
Set ComDataField OLEexTasksDataSource to (ComDataField(Self,OLEexItemsDataSource))
Set ComDataField OLEexTasksStart to "BirthDate"
Set ComDataField OLEexTasksEnd to "HireDate"
Set ComDataSource "Links" to rsLinks
Set ComDataField OLEexLinksDataSource to "Links"
Set ComDataField OLEexLinksStart to "Start"
Set ComDataField OLEexLinksEnd to "End"
End_Procedure
|
|
16
|
DAO sample ( file, single task, single table )
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataTechnology "Items" to "DAO.DBEngine.120;DAO.DBEngine.36"
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataField OLEexItemsParentID to "ReportsTo"
Set ComDataField OLEexTasksDataSource to (ComDataField(Self,OLEexItemsDataSource))
Set ComDataField OLEexTasksStart to "BirthDate"
Set ComDataField OLEexTasksEnd to "HireDate"
Set ComDataTechnology "Links" to "DAO.DBEngine.120;DAO.DBEngine.36"
Set ComDataSource "Links" to (ComDataSource(Self,"Items"))
Set ComDataMember "Links" to "EmployeeLinks"
Set ComDataField OLEexLinksDataSource to "Links"
Set ComDataField OLEexLinksStart to "Start"
Set ComDataField OLEexLinksEnd to "End"
End_Procedure
|
|
15
|
DAO sample ( tree recordset )
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataTechnology "Items" to "DAO.DBEngine.120;DAO.DBEngine.36"
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataField OLEexItemsParentID to "ReportsTo"
End_Procedure
|
|
14
|
DAO sample ( flat recordset )
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Handle hoPrivDBEngine
Get Create (RefClass(cComPrivDBEngine)) to hoPrivDBEngine // Import the 'Microsoft Office 12.0 Access database engine Object Library' library
Variant voDatabase
Get ComOpenDatabase of hoPrivDBEngine "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb" Nothing Nothing Nothing to voDatabase
Handle hoDatabase
Get Create (RefClass(cComDatabase)) to hoDatabase
Set pvComObject of hoDatabase to voDatabase
Variant rsEmployees
Get ComOpenRecordset of hoDatabase "Employees" Nothing Nothing Nothing to rsEmployees
Send Destroy to hoDatabase
Send Destroy to hoPrivDBEngine
Set ComDataSource "Items" to rsEmployees
Set ComDataField OLEexItemsDataSource to "Items"
End_Procedure
|
|
13
|
DAO sample ( flat )
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataTechnology "Items" to "DAO.DBEngine.120;DAO.DBEngine.36"
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
End_Procedure
|
|
12
|
ADO sample ( object, ADODB.Recordset, multiple tasks )
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant rsEmployees
Get Comcreateobject "ADODB.Recordset" to rsEmployees
Send ComOpen "Employees" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource "Items" to rsEmployees
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataField OLEexItemsParentID to "ReportsTo"
Variant rsTasks
Get Comcreateobject "ADODB.Recordset" to rsTasks
Send ComOpen "EmployeeDetails" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource "Tasks" to rstasks
Set ComDataField OLEexTasksDataSource to "Tasks"
Set ComDataField OLEexTasksItemID to "EmployeeID"
Set ComDataField OLEexTasksStart to "DateStart"
Set ComDataField OLEexTasksEnd to "DateEnd"
Set ComDataField OLEexTasksID to "TaskID"
Variant rsLinks
Get Comcreateobject "ADODB.Recordset" to rsLinks
Send ComOpen "EmployeeLinks" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource "Links" to rsLinks
Set ComDataField OLEexLinksDataSource to "Links"
Set ComDataField OLEexLinksStart to "Start"
Set ComDataField OLEexLinksEnd to "End"
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Variant voChart
Get ComChart of hoG2antt to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Set ComOverlaidGroup of hoBar1 to "Task,Progress"
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Send Destroy to hoG2antt
Variant voG2antt1
Get ComHost to voG2antt1
Handle hoG2antt1
Get Create (RefClass(cComG2antt)) to hoG2antt1
Set pvComObject of hoG2antt1 to voG2antt1
Variant voItems
Get ComItems of hoG2antt1 to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComExpandItem of hoItems 0 to True
Send Destroy to hoItems
Send Destroy to hoG2antt1
Variant voG2antt2
Get ComHost to voG2antt2
Handle hoG2antt2
Get Create (RefClass(cComG2antt)) to hoG2antt2
Set pvComObject of hoG2antt2 to voG2antt2
Variant voChart1
Get ComChart of hoG2antt2 to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Send ComScrollTo of hoChart1 "5/27/2017" 1
Send Destroy to hoChart1
Send Destroy to hoG2antt2
End_Procedure
|
|
11
|
ADO sample ( file, multiple tasks, multiple tables )
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataTechnology "Items" to "ADODB.Recordset;ADOR.Recordset"
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataField OLEexItemsParentID to "ReportsTo"
Set ComDataTechnology "Tasks" to "ADODB.Recordset;ADOR.Recordset"
Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
Set ComDataMember "Tasks" to "EmployeeDetails"
Set ComDataField OLEexTasksDataSource to "Tasks"
Set ComDataField OLEexTasksItemID to "EmployeeID"
Set ComDataField OLEexTasksStart to "DateStart"
Set ComDataField OLEexTasksEnd to "DateEnd"
Set ComDataField OLEexTasksID to "TaskID"
Set ComDataTechnology "Links" to "ADODB.Recordset;ADOR.Recordset"
Set ComDataSource "Links" to (ComDataSource(Self,"Items"))
Set ComDataMember "Links" to "EmployeeLinks"
Set ComDataField OLEexLinksDataSource to "Links"
Set ComDataField OLEexLinksStart to "Start"
Set ComDataField OLEexLinksEnd to "End"
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Variant voChart
Get ComChart of hoG2antt to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Set ComOverlaidGroup of hoBar1 to "Task,Progress"
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Send Destroy to hoG2antt
Variant voG2antt1
Get ComHost to voG2antt1
Handle hoG2antt1
Get Create (RefClass(cComG2antt)) to hoG2antt1
Set pvComObject of hoG2antt1 to voG2antt1
Variant voItems
Get ComItems of hoG2antt1 to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComExpandItem of hoItems 0 to True
Send Destroy to hoItems
Send Destroy to hoG2antt1
Variant voG2antt2
Get ComHost to voG2antt2
Handle hoG2antt2
Get Create (RefClass(cComG2antt)) to hoG2antt2
Set pvComObject of hoG2antt2 to voG2antt2
Variant voChart1
Get ComChart of hoG2antt2 to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Send ComScrollTo of hoChart1 "5/27/2017" 1
Send Destroy to hoChart1
Send Destroy to hoG2antt2
End_Procedure
|
|
10
|
ADO sample ( object, ADODB.Recordset, single task, single table )
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant rsEmployees
Get Comcreateobject "ADODB.Recordset" to rsEmployees
Send ComOpen "Employees" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource "Items" to rsEmployees
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataField OLEexItemsParentID to "ReportsTo"
Set ComDataField OLEexTasksDataSource to (ComDataField(Self,OLEexItemsDataSource))
Set ComDataField OLEexTasksStart to "BirthDate"
Set ComDataField OLEexTasksEnd to "HireDate"
Variant rsLinks
Get Comcreateobject "ADODB.Recordset" to rsLinks
Send ComOpen "EmployeeLinks" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource "Links" to rsLinks
Set ComDataField OLEexLinksDataSource to "Links"
Set ComDataField OLEexLinksStart to "Start"
Set ComDataField OLEexLinksEnd to "End"
End_Procedure
|
|
9
|
ADO sample ( file, single task, single table )
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataTechnology "Items" to "ADODB.Recordset;ADOR.Recordset"
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataField OLEexItemsParentID to "ReportsTo"
Set ComDataField OLEexTasksDataSource to (ComDataField(Self,OLEexItemsDataSource))
Set ComDataField OLEexTasksStart to "BirthDate"
Set ComDataField OLEexTasksEnd to "HireDate"
Set ComDataTechnology "Links" to "ADODB.Recordset;ADOR.Recordset"
Set ComDataSource "Links" to (ComDataSource(Self,"Items"))
Set ComDataMember "Links" to "EmployeeLinks"
Set ComDataField OLEexLinksDataSource to "Links"
Set ComDataField OLEexLinksStart to "Start"
Set ComDataField OLEexLinksEnd to "End"
End_Procedure
|
|
8
|
ADO sample ( tree recordset )
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataTechnology "Items" to "ADODB.Recordset;ADOR.Recordset"
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
Set ComDataField OLEexItemsID to "EmployeeID"
Set ComDataField OLEexItemsParentID to "ReportsTo"
End_Procedure
|
|
7
|
ADO sample ( flat recordset )
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant rsEmployees
Get Comcreateobject "ADODB.Recordset" to rsEmployees
Send ComOpen "Employees" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource "Items" to rsEmployees
Set ComDataField OLEexItemsDataSource to "Items"
End_Procedure
|
|
6
|
ADO sample ( flat table )
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataTechnology "Items" to "ADODB.Recordset;ADOR.Recordset"
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
Set ComDataMember "Items" to "Employees"
Set ComDataField OLEexItemsDataSource to "Items"
End_Procedure
|
|
5
|
XML sample ( object, MSXML.DOMDocument )
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant xml
Get Comcreateobject "MSXML.DOMDocument" to xml
Set Comasync to False
Get Comload "C:\Program Files\Exontrol\ExG2Host\Sample\sample.xml" to Nothing
Set ComDataSource "Items" to xml
Set ComDataField OLEexItemsDataSource to "Items"
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Set ComLinesAtRoot of hoG2antt to OLEexLinesAtRoot
Set ComSingleSel of hoG2antt to False
Set ComAutoDrag of hoG2antt to OLEexAutoDragPositionAny
Send Destroy to hoG2antt
End_Procedure
|
|
4
|
XML sample ( file tree )
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llError llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComDataTechnology "Items" to "MSXML.DOMDocument"
Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.xml"
Set ComDataField OLEexItemsDataSource to "Items"
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Set ComLinesAtRoot of hoG2antt to OLEexLinesAtRoot
Set ComSingleSel of hoG2antt to False
Set ComAutoDrag of hoG2antt to OLEexAutoDragPositionAny
Send Destroy to hoG2antt
End_Procedure
|
|
3
|
How can I let user create new items/bars when clicking the empty area of the control
// Notifies the application once the host fires an event.
Procedure OnComHostEvent OLEHostEventEnum llEventID
Forward Send OnComHostEvent llEventID
Showln (ComHostEventParam(Self,-2))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComHostReadOnly to (OLEexHostReadWrite + OLEexHostAllowAddEmptyItem)
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Set ComScrollBars of hoG2antt to (OLEexVScrollEmptySpace + OLEexDisableNoVertical)
Variant voChart
Get ComChart of hoG2antt to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 128
Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
Send Destroy to hoChart
Send Destroy to hoG2antt
End_Procedure
|
|
2
|
How do I handle events of the host
// Notifies the application once the host fires an event.
Procedure OnComHostEvent OLEHostEventEnum llEventID
Forward Send OnComHostEvent llEventID
Showln (ComHostEventParam(Self,-2))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Send ComBeginUpdate of hoG2antt
Variant voColumns
Get ComColumns of hoG2antt to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "new column" to Nothing
Send Destroy to hoColumns
Send ComEndUpdate of hoG2antt
Send Destroy to hoG2antt
End_Procedure
|
|
1
|
How can I get the version of the host/exg2antt control
Procedure OnCreate
Forward Send OnCreate
Showln (ComVersion(Self))
Variant v
Variant voG2antt
Get ComHost to voG2antt
Handle hoG2antt
Get Create (RefClass(cComG2antt)) to hoG2antt
Set pvComObject of hoG2antt to voG2antt
Get ComVersion of hoG2antt to v
Send Destroy to hoG2antt
Showln "Host" v
End_Procedure
|