x_dsl
路人甲
路人甲
  • 注册日期2004-08-16
  • 发帖数1
  • QQ
  • 铜币114枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1053回复:0

MapX中文标注出错?

楼主#
更多 发布于:2004-09-01 13:46
<P>Delphi6 + MapX5,创建一个图元,然后为他添加标注,程序运行是出现什么DLL出错的提示
      if MapXTargetIcon = nil then
      begin
        fFtrFactory := MainMapX.FeatureFactory;</P>
<P>        pItem := CoPoint.Create;
        pItem.Set(X,Y);</P>
<P>        fNewSymbol := fFtrFactory.CreateSymbol(pItem, MainMapX.DefaultStyle);
        MapXTargetIcon := MapXCarLayer.AddFeature(fNewSymbol,EmptyParam);
      end;</P>
<P>      //设置字体属性</P>
<P>      MyFont := TFont.Create;
      OleFontToFont(MapXTargetIcon.Style.SymbolFont, MyFont);
      MyFont.Name := 'Wingdings 3';
      MyFont.Size := Target_Size;</P>
<P>      MapXTargetIcon.Point.Set_(X,Y);
      MapXTargetIcon.Style.SymbolFontHalo := True;
      MapXTargetIcon.Style.SymbolCharacter    := Target_Character;//135;
      MapXTargetIcon.Style.SymbolFontColor    := Target_Color;//clSkyBlue;
      MapXTargetIcon.KeyValue:= '京F-V9214';
      MapXTargetIcon.Style.SymbolFontRotation := Rotation;
      //if TargetID <> '' then</P>
<P>      MapXTargetIcon.Update(EmptyParam,EmptyParam);</P>
<P>      MyFont.Destroy;
</P>
喜欢0 评分0
游客

返回顶部