Hi Seth,
Seth wrote:1. MarkText is Masked behind bar
That happens because of the order of drawing. If you want the marks to be drawn on the top of everything, you should draw them by yourself directly to the canvas as in the following example:
Code: Select all
Private Sub Form_Load()
TChart1.Aspect.View3D = False
Dim i As Integer
For i = 0 To 2
TChart1.AddSeries scErrorBar
TChart1.Series(i).asErrorBar.AddErrorBar 0, (((i + 1) Mod 2) + 1) * 1000, 200, "", clTeeColor
TChart1.Series(i).asErrorBar.AddErrorBar 1, (((i + 1) Mod 2) + 1) * 1000, 200, "", clTeeColor
TChart1.Series(i).asErrorBar.AddErrorBar 2, (((i + 1) Mod 2) + 1) * 1000, 200, "", clTeeColor
'TChart1.Series(i).Marks.Visible = True
'TChart1.Series(i).Marks.Font.Size = 20
Next i
TChart1.Axis.Left.MaximumOffset = 50
End Sub
Private Sub TChart1_OnAfterDraw()
Dim i, j, XPos, YPos As Integer
For i = 0 To 2
For j = 0 To TChart1.Series(i).Count - 1
TChart1.Canvas.Font.Size = 20
XPos = TChart1.Series(i).CalcXPos(j) - (TChart1.Canvas.TextWidth(Str$(TChart1.Series(i).YValues.Value(j))) / 5)
YPos = TChart1.Series(i).CalcYPos(j) - TChart1.Canvas.TextHeight(Str$(TChart1.Series(i).YValues.Value(j)))
TChart1.Canvas.TextOut XPos, YPos, Str$(TChart1.Series(i).YValues.Value(j))
Next j
Next i
End Sub
Seth wrote:2. How to express from Error bars'T' now to '|'
This is possible in VCL but not yet in ActiveX. I've added it to the wish list to be implemented in future releases (TA05014618).
Seth wrote:3. Is it possible to debug error which MarkTip menu is not displayed on IE ?
I'm not sure too understand what are you exactly trying to do here. Could you please send us a simple example project we can run as-is to reproduce the problem here?
Thanks in advance.