… aRect.Right = x + 1 aRect.Left = x – 1 aBrush = Module1.GetStockObject(7) aDummy = Module1.FrameRect(theHDC, aRect, aBrush) End If ‘Public Declare Function GetStockObject Lib… Continue reading
…this Gantt.Grid.TopLeftCell… Using the tree you go like this: Gantt.TreeView.TopItem… The MakeSureRowInView(theGantRow:TGantRow) looks for time items on this row and changes the time settings so that they show…. Continue reading
…the events that come into play are these: IphGantX3.OnOLEDrop IphGantX3.OnOLEDragOver IphGantX3.OnOLEDragLeave IphGantX3.OnOLEDragEnter You need to translate the DD-coordinates to local before you send them in to any Gantt specific function…. Continue reading
…theGant As phGantXControl.IphGantX, ByVal theDataEntity As phGantXControl.IphDataEntity_GantTime, ByVal theOldRow As phGantXControl.IGantRow, ByVal theNewRow As phGantXControl.IGantRow) Dim aList As IphDataList Set aList = theNewRow.DataLists.DataList(0) theDataEntity.ChangeOwner aList, End Sub… Continue reading
…add columns, one for each day of the week and for each column you set the IphDataEntity_SchemaColumn.OffsetDate… So if you choose to start from time zero (1899), Monday OffsetDate=0, Tuesday… Continue reading
Question Mouse pointer: does the Gantt have its own mouse pointer property e.g. IphGantX3.MousePointer = VBHourGlass? Answer In phGantTimePackage we call the mouse pointer for Cursor. These are the properties… Continue reading
…I must step backwards in order to avoid messing up indices Set aSchemaTime = layer.Items(ii) IF aSchemaTime.Col=aColumnIndexThatIWantToRemoveAllTimesFrom then phSchemaX1.RemoveSchemaTime(aSchemaTime) end if Next ii Next i… Continue reading
…not compiled it so please excuse any typos… if not (e.theObject is nothing) then dim col as IphDataEntity_SchemaTime set col=phSchemaX.Columns.Items(e.theObject.Col) Debug.WriteLine(col.Text) end if End Sub… Continue reading
…all rows and set the height to each one. This code doubles the row height on the selected row: if phGantX1.CurrentDataEntityTree<>nil then begin y:=(phGantX1.CurrentDataEntityTree as IphDataEntity_Tree2).GridRowIndex; phGantX1.SetRowHeightGrid(y,phGantX1.GetRowHeightGrid(y)*2); end;… Continue reading
…problem, and you are doing the right thing setting the tsUser… The only known explenation to this is if you are in FoxPro; check the issues described in this article http://plexityhide.dyndns.org/InstantKB13/Article.aspx?id=10193… Continue reading