var
Style: CMapXStyle;
f: CMapXFeature;
pt:Point;
begin
Map1.ControlInterface.Layers.CreateLayer('temp', emptyparam, 1, emptyparam, emptyparam);//创建临时图层
Style := Map1.DefaultStyle.Clone;
Style.RegionPattern := miPatternNoFill ;
Style.RegionColor := 255;
Style.RegionBorderColor := 125;
Style.RegionBorderWidth := 2;
Style.RegionBorderStyle := 1;
pt:=CoPoint.Create;
pt.Set_(122.8,40.8);
map1.Zoom:=0.5;
map1.CenterX:=pt.X;
map1.CenterY:=pt.Y;
f := Map1.FeatureFactory.CreateCircularRegion(miCircleTypeMap,pt,0.2,miUnitKilometer,emptyParam,Style);
Map1.Layers.Item('Temp').AddFeature(f, EmptyParam);
end;
阅读(3507) | 评论(0) | 转发(0) |