Mostrar el nombre y apariencia de las fuentes

Una muy buena manera de mostrar la lista de fuentes instaladas en una PC con la apariencia de cada una de ellas.

Código tomado de una entrada del Blog del filipino Jun Tangunan: Grid Showing Fonts' Name and Appearance



La técnica es utilizando un control Grid y la propiedad DynamicFontName.

loTest = CREATEOBJECT("Sample")
loTest.SHOW(1)

DEFINE CLASS SAMPLE AS FORM
  CAPTION = 'Grid Font'
  AUTOCENTER = .T.

  ADD OBJECT grid1 AS GRID WITH;
    COLUMNCOUNT = 1,  ALLOWCELLSELECTION = .F., GRIDLINES = 0,;
    SCROLLBARS = 2,  RECORDMARK = .F., DELETEMARK = .F.,;
    TOP = 10, LEFT = 10, HEIGHT = 230, HEADERHEIGHT = 0,;
    ROWHEIGHT = 25,  ANCHOR = 15

  PROCEDURE LOAD
    AFONT(laFont)

    CREATE CURSOR junk (xfont c(20))
    FOR lnloop =1 TO ALEN(laFont)
      INSERT INTO junk VALUES (laFont[m.lnloop])
    NEXT
    GO TOP
  ENDPROC

  PROCEDURE grid1.INIT
    WITH THIS
      .RECORDSOURCETYPE =1
      .RECORDSOURCE = 'junk'
      .Column1.DYNAMICFONTNAME='ALLTRIM(xfont)'
      .Column1.WIDTH = 300
      .Column1.FONTSIZE = 12
    ENDWITH
  ENDPROC
ENDDEFINE

Gracias Jun!