爱我中华
路人甲
路人甲
  • 注册日期2004-07-17
  • 发帖数3
  • QQ
  • 铜币113枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1218回复:0

关于画点的工具的问题,请大家帮忙看看,多谢了。

楼主#
更多 发布于:2004-08-17 21:36
<P>画上的点看不见,重新启动或刷新地图就看到了,</P>
<P>为什么呢,代码:</P>
<P>Toolused: </P>
<P>if ToolNum=CUSTOM_POINT_TOOL      then
    begin
      pt:=CreateOLEObject('MapX.Point.4');
      pt.set(X1,Y1);
      newobject:=map1.ControlInterface.FeatureFactory.CreateSymbol(pt,map1.DefaultStyle) ;
      EditLayer.AddFeature(newObject);</P>
<P>      map1.CurrentTool:=miArrowTool;
    end;</P>
<P>procedure TMainForm.NAppendNewDeviceClick(Sender: TObject);
begin
 Map1.ControlInterface.Layers.Item('PDWsymbol').Editable:=true;
 Editlayer:=Map1.ControlInterface.Layers.Item('PDWsymbol');
 Map1.CurrentTool:= CUSTOM_POINT_TOOL ;
end;</P><img src="images/post/smile/dvbbs/em08.gif" />
喜欢0 评分0
游客

返回顶部