Seleccion Font

Seleccion Font

Postby TOTOVIOTTI » Wed Aug 17, 2016 7:59 pm

Hola amigos:
Es posible recuperar en un diálogo de FW los tipos de letras
de Windows y mostrarlos en un combo? Para poder visualizarlos y
seleccionar para la impresión de un texto?

Gracias
Roberto
Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.edu.ar
User avatar
TOTOVIOTTI
 
Posts: 419
Joined: Fri Feb 05, 2010 11:30 am
Location: San Francisco - Córdoba - Argentina

Re: Seleccion Font

Postby karinha » Wed Aug 17, 2016 8:10 pm

\samples\TESTFON3.PRG

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7794
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Seleccion Font

Postby cnavarro » Wed Aug 17, 2016 8:11 pm

Use choosefont() function
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
User avatar
cnavarro
 
Posts: 6541
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Seleccion Font

Postby TOTOVIOTTI » Wed Aug 17, 2016 8:46 pm

Gracias!!!!!!
Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.edu.ar
User avatar
TOTOVIOTTI
 
Posts: 419
Joined: Fri Feb 05, 2010 11:30 am
Location: San Francisco - Córdoba - Argentina

Re: Seleccion Font

Postby TOTOVIOTTI » Wed Aug 17, 2016 9:35 pm

Cristóbal...
no me sirve mucho ésto... es complicado para trabajarlo... si necesito pasar parámetros..
No hay forma de recuperar los fonts de algún lugar? De la carpeta Fonts o del registro... o de algún lado?
Saludos
Roberto
Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.edu.ar
User avatar
TOTOVIOTTI
 
Posts: 419
Joined: Fri Feb 05, 2010 11:30 am
Location: San Francisco - Córdoba - Argentina

Re: Seleccion Font

Postby cnavarro » Wed Aug 17, 2016 10:18 pm

Mira a ver si esto te sirve

Code: Select all  Expand view


   hDC    := GetDC( oWnd:hWnd )
   aFonts := ASort( GetFontNames( hDC ) )

   ReleaseDC( oWnd:hWnd, hDC )

 
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
User avatar
cnavarro
 
Posts: 6541
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Seleccion Font

Postby TOTOVIOTTI » Thu Aug 18, 2016 12:06 pm

Genial!
Esto es lo que necesitaba!
Gracias!
Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.edu.ar
User avatar
TOTOVIOTTI
 
Posts: 419
Joined: Fri Feb 05, 2010 11:30 am
Location: San Francisco - Córdoba - Argentina


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 18 guests