Separar valores devueltos por GETFONT()

GETFONT() retorna el nombre, tamaño y estilo de la fuente que se elije como una cadena de caracteres separados por comas.

Podemos separar esta cadena con el siguiente código:

lc = GETFONT()
IF NOT EMPTY(lc)
  ALINES(la,lc,",")
  lcMsg = "Nombre: " + la(1) + CHR(13) + ;
    "Tamaño: " + la(2) + CHR(13) + ;
    "Estilo: " + la(3)
ELSE
  lcMsg = "No selecciono ninguna fuente"
ENDIF
MESSAGEBOX(lcMsg,64)

Luis María Guayán