815. How can I load my table from an Access 2007, using ADO
*** AddItem event - Occurs after a new Item has been inserted to Items collection. *** LPARAMETERS Item with thisform.Gantt1 with .Items .AddBar(Item,"Task",.CellCaption(Item,2),.CellCaption(Item,4)) endwith endwith with thisform.Gantt1 .BeginUpdate with .Chart .FirstVisibleDate = {^1994-8-3} .PaneWidth(0) = 256 .LevelCount = 2 .UnitScale = 4096 .FirstWeekDay = 1 .OverviewVisible = -1 endwith .ColumnAutoResize = .F. .ContinueColumnScroll = .F. rs = CreateObject("ADOR.Recordset") with rs var_s = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGantt\Sample\Access200" var_s = var_s + "7\sample.accdb" .Open("Orders",var_s,3,3) endwith .DataSource = rs .EndUpdate endwith
814. Is it possible display numbers in the same format no matter of regional settings in the control panel
with thisform.Gantt1 .BeginUpdate .Columns.Add("Def").Def(17) = 1 with .Items h = .AddItem(666666.27) .DefaultItem = h .FormatCell(0,0) = "(value format '') + ' <fgcolor=808080>(default positive)'" h = .AddItem(666666.27) .DefaultItem = h .FormatCell(0,0) = "(value format '2|.|3|,|1|1')" h = .AddItem(-666666.27) .DefaultItem = h .FormatCell(0,0) = "(value format '') + ' <fgcolor=808080>(default negative)'" h = .AddItem(-666666.27) .DefaultItem = h .FormatCell(0,0) = "(value format '2|.|3|,|1|1')" endwith .EndUpdate endwith
813. The right pane needs to show ONLY the hours 6am to 9pm (every hour) for one day only and the user should not to be able to scroll left or right nor see any other hours. How can I do that
with thisform.Gantt1 .BeginUpdate .Columns.Add("Tasks") with .Chart .LevelCount = 2 .ScrollRange(0) = {^2001-1-1} .ScrollRange(1) = {^2001-1-1} .UnitScale = 65536 .NonworkingHours = 12582975 .ShowNonworkingUnits = .F. .Level(0).Alignment = 17 .UnitWidth = 18 .PaneWidth(1) = 294 .ScrollBar = .F. endwith .OnResizeControl = 128 .EndUpdate endwith
812. Can I use ebn files to display the selected dates
with thisform.Gantt1 .BeginUpdate with .VisualAppearance .Add(2,"c:\exontrol\images\normal.ebn") .Add(1,"CP:2 0 -4 0 4") endwith with .Chart .FirstVisibleDate = {^2008-1-1} .MarkTodayColor = .BackColor .LevelCount = 2 .MarkSelectDateColor = 0x1000000 .SelectLevel = 1 .SelectDate({^2008-1-3}) = .T. .SelectDate({^2008-1-4}) = .T. endwith .Columns.Add("Default") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2008-1-2},{^2008-1-6}) .AddBar(.AddItem("Item 2"),"Task",{^2008-1-3},{^2008-1-7}) .AddBar(.AddItem("Item 3"),"Task",{^2008-1-4},{^2008-1-8}) .AddBar(.AddItem("Item 4"),"Task",{^2008-1-5},{^2008-1-9}) endwith .EndUpdate endwith
811. Can I use ebn files to display the selected dates
with thisform.Gantt1 .BeginUpdate .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") with .Chart .FirstVisibleDate = {^2008-1-1} .MarkTodayColor = .BackColor .LevelCount = 2 .MarkSelectDateColor = 0x1000000 .SelectLevel = 1 .SelectDate({^2008-1-3}) = .T. endwith .Columns.Add("Default") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2008-1-2},{^2008-1-6}) .AddBar(.AddItem("Item 2"),"Task",{^2008-1-3},{^2008-1-7}) .AddBar(.AddItem("Item 3"),"Task",{^2008-1-4},{^2008-1-8}) endwith .EndUpdate endwith
810. How can I change the color for selected dates to be solid
with thisform.Gantt1 .BeginUpdate with .Chart .PaneWidth(0) = 0 .FirstVisibleDate = {^2008-1-1} .MarkTodayColor = .BackColor .LevelCount = 2 .MarkSelectDateColor = 0x7fff0000 .SelectLevel = 1 .SelectDate({^2008-1-15}) = .T. .SelectDate({^2008-1-16}) = .T. endwith .EndUpdate endwith
809. How can I add or change the padding (spaces) for captions in the control's header
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .Columns.Add("Padding-Left").Def(52) = 18 with .Columns.Add("Padding-Right") .Def(53) = 18 .HeaderAlignment = 2 endwith .EndUpdate endwith
808. Do you have any plans to add cell spacing and cell padding to the cells
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .DrawGridLines = -1 with .Columns.Add("Padding-Left") .Def(0) = .T. .Def(48) = 18 endwith .Columns.Add("No-Padding").Def(0) = .T. .Columns.Add("Empty").Position = 0 with .Items .DefaultItem = .AddItem("Item A.1") .CellCaption(0,1) = "Item A.2" .DefaultItem = .AddItem("Item B.1") .CellCaption(0,1) = "Item B.2" .DefaultItem = .AddItem("Item C.1") .CellCaption(0,1) = "Item C.2" endwith .EndUpdate endwith
807. Is it possible to display information about the firing events
*** Event event - Notifies the application once the control fires an event. *** LPARAMETERS EventID with thisform.Gantt1 DEBUGOUT( .EventParam(-2) ) endwith
806. Is it possible to scroll the control's content by clicking and moving the mouse up or down
*** AddItem event - Occurs after a new Item has been inserted to Items collection. *** LPARAMETERS Item with thisform.Gantt1 with .Items .AddBar(Item,"Task",.CellCaption(Item,2),.CellCaption(Item,4)) endwith endwith with thisform.Gantt1 .BeginUpdate with .Chart .FirstVisibleDate = {^1994-8-3} .PaneWidth(0) = 256 .LevelCount = 2 .UnitScale = 4096 .FirstWeekDay = 1 .OverviewVisible = -1 endwith .ColumnAutoResize = .F. .ContinueColumnScroll = .F. rs = CreateObject("ADOR.Recordset") with rs var_s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\VB\SAMPLE.M" var_s = var_s + "DB" .Open("Orders",var_s,3,3) endwith .DataSource = rs .AutoDrag = 16 .EndUpdate endwith
805. How do I load bars from my ADO table/database
*** AddItem event - Occurs after a new Item has been inserted to Items collection. *** LPARAMETERS Item with thisform.Gantt1 with .Items .AddBar(Item,"Task",.CellCaption(Item,2),.CellCaption(Item,4)) endwith endwith with thisform.Gantt1 .BeginUpdate with .Chart .FirstVisibleDate = {^1994-8-3} .PaneWidth(0) = 256 .LevelCount = 2 .UnitScale = 4096 .FirstWeekDay = 1 .OverviewVisible = -1 endwith .ColumnAutoResize = .F. .ContinueColumnScroll = .F. rs = CreateObject("ADOR.Recordset") with rs var_s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\VB\SAMPLE.M" var_s = var_s + "DB" .Open("Orders",var_s,3,3) endwith .DataSource = rs .EndUpdate endwith
804. Is it possible to auto-numbering the children items but still keeps the position after filtering
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .LinesAtRoot = -1 with .Columns.Add("Items") .DisplayFilterButton = .T. .FilterType = 240 .Filter = "Child 2" endwith with .Columns.Add("Pos.1") .FormatColumn = "1 ropos ''" .Position = 0 .Width = 32 .AllowSizing = .F. endwith with .Columns.Add("Pos.2") .FormatColumn = "1 ropos ':'" .Position = 1 .Width = 32 .AllowSizing = .F. endwith with .Columns.Add("Pos.3") .FormatColumn = "1 ropos ':|A-Z'" .Position = 2 .Width = 32 .AllowSizing = .F. endwith with .Columns.Add("Pos.4") .FormatColumn = "1 ropos '|A-Z|'" .Position = 3 .Width = 32 .AllowSizing = .F. endwith with .Columns.Add("Pos.5") .FormatColumn = "'<font Tahoma;7>' + 1 ropos '-<b>||A-Z'" .Def(17) = 1 .Position = 4 .Width = 32 .AllowSizing = .F. endwith with .Columns.Add("Pos.6") .FormatColumn = "'<b>'+ 1 ropos '</b>:<fgcolor=FF0000>|A-Z|'" .Def(17) = 1 .Position = 5 .Width = 48 .AllowSizing = .F. endwith with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") endwith .ApplyFilter .EndUpdate endwith
803. Is it possible to auto-numbering the children items too
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .LinesAtRoot = -1 .Columns.Add("Items") with .Columns.Add("Pos.1") .FormatColumn = "1 rpos ''" .Position = 0 .Width = 32 .AllowSizing = .F. endwith with .Columns.Add("Pos.2") .FormatColumn = "1 rpos ':'" .Position = 1 .Width = 32 .AllowSizing = .F. endwith with .Columns.Add("Pos.3") .FormatColumn = "1 rpos ':|A-Z'" .Position = 2 .Width = 32 .AllowSizing = .F. endwith with .Columns.Add("Pos.4") .FormatColumn = "1 rpos '|A-Z|'" .Position = 3 .Width = 32 .AllowSizing = .F. endwith with .Columns.Add("Pos.5") .FormatColumn = "'<font Tahoma;7>' + 1 rpos '-<b>||A-Z'" .Def(17) = 1 .Position = 4 .Width = 32 .AllowSizing = .F. endwith with .Columns.Add("Pos.6") .FormatColumn = "'<b>'+ 1 rpos '</b>:<fgcolor=FF0000>|A-Z|'" .Def(17) = 1 .Position = 5 .Width = 48 .AllowSizing = .F. endwith with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") endwith .EndUpdate endwith
802. Is there any way to add auto-numbering
with thisform.Gantt1 with .Columns .Add("Items") with .Add("Pos") .FormatColumn = "1 pos ''" .Position = 0 endwith endwith with .Items .AddItem("Item 1") .AddItem("Item 2") .AddItem("Item 3") endwith endwith
801. How can I format my column to display the percent values “5,00%”
with thisform.Gantt1 .Columns.Add("Percent").FormatColumn = "((dbl(value) * 100) format '2|,|3.')+'%'" with .Items .AddItem(0.5) .AddItem(0.4) .AddItem(0.75) endwith endwith
800. How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a snapshot
with thisform.Gantt1 .BeginUpdate .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Object.HTMLPicture("p1") = "c:\exontrol\images\card.png" .Object.HTMLPicture("p2") = "c:\exontrol\images\sun.png" .AutoDrag = 11 .LinesAtRoot = 0 .HasLines = 2 .ShowFocusRect = .F. .DefaultItemHeight = 26 .Columns.Add("Task") with .Chart .ShowNonworkingDates = .F. .FirstVisibleDate = {^2000-12-29} .PaneWidth(0) = 96 .LevelCount = 2 with .Bars.Item("Task") .Color = 0x1000000 .Height = 18 endwith endwith with .Items h = .AddItem("<img>p1:32</img>Group 1") .DefaultItem = h .CellCaptionFormat(0,0) = 1 .DefaultItem = h .ItemDivider(0) = 0 .DefaultItem = h .ItemBold(0) = .T. h1 = .InsertItem(h,0,"Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .InsertItem(h,0,"Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .Link("L1",12) = "L1" h3 = .InsertItem(h,0,"Task 3") .AddBar(h3,"Task",{^2001-1-8},{^2001-1-10},"K3") .AddLink("L2",h2,"K2",h3,"K3") .Link("L2",12) = "L2" h = .AddItem("<img>p2:32</img>Group 2") .DefaultItem = h .CellCaptionFormat(0,0) = 1 .DefaultItem = h .ItemBold(0) = .T. .DefaultItem = h .ItemDivider(0) = 0 h1 = .InsertItem(h,0,"Task") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") .ExpandItem(0) = .T. endwith .EndUpdate endwith
799. How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a image
with thisform.Gantt1 .BeginUpdate .Object.HTMLPicture("p1") = "c:\exontrol\images\card.png" .Object.HTMLPicture("p2") = "c:\exontrol\images\sun.png" .Chart.PaneWidth(1) = 0 var_HTMLPicture = .HTMLPicture("aka1") .HeaderHeight = 24 .DefaultItemHeight = 48 .DrawGridLines = -2 .GridLineColor = RGB(240,240,240) .SelBackMode = 1 .ColumnAutoResize = .F. .ContinueColumnScroll = .F. rs = CreateObject("ADOR.Recordset") with rs var_s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\VB\SAMPLE.M" var_s = var_s + "DB" .Open("Orders",var_s,3,3) endwith .DataSource = rs .Columns.Item(0).Def(17) = 1 .Columns.Item(0).FormatColumn = "value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>`" .Columns.Item(0).Width = 112 .Columns.Item(1).Def(0) = 1 .Columns.Item(2).LevelKey = "1" .Columns.Item(3).LevelKey = "1" .Columns.Item(4).LevelKey = "1" .AutoDrag = 10 .SingleSel = .F. with .Items h = .ItemByIndex(1) .DefaultItem = h .SelectItem(0) = .T. h = .ItemByIndex(2) .DefaultItem = h .SelectItem(0) = .T. h = .ItemByIndex(3) .DefaultItem = h .SelectItem(0) = .T. .LockedItemCount(2) = 1 h = .LockedItem(2,0) .DefaultItem = h var_s1 = "<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word" var_s1 = var_s1 + ", ..." .CellCaption(0,1) = var_s1 .DefaultItem = h .CellSingleLine(0,1) = .F. .DefaultItem = h .CellCaptionFormat(0,1) = 1 .DefaultItem = h .CellHAlignment(0,1) = 1 .DefaultItem = h .ItemDivider(0) = 1 .DefaultItem = h .ItemDividerLineAlignment(0) = 2 endwith .EndUpdate endwith
798. How can copy and paste the selection to Microsoft Word, Excel or any OLE compliant application, as a text
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .ColumnAutoResize = .F. .ContinueColumnScroll = .F. rs = CreateObject("ADOR.Recordset") with rs var_s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\VB\SAMPLE.M" var_s = var_s + "DB" .Open("Orders",var_s,3,3) endwith .DataSource = rs .Columns.Item(2).LevelKey = "1" .Columns.Item(3).LevelKey = "1" .Columns.Item(4).LevelKey = "1" .AutoDrag = 9 .SingleSel = .F. with .Items h = .ItemByIndex(1) .DefaultItem = h .SelectItem(0) = .T. h = .ItemByIndex(3) .DefaultItem = h .SelectItem(0) = .T. h = .ItemByIndex(4) .DefaultItem = h .SelectItem(0) = .T. h = .ItemByIndex(5) .DefaultItem = h .SelectItem(0) = .T. .LockedItemCount(2) = 1 h = .LockedItem(2,0) .DefaultItem = h var_s1 = "<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word" var_s1 = var_s1 + ", Excel, ..." .CellCaption(0,0) = var_s1 .DefaultItem = h .CellSingleLine(0,0) = .F. .DefaultItem = h .CellCaptionFormat(0,0) = 1 .DefaultItem = h .CellHAlignment(0,0) = 1 .DefaultItem = h .ItemDivider(0) = 0 .DefaultItem = h .ItemDividerLineAlignment(0) = 2 endwith .EndUpdate endwith
797. Is it possible to change the indentation during the drag and drop
with thisform.Gantt1 .BeginUpdate .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .AutoDrag = 3 .LinesAtRoot = 0 .HasLines = 1 .HasButtons = 3 .ShowFocusRect = .F. .SelBackMode = 1 .Columns.Add("Task") with .Chart .ShowNonworkingDates = .F. .FirstVisibleDate = {^2000-12-29} .PaneWidth(0) = 128 .LevelCount = 2 .Bars.Item("Task").Color = 0x1000000 endwith with .Items h = .AddItem("Group 1") .DefaultItem = h .ItemBold(0) = .T. .DefaultItem = h .ItemDivider(0) = 0 h1 = .InsertItem(h,0,"Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .InsertItem(h1,0,"Task 2") .AddBar(h2,"Task",{^2001-1-15},{^2001-1-17},"K4") h2 = .InsertItem(h1,0,"Task 3") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .Link("L1",12) = "L1" h3 = .InsertItem(h,0,"Task 3") .AddBar(h3,"Task",{^2001-1-8},{^2001-1-10},"K3") .AddLink("L2",h2,"K2",h3,"K3") .Link("L2",12) = "L2" .DefaultItem = h .ExpandItem(0) = .T. .DefaultItem = h1 .ExpandItem(0) = .T. h = .AddItem("Group 2") .DefaultItem = h .ItemBold(0) = .T. .DefaultItem = h .ItemDivider(0) = 0 .LockedItemCount(2) = 1 h = .LockedItem(2,0) .DefaultItem = h var_s = "Click a row, and move by dragging <b>up, down</b> to change the row's parent or <b>left,right</b" var_s = var_s + "> to increase or decrease the indentation." .CellCaption(0,0) = var_s .DefaultItem = h .CellSingleLine(0,0) = .F. .DefaultItem = h .CellCaptionFormat(0,0) = 1 endwith .EndUpdate endwith
796. Is it possible to allow moving an item to another, but keeping its indentation
with thisform.Gantt1 .BeginUpdate .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .AutoDrag = 2 .LinesAtRoot = 0 .HasLines = 2 .ShowFocusRect = .F. .Columns.Add("Task") with .Chart .ShowNonworkingDates = .F. .FirstVisibleDate = {^2000-12-29} .PaneWidth(0) = 96 .LevelCount = 2 .Bars.Item("Task").Color = 0x1000000 endwith with .Items h = .AddItem("Group 1") .DefaultItem = h .ItemDivider(0) = 0 .DefaultItem = h .ItemBold(0) = .T. h1 = .InsertItem(h,0,"Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .InsertItem(h,0,"Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .Link("L1",12) = "L1" h3 = .InsertItem(h,0,"Task 3") .AddBar(h3,"Task",{^2001-1-8},{^2001-1-10},"K3") .AddLink("L2",h2,"K2",h3,"K3") .Link("L2",12) = "L2" .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Group 2") .DefaultItem = h .ItemBold(0) = .T. .DefaultItem = h .ItemDivider(0) = 0 endwith .EndUpdate endwith
795. How can I change the row's position to another, by drag and drop. Is it possible
with thisform.Gantt1 .BeginUpdate .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .AutoDrag = 1 .Columns.Add("Task") with .Chart .ShowNonworkingDates = .F. .FirstVisibleDate = {^2000-12-29} .PaneWidth(0) = 64 .LevelCount = 2 .Bars.Item("Task").Color = 0x1000000 endwith with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .Link("L1",12) = "L1" h3 = .AddItem("Task 3") .AddBar(h3,"Task",{^2001-1-8},{^2001-1-10},"K3") .AddLink("L2",h2,"K2",h3,"K3") .Link("L2",12) = "L2" endwith .EndUpdate endwith
794. Have seen the RenderType, but do not know what kind of values should I use
with thisform.Gantt1 .BeginUpdate .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Columns.Add("Task") .BackColorHeader = 0x1000000 with .Chart .BackColorLevelHeader = 0x1000000 .FirstVisibleDate = {^2000-12-29} .PaneWidth(0) = 64 .LevelCount = 2 .Bars.Item("Task").Color = 0x1000000 endwith with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .Link("L1",12) = "L1" h3 = .AddItem("Task 3") .AddBar(h3,"Task",{^2001-1-8},{^2001-1-10},"K3") .AddLink("L2",h2,"K2",h3,"K3") .Link("L2",12) = "L2" endwith .VisualAppearance.RenderType = -2147483393 .EndUpdate endwith
793. I have several columns, but noticed that the filter is using AND between columns, but I need OR clause for filtering. Is it possible
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .LinesAtRoot = -1 with .Columns.Add("Item") .DisplayFilterButton = .T. .DisplayFilterPattern = .F. .Filter = "Child 1" .FilterType = 240 endwith with .Columns.Add("Date") .DisplayFilterButton = .T. .DisplayFilterPattern = .F. .DisplayFilterDate = .T. .FilterList = 9474 .Filter = {^2010-12-28} .FilterType = 4 endwith .FilterCriteria = "%0 or %1" .Object.Description(23) = "<font ;18><fgcolor=FF0000>or</fgcolor></font>" .Object.Description(11) = "<font ;18><fgcolor=FF0000>and</fgcolor></font>" with .Items h = .AddItem("Root 1") .DefaultItem = .InsertItem(h,0,"Child 1") .CellCaption(0,1) = {^2010-12-27} .DefaultItem = .InsertItem(h,0,"Child 2") .CellCaption(0,1) = {^2010-12-28} .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2") .DefaultItem = .InsertItem(h,0,"Child 1") .CellCaption(0,1) = {^2010-12-29} .DefaultItem = .InsertItem(h,0,"Child 2") .CellCaption(0,1) = {^2010-12-30} endwith .ApplyFilter .EndUpdate endwith
792. Is it possible exclude the dates being selected in the drop down filter window
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 with .Columns.Add("Date") .SortType = 2 .DisplayFilterButton = .T. .DisplayFilterPattern = .F. .DisplayFilterDate = .T. .FilterList = 9474 endwith with .Items .AddItem({^2010-12-27}) .AddItem({^2010-12-28}) .AddItem({^2010-12-29}) .AddItem({^2010-12-30}) .AddItem({^2010-12-31}) endwith .EndUpdate endwith
791. How can I display a calendar control inside the drop down filter window
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 with .Columns.Add("Date") .SortType = 2 .DisplayFilterButton = .T. .DisplayFilterPattern = .F. .DisplayFilterDate = .T. .FilterList = 1282 endwith with .Items .AddItem({^2010-12-27}) .AddItem({^2010-12-28}) .AddItem({^2010-12-29}) .AddItem({^2010-12-30}) .AddItem({^2010-12-31}) endwith .EndUpdate endwith
790. Is it possible to include the dates as checkb-boxes in the drop down filter window
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 with .Columns.Add("Dates") .SortType = 2 .DisplayFilterButton = .T. .DisplayFilterPattern = .T. .DisplayFilterDate = .T. .FilterList = 1280 .Filter = "to 12/27/2010" .FilterType = 4 endwith with .Items .AddItem({^2010-12-27}) .AddItem({^2010-12-28}) .AddItem({^2010-12-29}) .AddItem({^2010-12-30}) .AddItem({^2010-12-31}) endwith .ApplyFilter .EndUpdate endwith
789. How can I filter items for dates before a specified date
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 with .Columns.Add("Dates") .SortType = 2 .DisplayFilterButton = .T. .DisplayFilterPattern = .T. .DisplayFilterDate = .T. .FilterList = 1026 .Filter = "to 12/27/2010" .FilterType = 4 endwith with .Items .AddItem({^2010-12-27}) .AddItem({^2010-12-28}) .AddItem({^2010-12-29}) .AddItem({^2010-12-30}) .AddItem({^2010-12-31}) endwith .ApplyFilter .EndUpdate endwith
788. Is it possible to filter dates
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 with .Columns.Add("Dates") .SortType = 2 .DisplayFilterButton = .T. .DisplayFilterPattern = .T. .DisplayFilterDate = .T. .FilterList = 1026 endwith with .Items .AddItem({^2010-12-27}) .AddItem({^2010-12-28}) .AddItem({^2010-12-29}) .AddItem({^2010-12-30}) .AddItem({^2010-12-31}) endwith .EndUpdate endwith
787. Is it possible to change the Exclude field name to something different, in the drop down filter window
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .LinesAtRoot = -1 .Object.Description(25) = "Leaving out" with .Columns.Add("Items") .DisplayFilterButton = .T. .DisplayFilterPattern = .F. .FilterList = 9472 endwith with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2") .InsertItem(h,0,"Child 1") endwith .EndUpdate endwith
786. How can I display the Exclude field in the drop down filter window
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .LinesAtRoot = -1 with .Columns.Add("Items") .DisplayFilterButton = .T. .DisplayFilterPattern = .F. .FilterList = 9472 endwith with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2") .InsertItem(h,0,"Child 1") endwith .EndUpdate endwith
785. Is it possible to show and ensure the focused item from the control, in the drop down filter window
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .LinesAtRoot = -1 with .Columns.Add("Items") .DisplayFilterButton = .T. .DisplayFilterPattern = .F. .FilterList = 1280 endwith with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2") .InsertItem(h,0,"Child 1") .DefaultItem = .InsertItem(h,0,"Child 2") .SelectItem(0) = .T. .DefaultItem = h .ExpandItem(0) = .T. endwith .EndUpdate endwith
784. Is it possible to show only blanks items with no listed items from the control
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .LinesAtRoot = -1 with .Columns.Add("Items") .DisplayFilterButton = .T. .DisplayFilterPattern = .F. .FilterList = 16386 endwith with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") endwith .EndUpdate endwith
783. How can I include the blanks items in the drop down filter window
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .LinesAtRoot = -1 with .Columns.Add("Items") .DisplayFilterButton = .T. .DisplayFilterPattern = .F. .FilterList = 16640 endwith with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") endwith .EndUpdate endwith
782. How can I select multiple items in the drop down filter window, using check-boxes
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .LinesAtRoot = -1 with .Columns.Add("Items") .DisplayFilterButton = .T. .DisplayFilterPattern = .F. .FilterList = 256 endwith with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") endwith .EndUpdate endwith
781. Is it possible to allow a single item being selected in the drop down filter window
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .LinesAtRoot = -1 with .Columns.Add("Items") .DisplayFilterButton = .T. .DisplayFilterPattern = .F. .FilterList = 128 endwith with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") endwith .EndUpdate endwith
780. How can I display no (All) item in the drop down filter window
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .LinesAtRoot = -1 .Object.Description(0) = "" with .Columns.Add("Items") .DisplayFilterButton = .T. .DisplayFilterPattern = .T. .FilterList = 2 endwith with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") endwith .EndUpdate endwith
779. Is it possible to display no items in the drop down filter window, so only the pattern is visible
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .LinesAtRoot = -1 with .Columns.Add("Items") .DisplayFilterButton = .T. .DisplayFilterPattern = .T. .FilterList = 2 endwith with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") endwith .EndUpdate endwith
778. How can I show the child items with no identation
with thisform.Gantt1 .LinesAtRoot = 5 .Indent = 12 .HasLines = 2 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Child 3") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Child 3") endwith endwith
777. Is there other ways of showing the hierarchy lines (exGroupLinesAtRoot)
with thisform.Gantt1 .LinesAtRoot = 1 .Indent = 12 .Columns.Add("Default") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Child 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
776. Is there other ways of showing the hierarchy lines (exGroupLinesOutside)
with thisform.Gantt1 .LinesAtRoot = 5 .Indent = 12 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Child 3") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Child 3") endwith endwith
775. Is there other ways of showing the hierarchy lines (exGroupLinesInsideLeaf)
with thisform.Gantt1 .LinesAtRoot = 4 .Indent = 12 .Columns.Add("Default") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Child 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
774. Is there other ways of showing the hierarchy lines (exGroupLinesInside)
with thisform.Gantt1 .LinesAtRoot = 3 .Indent = 12 .Columns.Add("Default") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Child 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
773. Is there other ways of showing the hierarchy lines (exGroupLines)
with thisform.Gantt1 .LinesAtRoot = 2 .Indent = 12 .Columns.Add("Default") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(.InsertItem(h,0,"Child 2"),0,"SubChild 2") .InsertItem(h,0,"Child 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
772. Is it possible background color displayed when the mouse passes over an item
with thisform.Gantt1 .BeginUpdate .Columns.Add("Def") .HotBackColor = RGB(0,0,128) .HotForeColor = RGB(255,255,255) with .Items .AddItem("Item A") .AddItem("Item B") .AddItem("Item C") endwith .EndUpdate endwith
771. How can I simulate displaying groups
with thisform.Gantt1 .HasLines = 0 .ScrollBySingleLine = .T. .Chart.PaneWidth(1) = 0 with .Columns .Add("Name") .Add("A") .Add("B") .Add("C") endwith with .Items h = .AddItem("Group 1") .DefaultItem = h .CellHAlignment(0,0) = 1 .DefaultItem = h .ItemDivider(0) = 0 .DefaultItem = h .ItemDividerLineAlignment(0) = 3 .DefaultItem = h .ItemHeight(0) = 24 .DefaultItem = h .SortableItem(0) = .F. h1 = .InsertItem(h,0,"Child 1") .DefaultItem = h1 .CellCaption(0,1) = 1 .DefaultItem = h1 .CellCaption(0,2) = 2 .DefaultItem = h1 .CellCaption(0,3) = 3 h1 = .InsertItem(h,0,"Child 2") .DefaultItem = h1 .CellCaption(0,1) = 4 .DefaultItem = h1 .CellCaption(0,2) = 5 .DefaultItem = h1 .CellCaption(0,3) = 6 .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Group 2") .DefaultItem = h .CellHAlignment(0,0) = 1 .DefaultItem = h .ItemDivider(0) = 0 .DefaultItem = h .ItemDividerLineAlignment(0) = 3 .DefaultItem = h .ItemHeight(0) = 24 .DefaultItem = h .SortableItem(0) = .F. h1 = .InsertItem(h,0,"Child 1") .DefaultItem = h1 .CellCaption(0,1) = 1 .DefaultItem = h1 .CellCaption(0,2) = 2 .DefaultItem = h1 .CellCaption(0,3) = 3 h1 = .InsertItem(h,0,"Child 2") .DefaultItem = h1 .CellCaption(0,1) = 4 .DefaultItem = h1 .CellCaption(0,2) = 5 .DefaultItem = h1 .CellCaption(0,3) = 6 .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
770. Is it possible to change the height for all items at once
with thisform.Gantt1 .BeginUpdate .LinesAtRoot = -1 .Columns.Add("Items") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") h = .AddItem("Root 2") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .ExpandItem(0) = .T. endwith .EndUpdate .DefaultItemHeight = 12 .Items.ItemHeight(0) = 12 endwith
769. Is it possible to specify the cell's value but still want to display some formatted text instead the value
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .Columns.Add("Value") .Columns.Add("FormatCell") with .Items h = .AddItem(1) .DefaultItem = h .CellCaption(0,1) = 12 .DefaultItem = h .FormatCell(0,1) = "currency(value)" h = .AddItem({^2001-1-1}) .DefaultItem = h .CellCaption(0,1) = {^2001-1-1} .DefaultItem = h .CellCaptionFormat(0,1) = 1 .DefaultItem = h .FormatCell(0,1) = "longdate(value) replace '2001' with '<b>2001</b>'" endwith .EndUpdate endwith
768. Is it possible to specify the cell's value but still want to display some formatted text instead the value
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .MarkSearchColumn = .F. with .Columns .Add("Name") with .Add("Values") .SortType = 1 .AllowSizing = .F. .Width = 64 .FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)" .Def(17) = 1 endwith endwith with .Items h = .AddItem("Root") .DefaultItem = h .FormatCell(0,1) = "'<none>'" .DefaultItem = .InsertItem(h,0,"Child 1") .CellCaption(0,1) = 10 .DefaultItem = .InsertItem(h,0,"Child 2") .CellCaption(0,1) = 15 .DefaultItem = .InsertItem(h,0,"Child 3") .CellCaption(0,1) = 25 .DefaultItem = h .ExpandItem(0) = .T. endwith .EndUpdate endwith
767. I am using the FormatColumn to display the current currency, but would like hide some values. Is it possible
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .MarkSearchColumn = .F. with .Columns .Add("Name") with .Add("Values") .SortType = 1 .AllowSizing = .F. .Width = 64 .FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)" .Def(17) = 1 endwith endwith with .Items h = .AddItem("Root") .DefaultItem = h .FormatCell(0,1) = " " .DefaultItem = .InsertItem(h,0,"Child 1") .CellCaption(0,1) = 10 .DefaultItem = .InsertItem(h,0,"Child 2") .CellCaption(0,1) = 15 .DefaultItem = .InsertItem(h,0,"Child 3") .CellCaption(0,1) = 25 .DefaultItem = h .ExpandItem(0) = .T. endwith .EndUpdate endwith
766. How can I apply the same ConditionalFormat on more than 1(one) column (multiple columns and not on item)
with thisform.Gantt1 .BeginUpdate with .ConditionalFormats.Add("1","K1") .BackColor = RGB(255,0,0) .ApplyTo = 1 endwith with .ConditionalFormats.Add("1","K2") .BackColor = RGB(255,0,0) .ApplyTo = 2 endwith .MarkSearchColumn = .F. .DrawGridLines = -2 with .Columns .Add("Column 1") .Add("Column 2") .Add("Column 3") endwith with .Items .AddItem() .AddItem() .AddItem() endwith .EndUpdate endwith
765. How can I get the list of items as they are displayed
with thisform.Gantt1 .BeginUpdate .BackColorAlternate = RGB(240,240,240) .Columns.Add("Names") with .Items .AddItem("Mantel") .AddItem("Mechanik") .AddItem("Motor") .AddItem("Murks") .AddItem("Märchen") .AddItem("Möhren") .AddItem("Mühle") endwith .Columns.Item(0).SortOrder = 1 .EndUpdate DEBUGOUT( .GetItems(1) ) endwith
764. Is posible to reduce the size of the picture to be shown in the column's caption
with thisform.Gantt1 .BeginUpdate .Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .HeaderHeight = 48 .Columns.Add("DefaultSize").HTMLCaption = "Default-Size <img>pic1</img> Picture" .Columns.Add("CustomSize").HTMLCaption = "Custom-Size <img>pic1:16</img> Picture" .EndUpdate endwith
763. How can I change the color, font, bold etc for the items/cells in the same column or for the entire column
with thisform.Gantt1 .BeginUpdate .MarkSearchColumn = .F. with .ConditionalFormats.Add("1") .Bold = .T. .ForeColor = RGB(255,0,0) .ApplyTo = 1 endwith .Columns.Add("C1") with .Columns.Add("C2") .HeaderBold = .T. .HTMLCaption = "<fgcolor=FF0000>C2" endwith with .Items .DefaultItem = .AddItem(10) .CellCaption(0,1) = 11 .DefaultItem = .AddItem(12) .CellCaption(0,1) = 13 endwith .EndUpdate endwith
762. The item is not getting selected when clicking the cell's checkbox. What should I do
*** CellStateChanged event - Fired after cell's state has been changed. *** LPARAMETERS Item,ColIndex with thisform.Gantt1 .DefaultItem = Item .Items.SelectItem(0) = .T. endwith with thisform.Gantt1 .Columns.Add("Check").Def(0) = .T. with .Items .AddItem(0) .AddItem(1) .AddItem(2) .AddItem(3) endwith endwith
761. Is it possible to limit the height of the item while resizing
*** AddItem event - Occurs after a new Item has been inserted to Items collection. *** LPARAMETERS Item with thisform.Gantt1 .DefaultItem = Item .Items.ItemMinHeight(0) = 18 .DefaultItem = Item .Items.ItemMaxHeight(0) = 72 endwith with thisform.Gantt1 .BeginUpdate .ItemsAllowSizing = -1 .ScrollBySingleLine = .F. .BackColorAlternate = RGB(240,240,240) .Columns.Add("Names") with .Items .AddItem("Mantel") .AddItem("Mechanik") .AddItem("Motor") .AddItem("Murks") .AddItem("Märchen") .AddItem("Möhren") .AddItem("Mühle") endwith .Columns.Item(0).SortOrder = 1 .EndUpdate endwith
760. Is it possible to copy the hierarchy of the control using the GetItems method
with thisform.Gantt1 .LinesAtRoot = -1 .Columns.Add("Def") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") endwith .PutItems(.GetItems(-1)) endwith
759. Does your control supports multiple lines tooltip
with thisform.Gantt1 .Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .ToolTipDelay = 1 var_s = "<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The toolti" var_s = var_s + "p supports built-in HTML tags, icons and pictures.<br><br><br><img>pic1</img> picture ... <br><b" var_s = var_s + "r>" .Columns.Add("tootip").ToolTip = var_s endwith
758. It is possible to write the word in red/color or to add a tooltip or a link to the word
with thisform.Gantt1 .Columns.Add("Task") with .Chart .LevelCount = 2 .FirstVisibleDate = {^2000-12-26} .PaneWidth(0) = 32 endwith with .Items h1 = .AddItem("Task 1") .AddBar(h1,"",{^2001-1-1},{^2001-1-5},"K1","some <fgcolor=FF0000>red</fgcolor> text") .DefaultItem = h1 .ItemBar(0,"K1",10) = .F. .DefaultItem = h1 .ItemBar(0,"K1",6) = "And here goes the <b>tooltip</b> of the text. " .AddItem("") .AddItem("") .AddItem("") .AddItem("") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .DefaultItem = h2 .ItemBar(0,"K2",6) = "And here goes the <b>tooltip</b> of the bar. " .AddLink("L1",h1,"K1",h2,"K2") .Link("L1",12) = "L<b>inke</b>d to a bar" .Link("L1",13) = "And here goes the <b>tooltip</b> of the link. " endwith endwith
757. It is possible to use seconds/minutes/hours as time scale in your control, but using my regional settings
with thisform.Gantt1 .BeginUpdate with .Chart var_s = "<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyy" var_s = var_s + "y%>" .Label(16) = var_s var_s1 = "<|><%ww%><|><%loc_m3%> <%d%>, '<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>25" var_s1 = var_s1 + "6" .Label(256) = var_s1 var_s2 = "<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%><|" var_s2 = var_s2 + "><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%><||><||>4096" .Label(4096) = var_s2 var_s3 = "<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%loc_dddd" var_s3 = var_s3 + "%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536" .Label(65536) = var_s3 var_s4 = "<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%" var_s4 = var_s4 + "><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>" .Label(1048576) = var_s4 var_s5 = "<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%" var_s5 = var_s5 + "> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%>" var_s5 = var_s5 + " <%AM/PM%>" .Label(16777216) = var_s5 .LabelToolTip(16) = "<%loc_mmmm%>/<%yyyy%>" .LabelToolTip(256) = "<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>" .LabelToolTip(4096) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>" .LabelToolTip(65536) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>" .LabelToolTip(1048576) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>" .LabelToolTip(16777216) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>" endwith with .Chart .PaneWidth(0) = 0 .FirstVisibleDate = {^2001-1-1} .LevelCount = 4 .Level(0).Label = 4096 .Level(1).Label = 65536 .Level(2).Label = 1048576 with .Level(3) .Count = 15 .Label = 16777216 endwith endwith .EndUpdate endwith
756. The chart's header is displayed in English. Can I change so it is the same as in my regional settings
with thisform.Gantt1 .BeginUpdate with .Chart var_s = "<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyy" var_s = var_s + "y%>" .Label(16) = var_s var_s1 = "<|><%ww%><|><%loc_m3%> <%d%>, '<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>25" var_s1 = var_s1 + "6" .Label(256) = var_s1 var_s2 = "<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%><|" var_s2 = var_s2 + "><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%><||><||>4096" .Label(4096) = var_s2 var_s3 = "<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%loc_dddd" var_s3 = var_s3 + "%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536" .Label(65536) = var_s3 var_s4 = "<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%" var_s4 = var_s4 + "><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>" .Label(1048576) = var_s4 var_s5 = "<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%" var_s5 = var_s5 + "> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%>" var_s5 = var_s5 + " <%AM/PM%>" .Label(16777216) = var_s5 .LabelToolTip(16) = "<%loc_mmmm%>/<%yyyy%>" .LabelToolTip(256) = "<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>" .LabelToolTip(4096) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>" .LabelToolTip(65536) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>" .LabelToolTip(1048576) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>" .LabelToolTip(16777216) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>" endwith with .Chart .PaneWidth(0) = 0 .FirstVisibleDate = {^2001-1-1} .LevelCount = 2 .UnitScale = 4096 endwith .EndUpdate endwith
755. It is possible to use seconds/minutes/hours as time scale in your control
with thisform.Gantt1 .BeginUpdate with .Chart .PaneWidth(0) = 0 .FirstVisibleDate = {^2001-1-1} .LevelCount = 4 .Level(0).Label = 4096 .Level(1).Label = 65536 .Level(2).Label = 1048576 with .Level(3) .Count = 15 .Label = 16777216 endwith endwith .EndUpdate endwith
754. How can I prevent highlighting the column from the cursor - point
with thisform.Gantt1 var_s = "gBFLBCJwBAEHhEJAEGg4BI0IQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDKKUEwsACEIrjKCYVgOHYYRrIMYgBCMJhLEoaZLh" var_s = var_s + "EZRQiqDYtRDFQBSDDcPw/EaRZohGaYJgEgI=" .VisualAppearance.Add(1,var_s) .Object.Background(32) = 0x1000000 .Columns.Add("S").Width = 32 .Columns.Add("Level 1").LevelKey = 1 .Columns.Add("Level 2").LevelKey = 1 .Columns.Add("Level 3").LevelKey = 1 .Columns.Add("E1").Width = 32 .Columns.Add("E2").Width = 32 .Columns.Add("E3").Width = 32 .Columns.Add("E4").Width = 32 endwith
753. Can I use and display PNG pictures
with thisform.Gantt1 .Object.HTMLPicture("pic1") = "c:\exontrol\images\card.png" .HeaderHeight = 48 .Columns.Add("ColumnName").HTMLCaption = "<b>HTML</b> Column <img>pic1</img> Picture" endwith
752. Is it possible to specify the background color for the item in the chart part only
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root") hC = .InsertItem(h,0,"Child 1") .DefaultItem = hC thisform.Gantt1.Chart.ItemBackColor(0) = RGB(255,0,0) .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
751. Is it possible to apply different visual appearance, color, sizes for item in the list and chart part
with thisform.Gantt1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") .VisualAppearance.Add(3,"CP:2 2 2 -2 -2") .Columns.Add("Default") .SelBackMode = 1 with .Items h = .AddItem("Root") hC = .InsertItem(h,0,"Child 1") .DefaultItem = hC .ItemBackColor(0) = 0x1ffff00 .DefaultItem = hC thisform.Gantt1.Chart.ItemBackColor(0) = 0x300ff00 .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
750. How do I change the visual appearance for the entire item, using your EBN technology
with thisform.Gantt1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Columns.Add("Default") with .Items h = .AddItem("Root") hC = .InsertItem(h,0,"Child 1") .DefaultItem = hC .ItemBackColor(0) = 0x1000000 .DefaultItem = hC thisform.Gantt1.Chart.ItemBackColor(0) = 0x1000000 .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
749. is it possible to specify the a different background color for the item, list and chart part
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root") hC = .InsertItem(h,0,"Child 1") .DefaultItem = hC .ItemBackColor(0) = RGB(255,0,0) .DefaultItem = hC thisform.Gantt1.Chart.ItemBackColor(0) = RGB(255,255,0) .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
748. Is it possible to specify the background color for the entire row, including the chart part
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root") hC = .InsertItem(h,0,"Child 1") .DefaultItem = hC .ItemBackColor(0) = RGB(255,0,0) .DefaultItem = hC thisform.Gantt1.Chart.ItemBackColor(0) = RGB(255,0,0) .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
747. How can I show the tooltip programmatically ( I want to be able to set the tooltip content dynamically just before the tooltip start to appear, not using the exBarTooltip )
*** MouseMove event - Occurs when the user moves the mouse. *** LPARAMETERS Button,Shift,X,Y with thisform.Gantt1 .ShowToolTip(.Chart.BarFromPoint(-1,-1),"","8","8") endwith with thisform.Gantt1 .BeginUpdate .Columns.Add("Def") with .Chart .PaneWidth(0) = 64 .LevelCount = 2 .FirstVisibleDate = {^2010-1-1} endwith with .Items h = .AddItem("Task") .AddBar(h,"Task",{^2010-1-2},{^2010-1-5},"A","A") .AddBar(h,"Task",{^2010-1-5},{^2010-1-8},"B","B") .AddBar(h,"Task",{^2010-1-8},{^2010-1-11},"C","C") endwith .EndUpdate endwith
746. Is it possible to move an item from a parent to another
with thisform.Gantt1 .BeginUpdate .LinesAtRoot = -1 .Columns.Add("Items") with .Items .AddItem("A") .AddItem("B") .InsertItem(.AddItem("C"),"","D") .SetParent(.FindItem("D",0),.FindItem("A",0)) endwith .EndUpdate endwith
745. How can I change the identation for an item
with thisform.Gantt1 .BeginUpdate .LinesAtRoot = -1 .Columns.Add("Items") with .Items .AddItem("A") .AddItem("B") .InsertItem(.AddItem("C"),"","D") .SetParent(.FindItem("D",0),0) endwith .EndUpdate endwith
744. How can I specify the levels using the user's Regional and Language Options
with thisform.Gantt1 .BeginUpdate .Font.Name = "Arial Unicode MS" .HeaderHeight = 36 with .Chart .FirstVisibleDate = {^2010-5-30} .PaneWidth(0) = 0 .FirstWeekDay = 1 .UnitWidth = 36 .LevelCount = 2 with .Level(0) .Label = "<b><%loc_mmmm%></b> <%yyyy%><br><%loc_sdate%><r> <%ww%> " .ToolTip = .Label .Unit = 256 endwith with .Level(1) .Label = "<%loc_ddd%><br><%d%>" .ToolTip = .Label endwith .ToolTip = "<%loc_ldate%>" endwith .EndUpdate endwith
743. How can I display a bar only using a gradient color and shadow
with thisform.Gantt1 .BeginUpdate with .Chart .FirstVisibleDate = {^2009-12-31} .LevelCount = 2 .PaneWidth(0) = 96 with .Bars.Item("Task") .StartColor = RGB(255,255,255) .EndColor = .Color endwith endwith .Columns.Add("Types") with .Items .AddBar(.AddItem("Original"),"Task",{^2010-1-4},{^2010-1-9},"") h = .AddItem("W/h Gradient") .AddBar(h,"Task",{^2010-1-4},{^2010-1-9},"") .DefaultItem = h .ItemBar(0,"",17) = 8291 .AddBar(.AddItem("Original"),"Task",{^2010-1-4},{^2010-1-9},"") endwith .EndUpdate endwith
742. Is it possible to display a bar only using a gradient color using the exBarColor option
with thisform.Gantt1 .BeginUpdate with .Chart .FirstVisibleDate = {^2009-12-31} .LevelCount = 2 .PaneWidth(0) = 96 with .Bars.Item("Task") .StartColor = RGB(255,255,255) .EndColor = .StartColor .Height = 17 endwith endwith .Columns.Add("Types") with .Items .AddBar(.AddItem("Original"),"Task",{^2010-1-4},{^2010-1-9},"") h = .AddItem("W/h Gradient") .AddBar(h,"Task",{^2010-1-4},{^2010-1-9},"") .DefaultItem = h .ItemBar(0,"",17) = 227 h = .AddItem("W/h Color") .AddBar(h,"Task",{^2010-1-4},{^2010-1-9},"") .DefaultItem = h .ItemBar(0,"",17) = 227 .DefaultItem = h .ItemBar(0,"",513) = 255 .AddBar(.AddItem("Original"),"Task",{^2010-1-4},{^2010-1-9},"") endwith .EndUpdate endwith
741. Is it possible to display a bar only using a gradient color
with thisform.Gantt1 .BeginUpdate with .Chart .FirstVisibleDate = {^2009-12-31} .LevelCount = 2 .PaneWidth(0) = 96 with .Bars.Item("Task") .StartColor = RGB(255,255,255) .EndColor = .StartColor .Height = 17 endwith endwith .Columns.Add("Types") with .Items .AddBar(.AddItem("Original"),"Task",{^2010-1-4},{^2010-1-9},"") h = .AddItem("W/h Gradient") .AddBar(h,"Task",{^2010-1-4},{^2010-1-9},"") .DefaultItem = h .ItemBar(0,"",17) = 227 .AddBar(.AddItem("Original"),"Task",{^2010-1-4},{^2010-1-9},"") endwith .EndUpdate endwith
740. Is it possible to display a bar only using a gradient color
with thisform.Gantt1 .BeginUpdate with .Chart .FirstVisibleDate = {^2009-12-31} .LevelCount = 2 .PaneWidth(0) = 96 with .Bars.Item("Task") .StartColor = RGB(255,255,255) .EndColor = .Color endwith endwith .Columns.Add("Types") with .Items .AddBar(.AddItem("Original"),"Task",{^2010-1-4},{^2010-1-9},"") h = .AddItem("W/h Gradient") .AddBar(h,"Task",{^2010-1-4},{^2010-1-9},"") .DefaultItem = h .ItemBar(0,"",17) = 99 .AddBar(.AddItem("Original"),"Task",{^2010-1-4},{^2010-1-9},"") endwith .EndUpdate endwith
739. How can I display a specified bar only with a thicker border
with thisform.Gantt1 .BeginUpdate with .Chart .FirstVisibleDate = {^2009-12-31} .LevelCount = 2 .PaneWidth(0) = 96 endwith .Columns.Add("Types") with .Items .AddBar(.AddItem("Original"),"Task",{^2010-1-4},{^2010-1-9},"") h = .AddItem("W/h Border") .AddBar(h,"Task",{^2010-1-4},{^2010-1-9},"") .DefaultItem = h .ItemBar(0,"",17) = 4099 .AddBar(.AddItem("Original"),"Task",{^2010-1-4},{^2010-1-9},"") endwith .EndUpdate endwith
738. Is it possible to display the shadow for a specified bar
with thisform.Gantt1 .BeginUpdate with .Chart .FirstVisibleDate = {^2009-12-31} .LevelCount = 2 .PaneWidth(0) = 96 endwith .Columns.Add("Types") with .Items .AddBar(.AddItem("Original"),"Task",{^2010-1-4},{^2010-1-9},"") h = .AddItem("W/h Shadow") .AddBar(h,"Task",{^2010-1-4},{^2010-1-9},"") .DefaultItem = h .ItemBar(0,"",17) = 8195 .AddBar(.AddItem("Original"),"Task",{^2010-1-4},{^2010-1-9},"") endwith .EndUpdate endwith
737. Is it possible to display the task bars with a gradient color
with thisform.Gantt1 .BeginUpdate with .Chart .FirstVisibleDate = {^2009-12-31} .LevelCount = 2 .PaneWidth(0) = 96 .Bars.Copy("Task","TaskO") with .Bars.Item("Task") .Pattern = 99 .StartColor = RGB(255,255,255) .EndColor = .Color endwith endwith .Columns.Add("Types") with .Items .AddBar(.AddItem("Original"),"TaskO",{^2010-1-4},{^2010-1-9},"") .AddBar(.AddItem("Pattern Gradient"),"Task",{^2010-1-4},{^2010-1-9},"") .AddBar(.AddItem("Original"),"TaskO",{^2010-1-4},{^2010-1-9},"") endwith .EndUpdate endwith
736. How can I know the type of bars I can displays using predefined patterns
with thisform.Gantt1 .BeginUpdate with .Chart .FirstVisibleDate = {^2009-12-31} .LevelCount = 2 .PaneWidth(0) = 96 with .Bars .Add("Box").Pattern = 32 .Add("ThickBox").Pattern = 4128 .Add("DiagBox").Pattern = 4102 .Copy("Task","Shadow").Pattern = 8195 .Copy("Task","TShadow").Pattern = 12295 with .Add("HGrad1") .Pattern = 32 .StartColor = RGB(255,255,255) .EndColor = RGB(0,0,255) endwith with .Add("HGrad2") .Pattern = 35 .StartColor = RGB(255,255,255) .EndColor = RGB(0,0,255) .Color = RGB(0,0,255) endwith with .Add("HGrad3") .Pattern = 163 .StartColor = RGB(255,255,255) .EndColor = .StartColor .Color = RGB(0,0,255) endwith with .Add("HGrad4") .Pattern = 4256 .StartColor = RGB(255,255,255) .EndColor = .StartColor .Color = RGB(0,0,255) endwith with .Add("HGrad5") .Pattern = 8352 .StartColor = RGB(0,255,0) .EndColor = RGB(255,0,0) .Color = RGB(0,0,255) endwith with .Add("VGrad1") .Pattern = 96 .StartColor = RGB(255,255,255) .EndColor = RGB(0,0,255) .Height = 14 endwith with .Add("VGrad2") .Pattern = 99 .StartColor = RGB(255,255,255) .EndColor = RGB(0,0,255) .Color = RGB(0,0,255) .Height = 14 endwith with .Add("VGrad3") .Pattern = 227 .StartColor = RGB(255,255,255) .EndColor = .StartColor .Color = RGB(0,0,255) .Height = 14 endwith with .Add("VGrad4") .Pattern = 4320 .StartColor = RGB(255,255,255) .EndColor = .StartColor .Color = RGB(0,0,255) .Height = -1 endwith with .Add("VGrad5") .Pattern = 8416 .StartColor = RGB(0,255,0) .EndColor = RGB(255,0,0) .Color = RGB(0,0,255) .Height = 14 endwith endwith endwith .Columns.Add("Types") with .Items .AddBar(.AddItem("Box"),"Box",{^2010-1-4},{^2010-1-9},"") .AddBar(.AddItem("Thick Box"),"ThickBox",{^2010-1-4},{^2010-1-9},"") .AddBar(.AddItem("Thick Box Diag"),"DiagBox",{^2010-1-4},{^2010-1-9},"") .AddBar(.AddItem("Shadow"),"Shadow",{^2010-1-4},{^2010-1-9},"") .AddBar(.AddItem("Thick Shadow"),"TShadow",{^2010-1-4},{^2010-1-9},"") .AddBar(.AddItem("Solid Gradient"),"HGrad1",{^2010-1-4},{^2010-1-9},"") .AddBar(.AddItem("Pattern Gradient"),"HGrad2",{^2010-1-4},{^2010-1-9},"") .AddBar(.AddItem("Pattern Gradient 3 Colors"),"HGrad3",{^2010-1-4},{^2010-1-9},"") .AddBar(.AddItem("Solid Gradient 3 Colors"),"HGrad4",{^2010-1-4},{^2010-1-9},"") .AddBar(.AddItem("Gradient Shadow"),"HGrad5",{^2010-1-4},{^2010-1-9},"") .AddBar(.AddItem("Solid Gradient"),"VGrad1",{^2010-1-4},{^2010-1-9},"") .AddBar(.AddItem("Pattern Gradient"),"VGrad2",{^2010-1-4},{^2010-1-9},"") .AddBar(.AddItem("Pattern Gradient 3 Colors"),"VGrad3",{^2010-1-4},{^2010-1-9},"") .AddBar(.AddItem("Solid Gradient 3 Colors"),"VGrad4",{^2010-1-4},{^2010-1-9},"") .AddBar(.AddItem("Gradient Shadow"),"VGrad5",{^2010-1-4},{^2010-1-9},"") endwith .EndUpdate endwith
735. Is it possible to display the bars with a thicker border
with thisform.Gantt1 .BeginUpdate .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} .Chart.PaneWidth(0) = 48 .Chart.Bars.Copy("Task","TaskB").Pattern = 4099 with .Items .AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-5},"") .AddBar(.AddItem("Task 2"),"TaskB",{^2001-1-2},{^2001-1-5},"") .AddBar(.AddItem("Task 3"),"Task",{^2001-1-2},{^2001-1-5},"") endwith .EndUpdate endwith
734. Is it possible to display the shadow for EBN bars
with thisform.Gantt1 .BeginUpdate .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} .Chart.PaneWidth(0) = 48 with .Chart.Bars.Copy("Task","EBN") .Color = 0x1000000 .Pattern = 8192 endwith .Chart.Bars.Copy("Task","EBN2").Color = 0x1000000 with .Items .AddBar(.AddItem("Task 1"),"EBN2",{^2001-1-2},{^2001-1-5},"") .AddBar(.AddItem("Task 2"),"EBN",{^2001-1-2},{^2001-1-5},"") .AddBar(.AddItem("Task 3"),"EBN2",{^2001-1-2},{^2001-1-5},"") endwith .EndUpdate endwith
733. Can I display a shadow for my bars
with thisform.Gantt1 .BeginUpdate .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} .Chart.PaneWidth(0) = 48 .Chart.Bars.Item("Task").Pattern = 8195 with .Items .AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-5},"") .AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-5},"") endwith .EndUpdate endwith
732. How can I use the Color property for gradient bars
with thisform.Gantt1 .BeginUpdate .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} .Chart.PaneWidth(0) = 48 with .Chart.Bars.Add("V") .Color = RGB(255,0,0) .StartColor = RGB(0,255,0) .EndColor = .StartColor .Pattern = 224 .Height = -1 endwith with .Chart.Bars.Add("H") .Color = RGB(255,0,0) .StartColor = RGB(0,255,0) .EndColor = .StartColor .Pattern = 160 endwith with .Items .AddBar(.AddItem("Task 1"),"V",{^2001-1-2},{^2001-1-5},"") .AddBar(.AddItem("Task 2"),"H",{^2001-1-2},{^2001-1-5},"") endwith .EndUpdate endwith
731. Is there any option to show bars with vertical gradient
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Chart.Bars.Item("Task") .Color = RGB(255,0,0) .StartColor = RGB(0,255,0) .EndColor = RGB(255,255,0) .Pattern = 96 endwith with .Items h = .AddItem("Task") .AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"") endwith endwith
730. How can I define a new milestone bar
with thisform.Gantt1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Chart.FirstVisibleDate = {^2001-1-1} with .Chart.Bars .AddShapeCorner(12345,1) .AddShapeCorner(12346,2) .Copy("Milestone","M1").StartShape = 12345 .Copy("Milestone","M2").StartShape = 12346 with .Copy("Milestone","MP") .StartShape = 20 .StartColor = RGB(255,0,0) endwith endwith .Columns.Add("Column") with .Items .AddBar(.AddItem("Default"),"Milestone",{^2001-1-2},{^2001-1-2}) .AddBar(.AddItem("Predefined"),"MP",{^2001-1-3},{^2001-1-3}) .AddBar(.AddItem("Custom 1"),"M1",{^2001-1-4},{^2001-1-4}) .AddBar(.AddItem("Custom 2"),"M2",{^2001-1-5},{^2001-1-5}) endwith .EndUpdate endwith
729. How can I define my milestone bar, using my icons or pictures
with thisform.Gantt1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Chart.FirstVisibleDate = {^2001-1-1} with .Chart.Bars .AddShapeCorner(12345,1) .Item("Milestone").StartShape = 12345 endwith .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Milestone",{^2001-1-2},{^2001-1-2}) endwith endwith
728. I haven't found options to localize (in Italian) the strings ( dates, tooltip ) that shows in the chart area
with thisform.Gantt1 .BeginUpdate with .Chart .LevelCount = 2 .PaneWidth(0) = 0 .Label(256) = "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256" var_s = "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <" var_s = var_s + "%yyyy%><||><||>4096" .Label(4096) = var_s .LabelToolTip(256) = "<%d%> <%mmmm%> <%yyyy%> <%ww%>" .LabelToolTip(4096) = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>" .FirstWeekDay = 1 .MonthNames = "gennaio febbraio marzo aprile maggio giugno luglio agosto settembre ottobre novembre dicembre" .WeekDays = "domenica lunedì martedì mercoledì giovedì venerdì sabato" .ToolTip = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>" .UnitScale = 4096 endwith .EndUpdate endwith
727. I haven't found options to localize (in Dutch) the strings ( dates, tooltip ) that shows in the chart area
with thisform.Gantt1 .BeginUpdate with .Chart .LevelCount = 2 .PaneWidth(0) = 0 .Label(256) = "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256" var_s = "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <" var_s = var_s + "%yyyy%><||><||>4096" .Label(4096) = var_s .LabelToolTip(256) = "<%d%> <%mmmm%> <%yyyy%> <%ww%>" .LabelToolTip(4096) = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>" .FirstWeekDay = 1 .MonthNames = "januari februari maart april mei juni juli augusts september oktober november december" .WeekDays = "zondag maandag dinsdag woensdag donderdag vrijdag zaterdag" .ToolTip = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>" .UnitScale = 4096 endwith .EndUpdate endwith
726. I haven't found options to localize (in German) the strings ( dates, tooltip ) that shows in the chart area
with thisform.Gantt1 .BeginUpdate with .Chart .LevelCount = 2 .PaneWidth(0) = 0 .Label(256) = "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%>.<%mmmm%> <%yyyy%><r><%ww%><||><||>256" var_s = "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%>.<%m3%> '<%yy%><|><%dddd%> <%d%>.<%mmmm%> <" var_s = var_s + "%yyyy%><||><||>4096" .Label(4096) = var_s .LabelToolTip(256) = "<%d%>.<%mmmm%> <%yyyy%> <%ww%>" .LabelToolTip(4096) = "<%dddd%>, <%d%>.<%mmmm%> <%yyyy%>" .FirstWeekDay = 1 .MonthNames = "Januar Februar März April Mai Juni Juli August September Oktober November Dezember" .WeekDays = "Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag" .ToolTip = "<%dddd%>,<%d%>.<%mmmm%> <%yyyy%>" .UnitScale = 4096 endwith .EndUpdate endwith
725. I haven't found options to localize (in French) the strings ( dates, tooltip ) that shows in the chart area
with thisform.Gantt1 .BeginUpdate with .Chart .LevelCount = 2 .PaneWidth(0) = 0 .Label(256) = "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256" var_s = "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <" var_s = var_s + "%yyyy%><||><||>4096" .Label(4096) = var_s .LabelToolTip(256) = "<%d%> <%mmmm%> <%yyyy%> <%ww%>" .LabelToolTip(4096) = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>" .FirstWeekDay = 1 .MonthNames = "janvier février mars avril mai juin juillet août septembre octobre novembre décembre" .WeekDays = "dimanche lundi mardi mercredi jeudi vendredi samedi" .ToolTip = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>" .UnitScale = 4096 endwith .EndUpdate endwith
724. How can I filter programatically using more columns
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 with .Columns .Add("Car") .Add("Equipment") endwith with .Items .DefaultItem = .AddItem("Mazda") .CellCaption(0,1) = "Air Bag" .DefaultItem = .AddItem("Toyota") .CellCaption(0,1) = "Air Bag,Air condition" .DefaultItem = .AddItem("Ford") .CellCaption(0,1) = "Air condition" .DefaultItem = .AddItem("Nissan") .CellCaption(0,1) = "Air Bag,ABS,ESP" .DefaultItem = .AddItem("Mazda") .CellCaption(0,1) = "Air Bag, ABS,ESP" .DefaultItem = .AddItem("Mazda") .CellCaption(0,1) = "ABS,ESP" endwith with .Columns.Item("Car") .FilterType = 240 .Filter = "Mazda" endwith with .Columns.Item("Equipment") .FilterType = 3 .Filter = "*ABS*|*ESP*" endwith .ApplyFilter .EndUpdate endwith
723. I have seen the IN function but it returns -1 or 0. How can I display the value being found ( SWITCH usage )
with thisform.Gantt1 .BeginUpdate with .Columns.Add("Value") .Width = 24 endwith with .Columns.Add("SWITCH - statment") .ComputedField = "%0 switch ('not found', 1,2,3,4,5,7,8,9,11,13,14)" .ToolTip = .ComputedField endwith with .Items .AddItem(0) .AddItem(1) .AddItem(2) endwith .EndUpdate endwith
722. I have a large collection of constant values and using or operator is a time consuming (IN usage). Is there any way to increase the speed to check if a value maches the collection
with thisform.Gantt1 .BeginUpdate with .Columns.Add("Value") .Width = 24 endwith with .Columns.Add("IN - statment") .ComputedField = "%0 in (1,2,3,4,5,7,8,9,11,13,14) ? 'found' : ''" .ToolTip = .ComputedField endwith with .Items .AddItem(0) .AddItem(1) .AddItem(2) endwith .EndUpdate endwith
721. How can I use the CASE statement (CASE usage)
with thisform.Gantt1 .BeginUpdate with .Columns.Add("Value") .Width = 24 endwith with .Columns.Add("CASE - statment") var_s = "%0 case (default:'not found';1:%0;2:2*%0;3:3*%0;4:4*%0;5:5*%0;7:'Seven';8:'Eight';9:'Nine';11:'E" var_s = var_s + "leven';13:'Thirtheen';14:'Fourtheen')" .ComputedField = var_s .ToolTip = .ComputedField endwith with .Items .AddItem(0) .AddItem(1) .AddItem(2) endwith .EndUpdate endwith
720. How can I use the CASE statement (CASE usage)
with thisform.Gantt1 .BeginUpdate with .Columns.Add("Value") .Width = 24 endwith with .Columns.Add("CASE - statment") var_s = "%0 case (default:'not found';1:'One';2:'Two';3:'Three';4:'Four';5:'Five';7:'Seven';8:'Eight';9:'" var_s = var_s + "Nine';11:'Eleven';13:'Thirtheen';14:'Fourtheen')" .ComputedField = var_s .ToolTip = .ComputedField endwith with .Items .AddItem(0) .AddItem(1) .AddItem(2) endwith .EndUpdate endwith
719. Is is possible to use HTML tags to display in the filter caption
with thisform.Gantt1 .BeginUpdate .FilterBarPromptVisible = .T. .FilterBarCaption = "This is a bit of text being displayed in the filter bar." .Columns.Add("") with .Items .AddItem("Item 1") .AddItem("Item 2") .AddItem("Item 3") endwith .EndUpdate endwith
718. How can I find the number of items after filtering
with thisform.Gantt1 .BeginUpdate .Columns.Add("") with .Items h = .AddItem("") .DefaultItem = h .CellCaption(0,0) = .VisibleItemCount endwith .EndUpdate endwith
717. How can I change the filter caption
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 12801 .FilterBarPromptPattern = "london robert" .FilterBarCaption = "<r>Found: ... " with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .AddItem("Nancy Davolio") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .DefaultItem = h0 .CellCaption(0,1) = "Vice President, Sales" .DefaultItem = h0 .CellCaption(0,2) = "Tacoma" .DefaultItem = h0 .SelectItem(0) = .T. h0 = .AddItem("Janet Leverling") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .DefaultItem = h0 .CellCaption(0,1) = "Sales Manager" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Michael Suyama") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Robert King") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Laura Callahan") .DefaultItem = h0 .CellCaption(0,1) = "Inside Sales Coordinator" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" endwith .EndUpdate endwith
716. While using the filter prompt is it is possible to use wild characters
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 16 .FilterBarPromptPattern = "lon* seat*" with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .AddItem("Nancy Davolio") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .DefaultItem = h0 .CellCaption(0,1) = "Vice President, Sales" .DefaultItem = h0 .CellCaption(0,2) = "Tacoma" .DefaultItem = h0 .SelectItem(0) = .T. h0 = .AddItem("Janet Leverling") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .DefaultItem = h0 .CellCaption(0,1) = "Sales Manager" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Michael Suyama") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Robert King") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Laura Callahan") .DefaultItem = h0 .CellCaption(0,1) = "Inside Sales Coordinator" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" endwith .EndUpdate endwith
715. How can I list all items that contains any of specified words, not necessary at the beggining
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 4610 .FilterBarPromptPattern = "london davolio" with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .AddItem("Nancy Davolio") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .DefaultItem = h0 .CellCaption(0,1) = "Vice President, Sales" .DefaultItem = h0 .CellCaption(0,2) = "Tacoma" .DefaultItem = h0 .SelectItem(0) = .T. h0 = .AddItem("Janet Leverling") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .DefaultItem = h0 .CellCaption(0,1) = "Sales Manager" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Michael Suyama") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Robert King") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Laura Callahan") .DefaultItem = h0 .CellCaption(0,1) = "Inside Sales Coordinator" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" endwith .EndUpdate endwith
714. How can I list all items that contains any of specified words, not strings
with thisform.Gantt1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .Chart.PaneWidth(1) = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 12802 .FilterBarPromptPattern = "london nancy" with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .AddItem("Nancy Davolio") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .DefaultItem = h0 .CellCaption(0,1) = "Vice President, Sales" .DefaultItem = h0 .CellCaption(0,2) = "Tacoma" .DefaultItem = h0 .SelectItem(0) = .T. h0 = .AddItem("Janet Leverling") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .DefaultItem = h0 .CellCaption(0,1) = "Sales Manager" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Michael Suyama") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Robert King") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Laura Callahan") .DefaultItem = h0 .CellCaption(0,1) = "Inside Sales Coordinator" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" endwith .EndUpdate endwith
713. How can I list all items that contains all specified words, not strings
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 12801 .FilterBarPromptPattern = "london robert" with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .AddItem("Nancy Davolio") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .DefaultItem = h0 .CellCaption(0,1) = "Vice President, Sales" .DefaultItem = h0 .CellCaption(0,2) = "Tacoma" .DefaultItem = h0 .SelectItem(0) = .T. h0 = .AddItem("Janet Leverling") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .DefaultItem = h0 .CellCaption(0,1) = "Sales Manager" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Michael Suyama") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Robert King") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Laura Callahan") .DefaultItem = h0 .CellCaption(0,1) = "Inside Sales Coordinator" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" endwith .EndUpdate endwith
712. I've noticed that the filtering by prompt is not case sensitive, is is possible to make it case sensitive
with thisform.Gantt1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 258 .FilterBarPromptPattern = "Anne" .Chart.PaneWidth(1) = 0 with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .AddItem("Nancy Davolio") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .DefaultItem = h0 .CellCaption(0,1) = "Vice President, Sales" .DefaultItem = h0 .CellCaption(0,2) = "Tacoma" .DefaultItem = h0 .SelectItem(0) = .T. h0 = .AddItem("Janet Leverling") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .DefaultItem = h0 .CellCaption(0,1) = "Sales Manager" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Michael Suyama") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Robert King") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Laura Callahan") .DefaultItem = h0 .CellCaption(0,1) = "Inside Sales Coordinator" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" endwith .EndUpdate endwith
711. Is it possible to list only items that ends with any of specified strings
with thisform.Gantt1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 4 .FilterBarPromptColumns = "0" .FilterBarPromptPattern = "Fuller" .Chart.PaneWidth(1) = 0 with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .AddItem("Nancy Davolio") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .DefaultItem = h0 .CellCaption(0,1) = "Vice President, Sales" .DefaultItem = h0 .CellCaption(0,2) = "Tacoma" .DefaultItem = h0 .SelectItem(0) = .T. h0 = .AddItem("Janet Leverling") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .DefaultItem = h0 .CellCaption(0,1) = "Sales Manager" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Michael Suyama") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Robert King") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Laura Callahan") .DefaultItem = h0 .CellCaption(0,1) = "Inside Sales Coordinator" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" endwith .EndUpdate endwith
710. Is it possible to list only items that ends with any of specified strings
with thisform.Gantt1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 4 .FilterBarPromptColumns = "0" .FilterBarPromptPattern = "Fuller" .Chart.PaneWidth(1) = 0 with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .AddItem("Nancy Davolio") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .DefaultItem = h0 .CellCaption(0,1) = "Vice President, Sales" .DefaultItem = h0 .CellCaption(0,2) = "Tacoma" .DefaultItem = h0 .SelectItem(0) = .T. h0 = .AddItem("Janet Leverling") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .DefaultItem = h0 .CellCaption(0,1) = "Sales Manager" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Michael Suyama") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Robert King") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Laura Callahan") .DefaultItem = h0 .CellCaption(0,1) = "Inside Sales Coordinator" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" endwith .EndUpdate endwith
709. Is it possible to list only items that starts with any of specified strings
with thisform.Gantt1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 3 .FilterBarPromptColumns = "0" .FilterBarPromptPattern = "An M" .Chart.PaneWidth(1) = 0 with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .AddItem("Nancy Davolio") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .DefaultItem = h0 .CellCaption(0,1) = "Vice President, Sales" .DefaultItem = h0 .CellCaption(0,2) = "Tacoma" .DefaultItem = h0 .SelectItem(0) = .T. h0 = .AddItem("Janet Leverling") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .DefaultItem = h0 .CellCaption(0,1) = "Sales Manager" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Michael Suyama") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Robert King") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Laura Callahan") .DefaultItem = h0 .CellCaption(0,1) = "Inside Sales Coordinator" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" endwith .EndUpdate endwith
708. Is it possible to list only items that starts with specified string
with thisform.Gantt1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 3 .FilterBarPromptColumns = "0" .FilterBarPromptPattern = "A" .Chart.PaneWidth(1) = 0 with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .AddItem("Nancy Davolio") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .DefaultItem = h0 .CellCaption(0,1) = "Vice President, Sales" .DefaultItem = h0 .CellCaption(0,2) = "Tacoma" .DefaultItem = h0 .SelectItem(0) = .T. h0 = .AddItem("Janet Leverling") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .DefaultItem = h0 .CellCaption(0,1) = "Sales Manager" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Michael Suyama") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Robert King") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Laura Callahan") .DefaultItem = h0 .CellCaption(0,1) = "Inside Sales Coordinator" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" endwith .EndUpdate endwith
707. How can I specify that the list should include any of the seqeunces in the pattern
with thisform.Gantt1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 2 .FilterBarPromptPattern = "london seattle" .Chart.PaneWidth(1) = 0 with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .AddItem("Nancy Davolio") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .DefaultItem = h0 .CellCaption(0,1) = "Vice President, Sales" .DefaultItem = h0 .CellCaption(0,2) = "Tacoma" .DefaultItem = h0 .SelectItem(0) = .T. h0 = .AddItem("Janet Leverling") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .DefaultItem = h0 .CellCaption(0,1) = "Sales Manager" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Michael Suyama") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Robert King") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Laura Callahan") .DefaultItem = h0 .CellCaption(0,1) = "Inside Sales Coordinator" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" endwith .EndUpdate endwith
706. How can I specify that all sequences in the filter pattern must be included in the list
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptType = 1 .FilterBarPromptPattern = "london manager" with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .AddItem("Nancy Davolio") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .DefaultItem = h0 .CellCaption(0,1) = "Vice President, Sales" .DefaultItem = h0 .CellCaption(0,2) = "Tacoma" .DefaultItem = h0 .SelectItem(0) = .T. h0 = .AddItem("Janet Leverling") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .DefaultItem = h0 .CellCaption(0,1) = "Sales Manager" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Michael Suyama") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Robert King") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Laura Callahan") .DefaultItem = h0 .CellCaption(0,1) = "Inside Sales Coordinator" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" endwith .EndUpdate endwith
705. How do I change at runtime the filter prompt
with thisform.Gantt1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .Chart.PaneWidth(1) = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptPattern = "london manager" with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .AddItem("Nancy Davolio") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .DefaultItem = h0 .CellCaption(0,1) = "Vice President, Sales" .DefaultItem = h0 .CellCaption(0,2) = "Tacoma" .DefaultItem = h0 .SelectItem(0) = .T. h0 = .AddItem("Janet Leverling") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .DefaultItem = h0 .CellCaption(0,1) = "Sales Manager" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Michael Suyama") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Robert King") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Laura Callahan") .DefaultItem = h0 .CellCaption(0,1) = "Inside Sales Coordinator" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" endwith .EndUpdate endwith
704. How do I specify to filter only a single column when using the filter prompt
with thisform.Gantt1 .BeginUpdate .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .Chart.PaneWidth(1) = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPromptColumns = "2,3" .FilterBarPromptPattern = "london" with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .AddItem("Nancy Davolio") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .DefaultItem = h0 .CellCaption(0,1) = "Vice President, Sales" .DefaultItem = h0 .CellCaption(0,2) = "Tacoma" .DefaultItem = h0 .SelectItem(0) = .T. h0 = .AddItem("Janet Leverling") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .DefaultItem = h0 .CellCaption(0,1) = "Sales Manager" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Michael Suyama") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Robert King") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Laura Callahan") .DefaultItem = h0 .CellCaption(0,1) = "Inside Sales Coordinator" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" endwith .EndUpdate endwith
703. How do I change the prompt or the caption being displayed in the filter bar
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. .FilterBarPrompt = "changed" with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith .EndUpdate endwith
702. How do I enable the filter prompt feature
with thisform.Gantt1 .BeginUpdate .Chart.PaneWidth(1) = 0 .ColumnAutoResize = .T. .ContinueColumnScroll = 0 .MarkSearchColumn = .F. .SearchColumnIndex = 1 .FilterBarPromptVisible = .T. with .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add("City") endwith with .Items h0 = .AddItem("Nancy Davolio") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .DefaultItem = h0 .CellCaption(0,1) = "Vice President, Sales" .DefaultItem = h0 .CellCaption(0,2) = "Tacoma" .DefaultItem = h0 .SelectItem(0) = .T. h0 = .AddItem("Janet Leverling") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .DefaultItem = h0 .CellCaption(0,1) = "Sales Manager" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Michael Suyama") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Robert King") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" h0 = .AddItem("Laura Callahan") .DefaultItem = h0 .CellCaption(0,1) = "Inside Sales Coordinator" .DefaultItem = h0 .CellCaption(0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .DefaultItem = h0 .CellCaption(0,1) = "Sales Representative" .DefaultItem = h0 .CellCaption(0,2) = "London" endwith .EndUpdate endwith
701. Is it possible to colour a particular column, I mean the cell's foreground color
with thisform.Gantt1 .BeginUpdate with .ConditionalFormats.Add("1") .ForeColor = RGB(255,0,0) .ApplyTo = 1 endwith .MarkSearchColumn = .F. with .Columns .Add("Column 1") .Add("Column 2") endwith with .Items .DefaultItem = .AddItem(0) .CellCaption(0,1) = 1 .DefaultItem = .AddItem(2) .CellCaption(0,1) = 3 .DefaultItem = .AddItem(4) .CellCaption(0,1) = 5 endwith .EndUpdate endwith
700. Is it possible to colour a particular column for specified values
with thisform.Gantt1 .BeginUpdate with .ConditionalFormats.Add("int(%1) in (3,4,5)") .BackColor = RGB(255,0,0) .ApplyTo = 1 endwith .MarkSearchColumn = .F. with .Columns .Add("Column 1") .Add("Column 2") endwith with .Items .DefaultItem = .AddItem(0) .CellCaption(0,1) = 1 .DefaultItem = .AddItem(2) .CellCaption(0,1) = 3 .DefaultItem = .AddItem(4) .CellCaption(0,1) = 5 endwith .EndUpdate endwith
699. Is it possible to colour a particular column
with thisform.Gantt1 .BeginUpdate .MarkSearchColumn = .F. with .Columns .Add("Column 1") .Add("Column 2").Def(4) = 255 endwith with .Items .DefaultItem = .AddItem(0) .CellCaption(0,1) = 1 .DefaultItem = .AddItem(2) .CellCaption(0,1) = 3 .DefaultItem = .AddItem(4) .CellCaption(0,1) = 5 endwith .EndUpdate endwith
698. How do i get all the children items that are under a certain parent Item handle
with thisform.Gantt1 .BeginUpdate .LinesAtRoot = -1 .Columns.Add("P") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. endwith with .Items hChild = .ItemChild(.FirstVisibleItem) DEBUGOUT( .CellCaption(hChild,0) ) DEBUGOUT( .CellCaption(.NextSiblingItem(hChild),0) ) endwith .EndUpdate endwith
697. How can I change the predefined labels being displayed in the chart's header so it shows the data in short format with no literals
with thisform.Gantt1 .BeginUpdate with .Chart .PaneWidth(0) = 0 .LevelCount = 3 .OverviewVisible = .T. .AllowOverviewZoom = 1 .Label(0) = "<%yy%><|><%yyyy%>" .Label(1) = "" .Label(2) = "" .Label(16) = "<|><%m%><|><%m%>/<%yy%><|><%m%>/<%yyyy%>" .Label(17) = "" .Label(256) = "<|><%ww%><|><%m%>/<%d%>/<%yy%><r><%ww%><|><%m%>/<%d%>/<%yyyy%><r><%ww%><||><||>256" .Label(4096) = "<|><%d%><|><%m%>/<%d%>/<%yy%><|><%m%>/<%d%>/<%yyyy%><||><||>4096" var_s = "<|><%hh%><|><%m%>/<%d%>/<%yy%> <%h%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%><||><||>655" var_s = var_s + "36" .Label(65536) = var_s var_s1 = "<|><%nn%><|><%h%>:<%nn% <%AM/PM%>><|><%m%>/<%d%>/<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%m%>/<%d%>/<%y" var_s1 = var_s1 + "yyy%> <%h%>:<%nn%> <%AM/PM%>" .Label(1048576) = var_s1 var_s2 = "<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%m%>/<%d%>/<%yy%> <%h%>:<%nn%>:<%ss" var_s2 = var_s2 + "%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>" .Label(16777216) = var_s2 .LabelToolTip(0) = "<%yyyy%>" .LabelToolTip(1) = "" .LabelToolTip(2) = "" .LabelToolTip(16) = "<%m%>/<%yyyy%>" .LabelToolTip(17) = "" .LabelToolTip(256) = "<%m%>/<%d%>/<%yyyy%> <%ww%>" .LabelToolTip(4096) = "<%m%>/<%d%>/<%yyyy%>" .LabelToolTip(65536) = "<%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%>" .LabelToolTip(1048576) = "<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%> <%AM/PM%>" .LabelToolTip(16777216) = "<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>" .UnitScale = 4096 endwith .EndUpdate endwith
696. How can I get the caption of focused item
*** SelectionChanged event - Fired after a new item has been selected. *** LPARAMETERS nop with thisform.Gantt1 with .Items DEBUGOUT( "Handle" ) DEBUGOUT( .FocusItem ) DEBUGOUT( "Caption" ) DEBUGOUT( .CellCaption(.FocusItem,0) ) endwith endwith with thisform.Gantt1 .BeginUpdate .LinesAtRoot = -1 .Columns.Add("Items") with .Items h = .AddItem("R1") .InsertItem(h,0,"Cell 1.1") .InsertItem(h,0,"Cell 1.2") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("R2") .InsertItem(h,0,"Cell 2.1") .InsertItem(h,0,"Cell 2.2") .DefaultItem = h .ExpandItem(0) = .T. endwith .EndUpdate endwith
695. How can I get the caption of selected item
*** SelectionChanged event - Fired after a new item has been selected. *** LPARAMETERS nop with thisform.Gantt1 with .Items DEBUGOUT( "Handle" ) DEBUGOUT( .SelectedItem(0) ) DEBUGOUT( "Caption" ) DEBUGOUT( .CellCaption(.SelectedItem(0),0) ) endwith endwith with thisform.Gantt1 .BeginUpdate .LinesAtRoot = -1 .Columns.Add("Items") with .Items h = .AddItem("R1") .InsertItem(h,0,"Cell 1.1") .InsertItem(h,0,"Cell 1.2") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("R2") .InsertItem(h,0,"Cell 2.1") .InsertItem(h,0,"Cell 2.2") .DefaultItem = h .ExpandItem(0) = .T. endwith .EndUpdate endwith
694. How can I highligth the item from the cursor as it moves
*** MouseMove event - Occurs when the user moves the mouse. *** LPARAMETERS Button,Shift,X,Y with thisform.Gantt1 .BeginUpdate h = .ItemFromPoint(-1,-1,c,hit) with .Items .ClearItemBackColor(thisform.Gantt1.Background(1000)) .DefaultItem = h .ItemBackColor(0) = RGB(240,250,240) endwith .Object.Background(1000) = h .EndUpdate endwith with thisform.Gantt1 .BeginUpdate .LinesAtRoot = -1 .DrawGridLines = 1 .SelBackColor = RGB(240,250,240) .SelForeColor = RGB(0,0,0) .ShowFocusRect = .F. with .Chart .SelBackColor = RGB(240,250,240) endwith .Columns.Add("Items") with .Items h = .AddItem("R1") .InsertItem(h,0,"Cell 1.1") .InsertItem(h,0,"Cell 1.2") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("R2") .InsertItem(h,0,"Cell 2.1") .InsertItem(h,0,"Cell 2.2") .DefaultItem = h .ExpandItem(0) = .T. endwith .EndUpdate endwith
693. How can I get the item from the cursor
*** MouseMove event - Occurs when the user moves the mouse. *** LPARAMETERS Button,Shift,X,Y with thisform.Gantt1 h = .ItemFromPoint(-1,-1,c,hit) DEBUGOUT( "Handle" ) DEBUGOUT( h ) DEBUGOUT( "Index" ) DEBUGOUT( .Items.ItemToIndex(h) ) endwith with thisform.Gantt1 .BeginUpdate .LinesAtRoot = -1 .DrawGridLines = 1 .Columns.Add("Items") with .Items h = .AddItem("R1") .InsertItem(h,0,"Cell 1.1") .InsertItem(h,0,"Cell 1.2") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("R2") .InsertItem(h,0,"Cell 2.1") .InsertItem(h,0,"Cell 2.2") .DefaultItem = h .ExpandItem(0) = .T. endwith .EndUpdate endwith
692. How can I get the column from the cursor, not only in the header
*** MouseMove event - Occurs when the user moves the mouse. *** LPARAMETERS Button,Shift,X,Y with thisform.Gantt1 DEBUGOUT( .ColumnFromPoint(-1,0) ) endwith with thisform.Gantt1 .BeginUpdate .LinesAtRoot = -1 .Columns.Add("P1") .Columns.Add("P2") .DrawGridLines = -1 with .Items h = .AddItem("R1") .DefaultItem = h .CellCaption(0,1) = "R2" .DefaultItem = .InsertItem(h,0,"Cell 1.1") .CellCaption(0,1) = "Cell 1.2" .DefaultItem = .InsertItem(h,0,"Cell 2.1") .CellCaption(0,1) = "Cell 2.2" .DefaultItem = h .ExpandItem(0) = .T. endwith .EndUpdate endwith
691. How can I get the column from the cursor
*** MouseMove event - Occurs when the user moves the mouse. *** LPARAMETERS Button,Shift,X,Y with thisform.Gantt1 DEBUGOUT( .ColumnFromPoint(-1,-1) ) endwith with thisform.Gantt1 .BeginUpdate .LinesAtRoot = -1 .DrawGridLines = -1 .Columns.Add("P1") .Columns.Add("P2") with .Items h = .AddItem("R1") .DefaultItem = h .CellCaption(0,1) = "R2" .DefaultItem = .InsertItem(h,0,"Cell 1.1") .CellCaption(0,1) = "Cell 1.2" .DefaultItem = .InsertItem(h,0,"Cell 2.1") .CellCaption(0,1) = "Cell 2.2" .DefaultItem = h .ExpandItem(0) = .T. endwith .EndUpdate endwith
690. How can I get the cell's caption from the cursor
*** MouseMove event - Occurs when the user moves the mouse. *** LPARAMETERS Button,Shift,X,Y with thisform.Gantt1 h = .ItemFromPoint(-1,-1,c,hit) DEBUGOUT( .Items.CellCaption(h,c) ) endwith with thisform.Gantt1 .BeginUpdate .LinesAtRoot = -1 .Columns.Add("Items") with .Items h = .AddItem("R1") .InsertItem(h,0,"Cell 1.1") .InsertItem(h,0,"Cell 1.2") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("R2") .InsertItem(h,0,"Cell 2.1") .InsertItem(h,0,"Cell 2.2") .DefaultItem = h .ExpandItem(0) = .T. endwith .EndUpdate endwith
689. Is it possible to change the style for the vertical or horizontal grid lines, in the list area
with thisform.Gantt1 .BeginUpdate .DrawGridLines = -1 .GridLineStyle = 33 .Columns.Add("C1") .Columns.Add("C2") .Columns.Add("C3") with .Items h = .AddItem("Item 1") .DefaultItem = h .CellCaption(0,1) = "SubItem 1.2" .DefaultItem = h .CellCaption(0,2) = "SubItem 1.3" h = .AddItem("Item 2") .DefaultItem = h .CellCaption(0,1) = "SubItem 2.2" .DefaultItem = h .CellCaption(0,2) = "SubItem 2.3" endwith .EndUpdate endwith
688. How can I show the bars over the grid lines, i.e. so you cannot see the grid lines 'through' the bar
with thisform.Gantt1 .BeginUpdate .DrawGridLines = -1 .GridLineColor = RGB(220,220,220) with .Chart .PaneWidth(0) = 48 .FirstVisibleDate = {^2001-1-1} .DrawGridLines = -1 .GridLineStyle = 256 .LevelCount = 2 with .Level(1) .DrawGridLines = .T. .GridLineColor = RGB(220,220,220) endwith with .Bars.Item("Task") .Pattern = 1 .Height = 14 endwith endwith .Columns.Add("Column") with .Items h = .AddItem("Item 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"A") .AddBar(h,"Task",{^2001-1-8},{^2001-1-15},"B") endwith .EndUpdate endwith
687. Is it possible to change the style for the vertical grid lines, in the chart area only
with thisform.Gantt1 .BeginUpdate .DrawGridLines = -1 .GridLineStyle = 12 with .Chart .PaneWidth(0) = 48 .FirstVisibleDate = {^2001-1-1} .DrawGridLines = -1 .GridLineStyle = 12 .LevelCount = 2 .Level(1).DrawGridLines = .T. with .Level(0) .GridLineColor = RGB(255,0,0) .GridLineStyle = 32 endwith .Bars.Item("Task").Pattern = 1 endwith .Columns.Add("Column") with .Items h = .AddItem("Item 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"A") .AddBar(h,"Task",{^2001-1-8},{^2001-1-15},"B") endwith .EndUpdate endwith
686. Is it possible to change the style for the grid lines, for instance to be solid not dotted
with thisform.Gantt1 .BeginUpdate .DrawGridLines = -1 .GridLineStyle = 48 with .Chart .PaneWidth(0) = 48 .FirstVisibleDate = {^2001-1-1} .DrawGridLines = -1 .GridLineStyle = 48 .LevelCount = 2 .Level(1).DrawGridLines = .T. .Bars.Item("Task").Pattern = 1 endwith .Columns.Add("Column") with .Items h = .AddItem("Item 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"A") .AddBar(h,"Task",{^2001-1-8},{^2001-1-15},"B") endwith .EndUpdate endwith
685. How can I show the grid lines for the chart and list area
with thisform.Gantt1 .DrawGridLines = -1 with .Chart .PaneWidth(0) = 48 .FirstVisibleDate = {^2001-1-1} .DrawGridLines = -1 .LevelCount = 2 .Level(1).DrawGridLines = .T. .Bars.Item("Task").Pattern = 1 endwith .Columns.Add("Column") with .Items h = .AddItem("Item 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"A") .AddBar(h,"Task",{^2001-1-8},{^2001-1-15},"B") endwith endwith
684. How can I get the link from the point
*** MouseMove event - Occurs when the user moves the mouse. *** LPARAMETERS Button,Shift,X,Y with thisform.Gantt1 DEBUGOUT( .Chart.LinkFromPoint(-1,-1) ) endwith with thisform.Gantt1 .BeginUpdate .Columns.Add("Task") with .Chart .FirstVisibleDate = {^2000-12-29} .PaneWidth(0) = 64 .LevelCount = 2 endwith with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .Link("L1",12) = "L1" h3 = .AddItem("Task 3") .AddBar(h3,"Task",{^2001-1-8},{^2001-1-10},"K3") .AddLink("L2",h2,"K2",h3,"K3") .Link("L2",12) = "L2" endwith .EndUpdate endwith
683. How can I get the bar from the point
*** MouseMove event - Occurs when the user moves the mouse. *** LPARAMETERS Button,Shift,X,Y with thisform.Gantt1 DEBUGOUT( .Chart.BarFromPoint(-1,-1) ) endwith with thisform.Gantt1 .BeginUpdate .Columns.Add("Task") with .Chart .FirstVisibleDate = {^2000-12-29} .PaneWidth(0) = 64 .LevelCount = 2 endwith with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-4},{^2001-1-6},"K2") .AddLink("L1",h1,"K1",h2,"K2") h3 = .AddItem("Task 3") .AddBar(h3,"Task",{^2001-1-8},{^2001-1-10},"K3") .AddLink("L2",h2,"K2",h3,"K3") endwith .EndUpdate endwith
682. How can I get the level from the cursor
*** MouseMove event - Occurs when the user moves the mouse. *** LPARAMETERS Button,Shift,X,Y with thisform.Gantt1 DEBUGOUT( .Chart.LevelFromPoint(-1,-1) ) endwith with thisform.Gantt1 with .Chart .FirstVisibleDate = {^2010-6-25} .PaneWidth(0) = 0 .LevelCount = 4 endwith endwith
681. I display numbers in my chart, but the AddBar requires a date how can I add a bar
with thisform.Gantt1 .BeginUpdate .Columns.Add("Tasks") with .Chart .PaneWidth(0) = 0 .NonworkingDays = 0 .FirstVisibleDate = 0 .ToolTip = "" with .Level(0) .Label = "<%i%>" .ToolTip = "" endwith .UnitWidth = 24 endwith with .Items .AddBar(.AddItem("Task 1"),"Task",2,4) .AddBar(.AddItem("Task 2"),"Task",6,10) endwith .EndUpdate endwith
680. I display numbers in the chart's header but do not want to get displayed negative numbers. How can i do that
*** DateChange event - Occurs when the first visible date is changed. *** LPARAMETERS nop with thisform.Gantt1 .Chart.FirstVisibleDate = 0 .Object.ScrollPartEnable(2,1024) = .F. endwith with thisform.Gantt1 .BeginUpdate with .Chart .PaneWidth(0) = 0 .NonworkingDays = 0 .FirstVisibleDate = 0 .ToolTip = "" with .Level(0) .Label = "<%i%>" .ToolTip = "<%i%>" endwith .UnitWidth = 24 endwith .EndUpdate endwith
679. How can I display numbers in the chart's header instead dates
with thisform.Gantt1 .BeginUpdate with .Chart .PaneWidth(0) = 0 .NonworkingDays = 0 .FirstVisibleDate = 0 .ToolTip = "" with .Level(0) .Label = "<%i%>" .ToolTip = "" endwith .UnitWidth = 24 endwith .EndUpdate endwith
678. How can I determine that a certain bar is the topmost
with thisform.Gantt1 .Columns.Add("Task") with .Chart .PaneWidth(0) = 48 .FirstVisibleDate = {^2000-12-27} endwith with .Items h = .AddItem("Bars A B") .AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"A") .AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"B") .DefaultItem = h .ItemBar(0,"B",513) = 255 h = .AddItem("Bars B A") .AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"B") .AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"A") .DefaultItem = h .ItemBar(0,"A",513) = 255 endwith endwith
677. Is there any automatic way to change a property for all bars in the chart
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items .AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-4},"K1") .AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"K2") .AddBar(.AddItem("Task 3"),"Task",{^2001-1-2},{^2001-1-4},"K3") .AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"K4") .ItemBar(0,"<ALL>",513) = 255 endwith endwith
676. I have an EBN file how can I apply different colors to it, so no need to create a new one
with thisform.Gantt1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .SelBackColor = .BackColor .SelForeColor = .ForeColor .HasLines = 0 .Columns.Add("Default") with .Items h = .AddItem("Root") hC = .InsertItem(h,0,"Default") .DefaultItem = hC .ItemBackColor(0) = 0x1000000 .DefaultItem = .InsertItem(h,0,"") .ItemHeight(0) = 6 hC = .InsertItem(h,0,"Light Green") .DefaultItem = hC .ItemBackColor(0) = 0x100ff00 .DefaultItem = .InsertItem(h,0,"") .ItemHeight(0) = 6 hC = .InsertItem(h,0,"Dark Green") .DefaultItem = hC .ItemBackColor(0) = 0x1007f00 .DefaultItem = .InsertItem(h,0,"") .ItemHeight(0) = 6 hC = .InsertItem(h,0,"Magenta") .DefaultItem = hC .ItemBackColor(0) = 0x1ff7fff .DefaultItem = .InsertItem(h,0,"") .ItemHeight(0) = 6 hC = .InsertItem(h,0,"Yellow") .DefaultItem = hC .ItemBackColor(0) = 0x17fffff .DefaultItem = .InsertItem(h,0,"") .ItemHeight(0) = 6 .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
675. How can I remove all bars from the chart
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items .AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-4},"K1") .AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"K1") .AddBar(.AddItem("Task 3"),"Task",{^2001-1-2},{^2001-1-4},"K1") .AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"K2") .ClearBars(0) endwith endwith
674. How can I change the color for all bars with a specified key
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items .AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-4},"K1") .AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"K1") .AddBar(.AddItem("Task 3"),"Task",{^2001-1-2},{^2001-1-4},"K1") .AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"K2") .ItemBar(0,"K1",513) = 255 endwith endwith
673. Is there any automatic way to change a property for all bars with a specified key
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items .AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-4},"K1") .AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"K1") .AddBar(.AddItem("Task 3"),"Task",{^2001-1-2},{^2001-1-4},"K1") .AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"K2") .ItemBar(0,"K1",513) = 255 endwith endwith
672. How can I remove all bars with specified key
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items .AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-4},"K1") .AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"K1") .AddBar(.AddItem("Task 3"),"Task",{^2001-1-2},{^2001-1-4},"K1") .AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"K2") .RemoveBar(0,"K1") endwith endwith
671. Is there any option to show gradient bars without using EBN technology
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Chart.Bars.Item("Task") .Color = RGB(255,0,0) .StartColor = RGB(0,255,0) .EndColor = RGB(255,255,0) .Pattern = 32 endwith with .Items h = .AddItem("Task") .AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"") endwith endwith
670. How can I disable the control's splitter so the user can't resize the list area
with thisform.Gantt1 .OnResizeControl = 129 .Chart.PaneWidth(0) = 60 endwith
669. How can I disable the control's splitter so the user can't resize the chart area
with thisform.Gantt1 .OnResizeControl = 128 .Chart.PaneWidth(1) = 60 endwith
668. How can I define a bar that shows two colors, one up and one down, without using skin or EBN files
with thisform.Gantt1 .BeginUpdate .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Chart.Bars.Add("A") .Color = RGB(255,0,0) .Shape = 2 .Pattern = 1 endwith with .Chart.Bars.Add("B") .Color = RGB(128,0,0) .Shape = 4 .Pattern = 1 endwith .Chart.Bars.Add("A%B").Shortcut = "AB" with .Items h = .AddItem("Task 1") .AddBar(h,"AB",{^2001-1-2},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",10) = 1 endwith .EndUpdate endwith
667. Does your control support RightToLeft property for RTL languages or right to left
with thisform.Gantt1 .BeginUpdate .ScrollBars = 15 .LinesAtRoot = -1 with .Columns.Add("P1") .Def(0) = .T. .PartialCheck = .T. endwith with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. endwith .RightToLeft = .T. .EndUpdate endwith
666. Is there any way to display the vertical scroll bar on the left side, as I want to align my data to the right
with thisform.Gantt1 .BeginUpdate .ScrollBars = 15 with .Columns .Add("C1") .Add("C2") .Add("C3") .Add("C4") .Add("C5") .Add("C6") .Add("C7") .Add("C8") endwith .RightToLeft = .T. .EndUpdate endwith
665. Can I display the cell's check box after the text
with thisform.Gantt1 with .Columns.Add("Column") .Def(0) = .T. .Def(34) = "caption,check" endwith with .Items .DefaultItem = .AddItem("Caption 1") .CellHasCheckBox(0,0) = .T. .DefaultItem = .AddItem("Caption 2") .CellHasCheckBox(0,0) = .T. endwith endwith
664. Can I change the order of the parts in the cell, as checkbox after the text, and so on
with thisform.Gantt1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Columns.Add("Column").Def(34) = "caption,check,icon,icons,picture" with .Items h = .AddItem("Text") .DefaultItem = h .CellImage(0,0) = 1 .DefaultItem = h .CellHasCheckBox(0,0) = .T. endwith endwith
663. Can I have an image displayed after the text. Can I get that effect without using HTML content
with thisform.Gantt1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Columns.Add("Column").Def(34) = "caption,icon,check,icons,picture" with .Items h = .AddItem("Text") .DefaultItem = h .CellImage(0,0) = 1 endwith endwith
662. Is there any option to print the columns section on each page
with thisform.Gantt1 .BeginUpdate .Columns.Add("Col 1") .Columns.Add("Col 2") .MarkSearchColumn = .F. .Chart.FirstVisibleDate = {^2001-1-1} .Chart.LevelCount = 2 with .Items h1 = .AddItem("Col 1") .DefaultItem = h1 .CellCaption(0,1) = "Col 2" .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .AddItem("Col 1") .DefaultItem = h2 .CellCaption(0,1) = "Col 2" .AddBar(h2,"Task",{^2001-2-5},{^2001-2-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .Link("L1",6) = 0 endwith .EndUpdate with CreateObject("Exontrol.Print") .Options = "ColumnsOnEveryPage=-2" .PrintExt = thisform.Gantt1 .Preview endwith endwith
661. Is there any option to print the columns section on each page
with thisform.Gantt1 .BeginUpdate .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} .Chart.LevelCount = 2 with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-2-5},{^2001-2-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .Link("L1",6) = 0 endwith .EndUpdate with CreateObject("Exontrol.Print") .Options = "ColumnsOnEveryPage=1" .PrintExt = thisform.Gantt1 .Preview endwith endwith
660. How do I print the control's content
with thisform.Gantt1 .BeginUpdate .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .Link("L1",6) = 0 endwith .EndUpdate with CreateObject("Exontrol.Print") .PrintExt = thisform.Gantt1 .Preview endwith endwith
659. How can I display the column using currency format and enlarge the font for certain values
with thisform.Gantt1 with .Columns.Add("Currency") .Def(17) = 1 .FormatColumn = "len(value) ? ((0:=dbl(value)) < 10 ? '<fgcolor=808080><font ;7>' : '<b>') + currency(=:0)" endwith with .Items .AddItem("1.23") .AddItem("2.34") .AddItem("9.94") .AddItem("11.94") .AddItem("1000") endwith endwith
658. How can I highlight only parts of the cells
with thisform.Gantt1 with .Columns.Add("") .Def(17) = 1 .FormatColumn = "value replace 'hil' with '<fgcolor=FF0000><b>hil</b></fgcolor>'" endwith with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Child 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
657. How can I get the number of occurrences of a specified string in the cell
with thisform.Gantt1 .Columns.Add("") with .Columns.Add("occurrences") .ComputedField = "lower(%0) count 'o'" .FormatColumn = "'contains ' + value + ' of \'o\' chars'" endwith with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1 oooof the root") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Child 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
656. How can I display dates in my format
with thisform.Gantt1 with .Columns.Add("Date") .Def(17) = 1 var_s = "'<b>' + year(0:=date(value)) + '</b><fgcolor=808080><font ;6> (' + month(=:0) + ' - ' + day(=:0)" var_s = var_s + " +')'" .FormatColumn = var_s endwith with .Items .AddItem({^2001-1-21}) .AddItem({^2002-2-22}) .AddItem({^2003-3-13}) .AddItem({^2004-4-24}) endwith endwith
655. How can I display dates in short format
with thisform.Gantt1 .Columns.Add("Date").FormatColumn = "shortdate(value)" with .Items .AddItem({^2001-1-1}) .AddItem({^2002-2-2}) .AddItem({^2003-3-3}) .AddItem({^2004-4-4}) endwith endwith
654. How can I display dates in long format
with thisform.Gantt1 .Columns.Add("Date").FormatColumn = "longdate(value)" with .Items .AddItem({^2001-1-1}) .AddItem({^2002-2-2}) .AddItem({^2003-3-3}) .AddItem({^2004-4-4}) endwith endwith
653. How can I display only the right part of the cell
with thisform.Gantt1 .Columns.Add("") with .Columns.Add("Right") .ComputedField = "%0 right 2" .FormatColumn = "'"+chr(34)+"' + value + '"+chr(34)+"'" endwith with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"SChild 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
652. How can I display only the left part of the cell
with thisform.Gantt1 .Columns.Add("") .Columns.Add("Left").ComputedField = "%0 left 2" with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"SChild 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
651. How can I display true or false instead 0 and -1
with thisform.Gantt1 .Columns.Add("Boolean").FormatColumn = "value != 0 ? 'true' : 'false'" with .Items .AddItem(.T.) .AddItem(.F.) .AddItem(.T.) .AddItem(0) .AddItem(1) endwith endwith
650. How can I display icons or images instead numbers
with thisform.Gantt1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) with .Columns.Add("Icons") .Def(17) = 1 .FormatColumn = "'The cell displays the icon <img>'+value+'</img> instead ' + value" endwith with .Items .AddItem(1) .AddItem(2) .AddItem(3) endwith endwith
649. How can I display the column using currency
with thisform.Gantt1 .Columns.Add("Currency").FormatColumn = "currency(dbl(value))" with .Items .AddItem("1.23") .AddItem("2.34") .AddItem("0") .AddItem(5) .AddItem("10000.99") endwith endwith
648. How can I display the currency only for not empty cells
with thisform.Gantt1 .Columns.Add("Number") .Columns.Add("Currency").ComputedField = "len(%0) ? currency(dbl(%0)) : ''" with .Items .AddItem("1.23") .AddItem("2.34") .AddItem("0") .DefaultItem = .AddItem() .ItemBackColor(0) = RGB(255,128,128) .AddItem("10000.99") endwith endwith
647. Is there a function to display the number of days between two date including the number of hours
with thisform.Gantt1 .Columns.Add("Start").Width = 32 .Columns.Add("End") var_s = "2:=((1:=int(0:= date(%1)-date(%0))) = 0 ? '' : str(=:1) + ' day(s)') + ( 3:=round(24*(=:0-floor(" var_s = var_s + "=:0))) ? (len(=:2) ? ' and ' : '') + =:3 + ' hour(s)' : '' )" .Columns.Add("Duration").ComputedField = var_s with .Items h = .AddItem({^2001-1-11}) .DefaultItem = h .CellCaption(0,1) = {^2001-1-14} h = .AddItem({^2002-2-22 12:00:00}) .DefaultItem = h .CellCaption(0,1) = {^2002-3-14 13:00:00} h = .AddItem({^2003-3-13}) .DefaultItem = h .CellCaption(0,1) = {^2003-4-11 11:00:00} endwith endwith
646. Is there a function to display the number of days between two date including the number of hours
with thisform.Gantt1 .Columns.Add("Start") .Columns.Add("End") var_s = ""+chr(34)+"D "+chr(34)+" + int(date(%1)-date(%0)) + "+chr(34)+" H "+chr(34)+" + round(24*(date(%1)-date(%0) - floor(date(%1)-date(%0))))" .Columns.Add("Duration").ComputedField = var_s with .Items h = .AddItem({^2001-1-11}) .DefaultItem = h .CellCaption(0,1) = {^2001-1-14 23:00:00} h = .AddItem({^2002-2-22 12:00:00}) .DefaultItem = h .CellCaption(0,1) = {^2002-3-14 13:00:00} h = .AddItem({^2003-3-13}) .DefaultItem = h .CellCaption(0,1) = {^2003-4-11 11:00:00} endwith endwith
645. How can I display the number of days between two dates
with thisform.Gantt1 .Columns.Add("Start") .Columns.Add("End") .Columns.Add("Duration").ComputedField = "(date(%1)-date(%0)) + ' days'" with .Items h = .AddItem({^2001-1-11}) .DefaultItem = h .CellCaption(0,1) = {^2001-1-14} h = .AddItem({^2002-2-22}) .DefaultItem = h .CellCaption(0,1) = {^2002-3-14} h = .AddItem({^2003-3-13}) .DefaultItem = h .CellCaption(0,1) = {^2003-4-11} endwith endwith
644. How can I get second part of the date
with thisform.Gantt1 .Columns.Add("Date") .Columns.Add("Second").ComputedField = "sec(date(%0))" with .Items .AddItem({^2001-1-11 10:10:00}) .AddItem({^2002-2-22 11:01:22}) .AddItem({^2003-3-13 12:23:01}) .AddItem({^2004-4-14 13:11:59}) endwith endwith
643. How can I get minute part of the date
with thisform.Gantt1 .Columns.Add("Date") .Columns.Add("Minute").ComputedField = "min(date(%0))" with .Items .AddItem({^2001-1-11 10:10:00}) .AddItem({^2002-2-22 11:01:00}) .AddItem({^2003-3-13 12:23:00}) .AddItem({^2004-4-14 13:11:00}) endwith endwith
642. How can I check the hour part only so I know it was afternoon
with thisform.Gantt1 .ConditionalFormats.Add("hour(%0)>=12").Bold = .T. .Columns.Add("Date") .Columns.Add("Hour").ComputedField = "hour(%0)" with .Items .AddItem({^2001-1-11 10:00:00}) .AddItem({^2002-2-22 11:00:00}) .AddItem({^2003-3-13 12:00:00}) .AddItem({^2004-4-14 13:00:00}) endwith endwith
641. What about a function to get the day in the week, or days since Sunday
with thisform.Gantt1 .Columns.Add("Date") .Columns.Add("WeekDay").ComputedField = "weekday(%0)" with .Items .AddItem({^2001-1-11 10:00:00}) .AddItem({^2002-2-22 11:00:00}) .AddItem({^2003-3-13 12:00:00}) .AddItem({^2004-4-14 13:00:00}) endwith endwith
640. Is there any function to get the day of the year or number of days since January 1st
with thisform.Gantt1 .Columns.Add("Date") .Columns.Add("Day since January 1st").ComputedField = "yearday(%0)" with .Items .AddItem({^2001-1-11 10:00:00}) .AddItem({^2002-2-22 11:00:00}) .AddItem({^2003-3-13 12:00:00}) .AddItem({^2004-4-14 13:00:00}) endwith endwith
639. How can I display only the day of the date
with thisform.Gantt1 .Columns.Add("Date") .Columns.Add("Day").ComputedField = "day(%0)" with .Items .AddItem({^2001-1-11 10:00:00}) .AddItem({^2002-2-22 11:00:00}) .AddItem({^2003-3-13 12:00:00}) .AddItem({^2004-4-14 13:00:00}) endwith endwith
638. How can I display only the month of the date
with thisform.Gantt1 .Columns.Add("Date") .Columns.Add("Month").ComputedField = "month(%0)" with .Items .AddItem({^2001-1-1 10:00:00}) .AddItem({^2002-2-2 11:00:00}) .AddItem({^2003-3-3 12:00:00}) .AddItem({^2004-4-4 13:00:00}) endwith endwith
637. How can I get only the year part from a date expression
with thisform.Gantt1 .Columns.Add("Date") .Columns.Add("Year").ComputedField = "year(%0)" with .Items .AddItem({^2001-1-1 10:00:00}) .AddItem({^2002-2-2 11:00:00}) .AddItem({^2003-3-3 12:00:00}) .AddItem({^2004-4-4 13:00:00}) endwith endwith
636. Can I convert the expression to date
with thisform.Gantt1 .Columns.Add("Number") .Columns.Add("Date").ComputedField = "date(dbl(%0))" with .Items .AddItem("-1.98") .AddItem("30000.99") .AddItem("3561.23") .AddItem("1232.34") endwith endwith
635. Can I convert the expression to a number, double or float
with thisform.Gantt1 .Columns.Add("Number") .Columns.Add("Number + 2").ComputedField = "dbl(%0)+2" with .Items .AddItem("-1.98") .AddItem("0.99") .AddItem("1.23") .AddItem("2.34") endwith endwith
634. How can I display dates in long format
with thisform.Gantt1 .Columns.Add("Date") .Columns.Add("LongFormat").ComputedField = "longdate(%0)" with .Items .AddItem({^2001-1-1 10:00:00}) .AddItem({^2002-2-2 11:00:00}) .AddItem({^2003-3-3 12:00:00}) .AddItem({^2004-4-4 13:00:00}) endwith endwith
633. How can I display dates in short format
with thisform.Gantt1 .Columns.Add("Date") .Columns.Add("ShortFormat").ComputedField = "shortdate(%0)" with .Items .AddItem({^2001-1-1 10:00:00}) .AddItem({^2002-2-2 11:00:00}) .AddItem({^2003-3-3 12:00:00}) .AddItem({^2004-4-4 13:00:00}) endwith endwith
632. How can I display the time only of a date expression
with thisform.Gantt1 .Columns.Add("Date") .Columns.Add("Time").ComputedField = "'time is:' + time(date(%0))" with .Items .AddItem({^2001-1-1 10:00:00}) .AddItem({^2002-2-2 11:00:00}) .AddItem({^2003-3-3 12:00:00}) .AddItem({^2004-4-4 13:00:00}) endwith endwith
631. Is there any function to display currencies, or money formatted as in the control panel
with thisform.Gantt1 .Columns.Add("Number") .Columns.Add("Currency").ComputedField = "currency(dbl(%0))" with .Items .AddItem("1.23") .AddItem("2.34") .AddItem("10000.99") endwith endwith
630. How can I convert the expression to a string so I can look into the date string expression for month's name
with thisform.Gantt1 .Columns.Add("Number") .Columns.Add("Str").ComputedField = "str(%0) + ' AA'" with .Items .AddItem("-1.98") .AddItem("0.99") .AddItem("1.23") .AddItem("2.34") endwith endwith
629. Can I display the absolute value or positive part of the number
with thisform.Gantt1 .Columns.Add("Number") .Columns.Add("Abs").ComputedField = "abs(%0)" with .Items .AddItem("-1.98") .AddItem("0.99") .AddItem("1.23") .AddItem("2.34") endwith endwith
628. Is there any function to get largest number with no fraction part that is not greater than the value
with thisform.Gantt1 .Columns.Add("Number") .Columns.Add("Floor").ComputedField = "floor(%0)" with .Items .AddItem("-1.98") .AddItem("0.99") .AddItem("1.23") .AddItem("2.34") endwith endwith
627. Is there any function to round the values base on the .5 value
with thisform.Gantt1 .Columns.Add("Number") .Columns.Add("Round").ComputedField = "round(%0)" with .Items .AddItem("-1.98") .AddItem("0.99") .AddItem("1.23") .AddItem("2.34") endwith endwith
626. How can I get or display the integer part of the cell
with thisform.Gantt1 .Columns.Add("Number") .Columns.Add("Int").ComputedField = "int(%0)" with .Items .AddItem("-1.98") .AddItem("0.99") .AddItem("1.23") .AddItem("2.34") endwith endwith
625. How can I display names as proper ( first leter of the word must be in uppercase, and the rest in lowercase )
with thisform.Gantt1 .Columns.Add("").ComputedField = "proper(%0)" with .Items h = .AddItem("root") .InsertItem(h,0,"child child") .InsertItem(h,0,"child child") .InsertItem(h,0,"child child") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
624. Is there any option to display cells in uppercase
with thisform.Gantt1 .Columns.Add("").ComputedField = "upper(%0)" with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Chld 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
623. Is there any option to display cells in lowercase
with thisform.Gantt1 .Columns.Add("").ComputedField = "lower(%0)" with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Chld 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
622. How can I mark the cells that has a specified type, ie strings only
with thisform.Gantt1 .ConditionalFormats.Add("type(%0) = 8").ForeColor = RGB(255,0,0) .Columns.Add("") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,2) .InsertItem(h,0,"Chld 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
621. How can I bold the items that contains data or those who displays empty strings
with thisform.Gantt1 .ConditionalFormats.Add("not len(%1)=0").Bold = .T. .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") hC = .InsertItem(h,0,"Child 2") .DefaultItem = hC .CellCaption(0,1) = "1" .InsertItem(h,0,"Child 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
620. Can I change the background color for items or cells that contains a specified string
with thisform.Gantt1 .ConditionalFormats.Add("%0 contains 'hi'").BackColor = RGB(255,0,0) .Columns.Add("") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"Chld 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
619. Is there any option to change the fore color for cells or items that ends with a specified string
with thisform.Gantt1 .ConditionalFormats.Add("%0 endwith '22'").ForeColor = RGB(255,0,0) .Columns.Add("") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 1.22") .InsertItem(h,0,"Child 2.22") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
618. How can I highlight the cells or items that starts with a specified string
with thisform.Gantt1 .ConditionalFormats.Add("%0 startwith 'C'").Underline = .T. .Columns.Add("") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .InsertItem(h,0,"SChild 3") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
617. How can I change the background color or the visual appearance using ebn for a particular column
with thisform.Gantt1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") with .Columns .Add("Column 1") .Add("Column 2").Def(7) = 16777216 .Add("Column 3").Def(7) = 16777471 .Add("Column 4") endwith endwith
616. How can I change the background color for a particular column
with thisform.Gantt1 with .Columns .Add("Column 1") .Add("Column 2").Def(7) = 8439039 .Add("Column 3") endwith endwith
615. Is it possible to define level in terms of just increasing numbers (not a Date)
with thisform.Gantt1 with .Chart .PaneWidth(0) = 32 .UnitWidth = 32 .FirstVisibleDate = 1000 .Level(0).Label = "<%i%>" endwith endwith
614. How can I hide the non-working units ( days or hours )
with thisform.Gantt1 .BeginUpdate with .Chart .PaneWidth(0) = 0 .LevelCount = 2 with .Level(0) .Label = "<%dddd%>" .Alignment = 1 endwith .Level(1).Label = 65536 .NonworkingHours = 16773375 .ShowNonworkingUnits = .F. endwith .EndUpdate endwith
613. Is there a way to have the display show the word "Noon" instead "12:00 PM" in the chart's header/levels
with thisform.Gantt1 with .Chart .PaneWidth(0) = 0 .FirstVisibleDate = {^2001-1-1 10:00:00} .LevelCount = 3 with .Level(0) .Label = "<b><%mmm%> <%d%>, <%yyyy%></b>" .Alignment = 1 .Unit = 4096 endwith with .Level(1) .Label = "<%h%>:00 <%AM/PM%>" .Alignment = 1 .Unit = 65536 .DrawTickLines = .T. .DrawGridLines = .T. .ReplaceLabel("12:00 PM") = "<fgcolor=0000FF><b>Noon</b></fgcolor>" endwith with .Level(2) .Label = "" .Unit = 1048576 .Count = 15 endwith endwith endwith
612. How can I change the selection background color in the chart area
with thisform.Gantt1 .Chart.FirstVisibleDate = {^2001-1-1} .Chart.SelBackColor = RGB(255,0,0) .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4}) .AddBar(.AddItem("Item 1"),"Task",{^2001-1-6},{^2001-1-14}) .DefaultItem = .FirstVisibleItem .SelectItem(0) = .T. endwith endwith
611. How can I change the selection background color in the chart area
with thisform.Gantt1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Chart.FirstVisibleDate = {^2001-1-1} .Chart.SelBackColor = 0x1000000 .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4}) .AddBar(.AddItem("Item 1"),"Task",{^2001-1-6},{^2001-1-14}) .DefaultItem = .FirstVisibleItem .SelectItem(0) = .T. endwith endwith
610. Is there any way to extend the selection on the chart
with thisform.Gantt1 .Chart.FirstVisibleDate = {^2001-1-1} .Chart.SelBackColor = thisform.Gantt1.SelBackColor .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4}) .AddBar(.AddItem("Item 1"),"Task",{^2001-1-6},{^2001-1-14}) .DefaultItem = .FirstVisibleItem .SelectItem(0) = .T. endwith endwith
609. How can I display the column's header using multiple lines
with thisform.Gantt1 .HeaderHeight = 128 .HeaderSingleLine = .F. .Columns.Add("This is just a column that should break the header.").Width = 32 .Columns.Add("This is just another column that should break the header.") endwith
608. How can change the width, transparency, style, visual appearance ( EBN), of the vertical bar that shows the current date-time
with thisform.Gantt1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") with .Chart .LevelCount = 2 .Level(0).Label = 1048576 with .Level(1) .Label = "<%ss%>" .Count = 15 endwith .MarkNowColor = 0x1000000 .MarkNowWidth = 6 .MarkNowTransparent = 50 endwith .Columns.Add("Tasks") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2008-1-1},{^2018-1-1}) endwith endwith
607. How can change the width, style, visual appearance ( EBN), of the vertical bar that shows the current time
with thisform.Gantt1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") with .Chart .LevelCount = 2 .Level(0).Label = 1048576 with .Level(1) .Label = "<%ss%>" .Count = 15 endwith .MarkNowColor = 0x1000000 .MarkNowWidth = 6 endwith .Columns.Add("Tasks") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2008-1-1},{^2018-1-1}) endwith endwith
606. How can I show a vertical bar that indicates the current time
with thisform.Gantt1 with .Chart .LevelCount = 2 .Level(0).Label = 1048576 with .Level(1) .Label = "<%ss%>" .Count = 15 endwith .MarkNowColor = RGB(0,0,255) .MarkNowWidth = 7 endwith .Columns.Add("Tasks") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2008-1-1},{^2018-1-1}) endwith endwith
605. How can I show semi-transparent the vertical bar that indicates the current time
with thisform.Gantt1 with .Chart .LevelCount = 2 .Level(0).Label = 1048576 with .Level(1) .Label = "<%ss%>" .Count = 15 endwith .MarkNowColor = RGB(0,0,255) .MarkNowWidth = 7 .MarkNowTransparent = 50 endwith .Columns.Add("Tasks") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2008-1-1},{^2018-1-1}) endwith endwith
604. Is there any way to highlight or show a vertical bar that indicates the current time, from 15 to 15 seconds
with thisform.Gantt1 .Chart.LevelCount = 2 .Chart.Level(0).Label = 1048576 with .Chart.Level(1) .Label = "<%ss%>" .Count = 15 endwith .Chart.MarkNowColor = RGB(0,0,255) .Chart.MarkNowCount = 15 .Chart.MarkNowWidth = 3 endwith
603. Is there any way to highlight or show a vertical bar that indicates the current time, from minute to minute, hour and so on
with thisform.Gantt1 with .Chart .UnitWidth = 48 .LevelCount = 1 .Level(0).Label = 1048576 .MarkNowColor = RGB(255,0,0) .MarkNowUnit = 1048576 .MarkNowWidth = .UnitWidth endwith endwith
602. Is there any way to highlight or show a vertical bar that indicates the current time
with thisform.Gantt1 .Chart.LevelCount = 2 .Chart.Level(0).Label = 1048576 with .Chart.Level(1) .Label = "<%ss%>" .Count = 15 endwith .Chart.MarkNowColor = RGB(255,0,0) endwith
601. Is there a way of making a bar flash on the screen
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Flashy task") .AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",16) = 80 endwith endwith
600. How can include the values in the inner cells in the drop down filter window
with thisform.Gantt1 .DrawGridLines = -2 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Object.Description(1) = "" .Object.Description(2) = "" with .Columns.Add("Single Column") .HTMLCaption = "Single column with <b>inner cells</b>" .ToolTip = "Click the drop down filter button, and the filter list includes the inner cells values too." .DisplayFilterButton = .T. .DisplayFilterPattern = .F. .FilterList = 64 endwith .ShowFocusRect = .F. with .Items s = .SplitCell(.AddItem("S 1.1"),0) .CellCaption(0,s) = "S 1.2" .CellHAlignment(0,s) = 1 .CellBackColor(0,s) = 0x1000000 .CellWidth(0,s) = 84 s = .SplitCell(.AddItem("S 2.1"),0) .CellCaption(0,s) = "S 2.2" .CellHAlignment(0,s) = 1 .CellWidth(0,s) = 84 s = .SplitCell(.AddItem("S 3.1"),0) .CellCaption(0,s) = "S 3.2" .CellHAlignment(0,s) = 1 .CellBackColor(0,s) = 0x1000000 .CellWidth(0,s) = 84 endwith endwith
599. How can I sort the value gets listed in the drop down filter window
with thisform.Gantt1 .LinesAtRoot = -1 .MarkSearchColumn = .F. .Object.Description(0) = "" .Object.Description(1) = "" .Object.Description(2) = "" with .Columns.Add("P1") .DisplayFilterButton = .T. .DisplayFilterPattern = .F. .FilterList = 16 endwith with .Columns.Add("P2") .DisplayFilterButton = .T. .DisplayFilterPattern = .F. .FilterList = 32 endwith with .Items h = .AddItem("Z3") .DefaultItem = h .CellCaption(0,1) = "C" .DefaultItem = .InsertItem(h,0,"Z1") .CellCaption(0,1) = "B" .DefaultItem = .InsertItem(h,0,"Z2") .CellCaption(0,1) = "A" .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
598. Is there a way to break the hours into 15 minute increments just showing lines instead of the minute numbers
with thisform.Gantt1 .BeginUpdate .Chart.FirstVisibleDate = {^2008-2-5} .Chart.LevelCount = 3 .Chart.Level(0).Label = "<b><%mmm%> <%dd%></b> <%yyyy%> " with .Chart.Level(1) .Label = "<%hh%>" .Alignment = 1 endwith with .Chart.Level(2) .Label = "" .Unit = 1048576 .Count = 15 endwith .Chart.UnitWidth = 6 .EndUpdate endwith
597. How can I change the visual appearance of the milestone bar using EBN
with thisform.Gantt1 var_s = "gBFLBCJwBAEHhEJAEGg4BKMMQAAYAQGKIYBkAKBQAGaAoDDMMILQiMQwjRBMKgBBCLIxiGK4DhiF4aRTHUKAAKQahLEaSZLh" var_s = var_s + "EZRQiqA4sS5FQBSBDQFwSByEY6mSaYJAWK4tCyNM7SfQAbxnAgYaLAAYRUjuHZOTZAc4UfAdFL/K4AKrfeZIeAiCRQGiYZyH" var_s = var_s + "KaRShjDwXKLIIjbJhkNoJChCNQgBScPgxCx8JypaCaar2fjQM6zWAMdb2Cz7PjDH7wPA1WYJRaDYjhcB4LheAqGXBWUYLYb8" var_s = var_s + "XS3EKJYhiWA4HjqFjGJpcEzPbRiNx3H6SABlLLaLo7JpGO52FrTHZjXyzLqBVpoOyEbrmcozYzjN41RpWETfQYDcwteqcLpr" var_s = var_s + "hGVZrm6dp8j4bAnDQP5Uh+OpcH6R4Lg2YJvEIeg6kWEoJB2ZZyG6GoLCSXxtG+IZ1GmfhJjcawNFWfB/h+V5pnUc5VhWeZ4B" var_s = var_s + "MX4jlySwtiAJodlEYRaBYFgHHgIA2gGExkFUdxFl6A5hgUbgXgcVRzFiXA3CICARAEgI" .VisualAppearance.Add(1,var_s) with .Chart .FirstVisibleDate = {^2001-1-1} with .Bars.Copy("Task","Milestone") .Color = 0x1000000 .Height = 16 endwith endwith .Columns.Add("Tasks") with .Items .AddBar(.AddItem("Task 1"),"Milestone",{^2001-1-2},{^2001-1-3}) endwith endwith
596. How can I change the visual appearance of the summary bar using EBN
with thisform.Gantt1 var_s = "gBFLBCJwBAEHhEJAEGg4BGICg6AADACAxRDAMgBQKAAzQFAYZhhBaERiGEaIJhUAIIRZGMQxXAcMQvDSKQJhGDAADEMgyAJC" var_s = var_s + "IxjPIgZBoGqPBpASQJUhkMocR7HMygBIkSRNA8kMwxdQEaw9ECRIDpGaYWTFDhsABTVQRLL0Tw9ISERqoSSaGgkCYaA7CNJ0" var_s = var_s + "PBNJSjJ6LJZGURbKqyCQ1DBbUB3BaUaQ9JaKa7pKa7cpWKIqSxEMrxcLFcT5DSbYDxGjLEhmPZBVZQNBxtJbFQHWJCNgzVAd" var_s = var_s + "OAAfzQM70GpMQoWJYeVpEObSBD1dABTCBczADYoex7ID+aJuGiYVZdWxJOjfbhkTTIJAaCawABrWxR8iHN5paTnUpzDjwbg0" var_s = var_s + "kqRRyr+XwjA8Go/HSBp6g6KJTFcGpWmYdg8H6dJTH0EZelueBfBuLwyBMd50nIfR+kmXB4BECQUAaEYMHQHRHCGFRYI2ZAwE" var_s = var_s + "IExghQZA2EIQoGGoEhOgGBBYlAeYYHMWJcDcGx4HYHoHmICIFjeBohkaDAAC2DAjBYJIIiKSI2CSC5hjQJBsCOCwYiIKoGmK" var_s = var_s + "WJkn6DANkiWgzCwYwolAcQkksWJaCuDohlicg2hDQR+EELBInKcJohMJBomILoGmISQuESFBOgkOQDg+SoTEyfoXCUSImDyG" var_s = var_s + "ZhjkaI1hcJgTnoXgACYCYKG2GQkEkVJchKIoZDIbIciYKY+HEP4mlmThSg+aBIlKBYUCUKgGHyG4jEkPoKiAKI6D6EokGkSg" var_s = var_s + "yECF5jEKVJZD+aYqHKG4nGoCh+iKJ4qEqBokh+KYag6JoqmqKo2iWJpqgKRJHDiT5qk6NYtCsapmjiLprHqdo6i8awan6Qov" var_s = var_s + "CwOp6kSLQsBsHpGjKbBbBaMYhm0CgalILBtBsUpTiGUIUAQgIA==" .VisualAppearance.Add(1,var_s) with .Chart .FirstVisibleDate = {^2001-1-1} with .Bars.Copy("Task","Summary") .Color = 0x1000000 .Height = 16 endwith endwith .Columns.Add("Tasks") with .Items .AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-4}) .AddBar(.AddItem("Task 2"),"Summary",{^2001-1-5},{^2001-1-7}) endwith endwith
595. How can I change the visual appearance of the task bar using EBN
with thisform.Gantt1 var_s = "gBFLBCJwBAEHhEJAEGg4BGoCg6AADACAxRDAMgBQKAAzQFAYZhhBaERiGEaIJhUAIIRZGMQxXAcMQvDSKQJhGLhQiSJoJDSB" var_s = var_s + "EgSXDIZQ5D6OZYACDJQACJYJTbAYzyPJkPRAA6EZCmGAwCglf5HABRb7xNLkbQ8GySKJnWCQJhoD5BSLCNRUTRFFQtGgZBpE" var_s = var_s + "WwLCjQNQwWLKFoTJIEPSBDKqYDoKYqTgOOZOThHQz3HakQRdAa/ZpnaKpUo2d47XjMWBwGA0EzeAAGaxoShqdoiFaGU7UOJV" var_s = var_s + "JBOGwHK6BchoMAKbp6XoVWRaOAWLZWVABM7XLZxbLccyGfZ1XhdV5UbqUMznR7PNrjLKIJpCOJbbyAFwgBaeQABYLhK7iHRm" var_s = var_s + "i8XYwjMWpjFWOx1GIB5LmgdB4HCEBECSIBpDGHQOicIwokYPImikEIJj6eJIloEgogSc40FGcJEFiYZIG2VIoAURw1g2QxyA" var_s = var_s + "QNwNAMPJOgIYI4CoDIBmAeAKBIUpQDUKJYDoTpIB4vxgmgdgNgeYZDDoFw7CEJhQn+BohmKfImCWSZRlgYwikYMQ0gwF4Dni" var_s = var_s + "TA/gwBJYjQYwsgoIg6AyCRQDiIJODAZBImoOguAmMZ4lQLIJjOMI3CYZJpEIT4KiKSI6DqD5ZGAAgHC2DAjBYR4SGUGYGE+G" var_s = var_s + "IlCmFhRhIB5iFAbwWsiJgMhoCoxngV4ZCcSYOHaGYnHmIg8COJpoCoOISmSWZeHWHgoEkRoAg4EIYB4NogmiSgKg6GRjGoJg" var_s = var_s + "Fh+ZJKDaBYjmgaQygiBRUHmbhoDsTAyiqIIoioGoOw8aoKhKKoemeOIaAeF5HmqHoqiyKxKgYaN/locgBiuZRojoVIok8cws" var_s = var_s + "jaMBLGqDoAhGIpoEYWYEmAIxUkQLZmgiYg2g2I4JiCQwuAqWIOIkEAQICA==" .VisualAppearance.Add(1,var_s) with .Chart .FirstVisibleDate = {^2001-1-1} with .Bars.Item("Task") .Color = 0x1000000 .Height = 16 endwith endwith .Columns.Add("Tasks") with .Items .AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-4}) .AddBar(.AddItem("Task 2"),"Task",{^2001-1-5},{^2001-1-7}) endwith endwith
594. How can I change the visual appearance of the task bar using EBN
with thisform.Gantt1 var_s = "gBFLBCJwBAEHhEJAEGg4BZsIQAAYAQGKIYBkAKBQAGaAoDDMMILQiMQwjRBMKgBBCLIxiGK4DhiGoZATCMbDBIcSwSGgCJCj" var_s = var_s + "eS4ZDKHIXSxFUKTBAcSQTGyBRokaYZRi6A4+TRPETTWAEcABHSbQCoKTKAoCHpLQLMYxDKItJSpGYaRgqWCaZpuUIaUzKVbx" var_s = var_s + "bK9CSMGiQbIsOJrBqqQozWZHVITLR9VgBNqga7uGR5DoqdovU5dVTVda9Ly5LSsMQvfALCqOe45URdNp3RiVBYfI6+cZvfJL" var_s = var_s + "Wh4NqeAbCMC1UJoYhlUKCBg0TRoVo9AIDX5QWaYXC0AkBA==" .VisualAppearance.Add(1,var_s) with .Chart .FirstVisibleDate = {^2001-1-1} with .Bars.Item("Task") .Color = 0x1000000 .Height = 16 endwith endwith .Columns.Add("Tasks") with .Items .AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-4}) .AddBar(.AddItem("Task 2"),"Task",{^2001-1-5},{^2001-1-7}) endwith endwith
593. How can I clip the HTML text or caption inside the bar
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Chart.Bars.Item("Task") .Pattern = 32 .Height = 13 endwith with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1","This is a bit of text that get's clipped") .DefaultItem = h .ItemBar(0,"K1",4) = 3 endwith endwith
592. How can I align the text/caption on the scroll bar
with thisform.Gantt1 .Object.ScrollPartCaption(1,512) = "left" .Object.ScrollPartCaptionAlignment(1,512) = 0 .Object.ScrollPartCaption(1,128) = "right" .Object.ScrollPartCaptionAlignment(1,128) = 2 .ColumnAutoResize = .F. .Columns.Add(1) .Columns.Add(2) .Columns.Add(3) .Columns.Add(4) endwith
591. How do I programmatically control the position of the horizontal scroll bar in the chart area, so I can specify a range of dates to scorll within
with thisform.Gantt1 .BeginUpdate .Columns.Add("Task") with .Chart .LevelCount = 2 .PaneWidth(0) = 56 .ScrollRange(0) = {^2001-1-1} .ScrollRange(1) = {^2001-1-31} .FirstVisibleDate = {^2001-1-12} endwith .Object.ScrollPartCaption(2,512) = .Chart.ScrollRange(0) .Object.ScrollPartCaptionAlignment(2,512) = 0 .Object.ScrollPartCaption(2,128) = .Chart.ScrollRange(1) .Object.ScrollPartCaptionAlignment(2,128) = 2 with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2001-1-15},{^2001-1-18},"K1") h = .AddItem("Task 1") .AddBar(h,"Task",{^2001-1-5},{^2001-1-11},"K1") endwith .EndUpdate endwith
590. How can I programmatically control the position of the "splitter" between the item list on the left side and the gantt chart on the right
with thisform.Gantt1 .Chart.PaneWidth(1) = 196 endwith
589. How can I add a milestone bar and some text in the chart area
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Task 1") .AddBar(h,"Milestone",{^2001-1-2},{^2001-1-2},0,"<a1>text</a> outside") .DefaultItem = h .ItemBar(0,0,4) = 18 endwith endwith
588. How can I display or align the bar's caption or text outside of the bar
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} .DefaultItemHeight = 32 with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2001-1-3},{^2001-1-5},"K1") .DefaultItem = h .ItemBar(0,"K1",3) = "<b>to do</b>" .DefaultItem = h .ItemBar(0,"K1",4) = 18 .DefaultItem = h .ItemBar(0,"K1",5) = 16 endwith endwith
587. How can I display or align the bar's caption or text outside of the bar
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2001-1-4},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",3) = "to do" .DefaultItem = h .ItemBar(0,"K1",4) = 16 endwith endwith
586. How can I display or align the bar's caption or text outside of the bar
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",3) = "to do " .DefaultItem = h .ItemBar(0,"K1",4) = 18 endwith endwith
585. Is there any option to count the non-working days
with thisform.Gantt1 .BeginUpdate .Chart.FirstVisibleDate = {^2002-1-1} .Columns.Add("Task") with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2002-1-2},{^2002-1-4},"A") var_ItemBar = .ItemBar(h,"A",258) endwith .EndUpdate endwith
584. Is there any option to count or to specify the working days
with thisform.Gantt1 .BeginUpdate .Chart.FirstVisibleDate = {^2002-1-1} .Columns.Add("Task") with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2002-1-2},{^2002-1-4},"A") var_ItemBar = .ItemBar(h,"A",257) endwith .EndUpdate endwith
583. How do I select the next row/item
with thisform.Gantt1 .Columns.Add("Column") with .Items .AddItem("Item 1") .AddItem("Item 2") .AddItem("Item 3") .DefaultItem = .NextVisibleItem(.FocusItem) .SelectItem(0) = .T. endwith endwith
582. How do I define the visual appearance of the bar by using your EBN/skin files
with thisform.Gantt1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Chart.Bars.Copy("Task","EBN").Color = 0x1000000 .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"EBN",{^2001-1-2},{^2001-1-4}) .AddBar(.AddItem("Item 2"),"Task",{^2001-1-2},{^2001-1-4}) endwith endwith
581. Is it possible to have an "empty box" pattern for the bars
with thisform.Gantt1 .Chart.Bars.Copy("Task","Box").Pattern = 32 .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Box",{^2001-1-2},{^2001-1-4}) .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4}) endwith endwith
580. How do I enable resizing ( changing the height ) the items at runtime
with thisform.Gantt1 .ItemsAllowSizing = -1 .DrawGridLines = 1 .ScrollBySingleLine = .T. .Columns.Add("Column") .Items.AddItem("Item 1") with .Items .DefaultItem = .AddItem("Item 2") .ItemHeight(0) = 48 endwith .Items.AddItem("Item 3") endwith
579. How do I enable resizing all the items at runtime
with thisform.Gantt1 .ItemsAllowSizing = 1 .DrawGridLines = 1 .Columns.Add("Column") .Items.AddItem("Item 1") with .Items .DefaultItem = .AddItem("Item 2") .ItemHeight(0) = 48 endwith .Items.AddItem("Item 3") endwith
578. I'm trying to use the percentage display in my gantt's bars. Unfortunately, I don't see any percentage on the gantt chart
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} .Chart.Bars.Copy("Task","BarName").Color = RGB(0,0,0) .Chart.Bars.Add("BarName%Progress").Shortcut = "Percent" with .Items h = .AddItem("Task 1") .AddBar(h,"Percent",{^2001-1-2},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",10) = 0.4 .DefaultItem = h .ItemBar(0,"K1",12) = .T. endwith endwith
577. How I can show Months in Time Unit panel into Roman numerals
with thisform.Gantt1 .Chart.LevelCount = 2 .Chart.Level(0).Label = 0 with .Chart.Level(1) .Label = "<%mr%>" .Unit = 16 endwith endwith
576. Can I show a bar with a different vertical position
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Opaque") .AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1") h = .AddItem("Transparent and Opaque") .AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",15) = "-3" .DefaultItem = h .ItemBar(0,"K1",16) = 80 .AddBar(h,"Task",{^2001-1-3},{^2001-1-7},"K2") endwith endwith
575. How can I show transparent and opaque bars in the same chart
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Opaque") .AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1") h = .AddItem("Transparent and Opaque") .AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",15) = "-3" .DefaultItem = h .ItemBar(0,"K1",16) = 80 .AddBar(h,"Task",{^2001-1-3},{^2001-1-7},"K2") endwith endwith
574. How can I draw bars using transparent colors
with thisform.Gantt1 .Chart.ShowTransparentBars = 60 .Chart.FirstVisibleDate = {^2001-1-1} .Chart.Bars.Copy("Task","TaskR").Color = RGB(255,0,0) .Chart.PaneWidth(0) = 48 .Columns.Add("Column") with .Items h = .AddItem("Item 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"A") .AddBar(h,"TaskR",{^2001-1-4},{^2001-1-7},"B") endwith endwith
573. Can I change the Task bar so it display a Progress or a Percent bar, but it is splitted when the task intersect a non working area
with thisform.Gantt1 with .Chart .FirstVisibleDate = {^2001-1-1} .Bars.Add("Task%Progress:Split").Shortcut = "Task" endwith .Columns.Add("Column") with .Items h = .AddItem("Item 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-16},"K1") .DefaultItem = h .ItemBar(0,"K1",10) = 0.15 .DefaultItem = h .ItemBar(0,"K1",12) = .T. endwith endwith
572. Can I change the Task bar so it display a Progress or a Percent bar
with thisform.Gantt1 with .Chart .FirstVisibleDate = {^2001-1-1} .Bars.Add("Task%Progress").Shortcut = "Task" endwith .Columns.Add("Column") with .Items h = .AddItem("Item 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"K1") .DefaultItem = h .ItemBar(0,"K1",10) = 0.15 .DefaultItem = h .ItemBar(0,"K1",12) = .T. endwith endwith
571. How can I remove the filter
with thisform.Gantt1 with .Columns.Add("Column") .DisplayFilterButton = .T. .FilterType = 1 endwith .ApplyFilter .ClearFilter endwith
570. I use the ShowEmptyBars property, but I display seconds from 15 to 15, and the bars are not shown correctly. What can I do
with thisform.Gantt1 .BeginUpdate with .Chart .FirstVisibleDate = {^2002-1-1} .LevelCount = 2 .Level(0).Label = 1048576 with .Level(1) .Label = "<%ss%>" .Count = 15 endwith .ShowEmptyBars = 15 .ShowEmptyBarsUnit = 16777216 .PaneWidth(0) = 48 endwith .Columns.Add("Task") with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2002-1-1 0:00:15},{^2002-1-1 0:00:15},"A") .AddBar(h,"Task",{^2002-1-1 0:01:15},{^2002-1-1 0:01:30},"B") .AddLink("AB",h,"A",h,"B") endwith .EndUpdate endwith
569. I need the bar works like in the MS Project, where task from 1/1/2001 to 1/1/2001 must display 1 day
with thisform.Gantt1 .Chart.FirstVisibleDate = {^2001-1-1} .Chart.ShowEmptyBars = 1 .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-1},{^2001-1-1}) endwith endwith
568. I have a bar that has the start and end date identical. Nothing is displayed. What can I do
with thisform.Gantt1 .Chart.FirstVisibleDate = {^2001-1-1} .Chart.ShowEmptyBars = 1 .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-2}) endwith endwith
567. How can I display seconds and bars for 15 to 15
with thisform.Gantt1 .BeginUpdate .Chart.FirstVisibleDate = "1/1/2002 00:00" .Chart.LevelCount = 2 .Chart.Level(0).Label = 1048576 with .Chart.Level(1) .Label = "<%ss%>" .Count = 15 endwith .Chart.PaneWidth(0) = 48 .Chart.Bars.Copy("Task","Task2").Color = RGB(255,0,0) .Columns.Add("Task") with .Items h = .AddItem("Task 1") .AddBar(h,"Task","1/1/2002 00:00:15","1/1/2002 00:00:45","A") .AddBar(h,"Task2","1/1/2002 00:01:15","1/1/2002 00:01:45","B") .AddLink("AB",h,"A",h,"B") endwith .EndUpdate endwith
566. How can I copy a predefined bar
with thisform.Gantt1 .Chart.Bars.Copy("Task","T2").Color = RGB(255,0,0) .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"T2",{^2001-1-2},{^2001-1-4}) endwith endwith
565. How can I define my own custom bar, using my icons or pictures
with thisform.Gantt1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) with .Chart.Bars .AddShapeCorner(12345,1) .AddShapeCorner(22345,2) with .Add("T2") .StartShape = 22345 .EndShape = 12345 .EndColor = RGB(255,0,0) .Pattern = 2 .Color = RGB(255,0,255) .Shape = 19 endwith endwith .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"T2",{^2001-1-2},{^2001-1-4}) endwith endwith
564. How can I access a predefined bar
with thisform.Gantt1 .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4}) endwith .Chart.Bars.Item("Task").Color = RGB(255,0,0) endwith
563. How can I access a predefined bar
with thisform.Gantt1 .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4}) endwith .Chart.Bars.Item("Task").Color = RGB(255,0,0) endwith
562. How can I remove all predefined bars
with thisform.Gantt1 .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4}) endwith endwith
561. How can I remove a predefined bar
with thisform.Gantt1 .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4}) endwith endwith
560. How do I get the number of predefined bars
with thisform.Gantt1 .Columns.Add(thisform.Gantt1.Chart.Bars.Count) endwith
559. How can I change the height of the task bar
with thisform.Gantt1 with .Chart.Bars.Copy("Task","T2") .EndShape = 2 .EndColor = RGB(255,0,0) endwith .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"T2",{^2001-1-2},{^2001-1-4}) .AddBar(.AddItem("Item 2"),"Task",{^2001-1-2},{^2001-1-4}) endwith endwith
558. How can I change the ending shape for all task bars
with thisform.Gantt1 with .Chart.Bars.Item("Task") .EndShape = 1 .EndColor = RGB(255,0,0) endwith .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4}) endwith endwith
557. How can I change the height of the task bar
with thisform.Gantt1 with .Chart.Bars.Copy("Task","T2") .StartShape = 2 .StartColor = RGB(255,0,0) endwith .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"T2",{^2001-1-2},{^2001-1-4}) .AddBar(.AddItem("Item 2"),"Task",{^2001-1-2},{^2001-1-4}) endwith endwith
556. How can I change the starting shape for all task bars
with thisform.Gantt1 with .Chart.Bars.Item("Task") .StartShape = 1 .StartColor = RGB(255,0,0) endwith .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4}) endwith endwith
555. How can I change the height of the task bar
with thisform.Gantt1 .Chart.Bars.Copy("Task","T2").Height = 17 .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"T2",{^2001-1-2},{^2001-1-4}) .AddBar(.AddItem("Item 2"),"Task",{^2001-1-2},{^2001-1-4}) endwith endwith
554. How can I change the height for all task bars
with thisform.Gantt1 .Chart.Bars.Item("Task").Height = 17 .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4}) endwith endwith
553. How can I change the color of the task bar
with thisform.Gantt1 .Chart.Bars.Copy("Task","T2").Color = RGB(255,0,0) .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"T2",{^2001-1-2},{^2001-1-4}) .AddBar(.AddItem("Item 2"),"Task",{^2001-1-2},{^2001-1-4}) endwith endwith
552. How can I change the color for all task bars
with thisform.Gantt1 .Chart.Bars.Item("Task").Color = RGB(255,0,0) .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4}) endwith endwith
551. How can I change the shape for all task bars
with thisform.Gantt1 .Chart.Bars.Item("Task").Shape = 4 .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4}) endwith endwith
550. How can I change the shape of the task bar
with thisform.Gantt1 .Chart.Bars.Copy("Task","T2").Shape = 19 .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"T2",{^2001-1-2},{^2001-1-4}) endwith endwith
549. How can I change the pattern or style for all task bars
with thisform.Gantt1 .Chart.Bars.Item("Task").Pattern = 5 .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4}) endwith endwith
548. How can I change the pattern of the task bar
with thisform.Gantt1 .Chart.Bars.Copy("Task","T2").Pattern = 5 .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"T2",{^2001-1-2},{^2001-1-4}) endwith endwith
547. How can I add a percent bar in the chart area, so the task bar is splited for non working days or hours
with thisform.Gantt1 .Columns.Add("Task") .Chart.Bars.Add("Task%Progress:Split").Shortcut = "TS" .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Task 1") .AddBar(h,"TS",{^2001-1-2},{^2001-1-16},"P1") .DefaultItem = h .ItemBar(0,"P1",10) = 0.14 .DefaultItem = h .ItemBar(0,"P1",12) = .T. endwith endwith
546. How can I add a bar in the chart area, so the task bar is splited for non working days or hours
with thisform.Gantt1 .Columns.Add("Task") .Chart.Bars.Add("Task:Split").Shortcut = "TS" .Chart.FirstVisibleDate = {^2001-1-1} with .Items .AddBar(.AddItem("Task 1"),"TS",{^2001-1-2},{^2001-1-16}) endwith endwith
545. How can I add a split bar in the chart area
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items .AddBar(.AddItem("Task 1"),"Split",{^2001-1-2},{^2001-1-6}) endwith endwith
544. How can I add a progress bar in the chart area
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items .AddBar(.AddItem("Task 1"),"Progress",{^2001-1-2},{^2001-1-6}) endwith endwith
543. How can I add a milestone bar in the chart area
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items .AddBar(.AddItem("Task 1"),"Milestone",{^2001-1-2},{^2001-1-2}) endwith endwith
542. How can I add a summary bar in the chart area
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items .AddBar(.AddItem("Task 1"),"Summary",{^2001-1-2},{^2001-1-6}) endwith endwith
541. How can I add a project summary bar in the chart area
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items .AddBar(.AddItem("Task 1"),"Project Summary",{^2001-1-2},{^2001-1-6}) endwith endwith
540. How can I add a deadline bar in the chart area
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items .AddBar(.AddItem("Task 1"),"Deadline",{^2001-1-2},{^2001-1-2}) endwith endwith
539. How can I add a task bar in the chart area
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items .AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-4}) endwith endwith
538. How can I assign a picture or an icon to a bar in the chart
with thisform.Gantt1 .Object.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif" .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Task 1") .DefaultItem = h .ItemHeight(0) = 48 .AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",3) = "<img>p1</img>" .DefaultItem = h .ItemBar(0,"K1",4) = 2 endwith endwith
537. How can I assign a picture or an icon to a bar in the chart
with thisform.Gantt1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",3) = "<img>1</img>" endwith endwith
536. How can I display or add an anchor or a hyperlink in the link
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-1},{^2001-1-3},"K1") .AddItem("") .AddItem("") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .Link("L1",12) = "just <a1>link</a>" endwith endwith
535. How can I display a picture or an icon on the link
with thisform.Gantt1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-1},{^2001-1-3},"K1") .AddItem("") .AddItem("") .AddItem("") .AddItem("") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .Link("L1",12) = "just <img>1</img> link" endwith endwith
534. How can I display a picture or an icon on the link
with thisform.Gantt1 .Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-1},{^2001-1-3},"K1") .AddItem("") .AddItem("") .AddItem("") .AddItem("") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .Link("L1",12) = "<img>pic1</img><br><br>just a link" endwith endwith
533. How can I display some HTML text or caption on link
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-1},{^2001-1-3},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .Link("L1",12) = "L<b>1</b>" endwith endwith
532. How can I assign a tooltip to a link
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-1},{^2001-1-3},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .Link("L1",12) = "L<b>1</b>" .Link("L1",13) = "This is a bit of text that's shown when the cursor hovers the link" endwith endwith
531. Can I change the width or the size of the link
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .Link("L1",9) = 0 .Link("L1",10) = 2 endwith endwith
530. Can I change the style of the link
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .Link("L1",9) = 4 endwith endwith
529. Can I change the color of the link
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .Link("L1",8) = 255 endwith endwith
528. Can I change the part of the bar where the link ends
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .Link("L1",6) = 1 .Link("L1",7) = 1 endwith endwith
527. Can I change the part of the bar where the link starts
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .Link("L1",6) = 0 endwith endwith
526. How can I associate an extra data to a link
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .Link("L1",5) = "your data" endwith endwith
525. How can I show or hide a specified link
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .Link("L1",3) = .F. endwith endwith
524. How can I get the key of the bar where the link end
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .AddItem(.Link("L1",3)) endwith endwith
523. How can I get the key of the bar where the link starts
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .AddItem(.Link("L1",1)) endwith endwith
522. How can I get the handle of the item where the link ends
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .AddItem(.Link("L1",2)) endwith endwith
521. How can I get the handle of the item where the link starts
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .AddItem(.Link("L1",0)) endwith endwith
520. How can I enumerate the links in the chart
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .AddLink("L2",h2,"K2",h1,"K1") .AddItem(.FirstLink) .AddItem(.NextLink(.FirstLink)) endwith endwith
519. How can I access the properties and method of the link between two bars
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-1},{^2001-1-3},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .Link("L1",12) = "L<b>1</b>" endwith endwith
518. How can I remove a link between two bars
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .ClearLinks endwith endwith
517. How can I remove a link between two bars
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") .RemoveLink("L1") endwith endwith
516. How do I add a link between two bars
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h1 = .AddItem("Task 1") .AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1") h2 = .AddItem("Task 2") .AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2") .AddLink("L1",h1,"K1",h2,"K2") endwith endwith
515. How do I find the number or count of bars in the item
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2001-1-1},{^2001-1-2},"K1") .AddBar(h,"Task",{^2001-1-4},{^2001-1-6},"K2") .DefaultItem = h .ItemBar(0,"K2",3) = .ItemBar(h,0,256) endwith endwith
514. How can I assign any extra data to a bar in the chart
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",17) = "your data" endwith endwith
513. Is there any way to change the background color for percent value being displayed on the progress bar
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} .Chart.Bars.Add("Task%Progress").Shortcut = "Percent" with .Items h = .AddItem("Task 1") .AddBar(h,"Percent",{^2001-1-2},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",10) = 0.35 .DefaultItem = h .ItemBar(0,"K1",12) = .T. .DefaultItem = h .ItemBar(0,"K1",11) = "<bgcolor=FF0000> %p%</bgcolor>" endwith endwith
512. Is there any way to change the color for percent value being displayed on the progress bar
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} .Chart.Bars.Add("Task%Progress").Shortcut = "Percent" with .Items h = .AddItem("Task 1") .AddBar(h,"Percent",{^2001-1-2},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",10) = 0.35 .DefaultItem = h .ItemBar(0,"K1",12) = .T. .DefaultItem = h .ItemBar(0,"K1",11) = "<fgcolor=FF0000>%p%</fgcolor>" endwith endwith
511. Is there any way to change the font for percent value being displayed on the progress bar
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} .Chart.Bars.Add("Task%Progress").Shortcut = "Percent" with .Items h = .AddItem("Task 1") .AddBar(h,"Percent",{^2001-1-2},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",10) = 0.35 .DefaultItem = h .ItemBar(0,"K1",12) = .T. .DefaultItem = h .ItemBar(0,"K1",11) = "<b><font Tahoma;12>%%p</font></b>" endwith endwith
510. Is there any way to align the percent value being displayed on the progress bar
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} .Chart.Bars.Add("Task%Progress").Shortcut = "Percent" with .Items h = .AddItem("Task 1") .AddBar(h,"Percent",{^2001-1-2},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",10) = 0.75 .DefaultItem = h .ItemBar(0,"K1",12) = .T. .DefaultItem = h .ItemBar(0,"K1",11) = "%p/100" .DefaultItem = h .ItemBar(0,"K1",15) = 0 endwith endwith
509. Is there any way to change the format of the percent being displayed on the progress bar
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} .Chart.Bars.Add("Task%Progress").Shortcut = "Percent" with .Items h = .AddItem("Task 1") .AddBar(h,"Percent",{^2001-1-2},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",10) = 0.4 .DefaultItem = h .ItemBar(0,"K1",12) = .T. .DefaultItem = h .ItemBar(0,"K1",11) = "<b>%p/100</b>" endwith endwith
508. How can I show or hide the percent value in the progress bar
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} .Chart.Bars.Add("Task%Progress").Shortcut = "Percent" with .Items h = .AddItem("Task 1") .AddBar(h,"Percent",{^2001-1-2},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",10) = 0.4 .DefaultItem = h .ItemBar(0,"K1",12) = .T. endwith endwith
507. How can I change the percent value in a progress bar
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} .Chart.Bars.Add("Task%Progress").Shortcut = "Percent" with .Items h = .AddItem("Task 1") .AddBar(h,"Percent",{^2001-1-2},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",10) = 0.4 endwith endwith
506. How can I add a percent bar
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} .Chart.Bars.Add("Task%Progress") with .Items h = .AddItem("Task 1") .AddBar(h,"Task%Progress",{^2001-1-2},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",10) = 0.4 endwith endwith
505. Can I add a bar in the chart, using your EBN files
with thisform.Gantt1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Task 1") .AddBar(h,"",{^2001-1-2},{^2001-1-5},"K1"," EBN ") .DefaultItem = h .ItemBar(0,"K1",7) = 16777216 .AddBar(h,"Task",{^2001-1-6},{^2001-1-8},"K2") endwith endwith
504. How can I change the background color of the bar in the chart
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} .Chart.Bars.Copy("Task","TaskR").Color = RGB(255,0,0) with .Items h = .AddItem("Task 1") .AddBar(h,"TaskR",{^2001-1-2},{^2001-1-6},"K1") endwith endwith
503. How can I change the background color of the bar in the chart
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",7) = 8421504 endwith endwith
502. How can I change the background color of the HTML text or caption of the bar in the chart
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",3) = "<bgcolor=FF0000> to do </bgcolor>" endwith endwith
501. How can I change the foreground color of the HTML text or caption of the bar in the chart
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1","t<fgcolor=0000FF>o</fgcolor> do") .DefaultItem = h .ItemBar(0,"K1",8) = 16777215 endwith endwith
500. How can I change the foreground color of the HTML text or caption of the bar in the chart
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",3) = "<bgcolor=FF0000> to do </bgcolor>" .DefaultItem = h .ItemBar(0,"K1",8) = 16777215 endwith endwith
499. How can I assign a tooltip to a bar in the chart
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1") .DefaultItem = h .ItemBar(0,"K1",6) = "This is a bit of text that's displayed when the cursor hovers the bar" endwith endwith
498. How can I vertically align the HTML text or caption of the bar in the chart
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Task 1") .DefaultItem = h .ItemHeight(0) = 32 .AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",3) = "<bgcolor=FF0000> to do </bgcolor>" .DefaultItem = h .ItemBar(0,"K1",5) = 0 endwith endwith
497. How can I align the HTML text or caption of the bar in the chart
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",3) = "<bgcolor=FF0000> to do </bgcolor>" .DefaultItem = h .ItemBar(0,"K1",4) = 0 endwith endwith
496. How can I assign a text or some HTML caption to a bar in the chart
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1") .DefaultItem = h .ItemBar(0,"K1",3) = " <bgcolor=FF0000>to do</bgcolor> " endwith endwith
495. How can I change the ending date of the bar in the chart
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1") .DefaultItem = h .ItemBar(0,"K1",2) = {^2001-1-6} endwith endwith
494. How can I change the starting date of the bar in the chart
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1") .DefaultItem = h .ItemBar(0,"K1",1) = {^2001-1-1} endwith endwith
493. How can I change the style or the name of the bar in the chart
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1") .DefaultItem = h .ItemBar(0,"K1",0) = "Progress" endwith endwith
492. How can I access properties and methods of the bar in the chart
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1") .DefaultItem = h .ItemBar(0,"K1",0) = "Progress" endwith endwith
491. How can I remove all bars in the item
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1") .ClearBars(h) endwith endwith
490. How can I remove a bar from the chart
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items h = .AddItem("Task 1") .AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1") .RemoveBar(h,"K1") endwith endwith
489. How can I add a bar and some text inside, in the chart area
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items .AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-6},0," to do ") endwith endwith
488. How can I add a bar and some text inside, in the chart area
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items .AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-6},0,"<bgcolor=FF0000> to do </bgcolor>") endwith endwith
487. How can I add an anchor or a hyperline in the chart area
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items .AddBar(.AddItem("Task 1"),"",{^2001-1-2},{^2001-1-14},0,"just a <a1>link</a>") endwith endwith
486. How can I add some text or captions in the chart area
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items .AddBar(.AddItem("Task 1"),"",{^2001-1-2},{^2001-1-14},0,"just a <b>caption</b>") endwith endwith
485. How can I add a bar in the chart area
with thisform.Gantt1 .Columns.Add("Task") .Chart.FirstVisibleDate = {^2001-1-1} with .Items .AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-4}) endwith endwith
484. Is there any option to put a picture or an icon to the thumb part of the scroll bar
with thisform.Gantt1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Object.ScrollPartCaption(2,256) = "<img>1</img>" .Object.ScrollThumbSize(2) = 24 endwith
483. How can I scroll fast the chart, or page by page
with thisform.Gantt1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .ScrollHeight = 20 .ScrollButtonWidth = 20 .AllowChartScrollPage = .T. .Object.ScrollPartCaption(2,2048) = "<img>1</img>" .Object.ScrollPartCaption(2,32) = "<img>2</img>" endwith
482. How can I scroll fast the chart, or page by page
with thisform.Gantt1 .ScrollButtonWidth = 16 .AllowChartScrollPage = .T. .Object.ScrollPartCaption(2,2048) = "<<" .Object.ScrollPartCaption(2,32) = ">>" endwith
481. How can I scroll fast the chart, or page by page
with thisform.Gantt1
.AllowChartScrollPage = .T.
endwith
with thisform.Gantt1 .Chart.UnitWidth = 64 with .Chart.Level(0) .Label = "<%yyyy%>" .Unit = 0 .Count = 3 endwith endwith
479. How can I display years
with thisform.Gantt1 .Chart.UnitWidth = 64 with .Chart.Level(0) .Label = "<%yy%>" .Unit = 0 endwith endwith
478. How can I display years
with thisform.Gantt1 .Chart.UnitWidth = 48 .Chart.Level(0).Label = 0 endwith
477. How can I display months, from 3 to 3
with thisform.Gantt1 .Chart.FirstVisibleDate = {^2001-1-1} .Chart.LevelCount = 2 .Chart.UnitWidth = 64 .Chart.Level(0).Label = 1 with .Chart.Level(1) .Label = "<%mmmm%>" .Unit = 16 .Count = 3 endwith endwith
476. How can I display months
with thisform.Gantt1 .Chart.UnitWidth = 64 .Chart.LevelCount = 2 .Chart.Level(0).Label = 1 with .Chart.Level(1) .Label = "<%mmmm%>/<%yy%>" .Unit = 16 endwith endwith
475. How can I display months
with thisform.Gantt1 .Chart.LevelCount = 2 .Chart.UnitWidth = 64 .Chart.Level(0).Label = 1 .Chart.Level(1).Label = 16 endwith
474. How can I display weeks
with thisform.Gantt1 .Chart.LevelCount = 2 .Chart.UnitWidth = 64 .Chart.Level(0).Label = 17 .Chart.Level(1).Label = 256 endwith
473. How can I display weeks
with thisform.Gantt1 .Chart.LevelCount = 2 .Chart.Level(0).Label = 17 .Chart.Level(1).Label = "<%ww%>" endwith
472. How can I display days, from 2 to 2
with thisform.Gantt1 .Chart.LevelCount = 2 .Chart.Level(0).Label = 256 with .Chart.Level(1) .Label = "<%dd%>" .Count = 2 endwith endwith
471. How can I display days
with thisform.Gantt1 .Chart.LevelCount = 2 .Chart.Level(0).Label = 256 .Chart.Level(1).Label = "<%dd%>" endwith
470. How can I display days
with thisform.Gantt1 .Chart.LevelCount = 2 .Chart.Level(0).Label = 256 .Chart.Level(1).Label = 4096 endwith
469. How can I display hours, from 6 to 6
with thisform.Gantt1 .Chart.FirstVisibleDate = "00:00" .Chart.LevelCount = 2 .Chart.Level(0).Label = 4096 with .Chart.Level(1) .Label = "<%hh%>" .Count = 6 endwith endwith
468. How can I display hours
with thisform.Gantt1 .Chart.LevelCount = 2 .Chart.Level(0).Label = 4096 .Chart.Level(1).Label = "<%hh%>" endwith
467. How can I display hours
with thisform.Gantt1 .Chart.LevelCount = 2 .Chart.Level(0).Label = 4096 .Chart.Level(1).Label = 65536 endwith
466. How can I display minutes, from 15 to 15
with thisform.Gantt1 .Chart.FirstVisibleDate = "00:00" .Chart.LevelCount = 2 .Chart.Level(0).Label = 65536 with .Chart.Level(1) .Label = "<%nn%>" .Count = 15 endwith endwith
465. How can I display minutes
with thisform.Gantt1 .Chart.LevelCount = 2 .Chart.Level(0).Label = 65536 .Chart.Level(1).Label = "<%nn%>" endwith
464. How can I display minutes
with thisform.Gantt1 .Chart.LevelCount = 2 .Chart.UnitWidth = 64 .Chart.Level(0).Label = 65536 .Chart.Level(1).Label = 1048576 endwith
463. How can I display seconds, from 15 to 15
with thisform.Gantt1 .Chart.FirstVisibleDate = "00:00" .Chart.LevelCount = 2 .Chart.Level(0).Label = 1048576 with .Chart.Level(1) .Label = "<%ss%>" .Count = 15 endwith endwith
462. How can I display seconds
with thisform.Gantt1 .Chart.LevelCount = 2 .Chart.Level(0).Label = 1048576 .Chart.Level(1).Label = "<%ss%>" endwith
461. How can I display seconds
with thisform.Gantt1 .Chart.LevelCount = 2 .Chart.Level(0).Label = 1048576 .Chart.Level(1).Label = 16777216 endwith
460. How can I align the text being shown in the chart's header
with thisform.Gantt1 .Chart.UnitWidth = 64 with .Chart.Level(0) .Label = "<b><%mmmm%></b> <r><%m%>" .Unit = 16 .Alignment = 0 endwith endwith
459. How can I hide the tooltip being displayed in the chart's header
with thisform.Gantt1 .Chart.Level(0).ToolTip = "" endwith
458. How can I change the tooltip being displayed in the chart's header
with thisform.Gantt1 .Chart.Level(0).ToolTip = "This is a bit of text that's shown when the cursor hovers the level" endwith
457. How can I change the visual appearance of the chart's header, where levels are displayed, using your EBN files
with thisform.Gantt1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Chart.LevelCount = 2 .Chart.BackColorLevelHeader = 0x1000000 endwith
456. How can I change the level's foreground color in the chart
with thisform.Gantt1 .Chart.LevelCount = 2 .Chart.Level(0).ForeColor = RGB(255,0,0) .Chart.Level(1).ForeColor = RGB(0,0,255) endwith
455. How can I change the level's background color in the chart
with thisform.Gantt1 .Chart.LevelCount = 2 .Chart.Level(0).BackColor = RGB(255,0,0) endwith
452. How can I add icons or pictures to the scale or zoom area
with thisform.Gantt1 .Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) with .Chart .OverviewHeight = 48 .OverviewVisible = .T. .AllowOverviewZoom = -1 .OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img> Week|Third|<img>2</img> Day|<img>pic1</img>|Hour|Min|Sec" .Label(0) = "" .Label(1) = "" .Label(2) = "" .Label(17) = "" .Label(65536) = "" .Label(1048576) = "" .Label(16777216) = "" .OverviewZoomUnit = 52 endwith .Columns.Add("") with .Items .DefaultItem = .AddItem("Right click the Overview area and select a new scale") .CellSingleLine(0,0) = .F. endwith endwith
451. How can I add icons or pictures to the scale or zoom area
with thisform.Gantt1 .Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) with .Chart .OverviewHeight = 48 .OverviewVisible = .T. .AllowOverviewZoom = 1 .OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img> Week|Third|<img>2</img> Day|<img>pic1</img>|Hour|Min|Sec" .Label(0) = "" .Label(1) = "" .Label(2) = "" .Label(17) = "" .Label(65536) = "" .Label(1048576) = "" .Label(16777216) = "" .OverviewZoomUnit = 52 endwith endwith
450. How can I change the width of the unit in the scale or zoom
with thisform.Gantt1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) with .Chart .OverviewVisible = .T. .AllowOverviewZoom = 1 .OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img>|Third|<img>2</img>|<img>1</img>|Hour|Min|Sec" .Label(0) = "" .Label(1) = "" .Label(2) = "" .Label(17) = "" .Label(65536) = "" .Label(1048576) = "" .Label(16777216) = "" .OverviewZoomUnit = 24 endwith endwith
449. How can I a scale or zoom of the chart, when right clicking the chart's header
with thisform.Gantt1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) with .Chart .OverviewVisible = .T. .AllowOverviewZoom = -1 .OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|Hour|Min|Sec" .Label(0) = "" .Label(1) = "" .Label(2) = "" .Label(17) = "" .Label(65536) = "" .Label(1048576) = "" .Label(16777216) = "" .OverviewZoomUnit = 64 endwith .Columns.Add("") with .Items .DefaultItem = .AddItem("Right click the Overview area and select a new scale") .CellSingleLine(0,0) = .F. endwith endwith
448. How can I a customize the scale or zoom of the chart
with thisform.Gantt1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) with .Chart .OverviewVisible = .T. .AllowOverviewZoom = 1 .OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|Hour|Min|Sec" .Label(0) = "" .Label(1) = "" .Label(2) = "" .Label(17) = "" .Label(65536) = "" .Label(1048576) = "" .Label(16777216) = "" .OverviewZoomUnit = 64 endwith endwith
447. How can I a scale or zoom the chart at runtime
with thisform.Gantt1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) with .Chart .OverviewVisible = .T. .AllowOverviewZoom = 1 .OverviewZoomCaption = "½Year|¼Year|<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|Hour|Min|Sec" endwith endwith
446. How can I a scale or zoom the chart at runtime
with thisform.Gantt1 with .Chart .OverviewVisible = .T. .AllowOverviewZoom = 1 .OverviewZoomUnit = 24 endwith endwith
445. How can I a programmatically select a date
with thisform.Gantt1 .Chart.MarkSelectDateColor = RGB(255,0,0) .Chart.FirstVisibleDate = {^2001-1-1} .Chart.SelectDate({^2001-1-2}) = .T. .Chart.SelectDate({^2001-1-5}) = .T. .Chart.SelectLevel = 0 endwith
444. How can I change the color to select a date, when clicking the chart's header
with thisform.Gantt1 .Chart.BackColor = RGB(255,255,255) .Chart.MarkSelectDateColor = RGB(255,0,0) endwith
443. How can I enable or disable selecting a date, when clicking the chart's header
with thisform.Gantt1 .Chart.BackColor = RGB(255,255,255) .Chart.MarkSelectDateColor = RGB(255,255,255) endwith
442. How can I specify the color or the stype for non working hours
with thisform.Gantt1 .Chart.UnitScale = 65536 .Chart.PaneWidth(0) = 0 .Chart.NonworkingHours = 127 .Chart.NonworkingHoursPattern = 12 .Chart.NonworkingHoursColor = RGB(255,0,0) endwith
441. How can I specify the pattern or the stype for non working hours
with thisform.Gantt1 .Chart.UnitScale = 65536 .Chart.PaneWidth(0) = 0 .Chart.NonworkingHours = 127 .Chart.NonworkingHoursPattern = 7 endwith
440. How can I specify the non working hours
with thisform.Gantt1 .Chart.UnitScale = 65536 .Chart.PaneWidth(0) = 0 .Chart.NonworkingHours = 127 endwith
439. How can I get the index of the level from the point or cursor
with thisform.Gantt1 var_LevelFromPoint = .Chart.LevelFromPoint(0,0) endwith
438. How can I get the link from the point or cursor
with thisform.Gantt1 var_LinkFromPoint = .Chart.LinkFromPoint(0,0) endwith
437. How can I check or verify if a date is a non working day
with thisform.Gantt1 .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add(thisform.Gantt1.Chart.IsNonworkingDate({^2001-1-1})) endwith
436. How can I check or verify if a date fits the chart's visible area
with thisform.Gantt1 .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add(thisform.Gantt1.Chart.IsDateVisible({^2001-1-1})) endwith
435. How can I add a remove all non working days
with thisform.Gantt1 .Chart.NonworkingDays = 0 .Chart.FirstVisibleDate = {^2001-1-1} .Chart.AddNonworkingDate({^2001-1-1}) .Chart.ClearNonworkingDates endwith
434. How can I add a remove a non working days
with thisform.Gantt1 .Chart.NonworkingDays = 0 .Chart.FirstVisibleDate = {^2001-1-1} .Chart.AddNonworkingDate({^2001-1-1}) .Chart.RemoveNonworkingDate({^2001-1-1}) endwith
433. How can I add a custom non working days
with thisform.Gantt1 .Chart.NonworkingDays = 0 .Chart.FirstVisibleDate = {^2001-1-1} .Chart.AddNonworkingDate({^2001-1-1}) .Chart.AddNonworkingDate({^2001-1-5}) endwith
432. How can hide the non working days
with thisform.Gantt1 .Chart.ShowNonworkingDates = .F. endwith
431. How can hide the non working days
with thisform.Gantt1 .Chart.NonworkingDays = 0 endwith
430. How can I change the width of the links between bars
with thisform.Gantt1 .Chart.LinksStyle = 0 .Chart.LinksWidth = 2 .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4},"B1") .AddBar(.AddItem("Item 2"),"Task",{^2001-1-6},{^2001-1-14},"B2") .AddLink("L1",.FindItem("Item 1",0),"B1",.FindItem("Item 2",0),"B2") endwith endwith
429. How can I change the style for the links between bars
with thisform.Gantt1 .Chart.LinksStyle = 4 .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4},"B1") .AddBar(.AddItem("Item 2"),"Task",{^2001-1-6},{^2001-1-14},"B2") .AddLink("L1",.FindItem("Item 1",0),"B1",.FindItem("Item 2",0),"B2") endwith endwith
428. How can I change the color for the links between bars
with thisform.Gantt1 .Chart.LinksColor = RGB(255,0,0) .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4},"B1") .AddBar(.AddItem("Item 2"),"Task",{^2001-1-6},{^2001-1-14},"B2") .AddLink("L1",.FindItem("Item 1",0),"B1",.FindItem("Item 2",0),"B2") endwith endwith
427. How can I hide the links between bars
with thisform.Gantt1 .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4},"B1") .AddBar(.AddItem("Item 2"),"Task",{^2001-1-6},{^2001-1-14},"B2") .AddLink("L1",.FindItem("Item 1",0),"B1",.FindItem("Item 2",0),"B2") endwith .Chart.ShowLinks = .F. endwith
426. How can I display some grid line in the overview area
with thisform.Gantt1 .Chart.OverviewVisible = .T. .Chart.OverviewLevelLines = 0 .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4}) .AddBar(.AddItem("Item 1"),"Task",{^2001-1-6},{^2001-1-14}) endwith endwith
425. How do I change the tooltip when the cursor hovers the overview area
with thisform.Gantt1 .Chart.OverviewVisible = .T. .Chart.OverviewToolTip = "Tooltip on the overview" .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4}) .AddBar(.AddItem("Item 1"),"Task",{^2001-1-6},{^2001-1-14}) endwith endwith
424. How do I remove the tooltip when the cursor hovers the overview area
with thisform.Gantt1 .Chart.OverviewVisible = .T. .Chart.OverviewToolTip = "" .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4}) endwith endwith
423. How do I change the selection color in the overview area
with thisform.Gantt1 .Chart.OverviewVisible = .T. .Chart.OverviewSelBackColor = RGB(255,0,0) .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4}) endwith endwith
422. How do I change the background color for the overview area
with thisform.Gantt1 .Chart.OverviewVisible = .T. .Chart.OverviewBackColor = RGB(255,0,0) .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4}) endwith endwith
421. How do I specify the height for the overview area
with thisform.Gantt1 .Chart.OverviewVisible = .T. .Chart.OverviewHeight = 16 .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4}) endwith endwith
420. How do I show or hide the control's overview area
with thisform.Gantt1 .Chart.OverviewVisible = .T. .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4}) endwith endwith
419. How do I get the bar from the point or cursor
with thisform.Gantt1 var_BarFromPoint = .Chart.BarFromPoint(0,0) endwith
418. How do I specify the color of pattern for non working days
with thisform.Gantt1 .Chart.NonworkingDays = 66 .Chart.NonworkingDaysPattern = 8 .Chart.NonworkingDaysColor = RGB(255,0,0) endwith
417. How do I specify the type of pattern for non working days
with thisform.Gantt1 .Chart.NonworkingDays = 66 .Chart.NonworkingDaysPattern = 11 endwith
416. How do I specify the non working days
with thisform.Gantt1 .Chart.NonworkingDays = 66 endwith
415. How do I specify the non working days
with thisform.Gantt1 .Chart.NonworkingDays = 66 endwith
414. How do I add a predefined bar
with thisform.Gantt1 .Chart.Bars.Add("CustomBar").Color = RGB(255,0,0) .Chart.FirstVisibleDate = {^2001-1-1} .Columns.Add("Column") with .Items .AddBar(.AddItem("Item 1"),"CustomBar",{^2001-1-2},{^2001-1-4}) endwith endwith
413. How do I change the unit being displayed in the chart
with thisform.Gantt1 .Chart.PaneWidth(0) = 0 .Chart.UnitScale = 256 .Chart.UnitWidth = 64 endwith
412. How do I specify the prodefined tooltip being shown on the chart's header, when Zoom method is used
with thisform.Gantt1 .Chart.PaneWidth(0) = 0 .Chart.LevelCount = 2 .Chart.Label(1) = "" .Chart.Label(2) = "" .Chart.Label(16) = "<%m3%>" .Chart.LabelToolTip(16) = "Tooltip: <%mmmm%>" .Chart.Zoom({^2007-1-1},{^2008-1-1}) .Chart.FirstVisibleDate = {^2007-1-1} endwith
411. How do I specify the prodefined labels being displayed on the chart, when Zoom method is used
with thisform.Gantt1 .Chart.PaneWidth(0) = 0 .Chart.LevelCount = 2 .Chart.Label(1) = "" .Chart.Label(2) = "" .Chart.Label(16) = "<%m3%>" .Chart.Zoom({^2007-1-1},{^2008-1-1}) .Chart.FirstVisibleDate = {^2007-1-1} endwith
410. How do I scale or zoom the chart to a specified range of date
with thisform.Gantt1 .Chart.PaneWidth(0) = 0 .Chart.LevelCount = 2 .Chart.Label(1) = "" .Chart.Label(2) = "" .Chart.Label(16) = "<%m3%>" .Chart.Zoom({^2007-1-1},{^2008-1-1}) .Chart.FirstVisibleDate = {^2007-1-1} endwith
409. How do I scale or zoom the chart to a specified range of date
with thisform.Gantt1 .Chart.PaneWidth(0) = 0 .Chart.LevelCount = 2 .Chart.Zoom({^2007-1-1},{^2007-7-1}) .Chart.FirstVisibleDate = {^2007-1-1} endwith
408. How do I find the next date or previous date
with thisform.Gantt1 with .Chart .FirstVisibleDate = .NextDate({^2002-1-1},4096,1) endwith endwith
407. How can I change the color for the grid lines in the chart
with thisform.Gantt1 .Chart.DrawGridLines = -1 .Chart.LevelCount = 2 with .Chart.Level(1) .DrawGridLines = .T. .GridLineColor = RGB(255,0,0) endwith endwith
406. How can I draw, show or hide the grid lines in the chart
with thisform.Gantt1 .Chart.DrawGridLines = -1 .Chart.LevelCount = 2 .Chart.Level(1).DrawGridLines = .T. endwith
405. How do I change the color to highlight the today in the chart
with thisform.Gantt1 .Chart.MarkTodayColor = RGB(255,0,0) endwith
404. How do I hide or stop highlighting the today area in the chart
with thisform.Gantt1 .Chart.BackColor = RGB(255,255,255) .Chart.MarkTodayColor = RGB(255,255,255) endwith
403. Is there any function to get the date in the format that I use for levels, to layout my chart's header
with thisform.Gantt1 h = .Chart.FormatDate({^2002-1-1},"<%yyyy%> <%mmmm%> <%d%> <%dddd%>") .Columns.Add(h) endwith
402. How can I get the date from the point, cursor
*** MouseMove event - Occurs when the user moves the mouse. *** LPARAMETERS Button,Shift,X,Y with thisform.Gantt1 DEBUGOUT( .Chart.DateFromPoint(-1,-1) ) endwith
401. How can I show or hide the small ticker that shows up when the cursor hovers the chart area
with thisform.Gantt1 .Chart.DrawDateTicker = .F. endwith
400. How can I change the first visible date in the chart
with thisform.Gantt1 .Chart.LevelCount = 2 .Chart.FirstVisibleDate = {^2002-1-1} endwith
399. How can I scroll or ensure that a specified date time is visible in the chart
with thisform.Gantt1 .Chart.LevelCount = 2 .Chart.FirstVisibleDate = {^2002-1-1} endwith
398. How can I scroll or ensure that a specified date time is visible to the right side of the chart or control
with thisform.Gantt1 .Chart.LevelCount = 2 .Chart.ScrollTo({^2002-1-1},2) endwith
397. How can I scroll or ensure that a specified date time is visible
with thisform.Gantt1 .Chart.LevelCount = 2 .Chart.ScrollTo({^2002-1-1},2) endwith
396. How can I show or hide the the tooltip being shown when the user scrolls the chart
with thisform.Gantt1 .Chart.ToolTip = "" endwith
395. How can I change the format of the tooltip when the user scrolls the chart
with thisform.Gantt1 .Chart.ToolTip = "ToolTip: <b><%dddd%></b>" endwith
394. How can I hide the chart's scroll bar
with thisform.Gantt1 .Chart.ScrollBar = .F. endwith
393. How can I specify the first day of the week
with thisform.Gantt1 .Chart.LevelCount = 2 .Chart.FirstWeekDay = 1 endwith
392. How do I change the AM or PM shortcuts in the chart's header
with thisform.Gantt1 .Chart.UnitWidth = 64 .Chart.AMPM = "A P" with .Chart.Level(0) .Label = "<%h%> <%AM/PM%>" .Unit = 65536 endwith endwith
391. How do I change the name for the months, being displayed in the chart's header
with thisform.Gantt1 .Chart.UnitWidth = 64 var_s = "Ianuarie Februarie Martie Aprilie Mai Iunie Iulie August Septembrie Octombrie Noiembrie Decembri" var_s = var_s + "e" .Chart.MonthNames = var_s with .Chart.Level(0) .Label = "<b><%mmmm%></b>" .Unit = 16 endwith endwith
390. How do I change the name for the week days, being displayed in the chart's header
with thisform.Gantt1 .Chart.UnitWidth = 64 .Chart.WeekDays = "Duminica Luni Marti Miercuri Joi Vineri Simbata" .Chart.Level(0).Label = "<b><%mm%></b>/<%dddd%>" endwith
389. How do I access a level in the chart's header
with thisform.Gantt1 .Chart.UnitWidth = 64 .Chart.Level(0).Label = "<b><%mm%></b>/<%dd%>" endwith
388. How can I change the color for the grid lines between the leves in the chart's header
with thisform.Gantt1 .GridLineColor = RGB(255,0,0) .Chart.LevelCount = 2 endwith
387. How can I show or hide the grid lines between the leves in the chart's header
with thisform.Gantt1 .GridLineColor = RGB(255,0,0) with .Chart .LevelCount = 2 .Level(0).DrawTickLines = .F. .Level(1).DrawTickLines = .F. endwith endwith
386. How do I change the foreground color for the chart's header
with thisform.Gantt1 .Chart.ForeColorLevelHeader = RGB(255,0,0) endwith
385. How do I change the background color for the chart's header
with thisform.Gantt1 .Chart.BackColorLevelHeader = RGB(255,0,0) endwith
384. How do I specify the chart's foreground color
with thisform.Gantt1 .Chart.ForeColor = RGB(255,0,0) endwith
383. How do I specify the chart's background color
with thisform.Gantt1 .Chart.BackColor = RGB(255,0,0) endwith
382. How do I put a picture on the center of the chart
with thisform.Gantt1 .Chart.Picture = thisform.Gantt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .Chart.PictureDisplay = 17 endwith
381. How do I resize/stretch a picture on the chart's background
with thisform.Gantt1 .Chart.Picture = thisform.Gantt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .Chart.PictureDisplay = 49 endwith
380. How do I put a picture on the chart's center right bottom side
with thisform.Gantt1 .Chart.Picture = thisform.Gantt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .Chart.PictureDisplay = 34 endwith
379. How do I put a picture on the chart's center left bottom side
with thisform.Gantt1 .Chart.Picture = thisform.Gantt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .Chart.PictureDisplay = 32 endwith
378. How do I put a picture on the chart's center top side
with thisform.Gantt1 .Chart.Picture = thisform.Gantt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .Chart.PictureDisplay = 1 endwith
377. How do I put a picture on the chart's right top corner
with thisform.Gantt1 .Chart.Picture = thisform.Gantt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .Chart.PictureDisplay = 2 endwith
376. How do I put a picture on the chart's left top corner
with thisform.Gantt1 .Chart.Picture = thisform.Gantt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .Chart.PictureDisplay = 0 endwith
375. How do I put a picture on the chart's background
with thisform.Gantt1 .Chart.Picture = thisform.Gantt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") endwith
374. How to specify the width for the left or side pane
with thisform.Gantt1 .Chart.PaneWidth(0) = 128 endwith
373. How do I display the header of the chart using multiple levels, lines
with thisform.Gantt1 .Chart.LevelCount = 2 endwith
372. How do change the width of the chart's area
with thisform.Gantt1 .Chart.PaneWidth(1) = 256 endwith
371. How do I show or hide the control's chart area
with thisform.Gantt1 .Chart.PaneWidth(1) = 0 endwith
370. How do I access the chart's area of the control
with thisform.Gantt1 .Chart.PaneWidth(0) = 64 endwith
369. How do I change the control's border, using your EBN files
with thisform.Gantt1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Appearance = 16777216 endwith
368. Can I change the default border of the tooltip, using your EBN files
with thisform.Gantt1 .ToolTipDelay = 1 .ToolTipWidth = 364 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Object.Background(64) = 0x1000000 .Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column" endwith
367. Can I change the background color for the tooltip
with thisform.Gantt1 .ToolTipDelay = 1 .ToolTipWidth = 364 .Object.Background(65) = RGB(255,0,0) .Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column" endwith
366. Does the tooltip support HTML format
with thisform.Gantt1 .ToolTipDelay = 1 .ToolTipWidth = 364 var_s = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>column</fgco" var_s = var_s + "lor>" .Columns.Add("tootip").ToolTip = var_s endwith
365. Can I change the forecolor for the tooltip
with thisform.Gantt1 .ToolTipDelay = 1 .ToolTipWidth = 364 .Object.Background(66) = RGB(255,0,0) .Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column" endwith
364. Can I change the foreground color for the tooltip
with thisform.Gantt1 .ToolTipDelay = 1 .ToolTipWidth = 364 .Columns.Add("tootip").ToolTip = "<fgcolor=FF0000>this is a tooltip assigned to a column</fgcolor>" endwith
363. How can I merge cells
with thisform.Gantt1 .DrawGridLines = -1 .MarkSearchColumn = .F. .Columns.Add("C1") .Columns.Add("C2") .Columns.Add("C3") with .Items h = .AddItem("this cell merges the first two columns") .DefaultItem = h .CellMerge(0,0) = 1 h = .AddItem() .DefaultItem = h .CellCaption(0,1) = "this cell merges the last two columns" .DefaultItem = h .CellMerge(0,1) = 2 h = .AddItem("this cell merges the all three columns") .DefaultItem = h .CellMerge(0,0) = 1 .DefaultItem = h .CellMerge(0,0) = 2 h = .AddItem("this draws a divider item") .DefaultItem = h .ItemDivider(0) = 0 endwith endwith
362. How can I merge cells
with thisform.Gantt1 .MarkSearchColumn = .F. .TreeColumnIndex = -1 .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h var_s = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple" var_s = var_s + " lines." .CellCaption(0,1) = var_s .DefaultItem = h .CellSingleLine(0,1) = .F. h = .AddItem("This is bit of text merges all cells in the item") .DefaultItem = h .ItemDivider(0) = 0 .DefaultItem = h .CellHAlignment(0,0) = 1 endwith endwith
361. How can I specify the width for a splited cell
with thisform.Gantt1 .DrawGridLines = -2 .Columns.Add("Single Column") with .Items h = .AddItem("Split 1") s = .SplitCell(h,0) .CellWidth(0,s) = 64 .CellCaption(0,s) = "Split 2" s1 = .SplitCell(0,s) .CellCaption(0,s1) = "Split 3" .CellWidth(0,s1) = 64 endwith endwith
360. How can I split a cell in three parts
with thisform.Gantt1 .DrawGridLines = -2 .Columns.Add("Single Column") with .Items h = .AddItem("Split 1") s = .SplitCell(h,0) .CellCaption(0,s) = "Split 2" s1 = .SplitCell(0,s) .CellCaption(0,s1) = "Split 3" endwith endwith
359. How can I add a button aligned to right
with thisform.Gantt1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Columns.Add("Single Column") .ShowFocusRect = .F. with .Items .DefaultItem = .AddItem("This is a bit of text being displayed on the entire item") .ItemDivider(0) = 0 s = .SplitCell(.AddItem("Split Cell 1.1"),0) .CellCaption(0,s) = "Split Cell <img>1</img>" .CellCaptionFormat(0,s) = 1 .CellHAlignment(0,s) = 1 .CellHasButton(0,s) = 16777216 .CellWidth(0,s) = 84 endwith endwith
358. How can I split a cell
with thisform.Gantt1 .DrawGridLines = -2 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Columns.Add("Single Column") .ShowFocusRect = .F. with .Items s = .SplitCell(.AddItem("Split Cell 1.1"),0) .CellCaption(0,s) = "Split Cell <img>1</img>" .CellCaptionFormat(0,s) = 1 .CellHAlignment(0,s) = 1 .CellBackColor(0,s) = 0x1000000 .CellWidth(0,s) = 84 endwith endwith
357. Can I select an item giving its general position
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. .SelectPos = 1 endwith endwith
356. How can I change the color for separator / dividers items
with thisform.Gantt1 .GridLineColor = RGB(255,0,0) .MarkSearchColumn = .F. .TreeColumnIndex = -1 .ScrollBySingleLine = .F. .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h var_s = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple" var_s = var_s + " lines." .CellCaption(0,1) = var_s .DefaultItem = h .CellSingleLine(0,1) = .F. h = .AddItem() .DefaultItem = h .ItemDivider(0) = 0 .DefaultItem = h .ItemDividerLine(0) = 4 .DefaultItem = h .ItemDividerLineAlignment(0) = 1 .DefaultItem = h .ItemHeight(0) = 6 .DefaultItem = h .SelectableItem(0) = .F. h = .AddItem("Cell 2") .DefaultItem = h var_s1 = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple" var_s1 = var_s1 + " lines." .CellCaption(0,1) = var_s1 .DefaultItem = h .CellSingleLine(0,1) = .F. endwith endwith
355. How can I add separator - dividers items
with thisform.Gantt1 .MarkSearchColumn = .F. .TreeColumnIndex = -1 .ScrollBySingleLine = .F. .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h var_s = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple" var_s = var_s + " lines." .CellCaption(0,1) = var_s .DefaultItem = h .CellSingleLine(0,1) = .F. h = .AddItem() .DefaultItem = h .ItemDivider(0) = 0 .DefaultItem = h .ItemDividerLine(0) = 4 .DefaultItem = h .ItemDividerLineAlignment(0) = 1 .DefaultItem = h .ItemHeight(0) = 6 .DefaultItem = h .SelectableItem(0) = .F. h = .AddItem("Cell 2") .DefaultItem = h var_s1 = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple" var_s1 = var_s1 + " lines." .CellCaption(0,1) = var_s1 .DefaultItem = h .CellSingleLine(0,1) = .F. endwith endwith
354. Can I change the style of the line being displayed by a divider item
with thisform.Gantt1 .MarkSearchColumn = .F. .TreeColumnIndex = -1 .ScrollBySingleLine = .F. .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h var_s = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple" var_s = var_s + " lines." .CellCaption(0,1) = var_s .DefaultItem = h .CellSingleLine(0,1) = .F. h = .AddItem("This is bit of text that's displayed on the entire item, divider.") .DefaultItem = h .ItemDivider(0) = 0 .DefaultItem = h .ItemDividerLine(0) = 4 .DefaultItem = h .CellHAlignment(0,0) = 1 .DefaultItem = h .ItemHeight(0) = 24 endwith endwith
353. Can I remove the line being displayed by a divider item
with thisform.Gantt1 .MarkSearchColumn = .F. .TreeColumnIndex = -1 .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h var_s = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple" var_s = var_s + " lines." .CellCaption(0,1) = var_s .DefaultItem = h .CellSingleLine(0,1) = .F. h = .AddItem("This is bit of text that's displayed on the entire item, divider.") .DefaultItem = h .ItemDivider(0) = 0 .DefaultItem = h .ItemDividerLine(0) = 0 .DefaultItem = h .CellHAlignment(0,0) = 1 endwith endwith
352. How can I display a divider item, merging all cells
with thisform.Gantt1 .MarkSearchColumn = .F. .TreeColumnIndex = -1 .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h var_s = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple" var_s = var_s + " lines." .CellCaption(0,1) = var_s .DefaultItem = h .CellSingleLine(0,1) = .F. h = .AddItem("This is bit of text that's displayed on the entire item, divider.") .DefaultItem = h .ItemDivider(0) = 0 .DefaultItem = h .CellHAlignment(0,0) = 1 endwith endwith
351. How can I fix or lock items
with thisform.Gantt1 .Columns.Add("Default") with .Items .LockedItemCount(0) = 1 .DefaultItem = .LockedItem(0,0) .CellCaption(0,0) = "This is a locked item, fixed to the top side of the control." .DefaultItem = .LockedItem(0,0) .ItemBackColor(0) = RGB(196,196,186) .LockedItemCount(2) = 2 .DefaultItem = .LockedItem(2,0) .CellCaption(0,0) = "This is a locked item, fixed to the top side of the control." .DefaultItem = .LockedItem(2,0) .ItemBackColor(0) = RGB(196,196,186) .DefaultItem = .LockedItem(2,1) .CellCaption(0,0) = "This is a locked item, fixed to the top side of the control." .DefaultItem = .LockedItem(2,1) .ItemBackColor(0) = RGB(186,186,186) endwith endwith
350. How can I fix or lock an item on the bottom side of the control
with thisform.Gantt1 .Columns.Add("Default") with .Items .LockedItemCount(2) = 1 .DefaultItem = .LockedItem(2,0) .CellCaption(0,0) = "This is a locked item, fixed to the bottom side of the control." h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
349. How can I fix or lock an item on the top of the control
with thisform.Gantt1 .Columns.Add("Default") with .Items .LockedItemCount(0) = 1 .DefaultItem = .LockedItem(0,0) .CellCaption(0,0) = "This is a locked item, fixed to the top side of the control." h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
348. Is there any function to limit the height of the items when I display it using multiple lines
with thisform.Gantt1 .ScrollBySingleLine = .T. .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h var_s = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple" var_s = var_s + " lines." .CellCaption(0,1) = var_s .DefaultItem = h .CellSingleLine(0,1) = .F. .DefaultItem = h .ItemMaxHeight(0) = 48 endwith endwith
347. Why I cannot center my cells in the column
with thisform.Gantt1 .TreeColumnIndex = -1 .DrawGridLines = -2 .Columns.Add("Default").Alignment = 1 .Items.AddItem("item 1") .Items.AddItem("item 2") .Items.AddItem("item 3") endwith
346. How can I align the cell to the left, center or to the right
with thisform.Gantt1 .TreeColumnIndex = -1 .DrawGridLines = -2 .Columns.Add("Default") with .Items .DefaultItem = .AddItem("left") .CellHAlignment(0,0) = 0 .DefaultItem = .AddItem("center") .CellHAlignment(0,0) = 1 .DefaultItem = .AddItem("right") .CellHAlignment(0,0) = 2 endwith endwith
345. How do I apply HTML format to a cell
with thisform.Gantt1 .TreeColumnIndex = -1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Object.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif" .Object.HTMLPicture("p2") = "c:\exontrol\images\auction.gif" .Columns.Add("Default") with .Items h = .AddItem("The following item shows some of the HTML format supported:") .DefaultItem = h .CellHAlignment(0,0) = 1 var_s1 = "<br>text icons <img>1</img>, <img>2</img>, ... pictures <img>p1</img>, <img>p2</img> <br><br>tex" var_s1 = var_s1 + "t <b>bold</b>, <i>italic</i>, <u>underline</u>, <s>strikeout</s>, ...<br><dotline>and so on...<b" var_s1 = var_s1 + "r> <a>anchor</a> or <a2>hyperlink</a><br><fgcolor=FF0000>fgcolor</fgcolor> or <bgcolor=00FF00>bg" var_s1 = var_s1 + "color</bgcolor> " h = .AddItem(var_s1) .DefaultItem = h .CellCaptionFormat(0,0) = 1 .DefaultItem = h .CellSingleLine(0,0) = .F. endwith endwith
344. How can I change the font for a cell
with thisform.Gantt1 .Columns.Add("Default") .Items.AddItem("std font") with .Items .DefaultItem = .AddItem("this <font tahoma;12>is a bit of text with</font> a different font") .CellCaptionFormat(0,0) = 1 endwith endwith
343. How can I change the font for a cell
with thisform.Gantt1 .Columns.Add("Default") .Items.AddItem("default font") f = CreateObject("StdFont") with f .Name = "Tahoma" .Size = 12 endwith with .Items .DefaultItem = .AddItem("new font") .CellFont(0,0) = f endwith endwith
342. How can I change the font for entire item
with thisform.Gantt1 .Columns.Add("Default") .Items.AddItem("default font") f = CreateObject("StdFont") with f .Name = "Tahoma" .Size = 12 endwith with .Items .DefaultItem = .AddItem("new font") .ItemFont(0) = f endwith endwith
341. How do I vertically align a cell
with thisform.Gantt1 .DrawGridLines = -2 .Columns.Add("MultipleLine").Def(16) = .F. .Columns.Add("VAlign") with .Items h = .AddItem("This is a bit of long text that should break the line") .DefaultItem = h .CellCaption(0,1) = "top" .DefaultItem = h .CellVAlignment(0,1) = 0 h = .AddItem("This is a bit of long text that should break the line") .DefaultItem = h .CellCaption(0,1) = "middle" .DefaultItem = h .CellVAlignment(0,1) = 1 h = .AddItem("This is a bit of long text that should break the line") .DefaultItem = h .CellCaption(0,1) = "bottom" .DefaultItem = h .CellVAlignment(0,1) = 2 endwith endwith
340. How can I change the position of an item
with thisform.Gantt1 .Columns.Add("Default") with .Items .AddItem("Item 1") .AddItem("Item 2") .DefaultItem = .AddItem("Item 3") .ItemPosition(0) = 0 endwith endwith
339. How do I find an item based on a path
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .DefaultItem = .InsertItem(h,0,"Child 2") .ItemData(0) = 1234 .DefaultItem = h .ExpandItem(0) = .T. .DefaultItem = .FindPath("Root 1\Child 1") .ItemBold(0) = .T. endwith endwith
338. How do I find an item based on my extra data
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .DefaultItem = .InsertItem(h,0,"Child 2") .ItemData(0) = 1234 .DefaultItem = h .ExpandItem(0) = .T. .DefaultItem = .FindItemData(1234) .ItemBold(0) = .T. endwith endwith
337. How do I find an item
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. .DefaultItem = .FindItem("Child 2",0) .ItemBold(0) = .T. endwith endwith
336. How can I insert a hyperlink or an anchor element
with thisform.Gantt1 .Columns.Add("Column") with .Items .DefaultItem = .AddItem("Just an <a1>anchor</a> element ...") .CellCaptionFormat(0,0) = 1 endwith with .Items .DefaultItem = .AddItem("Just another <a2>anchor</a> element ...") .CellCaptionFormat(0,0) = 1 endwith endwith
335. How do I find the index of the item based on its handle
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. .DefaultItem = .ItemByIndex(.ItemToIndex(h)) .ItemBold(0) = .T. endwith endwith
334. How do I find the handle of the item based on its index
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. .DefaultItem = .ItemByIndex(1) .ItemBold(0) = .T. endwith endwith
333. How can I find the cell being clicked in a radio group
with thisform.Gantt1 .MarkSearchColumn = .F. .SelBackColor = RGB(255,255,128) .SelForeColor = RGB(0,0,0) .Columns.Add("C1") .Columns.Add("C2") .Columns.Add("C3") with .Items h = .AddItem("Cell 1") .DefaultItem = h .CellCaption(0,1) = "Radio 1" .DefaultItem = h .CellHasRadioButton(0,1) = .T. .DefaultItem = h .CellRadioGroup(0,1) = 1234 .DefaultItem = h .CellCaption(0,2) = "Radio 2" .DefaultItem = h .CellHasRadioButton(0,2) = .T. .DefaultItem = h .CellRadioGroup(0,2) = 1234 .DefaultItem = h .CellState(0,1) = 1 .CellBold(0,.CellChecked(1234)) = .T. endwith endwith
332. Can I add a +/- ( expand / collapse ) buttons to each item, so I can load the child items later
with thisform.Gantt1 .LinesAtRoot = -1 .Columns.Add("Default") with .Items .DefaultItem = .AddItem("parent item with no child items") .ItemHasChildren(0) = .T. .AddItem("next item") endwith endwith
331. Can I let the user to resize at runtime the specified item
with thisform.Gantt1 .ScrollBySingleLine = .T. .DrawGridLines = -2 .Columns.Add("Default") with .Items .DefaultItem = .AddItem("resizable item") .ItemAllowSizing(0) = .T. .AddItem("not resizable item") endwith endwith
330. How can I change the size ( width, height ) of the picture
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .DefaultItem = h .CellPicture(0,0) = thisform.Gantt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .DefaultItem = h .CellPictureWidth(0,0) = 24 .DefaultItem = h .CellPictureHeight(0,0) = 24 .DefaultItem = h .ItemHeight(0) = 32 h = .AddItem("Root 2") .DefaultItem = h .CellPicture(0,0) = thisform.Gantt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .DefaultItem = h .ItemHeight(0) = 48 endwith endwith
329. How can I find the number or the count of selected items
with thisform.Gantt1 .SingleSel = .F. .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. .DefaultItem = .ItemChild(h) .SelectItem(0) = .T. .DefaultItem = .NextSiblingItem(.ItemChild(h)) .SelectItem(0) = .T. .AddItem(.SelectCount) endwith endwith
328. How do I unselect an item
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. .DefaultItem = h .SelectItem(0) = .F. endwith endwith
327. How do I find the selected item
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. .DefaultItem = h .SelectItem(0) = .T. .DefaultItem = .SelectedItem(0) .ItemBold(0) = .T. endwith endwith
326. How do I un select all items
with thisform.Gantt1 .SingleSel = .F. .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. .UnselectAll endwith endwith
325. How do I select multiple items
with thisform.Gantt1 .SingleSel = .F. .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. .DefaultItem = .ItemChild(h) .SelectItem(0) = .T. .DefaultItem = .NextSiblingItem(.ItemChild(h)) .SelectItem(0) = .T. endwith endwith
324. How do I select all items
with thisform.Gantt1 .SingleSel = .F. .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. .SelectAll endwith endwith
323. How do I select an item
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. .DefaultItem = h .SelectItem(0) = .T. endwith endwith
322. Can I display a button with some picture or icon inside
with thisform.Gantt1 .Object.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif" .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h .CellCaption(0,1) = " Button <img>p1</img> " .DefaultItem = h .CellCaptionFormat(0,1) = 1 .DefaultItem = h .CellHAlignment(0,1) = 2 .DefaultItem = h .CellHasButton(0,1) = .T. .DefaultItem = h .CellButtonAutoWidth(0,1) = .T. .DefaultItem = h .ItemHeight(0) = 48 endwith endwith
321. Can I display a button with some picture or icon inside
with thisform.Gantt1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h .CellCaption(0,1) = " Button <img>1</img> " .DefaultItem = h .CellCaptionFormat(0,1) = 1 .DefaultItem = h .CellHAlignment(0,1) = 2 .DefaultItem = h .CellHasButton(0,1) = .T. .DefaultItem = h .CellButtonAutoWidth(0,1) = .T. endwith endwith
320. Can I display a button with some icon inside
with thisform.Gantt1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h .CellCaption(0,1) = " <img>1</img> " .DefaultItem = h .CellCaptionFormat(0,1) = 1 .DefaultItem = h .CellHAlignment(0,1) = 2 .DefaultItem = h .CellHasButton(0,1) = .T. .DefaultItem = h .CellButtonAutoWidth(0,1) = .T. endwith endwith
319. How can I assign multiple icon/picture to a cell
with thisform.Gantt1 .Object.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif" .Object.HTMLPicture("p2") = "c:\exontrol\images\auction.gif" .Columns.Add("Default") with .Items h = .AddItem("text <img>p1</img> another picture <img>p2</img> and so on") .DefaultItem = h .CellCaptionFormat(0,0) = 1 .DefaultItem = h .CellPicture(0,0) = thisform.Gantt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)") .DefaultItem = h .ItemHeight(0) = 48 .AddItem("Root 2") endwith endwith
318. How can I assign an icon/picture to a cell
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .DefaultItem = h .CellPicture(0,0) = thisform.Gantt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .DefaultItem = h .ItemHeight(0) = 48 .AddItem("Root 2") endwith endwith
317. How can I assign multiple icons/pictures to a cell
with thisform.Gantt1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Columns.Add("Default") with .Items h = .AddItem("Root <img>1</img> 1, <img>2</img>, ... and so on ") .DefaultItem = h .CellCaptionFormat(0,0) = 1 endwith endwith
316. How can I assign multiple icons/pictures to a cell
with thisform.Gantt1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Columns.Add("Default") with .Items h = .AddItem("Root 1") .DefaultItem = h .CellImages(0,0) = "1,2,3" endwith endwith
315. How can I assign an icon/picture to a cell
with thisform.Gantt1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Columns.Add("Default") with .Items h = .AddItem("Root 1") .DefaultItem = h .CellImage(0,0) = 1 .DefaultItem = .InsertItem(h,0,"Child 1") .CellImage(0,0) = 2 .DefaultItem = .InsertItem(h,0,"Child 2") .CellImage(0,0) = 3 .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
314. How can I get the handle of an item based on the handle of the cell
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. .DefaultItem = .CellItem(.ItemCell(h,0)) .ItemBold(0) = .T. endwith endwith
313. How can I display a button inside the item or cell
with thisform.Gantt1 .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h .CellCaption(0,1) = " Button 1 " .DefaultItem = h .CellHAlignment(0,1) = 2 .DefaultItem = h .CellHasButton(0,1) = .T. .DefaultItem = h .CellButtonAutoWidth(0,1) = .T. h = .AddItem("Cell 2") .DefaultItem = h .CellCaption(0,1) = " Button 2 " .DefaultItem = h .CellHAlignment(0,1) = 1 .DefaultItem = h .CellHasButton(0,1) = .T. endwith endwith
312. How can I change the state of a radio button
with thisform.Gantt1 .MarkSearchColumn = .F. .SelBackColor = RGB(255,255,128) .SelForeColor = RGB(0,0,0) .Columns.Add("C1") .Columns.Add("C2") .Columns.Add("C3") with .Items h = .AddItem("Cell 1") .DefaultItem = h .CellCaption(0,1) = "Radio 1" .DefaultItem = h .CellHasRadioButton(0,1) = .T. .DefaultItem = h .CellRadioGroup(0,1) = 1234 .DefaultItem = h .CellCaption(0,2) = "Radio 2" .DefaultItem = h .CellHasRadioButton(0,2) = .T. .DefaultItem = h .CellRadioGroup(0,2) = 1234 .DefaultItem = h .CellState(0,1) = 1 endwith endwith
311. How can I assign a radio button to a cell
with thisform.Gantt1 .MarkSearchColumn = .F. .SelBackColor = RGB(255,255,128) .SelForeColor = RGB(0,0,0) .Columns.Add("C1") .Columns.Add("C2") .Columns.Add("C3") with .Items h = .AddItem("Cell 1") .DefaultItem = h .CellCaption(0,1) = "Radio 1" .DefaultItem = h .CellHasRadioButton(0,1) = .T. .DefaultItem = h .CellRadioGroup(0,1) = 1234 .DefaultItem = h .CellCaption(0,2) = "Radio 2" .DefaultItem = h .CellHasRadioButton(0,2) = .T. .DefaultItem = h .CellRadioGroup(0,2) = 1234 .DefaultItem = h .CellState(0,1) = 1 endwith endwith
310. How can I change the state of a checkbox
with thisform.Gantt1 .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h .CellCaption(0,1) = "Check Box" .DefaultItem = h .CellHasCheckBox(0,1) = .T. .DefaultItem = h .CellState(0,1) = 1 endwith endwith
309. How can I assign a checkbox to a cell
with thisform.Gantt1 .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h .CellCaption(0,1) = "Check Box" .DefaultItem = h .CellHasCheckBox(0,1) = .T. endwith endwith
308. How can I display an item or a cell on multiple lines
with thisform.Gantt1 .ScrollBySingleLine = .T. .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h .CellCaption(0,1) = "This is bit of text that's shown on multiple lines" .DefaultItem = h .CellSingleLine(0,1) = .F. endwith endwith
307. How can I assign a tooltip to a cell
with thisform.Gantt1 .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h .CellCaption(0,1) = "tooltip" .DefaultItem = h .CellToolTip(0,1) = "This is bit of text that's shown when the user hovers the cell" endwith endwith
306. How can I associate an extra data to a cell
with thisform.Gantt1 .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h .CellCaption(0,1) = "Cell 2" .DefaultItem = h .CellData(0,1) = "your extra data" endwith endwith
305. How do I enable or disable a cell
with thisform.Gantt1 .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h .CellCaption(0,1) = "Cell 2" .DefaultItem = h .CellEnabled(0,1) = .F. endwith endwith
304. How do I change the cell's foreground color
with thisform.Gantt1 .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h .CellCaption(0,1) = "Cell 2" .DefaultItem = h .CellForeColor(0,1) = RGB(255,0,0) endwith endwith
303. How do I change the visual effect for the cell, using your EBN files
with thisform.Gantt1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h .CellCaption(0,1) = "Cell 2" .DefaultItem = h .CellBackColor(0,1) = 0x1000000 endwith endwith
302. How do I change the cell's background color
with thisform.Gantt1 .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h .CellCaption(0,1) = "Cell 2" .DefaultItem = h .CellBackColor(0,1) = RGB(255,0,0) endwith endwith
301. How do I change the caption or value for a particular cell
with thisform.Gantt1 .Columns.Add("C1") .Columns.Add("C2") with .Items .DefaultItem = .AddItem("Cell 1") .CellCaption(0,1) = "Cell 2" endwith endwith
300. How do I get the handle of the cell
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. .CellBold(0,.ItemCell(h,0)) = .T. endwith endwith
299. How do I retrieve the focused item
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. .DefaultItem = .FocusItem .ItemBold(0) = .T. endwith endwith
298. How do I get the number or count of child items
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. .AddItem(.ChildCount(h)) endwith endwith
297. How do I enumerate the visible items
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2") .DefaultItem = .FirstVisibleItem .ItemBold(0) = .T. .DefaultItem = .NextVisibleItem(.FirstVisibleItem) .ItemBold(0) = .T. endwith endwith
296. How do I enumerate the siblings items
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2") .DefaultItem = .NextSiblingItem(.FirstVisibleItem) .ItemBold(0) = .T. .DefaultItem = .PrevSiblingItem(.NextSiblingItem(.FirstVisibleItem)) .ItemBold(0) = .T. endwith endwith
295. How do I get the parent item
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. .DefaultItem = .ItemParent(.ItemChild(h)) .ItemBold(0) = .T. endwith endwith
294. How do I get the first child item
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. .DefaultItem = .ItemChild(h) .ItemBold(0) = .T. endwith endwith
293. How do I enumerate the root items
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = .RootItem(0) .ItemBold(0) = .T. .DefaultItem = .RootItem(1) .ItemUnderline(0) = .T. endwith endwith
292. I have a hierarchy, how can I count the number of root items
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root 1") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. h = .AddItem("Root 2") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .AddItem(.RootCount) endwith endwith
291. How can I make an item unselectable, or not selectable
with thisform.Gantt1 .Columns.Add("Column") with .Items h = .AddItem("unselectable - you can't get selected") .DefaultItem = h .SelectableItem(0) = .F. .AddItem("selectable") endwith endwith
290. How can I hide or show an item
with thisform.Gantt1 .Columns.Add("Column") with .Items h = .AddItem("hidden") .DefaultItem = h .ItemHeight(0) = 0 .DefaultItem = h .SelectableItem(0) = .F. .AddItem("visible") endwith endwith
289. How can I change the height for all items
with thisform.Gantt1 .DefaultItemHeight = 32 .Columns.Add("Column") .Items.AddItem("One") .Items.AddItem("Two") endwith
288. How do I change the height of an item
with thisform.Gantt1 .ScrollBySingleLine = .T. .Columns.Add("Default") with .Items .DefaultItem = .AddItem("height") .ItemHeight(0) = 128 endwith .Items.AddItem("enabled") endwith
287. How do I disable or enable an item
with thisform.Gantt1 .Columns.Add("Default") with .Items .DefaultItem = .AddItem("disabled") .EnableItem(0) = .F. endwith .Items.AddItem("enabled") endwith
286. How do I display as strikeout a cell
with thisform.Gantt1 .Columns.Add("Default") with .Items .DefaultItem = .AddItem("strikeout") .CellStrikeOut(0,0) = .T. endwith endwith
285. How do I display as strikeout a cell or an item
with thisform.Gantt1 .Columns.Add("Default") with .Items .DefaultItem = .AddItem("gets <s>strikeout</s> only a portion of text") .CellCaptionFormat(0,0) = 1 endwith endwith
284. How do I display as strikeout an item
with thisform.Gantt1 .Columns.Add("Default") with .Items .DefaultItem = .AddItem("strikeout") .ItemStrikeOut(0) = .T. endwith endwith
283. How do I underline a cell
with thisform.Gantt1 .Columns.Add("Default") with .Items .DefaultItem = .AddItem("underline") .CellUnderline(0,0) = .T. endwith endwith
282. How do I underline a cell or an item
with thisform.Gantt1 .Columns.Add("Default") with .Items .DefaultItem = .AddItem("gets <u>underline</u> only a portion of text") .CellCaptionFormat(0,0) = 1 endwith endwith
281. How do I underline an item
with thisform.Gantt1 .Columns.Add("Default") with .Items .DefaultItem = .AddItem("underline") .ItemUnderline(0) = .T. endwith endwith
280. How do I display as italic a cell
with thisform.Gantt1 .Columns.Add("Default") with .Items .DefaultItem = .AddItem("italic") .CellItalic(0,0) = .T. endwith endwith
279. How do I display as italic a cell or an item
with thisform.Gantt1 .Columns.Add("Default") with .Items .DefaultItem = .AddItem("gets <i>italic</i> only a portion of text") .CellCaptionFormat(0,0) = 1 endwith endwith
278. How do I display as italic an item
with thisform.Gantt1 .Columns.Add("Default") with .Items .DefaultItem = .AddItem("italic") .ItemItalic(0) = .T. endwith endwith
277. How do I bold a cell
with thisform.Gantt1 .Columns.Add("Default") with .Items .DefaultItem = .AddItem("bold") .CellBold(0,0) = .T. endwith endwith
276. How do I bold a cell or an item
with thisform.Gantt1 .Columns.Add("Default") with .Items .DefaultItem = .AddItem("gets <b>bold</b> only a portion of text") .CellCaptionFormat(0,0) = 1 endwith endwith
275. How do I bold an item
with thisform.Gantt1 .Columns.Add("Default") with .Items .DefaultItem = .AddItem("bold") .ItemBold(0) = .T. endwith endwith
274. How do I change the foreground color for the item
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root") hC = .InsertItem(h,0,"Child 1") .DefaultItem = hC .ItemForeColor(0) = RGB(255,0,0) .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
273. How do I change the visual appearance for the item, using your EBN technology
with thisform.Gantt1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Columns.Add("Default") with .Items h = .AddItem("Root") hC = .InsertItem(h,0,"Child 1") .DefaultItem = hC .ItemBackColor(0) = 0x1000000 .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
272. How do I change the background color for the item
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root") hC = .InsertItem(h,0,"Child 1") .DefaultItem = hC .ItemBackColor(0) = RGB(255,0,0) .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
271. How do I expand or collapse an item
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
270. How do I associate an extra data to an item
with thisform.Gantt1 .Columns.Add("Default") with .Items .DefaultItem = .AddItem("item") .ItemData(0) = "your extra data" endwith endwith
269. How do I get the number or count of items
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. endwith .Items.AddItem(0.ItemCount) endwith
268. How can I specify the width of the ActiveX control, when using the InsertControlItem property
with thisform.Gantt1 .ScrollBySingleLine = .F. .TreeColumnIndex = 1 .DrawGridLines = -1 .Columns.Add("C1") .Columns.Add("C2") .Columns.Add("C3") with .Items h = .InsertControlItem(0,"MSCAL.Calendar") .DefaultItem = h .ItemWidth(0) = 128 .DefaultItem = h .CellCaption(0,0) = "This is a bit of text that is shown in the first column" .DefaultItem = h .CellSingleLine(0,0) = .F. .DefaultItem = h .CellCaption(0,2) = "This is a bit of text that is shown in the third column" .DefaultItem = h .CellSingleLine(0,2) = .F. endwith endwith
267. How can I put the ActiveX control in a different column, when using the InsertControlItem property
with thisform.Gantt1 .ScrollBySingleLine = .F. .DrawGridLines = -1 .Columns.Add("C1") .Columns.Add("C2") .Columns.Add("C3") with .Items h = .InsertControlItem(0,"MSCAL.Calendar") .DefaultItem = h .CellCaption(0,0) = "This is a bit of text that is shown in the first column" .DefaultItem = h .CellSingleLine(0,0) = .F. .DefaultItem = h .ItemWidth(0) = -32001 .DefaultItem = h .CellCaption(0,2) = "This is a bit of text that is shown in the third column" .DefaultItem = h .CellSingleLine(0,2) = .F. endwith endwith
266. Is there any function I can use to get the program or the control identifier I've been using when called the InsertControlItem
with thisform.Gantt1 .Columns.Add("Default") .ScrollBySingleLine = .F. .LinesAtRoot = -1 with .Items h = .InsertControlItem(0,"MSCAL.Calendar") .InsertItem(h,0,.ItemControlID(h)) .DefaultItem = h .ExpandItem(0) = .T. h = .InsertControlItem(0,"MSChart20Lib.MSChart") .DefaultItem = h .ItemAppearance(0) = 4 .InsertItem(h,0,.ItemControlID(h)) .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
265. How can I change the height of newly created ActiveX control, using the InsertControlItem
with thisform.Gantt1 .Columns.Add("Default") .ScrollBySingleLine = .F. with .Items .DefaultItem = .InsertControlItem(0,"MSCAL.Calendar") .ItemHeight(0) = 64 .DefaultItem = .InsertControlItem(0,"MSChart20Lib.MSChart") .ItemAppearance(0) = 4 endwith endwith
264. How can I change the border for newly created ActiveX control, using the InsertControlItem
with thisform.Gantt1 .Columns.Add("Default") .ScrollBySingleLine = .F. with .Items .DefaultItem = .InsertControlItem(0,"MSCAL.Calendar") .ItemAppearance(0) = 2 .DefaultItem = .InsertControlItem(0,"MSChart20Lib.MSChart") .ItemAppearance(0) = 4 endwith endwith
263. How can I access the properties and methods for an ActiveX control that I've just added using the InsertControlItem
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root") with .ItemObject(.InsertControlItem(h,"MSCAL.Calendar")) .BackColor = RGB(255,255,255) .GridCellEffect = 0 .ShowTitle = .F. .ShowDateSelectors = .F. endwith .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
262. How can I access the properties and methods for an ActiveX control that I've just added using the InsertControlItem
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root") with .ItemObject(.InsertControlItem(h,"MSCAL.Calendar")) .BackColor = RGB(255,255,255) endwith .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
261. How can I insert an ActiveX control
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root") .InsertControlItem(h,"MSCAL.Calendar") .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
260. How do I programmatically edit a cell
with thisform.Gantt1 .AllowEdit = .T. .Items.Edit(0.FocusItem,0) endwith
259. How can I change at runtime the parent of the item
with thisform.Gantt1 .LinesAtRoot = -1 .Columns.Add("Default") with .Items hP = .AddItem("Root") hC = .AddItem("Child") .SetParent(hC,hP) endwith endwith
258. How can I sort the items
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. endwith .Columns.Item("Default").SortOrder = 2 endwith
257. How do I sort the child items
with thisform.Gantt1 .Columns.Add("Default") with .Items h = .AddItem("Root") .InsertItem(h,0,"Child 1") .InsertItem(h,0,"Child 2") .DefaultItem = h .ExpandItem(0) = .T. .SortChildren(h,0,.F.) endwith endwith
256. How can I ensure or scroll the control so the item fits the control's client area
with thisform.Gantt1 .Columns.Add("Default") h = .Items.AddItem("item") .Items.EnsureVisibleItem(h) endwith
255. How can I remove or delete all items
with thisform.Gantt1 .Columns.Add("Default") .Items.AddItem("removed item") .Items.RemoveAllItems endwith
254. How can I remove or delete an item
with thisform.Gantt1 .Columns.Add("Default") h = .Items.AddItem("removed item") .Items.RemoveItem(h) endwith
253. How can I add or insert child items
with thisform.Gantt1 .LinesAtRoot = -1 .Columns.Add("C1") .Columns.Add("C2") with .Items h = .AddItem("Cell 1") .DefaultItem = h .CellCaption(0,1) = "Cell 2" .DefaultItem = .InsertItem(h,0,"Cell 3") .CellCaption(0,1) = "Cell 4" .DefaultItem = .InsertItem(h,0,"Cell 5") .CellCaption(0,1) = "Cell 6" .DefaultItem = h .ExpandItem(0) = .T. endwith endwith
252. How can I add or insert a child item
with thisform.Gantt1 .LinesAtRoot = -1 .Columns.Add("Default") with .Items .InsertItem(.AddItem("root"),0,"child") endwith endwith
251. How can I add or insert an item
with thisform.Gantt1 .Columns.Add("C1") .Columns.Add("C2") with .Items .DefaultItem = .AddItem("Cell 1") .CellCaption(0,1) = "Cell 2" h = .AddItem("Cell 3") .DefaultItem = h .CellCaption(0,1) = "Cell 4" endwith endwith
250. How can I add or insert an item
with thisform.Gantt1 .Columns.Add("Default") .Items.AddItem("new item") endwith
249. How can I get the columns as they are shown in the control's sortbar
with thisform.Gantt1 var_Object = .Columns.ItemBySortPosition(0) endwith
248. How can I access the properties of a column
with thisform.Gantt1 .Columns.Add("A") .Columns.Item("A").HeaderBold = .T. endwith
247. How can I remove all the columns
with thisform.Gantt1 .Columns.Clear endwith
246. How can I remove a column
with thisform.Gantt1 .Columns.Remove("A") endwith
245. How can I get the number or the count of columns
with thisform.Gantt1 var_Count = .Columns.Count endwith
244. How can I change the font for all cells in the entire column
with thisform.Gantt1
f = CreateObject("StdFont")
with f
.Name = "Tahoma"
.Size = 12
endwith
with .ConditionalFormats.Add("1")
.Font = f
.ApplyTo = 0
endwith
.Columns.Add("Column")
.Items.AddItem(0)
.Items.AddItem(1)
endwith
with thisform.Gantt1 var_ConditionalFormat = .ConditionalFormats.Add("1") with var_ConditionalFormat .BackColor = RGB(255,0,0) .ApplyTo = 0 endwith .Columns.Add("Column") .Items.AddItem(0) .Items.AddItem(1) endwith
242. How can I change the foreground color for all cells in the column
with thisform.Gantt1 var_ConditionalFormat = .ConditionalFormats.Add("1") with var_ConditionalFormat .ForeColor = RGB(255,0,0) .ApplyTo = 0 endwith .Columns.Add("Column") .Items.AddItem(0) .Items.AddItem(1) endwith
241. How can I show as strikeout all cells in the column
with thisform.Gantt1 var_ConditionalFormat = .ConditionalFormats.Add("1") with var_ConditionalFormat .StrikeOut = .T. .ApplyTo = 0 endwith .Columns.Add("Column") .Items.AddItem(0) .Items.AddItem(1) endwith
240. How can I underline all cells in the column
with thisform.Gantt1 var_ConditionalFormat = .ConditionalFormats.Add("1") with var_ConditionalFormat .Underline = .T. .ApplyTo = 0 endwith .Columns.Add("Column") .Items.AddItem(0) .Items.AddItem(1) endwith
239. How can I show in italic all data in the column
with thisform.Gantt1 var_ConditionalFormat = .ConditionalFormats.Add("1") with var_ConditionalFormat .Italic = .T. .ApplyTo = 0 endwith .Columns.Add("Column") .Items.AddItem(0) .Items.AddItem(1) endwith
238. How can I bold the entire column
with thisform.Gantt1 var_ConditionalFormat = .ConditionalFormats.Add("1") with var_ConditionalFormat .Bold = .T. .ApplyTo = 0 endwith .Columns.Add("Column") .Items.AddItem(0) .Items.AddItem(1) endwith
237. How can I display a computed column and highlight some values that are negative or less than a value
with thisform.Gantt1 .Columns.Add("A") .Columns.Add("B") .Columns.Add("(A+B)*1.19").ComputedField = "(%0 + %1) * 1.19" with .Items .DefaultItem = .AddItem(1) .CellCaption(0,1) = 2 endwith with .Items .DefaultItem = .AddItem(10) .CellCaption(0,1) = 20 endwith var_ConditionalFormat = .ConditionalFormats.Add("%2 > 10") with var_ConditionalFormat .Bold = .T. .ForeColor = RGB(255,0,0) .ApplyTo = 2 endwith endwith
236. Can I display a computed column so it displays the VAT, or SUM
with thisform.Gantt1 .Columns.Add("A") .Columns.Add("B") .Columns.Add("(A+B)*1.19").ComputedField = "(%0 + %1) * 1.19" with .Items .DefaultItem = .AddItem(1) .CellCaption(0,1) = 2 endwith with .Items .DefaultItem = .AddItem(10) .CellCaption(0,1) = 20 endwith endwith
235. How can I show a column that adds values in the cells
with thisform.Gantt1 .Columns.Add("A") .Columns.Add("B") .Columns.Add("A+B").ComputedField = "%0 + %1" with .Items .DefaultItem = .AddItem(1) .CellCaption(0,1) = 2 endwith with .Items .DefaultItem = .AddItem(10) .CellCaption(0,1) = 20 endwith endwith
234. Is there any function to filter the control's data as I type, so the items being displayed include the typed characters
with thisform.Gantt1 var_Column = .Columns.Add("Filter") with var_Column .FilterOnType = .T. .DisplayFilterButton = .T. .AutoSearch = 1 endwith .Items.AddItem("Canada") .Items.AddItem("USA") endwith
233. Is there any function to filter the control's data as I type, something like filter on type
with thisform.Gantt1 var_Column = .Columns.Add("Filter") with var_Column .FilterOnType = .T. .DisplayFilterButton = .T. endwith .Items.AddItem("Canada") .Items.AddItem("USA") endwith
232. How can I programmatically filter a column
with thisform.Gantt1 with .Columns.Add("Filter") .DisplayFilterButton = .T. .FilterType = 2 endwith .Items.AddItem() .Items.AddItem("not empty") .ApplyFilter endwith
231. How can I show or display the control's filter
with thisform.Gantt1 .Columns.Add("Filter").DisplayFilterButton = .T. endwith
230. How can I customize the items being displayed in the drop down filter window
with thisform.Gantt1 with .Columns.Add("Custom Filter") .DisplayFilterButton = .T. .DisplayFilterPattern = .F. var_s = "Excel Spreadsheets (*.xls )||*.xls|||Word Documents||*.doc|||Powerpoint Presentations||*.pps|||T" var_s = var_s + "ext Documents (*.log,*.txt)||*.txt|*.log" .CustomFilter = var_s .FilterType = 3 .Filter = "*.xls" endwith .Items.AddItem("excel.xls") .Items.AddItem("word.doc") .Items.AddItem("pp.pps") .Items.AddItem("text.txt") .ApplyFilter endwith
229. How can I change the order or the position of the columns in the sort bar
with thisform.Gantt1 .SortBarVisible = .T. .SortBarColumnWidth = 48 .Columns.Add("C1").SortOrder = 1 .Columns.