home *** CD-ROM | disk | FTP | other *** search
- /*
- *
- * GetTextFace
- *
- * This program registers a window and creates it on the screen. The
- * program then creates the window, shows the window, and then updates
- * the window. If the user couble clicks the right mouse button, the
- * GetTextFace function is executed with the HDC of the top level
- * window and default font. The facename is returned in a message
- * box. If an error occurs, a message box is also returned.
- *
- */
-
- #include "windows.h"
-
- #define BUF_SIZE 80
-
- /* Global Variables */
- static HANDLE hInst; /* Handle to the Instance. */
- static HWND hWnd; /* Handle to the Window. */
-
- /* FORWARD REFERENCES */
- long FAR PASCAL WindowProc (HWND, unsigned, WORD, LONG);
-
- /* WINMAIN */
- int PASCAL WinMain (hInstance, hPrevInstance, lpszCmdLine, cmdShow)
- HANDLE hInstance, hPrevInstance;
- LPSTR lpszCmdLine;
- int cmdShow;
- {
- MSG msg;
-
- if (!hPrevInstance) {
-
- WNDCLASS rClass;
-
- rClass.lpszClassName = (LPSTR)"gtxtface";
- rClass.hInstance = hInstance;
- rClass.lpfnWndProc = WindowProc;
- rClass.hCursor = LoadCursor(NULL, IDC_ARROW);
- rClass.hIcon = LoadIcon(hInstance, IDI_APPLICATION);
- rClass.lpszMenuName = (LPSTR)NULL;
- rClass.hbrBackground = GetStockObject(WHITE_BRUSH);
- rClass.style = CS_HREDRAW | CS_VREDRAW | CS_DBLCLKS;
- rClass.cbClsExtra = 0; /* Add double click capabilities. */
- rClass.cbWndExtra = 0;
-
- RegisterClass((LPWNDCLASS)&rClass);
-
- }
- else
- ;
-
- hInst = hInstance;
-
- hWnd = CreateWindow((LPSTR) "gtxtface",
- (LPSTR) "GetTextFace", /* Create a window. */
- WS_OVERLAPPEDWINDOW, /* Make it overlapped. */
- CW_USEDEFAULT, /* Use default coordinates. */
- CW_USEDEFAULT, /* Use default coordinates. */
- CW_USEDEFAULT, /* Use default coordinates. */
- CW_USEDEFAULT, /* Use default coordinates. */
- (HWND)NULL,
- (HMENU)NULL,
- (HANDLE)hInstance,
- (LPSTR)NULL
- );
-
- ShowWindow(hWnd, cmdShow);
-
- UpdateWindow(hWnd);
-
- while (GetMessage((LPMSG)&msg, NULL, 0, 0)) {
- TranslateMessage(&msg);
- DispatchMessage(&msg);
- }
-
- exit(msg.wParam);
-
- } /* WinMain */
-
- /* WINDOWPROC */
-
- long FAR PASCAL WindowProc(hWnd, identifier, wParam, lParam)
- HWND hWnd;
- unsigned identifier;
- WORD wParam;
- LONG lParam;
-
- {
- switch (identifier) {
-
- case WM_PAINT: {
-
- PAINTSTRUCT ps;
- RECT rRect;
- HDC hDC;
-
- hDC=BeginPaint(hWnd, (LPPAINTSTRUCT)&ps);
- SetMapMode(hDC, MM_ANISOTROPIC);
- SetWindowOrg(hDC, 0, 0);
- SetWindowExt(hDC, 110, 110);
- GetClientRect(hWnd, (LPRECT)&rRect);
- SetViewportOrg(hDC, 0, 0);
- SetViewportExt(hDC, rRect.right, rRect.bottom);
- DrawText(hDC,
- (LPSTR)"Double Click Right Mouse Button To Conduct Test.",
- 48, (LPRECT)&rRect, DT_SINGLELINE); /* Prompt text. */
- EndPaint(hWnd, (LPPAINTSTRUCT)&ps);
-
- }
- break;
-
- case WM_RBUTTONDBLCLK: /* If the user double */
- { /* clicks on the right */
- char szbuf[BUF_SIZE]; /* Output buffer. | mouse button, then */
- /* | establish needed */
- char szFacename[BUF_SIZE]; /* Facename Buffer. */
- short sBytesCopied; /* Bytes copied. | variables and call */
- HDC hDC; /* Display Context Handle. */
-
- hDC = GetDC(hWnd); /* (after getting DC) */
- sBytesCopied = GetTextFace(hDC, BUF_SIZE,
- (LPSTR)szFacename); /* the GetTextFace fn. */
-
- if (sBytesCopied == 0) /* If error, issue a */
- { /* message box. */
- MessageBox(hWnd,
- (LPSTR)"No Bytes Copied!!!",
- (LPSTR)"GetTextFace",
- MB_OK | MB_ICONEXCLAMATION);
- break;
- }
- else
- {
- sprintf(szbuf, /* Now its OK; capture */
- "%s%s%s\0", /* the Face information */
- "The Facename is '", /* in a zero terminated */
- szFacename, "'."); /* buffer. */
-
- MessageBox(hWnd, /* Output the buffer in */
- (LPSTR)szbuf, /* a message box format */
- (LPSTR)"GetTextFace", /* so that the user can */
- MB_OK); /* have a readable and */
- }; /* useful format. */
- }
- break;
-
- case WM_CLOSE: {
-
- DestroyWindow(hWnd);
- }
- break;
-
- case WM_DESTROY:
- PostQuitMessage(0);
- break;
-
- default:
- return(DefWindowProc(hWnd, identifier, wParam, lParam));
- break;
-
- }
-
- return(0L);
-
- }
-