rich text问题
LPARAMETERS cFontNamethis.Clear
DIMENSION aSizes[1]
=AFONT(aSizes, cFontname)
IF aSizes[1] = -1 && The font is scalable
lScalable = .T.
nLen = THIS.nLargestFont
nStart = THIS.nSmallestFont
ELSE
lScalable = .F.
nLen = ALEN(aSizes)
nStart = 1
ENDIF
IF lScalable
FOR i = nStart TO nLen
this.AddItem(ALLTRIM(STR(i)))
ENDFOR
ELSE
FOR i = nStart TO nLen
this.AddItem(ALLTRIM(STR(aSizes[i])))
ENDFOR
ENDIF
这是VFP示例的代码,判断字体是可伸缩时,字号是自定义的,如何取对应字体的字号