Question

Is it possible to make in the same TimeItem 2 different colors or shapes? Example to indicate the 25% completed?

Answer

You can do this with user draw, and implement any custom drawing of a time item;

Below is samples that show user draw for both phGantTimePackage and GTP.NET

In the phGantTimePackage you can use this code:

aGantTime.Style = tsUser ‘ Must be tsUser for the OnUserDrawTime to fire

< ?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> 

Private Sub phGantX1_OnUserDrawTime(ByVal theGant As phGantXControl.IphGantX, ByVal theDataEntity As phGantXControl.IphDataEntity_GantTime, ByVal theHDC As Long, ByVal Left As Long, ByVal Top As Long, ByVal Right As Long, ByVal Bottom As Long)

    Dim aRect As Module1.RECT

    aRect.Bottom = Bottom

    aRect.Top = Top

    aRect.Right = Right

    aRect.Left = Left

    aBrush = Module1.CreateHatchBrush(4, ColorConstants.vbGreen)

    aDummy = Module1.FillRect(theHDC, aRect, aBrush)

    DeleteObject (aBrush)

    aBrush = Module1.CreateHatchBrush(4, ColorConstants.vbBlack)

    aDummy = Module1.FrameRect(theHDC, aRect, aBrush)

    DeleteObject (aBrush)

    ‘ you can draw stuff here

End Sub

In GTP.NET you can use this code:

      ti.TimeItemLayout.TimeItemStyle=TimeItemStyle.User; // Must be TimeItemStyle.User for OnTimeItem_UserDraw to fire

      private void gantt1_OnTimeItem_UserDraw(PlexityHide.GTP.Gantt aGantt, PlexityHide.GTP.TimeItemEventArgs e)

      {

        if (e.TimeItem.UserReference is BreakInfo)

        {

          BreakInfo breakInfo=e.TimeItem.UserReference as BreakInfo;

        DateTime breakStart=e.TimeItem.Start.AddDays(breakInfo.startsDaysFromStart)+e.Diff;

        DateTime breakStop=breakStart.AddDays(breakInfo.breakLengthInDays);

        int breakStartPixel=gantt1.DateScaler.TimeToPixel(breakStart);

        int breakStopPixel=gantt1.DateScaler.TimeToPixel(breakStop);

        e.G.FillRectangle(new SolidBrush(Color.Blue),new Rectangle(e.Rect.Left,e.Rect.Top,breakStartPixel-e.Rect.Left,e.Rect.Height));

        e.G.FillRectangle(new SolidBrush(Color.Blue),Rectangle.FromLTRB(breakStopPixel,e.Rect.Top,e.Rect.Right,e.Rect.Bottom));

        e.G.DrawRectangle(new Pen(Color.Black),e.Rect);

        }

        else

        {

           e.G.DrawArc(new Pen(Color.RosyBrown,4),e.Rect,0,180);

           e.G.DrawArc(new Pen(Color.PowderBlue,6),e.Rect,180,180);

         }

      }

Question

How in VB6 do you iterate through the nodes/cells of the tree view located on the left.

I cant seem to find any structure which says something like:

For each node in treeviewnodes
     Node.cell0 = “”
     Node.cell1 = “”
     Node.cell2 = “”
Next

Answer

Like this:

Private Sub CommandIterate_Click()< ?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

Dim activity As IphDataEntity_Tree

    Set activity = Nothing

    IterateActivity phGantX1.RootDataEntitiesTree, activity

End Sub

Public Sub IterateActivity(aphDataList As IphDataList, aOwner As IphDataEntity_Tree)

Dim activity As IphDataEntity_Tree2

        For i = 0 To aphDataList.Count – 1

            Set activity = aphDataList.Items(i)

            For ii = 0 To phGantX1.GridColumnCount – 1

                Dim s As String

                s = phGantX1.GetGridCellString(ii, activity.GridRowIndex)

            Next

            IterateActivity activity.SubDataList, activity ‘ traverse owned nodes

        Next

End Sub

Question

Is it possible to show a horizontal scrollbar in the grid(treeview)?

Answer

The horizontal scrollbar will only show when the sum of all non hidden columns exceed the grid width. This is valid for GTP.NET and phGantTimePackage when UseGrid=true.

Question

Currently evaluating the PHGantTimePackage for VB6 and would like to know how you can zoom in and out programatically without having to drag the scaler left and right?

Answer

For starters you just set the Gantt.Start and Gantt.Stop to values of your liking and the view will adapt.

You can also use the function IphGantX3.AnimateScaleTransition(newScale,steps). The scale is basically a decimal value that is calculated by (Stop-Start)/WidthInPixels  So if you want to zoom out, to show more time, you can do Gantt.AnimateScaleTransition(Gantt.Scale*2,50). And to show less time Gantt.AnimateScaleTransition(Gantt.Scale/2,50)

To get a feel for the AnimateScaleTransition you can check the Gantt.Scale property… As you zoom this parameter changes. Zoom to year and check the value of Scale. Zoom to weeks and check the value of Scale.

Now add two buttons “Year” and “Weeks”, in each button you call AnimateScaleTransition(value,50) where value is the for year and weeks respectivly, You will see how to scale animates the transition from the current setting to the year or week setting in 50 steps.

Question

I have a problem while using the grid. It seems that since I downloaded the latest available version, I cant get anything display in the grid when using Windows 98. Do you have any information about how to solve this problem ?

Answer

This was an issue that was fixed in a recent patch. Download it here : http://www.plexityHide.com/pub/phGantXControl.zip