XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Schriftartenliste erstellen
-Begin-----------------------------------------------------------------
 $H Windows.ph
-CallBack Prozedur---------------------------------------------------

Proc FontListe

    Parameters LogFont&, TextMetric&, FontType&, Data&
    Declare Font$
    Font$ = String$(LogFont&,60)

    If Font$ >

        Addstring Font$
        Return 1

    Else

        Return 0

    EndIf

EndProc

---------------------------------------------------------------------
Cls
ClearList
~EnumFontFamilies(%hDC, 0, @ProcAddr(Fontliste, 4), 0)
Decimals 0
Print @Str$(%GetCount + 1) +  Fonts gefunden
Listbox$(Installierte Fonts,1)
-End-------------------------------------------------------------------
Fin