Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Generate a usable font list from user pc for use in QM
#2
Macro enum fonts
Code:
Copy      Help
LOGFONTW lf
__Hdc dc.Init
EnumFontFamiliesExW(dc &lf &sub.EnumFontProc 0 0)


#sub EnumFontProc
function# ENUMLOGFONTEXW*lpelfe NEWTEXTMETRICEXW*lpntme FontType lParam
str s.ansi(&lpelfe.elfLogFont.lfFaceName)
out s
ret 1


Messages In This Thread

Forum Jump:


Users browsing this thread: 1 Guest(s)