Font Menu

[Pepe <DaVincent at addcom dot de>]

Hello,

Using this code, I get all available fonts twice in the (sub-)menuitem 
called FontName (under the Menuitem called "Format"). Two times all 
available fonts in alpabetical order.
  Dim m as MenuItem
  Dim i,n as Integer
  n= FontCount-1
  FormatFontName(0).Text=Font(0)
  For i=1 to n
    m=New FormatFontName
    m.Text=Font(i)
  Next


What's wrong?


Using the newest RB 5 beta.

Greets,
Pepe


---
A searchable archive of this list is available at:
<http://support.realsoftware.com/listarchives/search.php>

Unsubscribe:
<mailto:realbasic-nug-off at lists dot realsoftware dot com>

Subscribe to the digest: 
<mailto:realbasic-nug-digest at lists dot realsoftware dot com>
.