delphi在mapx4中画圆

 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;