Thanks for your reply,
Here is the result using your code...see picture. Also the bottom tick marks continue not to plot.
TChart1.Series.Chart.Axes.Left.Ticks.Visible = True
TChart1.Series.Chart.Axes.Right.Ticks.Visible = True
TChart1.Series.Chart.Axes.Bottom.Ticks.Visible = True
TChart1.Series.Chart.Axes.Left.Ticks.Length = 7
TChart1.Series.Chart.Axes.Right.Ticks.Length = 7
TChart1.Series.Chart.Axes.Bottom.Ticks.Length = 7
TChart1.Series.Chart.Axes.Left.Ticks.Width = 2
TChart1.Series.Chart.Axes.Right.Ticks.Width = 2
TChart1.Series.Chart.Axes.Bottom.Ticks.Width = 2
TChart1.Series.Chart.Axes.Bottom.Ticks.Color = Drawing.Color.Red
TChart1.Series.Chart.Axes.Left.Ticks.Color = Drawing.Color.Red
TChart1.Series.Chart.Axes.Right.Ticks.Color = Drawing.Color.Red
If i set the pointer = series.Pointer.Brush.Transparency = 0 the line pointers will not plot...star, cross, diagonal cross
Using
AddHandler Ternary1.GetPointerStyle, New Steema.TeeChart.Styles.Ternary.GetPointerStyleEventHandler(AddressOf Ternary1_GetPointerStyle)
Sub Ternary1_GetPointerStyle(ByVal series As Object, ByVal e As Steema.TeeChart.Styles.GetPointerStyleEventArgs)
If e.ValueIndex > NumSamples Then Exit Sub
e.Color = SampleColor(e.ValueIndex)
If PointerofSample(e.ValueIndex) = 34 Then e.Style = Steema.TeeChart.Styles.PointerStyles.Circle
If PointerofSample(e.ValueIndex) = 35 Then e.Style = Steema.TeeChart.Styles.PointerStyles.Triangle
If PointerofSample(e.ValueIndex) = 36 Then e.Style = Steema.TeeChart.Styles.PointerStyles.DownTriangle
If PointerofSample(e.ValueIndex) = 37 Then e.Style = Steema.TeeChart.Styles.PointerStyles.Cross
If PointerofSample(e.ValueIndex) = 38 Then e.Style = Steema.TeeChart.Styles.PointerStyles.DiagCross
If PointerofSample(e.ValueIndex) = 39 Then e.Style = Steema.TeeChart.Styles.PointerStyles.Star
If PointerofSample(e.ValueIndex) = 40 Then e.Style = Steema.TeeChart.Styles.PointerStyles.Diamond
If PointerofSample(e.ValueIndex) = 41 Then e.Style = Steema.TeeChart.Styles.PointerStyles.SmallDot
If PointerofSample(e.ValueIndex) = 42 Then e.Style = Steema.TeeChart.Styles.PointerStyles.LeftTriangle
If PointerofSample(e.ValueIndex) = 43 Then e.Style = Steema.TeeChart.Styles.PointerStyles.RightTriangle
If PointerofSample(e.ValueIndex) = 44 Then e.Style = Steema.TeeChart.Styles.PointerStyles.Sphere
If PointerofSample(e.ValueIndex) = 45 Then e.Style = Steema.TeeChart.Styles.PointerStyles.Hexagon
If PointerofSample(e.ValueIndex) = 46 Then e.Style = Steema.TeeChart.Styles.PointerStyles.Nothing
End Sub
- ternary3.jpg (22.3 KiB) Viewed 15456 times
If i set the pointer = series.Pointer.Brush.Transparency = 100, none of the pointers will plot correctly...the inner part of the spheres will plot
- ternary4.jpg (20.22 KiB) Viewed 15455 times
This is how they should plot with series.Pointer.Brush.Transparency = 0
and using 12 ternary series
For i = 1 To NumofSamples
Call GetPointer(i)
If PointerofSample(i) = 33 Then Ternary1.Add(Min1A(i), Min3A(i), Min2A(i), Color3(i))
If PointerofSample(i) = 34 Then Ternary2.Add(Min1A(i), Min3A(i), Min2A(i), Color3(i))
If PointerofSample(i) = 35 Then Ternary3.Add(Min1A(i), Min3A(i), Min2A(i), Color3(i))
If PointerofSample(i) = 36 Then Ternary4.Add(Min1A(i), Min3A(i), Min2A(i), Color3(i))
If PointerofSample(i) = 37 Then Ternary5.Add(Min1A(i), Min3A(i), Min2A(i), Color3(i))
If PointerofSample(i) = 38 Then Ternary6.Add(Min1A(i), Min3A(i), Min2A(i), Color3(i))
If PointerofSample(i) = 39 Then Ternary7.Add(Min1A(i), Min3A(i), Min2A(i), Color3(i))
If PointerofSample(i) = 40 Then Ternary8.Add(Min1A(i), Min3A(i), Min2A(i), Color3(i))
If PointerofSample(i) = 41 Then Ternary9.Add(Min1A(i), Min3A(i), Min2A(i), Color3(i))
If PointerofSample(i) = 42 Then Ternary10.Add(Min1A(i), Min3A(i), Min2A(i), Color3(i))
If PointerofSample(i) = 43 Then Ternary11.Add(Min1A(i), Min3A(i), Min2A(i), Color3(i))
If PointerofSample(i) = 44 Then Ternary12.Add(Min1A(i), Min3A(i), Min2A(i), Color3(i))
If PointerofSample(i) = 45 Then Ternary13.Add(Min1A(i), Min3A(i), Min2A(i), Color3(i))
If PointerofSample(i) = 46 Then Ternary14.Add(Min1A(i), Min3A(i), Min2A(i), Color3(i))
Next i
'Pointer Styles
Ternary1.Pointer.Style = Steema.TeeChart.Styles.PointerStyles.Rectangle
Ternary2.Pointer.Style = Steema.TeeChart.Styles.PointerStyles.Circle
Ternary3.Pointer.Style = Steema.TeeChart.Styles.PointerStyles.Triangle
Ternary4.Pointer.Style = Steema.TeeChart.Styles.PointerStyles.DownTriangle
Ternary5.Pointer.Style = Steema.TeeChart.Styles.PointerStyles.Cross
Ternary6.Pointer.Style = Steema.TeeChart.Styles.PointerStyles.DiagCross
Ternary7.Pointer.Style = Steema.TeeChart.Styles.PointerStyles.Star
Ternary8.Pointer.Style = Steema.TeeChart.Styles.PointerStyles.Diamond
Ternary9.Pointer.Style = Steema.TeeChart.Styles.PointerStyles.SmallDot
Ternary10.Pointer.Style = Steema.TeeChart.Styles.PointerStyles.LeftTriangle
Ternary11.Pointer.Style = Steema.TeeChart.Styles.PointerStyles.RightTriangle
Ternary12.Pointer.Style = Steema.TeeChart.Styles.PointerStyles.Sphere
Ternary13.Pointer.Style = Steema.TeeChart.Styles.PointerStyles.Hexagon
Ternary14.Pointer.Style = Steema.TeeChart.Styles.PointerStyles.Nothing
- ternarysteema2.jpg (24.02 KiB) Viewed 15458 times