Devin Asay wrote:
Okay, this is the FINAL final version. I've been programming in
Revolution for almost five years, and today is the first time I've
noticed the fontLanguage function. I love this language!
on mouseUp
put empty into fld "fontList"
put the fontNames into fNames
sort lines of fNames by word 1 of each
put fnames
repeat for each line tLine in fNames
put uniencode(tLine,the fontlanguage of tLine) &
uniencode(cr,"ANSI") after fld "fontList"
end repeat
delete char -2 to -1 of fld "fontList"
set the textFont of line 1 to -1 of fld "fontList" to the textFont of
fld "fontList","Unicode"
set the scroll of fld "fontList" to 0
end mouseUp
Good work. Now what do we do to get a Font menu to display the font
names correctly?
--
Richard Gaskin
Managing Editor, revJournal
_______________________________________________________
Rev tips, tutorials and more: http://www.revJournal.com
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
