private void MapContainer_OnKeyUp(object sender, KeyEventArgs e)
{
_ignoreClick = true;
if (e.Key == Key.P)
{
_ignoreClick = false;
_map.FunctionMode = FunctionMode.None;
_map.Cursor = Cursors.Cross;
}
if (e.Key == Key.S)
{
_map.FunctionMode = FunctionMode.Select;
}
} _featureSet = new FeatureSet(FeatureType.Point);
DataColumn column = new DataColumn("PointID");
_featureSet.DataTable.Columns.Add(column);
_pointLayer = (MapPointLayer)_map.Layers.Add(_featureSet);
_pointLayer.Symbolizer = new PointSymbolizer(System.Drawing.Color.Red, DotSpatial.Symbology.PointShape.Star, 30);
_pointLayer.SelectionSymbolizer = new PointSymbolizer(System.Drawing.Color.Yellow, DotSpatial.Symbology.PointShape.Star, 30); private void MapOnMouseMove(object sender, GeoMouseArgs geoMouseArgs)
{
// Storing this as it doesn't seem to be available in the Click event
_geoMouseArgs = geoMouseArgs;
}
void MapOnClick(object sender, EventArgs e)
{
if (_ignoreClick) return;
Coordinate coord = _map.PixelToProj(_geoMouseArgs.Location);
Point point = new Point(coord);
IFeature feature = _featureSet.AddFeature(point);
feature.DataRow["PointID"] = _pointId++;
_map.ResetBuffer();
} _labelLayer = new MapLabelLayer(_pointLayer);
_labelLayer.FeatureLayer = (IMapFeatureLayer)_pointLayer;
_labelLayer.FeatureSet = _featureSet;
_labelLayer.Symbology.Categories[0].Expression = "[PointID]";
_labelLayer.Symbolizer.FontSize = 8F;
_labelLayer.Symbolizer.BorderVisible = false;
_labelLayer.Symbolizer.DropShadowEnabled = false;
_labelLayer.Symbolizer.OffsetX = 20;
_pointLayer.LabelLayer = _labelLayer;
_pointLayer.ShowLabels = true;
_featureSet.ShapeIndices = null;
_featureSet.UpdateExtent();
_pointLayer.AssignFastDrawnStates();
_labelLayer.CreateLabels(); FeatureSet fs = new FeatureSet(f.FeatureType);
Feature fz = new Feature();
FeatureSet fsz = new FeatureSet(f.FeatureType);
double minX, minY, maxX, maxY;
minX = 400000.000;
double stepX, stepY;
stepX = 2000;
stepY = 2000;
minY = 0.00;
maxY = 4000000;
//maxY = map1.ClientSize.Height - 70;
maxX = 4000000;
//maxX = map1.ClientSize.Width - 10;
List<DotSpatial.Topology.LineString> lines = new List<DotSpatial.Topology.LineString>();
fs.DataTable.Columns.Add("y");
//create the lines running from top to bottom
for (double currX = minX; currX < maxX + stepX; currX += stepX)
{
DotSpatial.Topology.Point point1, point2;
point1 = new DotSpatial.Topology.Point(currX, minY);
point2 = new DotSpatial.Topology.Point(currX, maxY);
LineString line = new LineString(new List<DotSpatial.Topology.Point>(new DotSpatial.Topology.Point[] { point1, point2 }));
lines.Add(line);
//dr["id"] = shapeIndex;
f = new Feature(line);
fs.Features.Add(f);
}
double currX_value = minX;
foreach (DataRow dr in fs.DataTable.Rows)
{
dr["y"] = currX_value += stepX;
}
//map1.Layers.Add(fs);
MapLineLayer lineLayery = (MapLineLayer)map1.Layers.Add(fs); //add the featureSet as map layer
lineLayery.LegendText = "GridlineY";
lineLayery.Symbolizer = new LineSymbolizer(Color.Red, 1);
IMapLabelLayer labelLayer = new MapLabelLayer(); ILabelCategory category = labelLayer.Symbology.Categories[0]; category.Expression = "[x]";
category.Symbolizer.Orientation = ContentAlignment.MiddleCenter; lineLayery.ShowLabels = true;
lineLayery.LabelLayer = labelLayer;
fsz.DataTable.Columns.Add("x");
//create the lines running from left to right
for (double currY = minY; currY < maxY + stepY; currY += stepY)
{
DotSpatial.Topology.Point point1, point2;
point1 = new DotSpatial.Topology.Point(minX, currY);
point2 = new DotSpatial.Topology.Point(maxX, currY);
LineString line = new LineString(new List<DotSpatial.Topology.Point>(new DotSpatial.Topology.Point[] { point1, point2 }));
lines.Add(line);
fz = new Feature(line);
fsz.Features.Add(fz);
}
double currY_value = minY;
foreach (DataRow dr in fsz.DataTable.Rows)
{
dr["x"] = currY_value += stepY;
}
ProjectionInfo dest = default(ProjectionInfo);
//add the line to the feature set
MapLineLayer lineLayer = (MapLineLayer)map1.Layers.Add(fsz); //add the featureSet as map layer
lineLayer.LegendText = "GridlineX";
lineLayer.Symbolizer = new LineSymbolizer(Color.Blue, 1);
//dest = KnownCoordinateSystems.Projected.NationalGrids.AccraGhanaGrid;
//fsz.Projection = dest;
//fs.Projection = dest;
IMapLabelLayer labelLayer1 = new MapLabelLayer(); ILabelCategory category1 = labelLayer.Symbology.Categories[0]; category.Expression = "[y]";
category.Symbolizer.Orientation = ContentAlignment.MiddleCenter; lineLayer.ShowLabels = true;
lineLayer.LabelLayer = labelLayer1; Map6.Projection = KnownCoordinateSystems.Projected.Polar.NorthPoleStereographic
Map6.Projection.CentralMeridian = -180
Map6.Projection.FalseEasting = 0
Map6.Projection.FalseNorthing = 0
Map6.Projection.ScaleFactor = 1
Map6.Projection.LatitudeOfOrigin = 90Map6.ViewExtents = GenerateExtents(Map6.Projection)
Private Function GenerateExtents(ByVal endProj As ProjectionInfo) As Extent
'create the geographic coordinates of the bounding rectangle
'now we reproject the coordinates to the target projection
Reproject.ReprojectPoints(xy, z, KnownCoordinateSystems.Geographic.World.WGS1984, endProj, 0, 2)
'create new extents and return as an object
Dim exts As Extent = New Extent(coords1.X, coords1.Y, coords2.X, coords2.Y)
Return exts
End Function