¿Lista de fuentes instaladas? (solucionado)

[AngelSalom]

Hola amigos, ¿cómo puedo obtener un listado de todas las fuentes instaladas en el sistema?
Mi intención es cargarlas en un array. Estoy usando la función Choosefont actualmente pero requiero implementarlo en un diálogo integrado en la aplicación.
Gracias,

[cnavarro]

Mira a ver

Code: Select all  Expand view

   if Empty( aFontNames := GetFontNames( hDC ) )
      MsgStop( "Error getting font names", "Stop!" )
      return ( aShowFonts )  //GetFontText( GetFonts() ) )
   else
      ASORT( aFontNames,,, { |x, y| UPPER( x ) < UPPER( y ) } )
   endif

 

[AngelSalom]

Perfecto, en GetFontNames estaba la solución.
¡Gracias!

[jrestojeda]

Una alternativa...
viewtopic.php?f=6&t=26737&p=148073#p148073
Saludos,