How-To dBASE Plus (exg2host)

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