TChart Ax 8.0.0.7 - Web enviroment and Gantt problems

[Lopes]

Hi there!

I'm facing some problems with TChart Ax 8.0.0.7 on my web page. Some functions/properties doen't work like i expected.

All this function/properties is called from VBscript on aspx web page.

1 - The function OnGetMarkText is called, but when i set a value for MarkText, it doesn't change on Graph. (It works on VB6)
2 - The property ".Series(1).asGantt.Pointer.Brush.Style = 11" doens't work. (It works on VB6)
3 - Does exist a property to change the Text associated to a row on Axis? Eg: When i use the function ".Series(0).asGantt.AddGanttColor cdate("2010-01-02 08:00"), cdate("2010-01-03 08:00"), 0, "RQ 2R", RGB(0, 0, 0)", i would like to show the text "RQ 2R" on Mark, but "Reator" on axis text (line zero). [Line 0 is the gantt bar position on Y axis].

Doubts:

1 - Does you planning to improve Gantt series? One scenario that needs attention is Gatt for production (industry) enviroment. Used to plan equipments usage.
2 - The conection lines between gantt bars is very poor compared to MS Project, with lines passing over bars, without criteria.

Thank you very much!
Tip: I use Tchart since version 4! Excelent Tool!

[Lopes]

Does OnCursorToolChange and OnMouseMove functions works with Gantt series?

Thanks!

[Yeray]

Hi Lopes,

Excuse us for the delay.

1 - The function OnGetMarkText is called, but when i set a value for MarkText, it doesn't change on Graph. (It works on VB6)

No, you cannot modify the text given for ocx events in vbscript nor javascript. You have two alternatives here:
- You can use the same OnGetMarkText event to change the point's label as in the following example:

VBScriptEvents.zip

(1.45 KiB) Downloaded 635 times

- You can also take a look at the CompareOutput example. You'll find CompareOutput.asp and CompareOutput.inc at C:\Program Files\Steema Software\TeeChart Pro v7 ActiveX Control\Examples\IIS & Asp (default english installation path).

2 - The property ".Series(1).asGantt.Pointer.Brush.Style = 11" doens't work. (It works on VB6)

You have to set also a color, for example the following works fine for me here:

Code: Select all

.Series(1).asGantt.Pointer.Brush.Color = 000000
.Series(1).asGantt.Pointer.Brush.Style = 11

3 - Does exist a property to change the Text associated to a row on Axis? Eg: When i use the function ".Series(0).asGantt.AddGanttColor cdate("2010-01-02 08:00"), cdate("2010-01-03 08:00"), 0, "RQ 2R", RGB(0, 0, 0)", i would like to show the text "RQ 2R" on Mark, but "Reator" on axis text (line zero). [Line 0 is the gantt bar position on Y axis].

Two options again:
- You could use a dummy series created before the others to show its labels and hide its points
- Again proceeding in a similar way than the CompareOutput example.

Doubts:

1 - Does you planning to improve Gantt series? One scenario that needs attention is Gatt for production (industry) enviroment. Used to plan equipments usage.
2 - The conection lines between gantt bars is very poor compared to MS Project, with lines passing over bars, without criteria.

Could you please describe the requests with more details? What is the exact behaviour you would like the Gantts series to have?

Does OnCursorToolChange and OnMouseMove functions works with Gantt series?

I'm assuming here that the problems you have are the same than in the point #1. I think that the events should work, but you can't change the given parameters.

[Lopes]

Thanks for your attention!

I need some help again about the Cursor Tool for Gantt Series Type. I'm using this code on 'onload' event on my web page:

.Tools.Add 0
.Tools.Items(0).Active = true
.Tools.Items(0).asTeeCursor.FollowMouse = true
.Tools.Items(0).asTeeCursor.Style = 1
.Tools.Items(0).asTeeCursor.Series = 0

And then, i'm trying to get cursor move event using this event signature (My html activeX object has ID property = 'axChart'):

Sub axChart_OnCursorToolChange(ByVal Tool, ByVal X, ByVal Y, ByVal XVal, ByVal YVal, ByVal Series, ByVal ValueIndex)
MsgBox XVal
End Sub

The cursor moves correctly over the chart, but the event 'axChart_OnCursorToolChange' i'snt triggered. This code works fine for FastLine Series.

Thanks again.

[Yeray]

Hi Lopes,

the following seems to work fine for me here:

Code: Select all

Sub TChart1_OnCursorToolChange(Tool, X, Y, XVal, YVal, Series, ValueIndex)
  TChart1.Header.Text.Text = XVal
End Sub

[Lopes]

Did you try using with Gantt Series?

Thanks again!

[Yeray]

Hi Lopes,

Yes, here it is the complete example I tried.