Get Font List without using xtras!

 

Compatibilities:

This item has not yet been rated

we can get font list without using an xtras,because macromedia give us a function-getfontlist() which undocument.

Download PC Source

property pFontListSprite on beginSprite me   pFontListSprite = 5   (sprite pFontListSprite).member.text = empty end on mouseUp me   tFont = new(#font)   tList = tFont.Fontlist()   FontCnt = tList.Count   repeat with i = 1 to FontCnt     (sprite pFontListSprite).member.line[i] = tList[i]   end repeat   (sprite pFontListSprite).member.scrolltop = 0   tFont.member.erase()   updatestage end