代码中红色部分看不懂,求解释! - VFP论坛

第 11 楼

得分:5

以下是引用su0527在2015-12-23 22:11:11的发言：

首先,感谢您的回答.
但如果分辩率与开发者的分辩率不同,fontsize的结果会不会是小数.这样fontsize会不会是一个非法值.

FontSize是一个“磅”值，并非简单视作一个可变的“缩放”数值，详细参考VFP HELP。
如果字体字号是动态变动的话，问题就变得有点复杂。
大部份是“可缩放字体”，没有既定字号表。“不可缩放字体”，既定的字号表也不相同。

程序代码：

** 字体字号信息
SET TALK OFF
CLEAR
CREATE CURSOR tt (ff C(240))
AFONT(aFontName)                    && 取字体
FOR i = 1 TO ALEN(aFontName)
    AFONT(aFontSize, aFontName[i])  && 取字体的字号
    cMsg = IIF((aFontSize[1] == -1), "可缩放字体   ","不可缩放字体 ")
    cMsg = cMsg + aFontName[i] +" 字号 "
    FOR j = 1 TO ALEN(aFontSize)
        cMsg = cMsg + " " + TRANSFORM(aFontSize[j])
    ENDFOR
    INSERT INTO tt VALUES (cMsg)
ENDFOR
GO TOP 
BROWSE