¿Lista de fuentes instaladas? (solucionado)

Board index FiveWin para Harbour/xHarbour ¿Lista de fuentes instaladas? (solucionado)

Posts: 729

Joined: Fri Oct 07, 2005 07:38 AM

¿Lista de fuentes instaladas? (solucionado)

Posted: Thu Feb 05, 2015 11:38 AM

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,

Angel Salom

Visionwin Software - https://www.visionwin.com

fwh 24.07 - harbour 3.2 - bcc 7.7

cnavarro

Posts: 6760

Joined: Wed Feb 15, 2012 08:25 PM

Re: ¿Lista de fuentes instaladas?

Posted: Thu Feb 05, 2015 11:40 AM

Mira a ver

Code (fw): Select all Collapse

   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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

AngelSalom

Posts: 729

Joined: Fri Oct 07, 2005 07:38 AM