zakia,

this is just a matter of finding the right index at which to insert the Boxes.  you can see in the last code sample i posted how the "primitivePositions" dictionary is used to store the index for each Box i add to the SceneGraph.

Hi,

I have a question about: Add colored Boxes to the SceneGraph behind the scatter datapoints...

I succed to add colored boxes to the SceneGraph, but I don't find how to put them behind the datapoints.

Thankx

modified the fillscenegraph code to prevent this.  note how a dictionary is used to store the index at which to insert primitives later

   Private Sub UltraChart1_FillSceneGraph(ByVal sender As Object, ByVal e As Infragistics.UltraChart.Shared.Events.FillSceneGraphEventArgs) Handles UltraChart1.FillSceneGraph
        Dim xAxis As IAdvanceAxis = CType(e.Grid("X"), IAdvanceAxis)
        Dim yAxis As IAdvanceAxis = CType(e.Grid("Y"), IAdvanceAxis)
        If xAxis Is Nothing OrElse yAxis Is Nothing Then Return
        Dim clipper As New GraphicsContext()
        clipper.SetClipBounds(New Rectangle(xAxis.MapMinimum, yAxis.MapMaximum, xAxis.MapRange, yAxis.MapRange))
        e.SceneGraph.Add(clipper)
        Dim bottom As Integer = Convert.ToInt32(yAxis.MapMinimum)
        Dim primitivesToAdd As New PrimitiveCollection()
        Dim primitivePositions As New Dictionary(Of Primitive, Integer)
        For Each p As Primitive In e.SceneGraph
            If TypeOf p Is Polyline Then
                Dim dataLine As Polyline = CType(p, Polyline)
                Dim newPoints As New List(Of DataPoint)(dataLine.points)
                Dim firstPoint As DataPoint = newPoints(0)
                Dim lastPoint As DataPoint = newPoints(newPoints.Count - 1)

                newPoints.Add(New DataPoint(lastPoint.point.X, bottom))
                newPoints.Add(New DataPoint(firstPoint.point.X, bottom))
                newPoints.Add(New DataPoint(firstPoint.point))
                Dim oly As New Polygon(newPoints.ToArray())
                oly.PE = dataLine.PE
                oly.splineTension = dataLine.splineTension
                oly.flatBottom = True
                primitivesToAdd.Add(oly)
                primitivePositions.Add(oly, e.SceneGraph.IndexOf(p) + 1)
            End If
        Next
        For Each p As Primitive In primitivesToAdd
            e.SceneGraph.Insert(primitivePositions(p), p)
        Next

    End Sub

you can use a GraphicsContext primitive to set the clip bounds so this doesn't happen.

    Private Sub UltraChart1_FillSceneGraph(ByVal sender As Object, ByVal e As Infragistics.UltraChart.Shared.Events.FillSceneGraphEventArgs) Handles UltraChart1.FillSceneGraph
        Dim xAxis As IAdvanceAxis = CType(e.Grid("X"), IAdvanceAxis)
        Dim yAxis As IAdvanceAxis = CType(e.Grid("Y"), IAdvanceAxis)
        If xAxis Is Nothing OrElse yAxis Is Nothing Then Return
        Dim clipper As New GraphicsContext()
        clipper.SetClipBounds(New Rectangle(xAxis.MapMinimum, yAxis.MapMaximum, xAxis.MapRange, yAxis.MapRange))
        e.SceneGraph.Add(clipper)
        Dim bottom As Integer = Convert.ToInt32(yAxis.MapMinimum)
        Dim primitivesToAdd As New PrimitiveCollection()
        For Each p As Primitive In e.SceneGraph
            If TypeOf p Is Polyline Then
                Dim dataLine As Polyline = CType(p, Polyline)
                Dim newPoints As New List(Of DataPoint)(dataLine.points)
                Dim firstPoint As DataPoint = newPoints(0)
                Dim lastPoint As DataPoint = newPoints(newPoints.Count - 1)

                newPoints.Add(New DataPoint(lastPoint.point.X, bottom))
                newPoints.Add(New DataPoint(firstPoint.point.X, bottom))
                newPoints.Add(New DataPoint(firstPoint.point))
                Dim oly As New Polygon(newPoints.ToArray())
                oly.PE = dataLine.PE
                oly.splineTension = dataLine.splineTension
                oly.flatBottom = True
                primitivesToAdd.Add(oly)
            End If
        Next
        e.SceneGraph.AddRange(primitivesToAdd.ToArray())
    End Sub