Question

Anyone know how to add a list of numbers or texts to a Schema time item such that each number is on a separate line within the text box.

 I’ve tried .
 Dim X As IphDataEntity_SchemaTime
 Set X = phSchemaX1.AddSchemaTime(0)
 X.AddText “1”, 10, 10, 0
 X.AddText “2”, 10, 10, 0

Answer

But the second text overwrites the first.
 the 10’s are pixel coordinates from the top left of the time item
try
 X.AddText “1”, 10, 10, 0
 X.AddText “2”, 10, 30, 0

Question

Answer

Question

How to set the colour for a time item in PowerBuilder?

Answer

Just like in all the Activex enabled languages you get hold of an interface for a GantTime and change the color property: IphDataEntity_GantTime2.Color. There is nothing different about PowerBuilder in this respect.

The Color property is a value of type OLE_COLOR, this value is a RGB value were Red Green and Blue have 255 possible shades and then occupy their own space in the lower three bytes in the available four of of OLE_COLOR  (r*256*256+g*256+b)

Question

How I can find a timeitem by uservariantreference ?

Answer

You will need to iterate thru the Gantt chart like this in c#:

 for(int i=0;i<axphGantX1.DataList3levGantTimes().Count();i++)
  {
    phGantXControl.IphDataList2lev aList2Lev=axphGantX1.DataList3levGantTimes().get_DataList2Lev(i);
    for(int ii=0;ii<aList2Lev.Count();ii++)
    {
      phGantXControl.IphDataList aList=aList2Lev.get_DataList(ii);
      for(int iii=0;iii<aList.Count();iii++)
      {
        phGantXControl.IphDataEntity_GantTime2 aGantTime=aList.get_Items(iii) as phGantXControl.IphDataEntity_GantTime2;
        if (aGantTime.UserVariantReference==THEONEIMLOOKINGFOR)
        {
        }
      }
    }
  }

Or in VB (the code snippets does not do it the exact same way, this code use the RowList...):

    For i = 0 To phGantX1.RowList.Count - 1  ' loop over all gantt rows
        For ii = 0 To phGantX1.RowList.GantRow(i).DataLists.Count - 1 ' loop over all layers in gantt row
            For iii = 0 To phGantX1.RowList.GantRow(i).DataLists.DataList(ii).Count - 1 'loop over all time items
                Set ti = phGantX1.RowList.GantRow(i).DataLists.DataList(ii).Items(iii)
                if ti.UserVariantReference=THEONEIAMLOOKINGFOR then
           
                End if 
            Next iii
        Next ii
    Next i

Question

I cannot get an item to be selected and highlighted using code.  When I add a new item using code I would like to have it selected so that the user can begin typing immediately to edit the text without having to select the item with the mouse. I have tried the following items:

    TreeEntity.Expanded = True
    NewProject.Expanded = True
    phGantX1.SetCurrentDataEntityTree NewProject
    phGantX1.SetGridCellSelected 0, NewProject.GridRowIndex, True
    phGantX1.GridCellFocusedX = 0
    phGantX1.GridCellFocusedY = NewProject.GridRowIndex

The best I can do is get the row to be grey but not selected with a focus rectangle ready to type.

Answer

Question

How to use the PrintWithGrid method in Delphi 7 to print the Gantt Chart to a BmpFile or JPeg File ?

Answer

When you send the print to the printer you do like this:

  Printer.BeginDoc;
 TphPrintGantt.PrintWithGrid(G1,Printer.Handle,10,10,2,2,G1.TreeWidth,nil,-1,true,g1.Start,g1.Stop,g1.Width-g1.TreeWidth,g1.ScalerHeight,usedwidth,usedHeight,0,0,nil);
  Printer.EndDoc;

And the only difference when generating an image send in a different  device context (hdc).

So go like this to create a bitmap:

  Result  := TBitmap.Create;
  Result.Canvas.Lock;
  try
    Result.PixelFormat := pf32bit;
    Result.Width := xWidth;
    Result.Height := xHeight;
    TphPrintGantt.PrintWithGrid(G1,Result.Canvas.Handle,10,10,2,2,G1.TreeWidth,nil,-1,true,g1.Start,g1.Stop,g1.Width-g1.TreeWidth,g1.ScalerHeight,usedwidth,usedHeight,0,0,nil);
  finally
    Result.Canvas.UnLock;
    Result.Free;
  end;

Question