Use Flare Cluster with dynamically created points

JohnPreston

Hi I have x,y coordiates storred in a database, which i load and create points on a map. There are points that overlap and I was wondering if the flare clusterer worked with points that are dynamically added to the map?

Here is how I add points to the graphics layer...

For Each item In ddsRequests.DataView
                Dim mappointX As Double = Convert.ToDouble(item.XCoordinate)
                Dim mappointY As Double = Convert.ToDouble(item.YCoordinate)
                Dim mappoint As New ESRI.ArcGIS.Client.Geometry.MapPoint
                Dim DefaultMarkerSymbol As New SimpleMarkerSymbol
                Dim clr As New SolidColorBrush
                clr.Color = Color.FromArgb(255, 255, 0, 0)
                clr.Opacity = "0.5"
                DefaultMarkerSymbol.Size = 10
                DefaultMarkerSymbol.Style = SimpleMarkerSymbol.SimpleMarkerStyle.Circle
                DefaultMarkerSymbol.Color = clr
                Dim graphicsLayer As GraphicsLayer = TryCast(MyMap.Layers("GraphicsLayer1"), GraphicsLayer)
                mappoint.X = mappointX
                mappoint.Y = mappointY
                Dim IP As New IdentifyParameters With {.Geometry = mappoint, .LayerOption = LayerOption.all, .SpatialReference = MyMap.SpatialReference}
                Dim graphic As New Graphic() With {.Symbol = DefaultMarkerSymbol, .Geometry = mappoint}
                graphicsLayer.Graphics.Add(graphic)
                MyMap.Layers.Add(graphicsLayer)
            Next
        End If

Thank you!

JohnPreston

I got it. I was missing the spatialreference setting

ddsRequests.DataView.MoveCurrentToFirst()
            Dim DefaultMarkerSymbol As New SimpleMarkerSymbol
            Dim clr As New SolidColorBrush
            clr.Color = Color.FromArgb(255, 255, 0, 0)
            clr.Opacity = "0.5"
            DefaultMarkerSymbol.Size = 20
            DefaultMarkerSymbol.Style = SimpleMarkerSymbol.SimpleMarkerStyle.Circle
            DefaultMarkerSymbol.Color = clr
            Dim graphicsLayer As GraphicsLayer = TryCast(MyMap.Layers("MyGraphicsLayer"), GraphicsLayer)
            For Each item In ddsRequests.DataView
                Dim mappoint As New ESRI.ArcGIS.Client.Geometry.MapPoint
                Dim mappointX As Double = Convert.ToDouble(item.XCoordinate)
                Dim mappointY As Double = Convert.ToDouble(item.YCoordinate)
                mappoint.X = mappointX
                mappoint.Y = mappointY
                mappoint.SpatialReference = New SpatialReference(2926)               
                Dim graphic As New Graphic() With {.Symbol = DefaultMarkerSymbol, .Geometry = mappoint}
                graphic.Geometry.SpatialReference = New SpatialReference(2926)
                graphicsLayer.Graphics.Add(graphic)
            Next