newPoint := MapXLib_TLB.CoPointCreate;
newPoints := MapXLib_TLB.CoPointsCreate;
newPoint.Set_(rect.XMin , rect.YMin );
newPoints.Add(newPoint,1);
newPoint.Set_(rect.XMax , rect.YMin );
newPoints.Add(newPoint,2);
newPoint.Set_(rect.XMax , rect.YMax );
newPoints.Add(newPoint,3);
newPoint.Set_(rect.XMin , rect.YMax );
newPoints.Add(newPoint,4);
newPoint.Set_(rect.XMin , rect.YMin );
newPoints.Add(newPoint,5);
newPoint.X;
//DeleteAllFeatures(Nav);
EyeMap.DefaultStyle.LineWidth := 2;
EyeMap.DefaultStyle.LineColor := Business.System.Graphics.clRed;
EyeMap.Layers.Item[Nav].AddFeature(EyeMap.FeatureFactory.CreateLine(newPoints, EyeMap.DefaultStyle), nil ); //Empty
有多处调不通 |