|
阅读:1053回复:0
MapX中文标注出错?
<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> |
|