Delphi+MapX5中使用自定义字体符号

MapX5中使用自定义字体符号

       觉得现在使用自定义字体作为点符号的应用是越来越少了，近段时间在开发GPS车辆管理的GIS系统的时候要用到动态显示车辆位置，觉得用其他方式在地图上显示车辆可能会对性能有一定的影响，所以就使用的自定义字体。

       首先是创建自定义的字体。使用了字体编辑软件fontlab.v4.60。

       其次就是在Delphi＋MapX中使用该字体了。

     myStyle:=CoStyle.Create;

     MyFont := TFont.Create;

     OleFontToFont(myStyle.SymbolFont, MyFont);

     MyFont.Size := 24;

     MyFont.Name := 'MapInfo Transportation';

     myStyle.SymbolFontColor:=clRed;

     myStyle.SymbolCharacter := 66;

       其中要注意的一点就是一定要在Map1中将默认的点符号字体样式设置为其中任意一种自定义字体，否则将不能正确显示指定的字体。这应该是MapX5的一个Bug吧。