bq6236 2007-11-22 10:29
如何在用户的Windows安装特殊字体,以保证Authorware作品使用的字体不变形?
演示函数:
FontNameList:=M_GetAllFontsName()
Result:=M_IsFontExist(FontName)
Result:=M_AddNewFont(FontName)
Result:=M_DeleteFont(FontName)
如果在Authorware中以文本方式使用了非Windows基本字体,则不能保证在每一台计算机上都能保证正常显示,即使使用Micromedia推荐的字体映射功能,也是会把原非基本字体映射成别的字体显示,不能实现原作者的的表现意图,也大大降低了表现效果。
这个问题最好的解决方法是利用MJSAPI.u32提供的字体功能,在用户计算机上动态安装和删除用到的非基本字体,可以保证所有字体正常显示。如:
找出用户Windows中已经安装的全部字体名称:
FontNameList:=M_GetAllFontsName()
检查用户是否已经安装某一种字体:
Result:=M_IsFontExist("广告繁")
向用户Windows安装新字体:
Result:=M_AddNewFont("大黑")
从用户Windows中删除指定字体:
Result:=M_DeleteFont("大黑")