Question

Does the phGantXControl OCX support UNICODE?

I use the method SetGridCellString passing a unicode string, but I see only question marks.

Answer

Yes the phGantTimePackage fully handles UNICODE characters. You will need fonts on your machine to represent the data you are trying to show.

Test it like this. Go to www.google.jp (japan), if you have the japan fonts you see soma japanese text, if you do not have the fonts you will see squares (or garbarge). If you see kanji text Copy it, and paste it in to the Grid. You should find that the grid keeps the kanji letters just like it should.

Answer

We are sadly aware of the poor state of the help file; we have been a bit surprised by the recent revival of the phGantTimePackage for VCL. Of course we will make up for it by answering all question swiftly;

One possible way to bridge the gap between the ActiveX help file and knowledgebase and the VCL version is to look at the “glue” files that wrap the VCL version to create the ActiveX.
You can then directly see what internal VCL calls that are made to get a certain ActiveX call. Email support if you want access to these pas files

This code iterates the complete Gantt (instanse called G1)

procedure TForm1.ButtonIterateClick(Sender: TObject);

  procedure IterateCellsInANode(aGridRow:TAxisContentItem);
  var
    x:integer;
  begin
    for x:=0 to G1.Grid.CellCountX-1 do
    begin
      G1.Grid.GetText(G1.Grid.Cell[x,aGridRow.ListIndex]);
    end;
  end;

  procedure IterateGanttRowContent(aGantRow:TGantRow);
  var
    i,ii:integer;
    aTimeItem:TphDataEntity_GantTime;
  begin
    // Iterate layers
    for i:=0 to aGantRow.DataLists.Count-1 do
    begin
      // for each layer iterate time items
      for ii:=0 to aGantRow.DataLists.Items[i].Count-1 do
      begin
        aTimeItem:=aGantRow.DataLists.Items[i].Items[ii] as TphDataEntity_GantTime;
        aTimeItem.Start:=aTimeItem.Start+1; // Just change something so that we see that we have been here
        aTimeItem.Stop:=aTimeItem.Stop+1;
      end;

    end;
  end;

  procedure IterateNode(aNode:TphDataEntity_GridTreeNode);
  var
    i:integer;
  begin
    // Iterate sub nodes of this node
    for i:=0 to aNode.SubDataList.Count-1 do
    begin
      IterateNode(aNode.SubDataList[i] as TphDataEntity_GridTreeNode);
    end;
    IterateCellsInANode(aNode.AxisContentItem);
    IterateGanttRowContent(G1.RowList.FindRowFromGridNode(aNode));
  end;


var
  i:integer;
begin
  // Iterate root nodes from the grid tree
  for i:=0 to G1.Grid.GetTree.RootDataEntities.Count-1 do
  begin
    IterateNode(G1.Grid.GetTree.RootDataEntities[i] as TphDataEntity_GridTreeNode);
  end;
  G1.GA.Invalidate; // Invalidate the Gantt area to show changes

end;

Question

I cannot set an item to be underlined from code. ( I am trying to use the underline to indicate which item is being dragged over on a drag drop operation).  Here is my code:< ?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

Answer

  When you use the grid you must use the CellLayouts to control the cell appearance. If you declare two cellLayouts, one to look normal, and one to look underlined, you can change the layout on a given cell with the IphGantX3.SetGridCellLayoutPropIndex call…

Question

phSchema:
How can I set the width of a column in dependency on how man SubColumns are generated because of the collision detection? At which time should I set the width?

Answer

Question

I am using VB6 with your phgantTime.ocx.
I want to  a time Gantt block with a simple text:”ABC” and .style=tsPipe.
If set the text, the style desappear. DO you have a solution?

Answer

The text was drawn with a solid brush. In the latest patch download the text is drawn with a clear brush. Hence it will work with the newest version