タイプフェイス

フォント名の列挙

int EnumFontFamiliesEx(
	HDC hdc , LPLOGFONT lpLogfont ,
	FONTENUMPROC lpEnumFontFamExProc,
	LPARAM lParam , DWORD dwFlags
);

int CALLBACK EnumFontFamExProc(
	ENUMLOGFONTEX *lpelfe,
	NEWTEXTMETRICEX *lpntme,
	int FontType , LPARAM lParam
);

typedef struct tagENUMLOGFONTEX {
    LOGFONT  elfLogFont;
    BCHAR  elfFullName[LF_FULLFACESIZE];
    BCHAR  elfStyle[LF_FACESIZE];
    BCHAR  elfScript[LF_FACESIZE];
} ENUMLOGFONTEX;

typedef struct tagNEWTEXTMETRICEX {
    NEWTEXTMETRIC  ntmentm;
    FONTSIGNATURE  ntmeFontSignature;
} NEWTEXTMETRICEX;

typedef struct tagNEWTEXTMETRIC { // ntm 
    LONG   tmHeight; 
    LONG   tmAscent; 
    LONG   tmDescent; 
    LONG   tmInternalLeading; 
    LONG   tmExternalLeading; 
    LONG   tmAveCharWidth; 
    LONG   tmMaxCharWidth; 
    LONG   tmWeight; 
    LONG   tmOverhang; 
    LONG   tmDigitizedAspectX; 
    LONG   tmDigitizedAspectY; 
    BCHAR  tmFirstChar; 
    BCHAR  tmLastChar; 
    BCHAR  tmDefaultChar; 
    BCHAR  tmBreakChar; 
    BYTE   tmItalic; 
    BYTE   tmUnderlined; 
    BYTE   tmStruckOut; 
    BYTE   tmPitchAndFamily; 
    BYTE   tmCharSet; 
    DWORD  ntmFlags; 
    UINT   ntmSizeEM; 
    UINT   ntmCellHeight; 
    UINT   ntmAvgWidth; 
} NEWTEXTMETRIC;

typedef struct tagFONTSIGNATURE {
    DWORD  fsUsb[4];
    DWORD  fsCsb[2];
} FONTSIGNATURE;

#include <windows.h>

#define TITLE TEXT("Kitty on your lap")

int CALLBACK EnumFontFamExProc(ENUMLOGFONTEX *lpelfe ,
			NEWTEXTMETRICEX *lpntme ,
			int FontType , LPARAM lParam) {
	TCHAR strAdd[LF_FACESIZE * 3];
	wsprintf(strAdd , "%s %s %s" , lpelfe->elfLogFont.lfFaceName ,
			lpelfe->elfStyle , lpelfe->elfScript);
	SendMessage((HWND)lParam , LB_ADDSTRING , 0 , (long)strAdd);
	return TRUE;
}

LRESULT CALLBACK WndProc(HWND hWnd , UINT msg , WPARAM wp , LPARAM lp) {
	HDC hdc;
	PAINTSTRUCT ps;
	HWND hList;
	static LOGFONT lfFont;

	switch (msg) {
	case WM_DESTROY:
		PostQuitMessage(0);
		return 0;
	case WM_CREATE:
		hList = CreateWindow(
			TEXT("LISTBOX") , NULL , 
			WS_CHILD | WS_VISIBLE | LBS_STANDARD , 
			0 , 0 , 400 , 100 , hWnd , (HMENU)1 ,
			((LPCREATESTRUCT)(lp))->hInstance , NULL
		);

		lfFont.lfCharSet = DEFAULT_CHARSET;
		lfFont.lfFaceName[0] = 0;
		lfFont.lfPitchAndFamily = 0;
		hdc = GetDC(hWnd);
		EnumFontFamiliesEx(hdc , &lfFont ,
			EnumFontFamExProc , (LPARAM)hList , 0);
		ReleaseDC(hWnd , hdc);
		return 0;
	case WM_PAINT:
		hdc = BeginPaint(hWnd , &ps);

		EndPaint(hWnd , &ps);
		return 0;
	}
	return DefWindowProc(hWnd , msg , wp , lp);
}

int WINAPI WinMain(HINSTANCE hInstance , HINSTANCE hPrevInstance ,
			PSTR lpCmdLine , int nCmdShow) {
	HWND hWnd;
	MSG msg;
	WNDCLASS winc;

	winc.style 		= CS_HREDRAW | CS_VREDRAW;
	winc.lpfnWndProc		= WndProc;
	winc.cbClsExtra		= winc.cbWndExtra	= 0;
	winc.hInstance		= hInstance;
	winc.hIcon		= LoadIcon(NULL , IDI_APPLICATION);
	winc.hCursor		= LoadCursor(NULL , IDC_ARROW);
	winc.hbrBackground	= (HBRUSH)GetStockObject(WHITE_BRUSH);
	winc.lpszMenuName	= NULL;
	winc.lpszClassName	= TEXT("KITTY");

	if (!RegisterClass(&winc)) return 1;

	hWnd = CreateWindow(
			TEXT("KITTY") , TITLE ,
			WS_OVERLAPPEDWINDOW | WS_VISIBLE ,
			CW_USEDEFAULT , CW_USEDEFAULT ,
			CW_USEDEFAULT , CW_USEDEFAULT ,
			NULL , NULL , hInstance , NULL
	);

	if (hWnd == NULL) return 1;

	while (GetMessage(&msg , NULL , 0 , 0 )) {
		TranslateMessage(&msg);
		DispatchMessage(&msg);
	}

	return msg.wParam;
}

EnumFontFamiliesEx()

int EnumFontFamiliesEx(
	HDC hdc , LPLOGFONT lpLogfont ,
	FONTENUMPROC lpEnumFontFamExProc,
	LPARAM lParam , DWORD dwFlags
);

EnumFontFamExProc()

int CALLBACK EnumFontFamExProc(
	ENUMLOGFONTEX *lpelfe,
	NEWTEXTMETRICEX *lpntme,
	int FontType , LPARAM lParam
);