MapPointLayer Symbology

Dec 5, 2010 at 6:52 AM

Thanks for the great components !

This code for adding a category schema to the point layer works in MapWindow6 while nothing show up in the map using DotSpatial.

 

Dim myPointLayer As IMapPointLayer = TryCast(myLayer, IMapPointLayer)

If myPointLayer Is Nothing Then Return

Dim myScheme As New PointScheme()

myScheme.Categories.Clear()

Dim smallSize As New PointCategory(Color.Blue, Symbology.PointShape.Rectangle, 10)

smallSize.FilterExpression = "[TIPO] = 0"

smallSize.LegendText = "Small"

myScheme.AddCategory(smallSize)

myPointLayer.Symbology = myScheme


Thanks in advance,

Paolo Saudin