ThinkGeo.com    |     Documentation    |     Premium Support

Problem adding features

#1

I am trying to add some features on my map.


I do the following on form load


 


Map1.MapUnit = GeographyUnit.DecimalDegree

        Map1.BackgroundOverlay.BackgroundBrush = New GeoSolidBrush(GeoColor.GeographicColors.ShallowOcean)



        Dim baseLayer As New ShapeFileFeatureLayer(mapPath)

        baseLayer.RequireIndex = False



        baseLayer.zoomlevelset.zoomlevel01.DefaultAreaStyle = AreaStyles.Country1

        baseLayer.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20



        Dim layerOverlay As New LayerOverlay()

        layerOverlay.Layers.Add(baseLayer)



        Map1.Overlays.Add(layerOverlay)



       

        Map1.CurrentExtent = New RectangleShape(22.835, 41.2921, 25.8892, 40.4029)



        Dim pointLayer As New InMemoryFeatureLayer()

        pointLayer.ZoomLevelSet.ZoomLevel01.DefaultPointStyle.PointType = PointType.Symbol

        pointLayer.ZoomLevelSet.ZoomLevel01.DefaultPointStyle.SymbolType = PointSymbolType.Circle

        pointLayer.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20



        Dim dynamicOverlay As New LayerOverlay()

        dynamicOverlay.Layers.Add("PointLayer", pointLayer)

        Map1.Overlays.Add("PointOverlay", dynamicOverlay)



        Map1.Refresh()


 


and at some point i try to draw some icons


 Public Sub drawOnMap()

            For Each u As User In Me.list.Values

                If u.lastPosition.x <> Nothing And u.lastPosition.y <> Nothing Then

                    Dim latitude As Double = Convert.ToDouble(u.lastPosition.y, CultureInfo.InvariantCulture)

                    Dim longitude As Double = Convert.ToDouble(u.lastPosition.x, CultureInfo.InvariantCulture)

                    Dim feature As New Feature(longitude, latitude, "user" & u.userId)

                    Dim pointLayer As InMemoryFeatureLayer = DirectCast(Form1.Map1.FindFeatureLayer("PointLayer"), InMemoryFeatureLayer)

                    If Not pointLayer.InternalFeatures.Contains("user" & u.userId) Then

                        pointLayer.InternalFeatures.Add("user" & u.userId, feature)

                    End If

                End If

            Next

            Form1.Map1.Refresh(Form1.Map1.Overlays("PointOverlay"))

        End Sub


 


Via the debug i can confirm that u.lastPosition.x and .y are valid decimal values and withing the map


However i do not see the circle symbols as i defined it to.


Can you please help me as i am new to this?


 



#2

Ioustinos, 
  
 Thanks for your post, I think you will be familiar with our MapSuite, everyone is from beginner to expert. 
  
 Your problem is caused that you didn’t set the correct PointStyle, if you want to show point, not just set point type and symbol type, you also need to set the color of brush, otherwise MapSuiteCore doesn’t know which color you want to draw point, so just add the following code you can see the red points after you call drawOnMap. 
 pointLayer.ZoomLevelSet.ZoomLevel01.DefaultPointStyle.SymbolSolidBrush.Color = GeoColor.SimpleColors.Red 
  
 Please let me know if you have more questions. 
 Thanks 
 James

#3

I tried what you said but nothing happened. 
 Moreover i tried to insert an image instead of a symbol. 
  
 pointLayer.ZoomLevelSet.ZoomLevel01.DefaultPointStyle.PointType = PointType.Bitmap 
 pointLayer.ZoomLevelSet.ZoomLevel01.DefaultPointStyle.Image = New GeoImage("C:\MapData\icons\user.jpeg") 
  
 Still nothing. 
 Is there any chance there is a problme with the coordinates translation? The geographical coordinates system? 
 This is the link from which i acquired the longitude and latitude values 
 itouchmap.com/latlong.html 


#4

Iousinos, 
  
 Because you said you can confirm the points are valid decimal values and within the map, so I use any points inside the current extent of map to test, they’re working if add that code. 
  
 So I think maybe the problem is caused by points coordinates, could you check each of them and let me know if they are within the current extent of map RectangleShape(22.835, 41.2921, 25.8892, 40.4029)? Or you can list some of the points’ coordinates and I can test them? 
  
 Thanks 
 James 


#5

Finally made it. The last post was caused due to an error of mine 
 Thanks

#6

If you could please direct me on 
 1) How to add a handler method when those icons are clicked 
  
 2) How to attach a tooltip on those icon to open every time they are clicked as in Google Maps for example. (if there is such thing) 
  
 Thanks!

#7

We have a Code Community project Dragging Icon (advanced) that  deals with various aspects of icons. Please, take a look at that and see what you think.


code.thinkgeo.com/projects/show/draggingicon2


For tooltip, I would recommend the following links in the Discussion Forum that show how to create tooltips for the Desktop edition:


gis.thinkgeo.com/Support/Discussion...fault.aspx


gis.thinkgeo.com/Support/Discussion...fault.aspx



#8

Great those were both very helpfull. 
  
 Another basic question thought…When i click one of the features on a layer i want to change its color or icon…How can i do that?

#9

Ioustinos,


Thanks for your feedback.
 
Following HowDoI samples provided with our package are doing exactly what you are requesting, just take a look if you are interested.
HowDoI\Styles\Use predefined geographic and standard colors
HowDoI\Feature Layers\ Change the look of a feature layer.
 
Any more questions just feel free to let me know.
 
Thanks.
 
Yale

#10

Yes i have seen these samples. 
 My question is whether i can change only one feature’s icon when this will be clicked. 
 Or do i have to create another feature layer (thus deifferent style) which will hold that one feature which will be a replicate of the original??

#11

To clarify what i need. 
  
 I want to have a feature layer. Everything is exactly the same for each feature of course but there are 15 color variations. 
 Do i need to create one layer for each color?? 
 Moreover the features should changes colors. 
 Do i have to remove them from one featureLayer and add them to the other? 
 And i need to be able to search for one feature by id…If i have 10 layers i would need to search in all of them. Right?

#12

You don't have to create a new layer to display differently some features from others. I don't know what kind of data you have, but for example, you could use the ValueStyle to display based on a column value see the sample "Draw features based on values" in the Styles category of the "How Do I" samples. Or it could be based on what value range using the ClassStyle, see "Draw thematic features" for that. Actually, we have a very flexible and extensible way to display feratures based on any criteria.   For example, I would also check some projects in the Code Community that show how to extent Styles.


You can check those projects below,. They show some very customized way to extent Style but I think you will see how you can adapt that for your situation:


-Feature Centric Style: code.thinkgeo.com/projects/show/featurecentricstyle


-Time Based Point Style: code.thinkgeo.com/projects/s...pointstyle


-Time Line: code.thinkgeo.com/projects/show/timeline


If that still does not help very much, tell us more specifically about your case.                                      


 


 


 


 



#13

Nope, those examples were not helpful. At least not clear enough 
  
 I have one feature layer with many feature. 
 At some point, while the program runs, the user selects one feature.  i want that ONE of the features to change color. or icon. 
  
 It does not get more simple than that.

#14

Actually, there is a Code Community project, Select At TrackShape which is very similar to what you are looking for. code.thinkgeo.com/projects/show/selectwithtrackshape


Just change the TrackMode to TrackMode.Point in the Load event:


winformsMap1.TrackOverlay.TrackMode = TrackMode.Point;

 


 And in the TrackEnded event, change the code  to the following and you will see the app working as expected:


 




        void winformsMap1_TrackEnded(object sender, TrackEndedTrackInteractiveOverlayEventArgs e)
        {
            //RectangleShape rectangleShape = (RectangleShape)e.TrackShape;
            PointShape pointShape = (PointShape)e.TrackShape;

            ShapeFileFeatureLayer worldLayer = (ShapeFileFeatureLayer)winformsMap1.FindFeatureLayer("WorldLayer");
            InMemoryFeatureLayer spatialQueryResultLayer = (InMemoryFeatureLayer)winformsMap1.FindFeatureLayer("SpatialQueryResultLayer");

            //Spatial query to find the features intersecting the rectangle from the track rectangle.
            Collection<Feature> spatialQueryResults;
            worldLayer.Open();
            //spatialQueryResults = worldLayer.QueryTools.GetFeaturesIntersecting(rectangleShape,ReturningColumnsType.NoColumns);
            spatialQueryResults = worldLayer.QueryTools.GetFeaturesContaining(pointShape, ReturningColumnsType.NoColumns);
            worldLayer.Close();

            //Adds the selected features to the InMemoryfeatureLayer
            spatialQueryResultLayer.Open();
            spatialQueryResultLayer.EditTools.BeginTransaction();
            spatialQueryResultLayer.InternalFeatures.Clear();
            foreach (Feature feature in spatialQueryResults)
            {
                spatialQueryResultLayer.EditTools.Add(feature);
            }
            spatialQueryResultLayer.EditTools.CommitTransaction();
            spatialQueryResultLayer.Close();

            //Refreshes the layers to show new result.
            winformsMap1.TrackOverlay.TrackShapeLayer.InternalFeatures.Clear();
            winformsMap1.Refresh(winformsMap1.TrackOverlay);
            winformsMap1.Refresh(winformsMap1.Overlays["SpatialQueryResultOverlay"]);
        }


#15

I need to mention that the solution I just presented is working only for polygon based layer. For a point or line based layer, the technique will be a little different and that would an issue pretty similar to what we can see in another post: gis.thinkgeo.com/Support/Discussion...fault.aspx. This is a post for the Web edition but the spatial querying logic is the same.


I let you know that we will post new Code Community projects specifically for the Desktop edition that show how to select the feature the user clicked on whether the layer is polygon, line or point based. Since this is a pretty popular request, this will be well presented for everybody to take advantage of in the Code Community.



#16

There is a new Code Community project posted today on that subject. Notice that in this project, we are using the MapClick event instead of the TrackEnded event but the code is basically the same and this method works for selecting the feature the user clicked on regardless of their type (polygon, line or point based). You can check it out Get Feature Clicked On: code.thinkgeo.com/projects/show/featureclicked