Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1283157
  • 博文数量: 135
  • 博客积分: 10588
  • 博客等级: 上将
  • 技术积分: 1325
  • 用 户 组: 普通用户
  • 注册时间: 2006-04-18 11:12
文章分类

全部博文(135)

文章存档

2013年(6)

2012年(3)

2011年(11)

2010年(7)

2009年(14)

2008年(6)

2007年(42)

2006年(46)

分类:

2006-09-09 17:17:16

 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) |
给主人留下些什么吧!~~