Es ist alt, aber funktioniert.
Code: Alles auswählen
; English forum:
; Author: Unknown
; Date: 21. January 2003
; OS: Windows
; Demo: No
Procedure EnumFontFamProc(*lpelf.ENUMLOGFONT, *lpntm.NEWTEXTMETRIC, FontType, lParam)
Debug PeekS(@*lpelf\elfLogFont\lfFaceName[0])
ProcedureReturn 1
EndProcedure
Procedure SysInfo_Fonts()
hWnd = GetDesktopWindow_()
hDC = GetDC_(hWnd)
EnumFontFamilies_(hDC, 0, @EnumFontFamProc(), 0)
ReleaseDC_ (hWnd, hDC)
EndProcedure
SysInfo_Fonts()
Code: Alles auswählen
import java.awt.Font;
import java.awt.GraphicsEnvironment;
public class Main {
public static void main(String[] args) throws Exception {
Font[] fonts = GraphicsEnvironment.getLocalGraphicsEnvironment().getAllFonts();
for (int i = 0; i < fonts.length; i++) {
System.out.println(fonts[i].getName());
}
}
}
Ein kleiner Auszug aus Purebasic
Code: Alles auswählen
Myriad Pro
Myriad Pro Cond
Myriad Pro Light
NSimSun
Niagara Engraved
Niagara Solid
Nirmala UI
Nirmala UI Semilight
Nueva Std Cond
OCR A Extended
OCR A Std
Old English Text MT
Onyx
Orator Std
Oswald
PMingLiU-ExtB
Palace Script MT
Palatino Linotype
Papyrus
Code: Alles auswählen
MyriadPro-Bold
MyriadPro-BoldCond
MyriadPro-BoldCondIt
MyriadPro-BoldIt
MyriadPro-Cond
MyriadPro-CondIt
MyriadPro-It
MyriadPro-Regular
MyriadPro-Semibold
MyriadPro-SemiboldIt
NSimSun
Niagara Engraved
Niagara Solid
Nirmala UI
Nirmala UI Fett
Nirmala UI Semilight
NuevaStd-BoldCond
NuevaStd-BoldCondItalic
NuevaStd-Cond
NuevaStd-CondItalic
OCR A Extended
OCRAStd
Old English Text MT
Onyx
OratorStd
OratorStd-Slanted
Oswald BoldItalic
PMingLiU-ExtB
Palace Script MT
Palatino Linotype
Palatino Linotype Fett
Palatino Linotype Fett Kursiv
Palatino Linotype Kursiv
Papyrus
Gibt es eine Möglichkeit die Namen in Purebasic im Java Format zu erhalten?
Die Auswahl der Schrift erfolgt momentan mit FontRequester.
Viele Grüße
Thomas