FontInfo("Times New Roman",12) FontInfo("Arial",12) FontInfo("Roman",12) FontInfo("Courier New",12) FontInfo("Script",12) FUNCTION FontInfo LPARAMETERS tcFontName, tnFontSize LOCAL lnPitchFamily, lnFF, lnFP && font's pitch and family m.lnPitchFamily = FONTMETRIC(16,m.tcFontName,m.tnFontSize) ? ? "Font="+m.tcFontName,TRANSFORM(m.tnFontSize) m.lnFF = BITAND(BITRSHIFT(m.lnPitchFamily,4),0x07) ? "Family=" DO CASE CASE m.lnFF = 1 ?? "Roman" CASE m.lnFF = 2 ?? "Swiss" CASE m.lnFF = 3 ?? "Modern" CASE m.lnFF = 4 ?? "Script" CASE m.lnFF = 5 ?? "Decorative" OTHERWISE ?? "Don't know" ENDCASE m.lnFP = BITAND(m.lnPitchFamily,0x0F) ? "Pitch=" IF BITAND(m.lnFP,0x01)!=0 ?? "Proportional" ELSE ?? "Fixed size" ENDIF IF BITAND(m.lnFP,0x02)!=0 ?? ",Vector" ENDIF IF BITAND(m.lnFP,0x04)!=0 ?? ",True type" ENDIF IF BITAND(m.lnFP,0x08)!=0 ?? ",Device font" ENDIF ENDFUNC