Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt: Schriftenliste $H windows.ph cls Proc FontListe Parameters LogFont&, TextMetric&, FontType&, Data& declare font$ font$ = string$(LogFont&,60); If font$ > addstring font$ return 1 else return 0 EndIf EndProc print shortname$(getDir$(@)) ClearList ~EnumFontFamilies(%HDC,0,ProcAddr(Fontliste,4),0); Decimals 0 Print str$(%GetCount+1)+ Fonts gefunden listbox$(Installierte Fonts,1) End
Session-Cookies