dim m as MenuItem
dim i, nFonts as integer
nFonts=FontCount-1
FontFontName(0).text=Font(0)
For i = 1 to nFonts
m = new FontFontName
m.text=font(i)
Next
I got the above code to create a font menu and it has all the
fonts in the menu however the menu is disabled
anyone know how to enable it?
Brian Heibert
[EMAIL PROTECTED]
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
