Listar fuentes

[horacio]

Compañeros, quisiera listar las fonts del sistema, he probado con la función GetFontNames() pero no me devuelve nada. He buscado en el foro pero no encontré nada. Alguien sabe... Desde ya muchas gracias.

[Manuel Aranda]

Prueba con esto:

REDEFINE BTNBMP oFont RESOURCE "FONT","FONT" ID 106 OF oDlg;
ACTION oFont1:=oFont1:Choose() NOBORDER;
TOOLTIP "Elegir tipo de letra y tamaño"

Saludos,
Manuel

[horacio]

Manuel, muchas gracias por responder. No me expliqué bien. Lo que necesito es obtener un Array con los nombres de las fuentes instaladas en el sistema. Tuve en algún momento una fuente que hacía esto pero no la puedo encontrar. Gracias de todas maneras