dlls/comctl32/nativefont.c

   1 /*
   2  * Native Font control
   3  *
   4  * Copyright 1998, 1999 Eric Kohl
   5  *
   6  * NOTES
   7  *   This is just a dummy control. An author is needed! Any volunteers?
   8  *   I will only improve this control once in a while.
   9  *     Eric <ekohl@abo.rhein-zeitung.de>
  10  *
  11  * TODO:
  12  *   - All messages.
  13  *   - All notifications.
  14  */
  15
  16 #include "winbase.h"
  17 #include "commctrl.h"
  18 #include "nativefont.h"
  19 #include "debugtools.h"
  20
  21 DEFAULT_DEBUG_CHANNEL(nativefont)
  22
  23
  24 #define NATIVEFONT_GetInfoPtr(hwnd) ((NATIVEFONT_INFO *)GetWindowLongA (hwnd, 0))
  25
  26
  27
  28
  29 static LRESULT
  30 NATIVEFONT_Create (HWND hwnd, WPARAM wParam, LPARAM lParam)
  31 {
  32     NATIVEFONT_INFO *infoPtr;
  33
  34     /* allocate memory for info structure */
  35     infoPtr = (NATIVEFONT_INFO *)COMCTL32_Alloc (sizeof(NATIVEFONT_INFO));
  36     SetWindowLongA (hwnd, 0, (DWORD)infoPtr);
  37
  38
  39     /* initialize info structure */
  40
  41
  42     return 0;
  43 }
  44
  45
  46 static LRESULT
  47 NATIVEFONT_Destroy (HWND hwnd, WPARAM wParam, LPARAM lParam)
  48 {
  49     NATIVEFONT_INFO *infoPtr = NATIVEFONT_GetInfoPtr (hwnd);
  50
  51
  52
  53
  54     /* free comboex info data */
  55     COMCTL32_Free (infoPtr);
  56
  57     return 0;
  58 }
  59
  60
  61
  62 static LRESULT WINAPI
  63 NATIVEFONT_WindowProc (HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
  64 {
  65     switch (uMsg)
  66     {
  67
  68         case WM_CREATE:
  69             return NATIVEFONT_Create (hwnd, wParam, lParam);
  70
  71         case WM_DESTROY:
  72             return NATIVEFONT_Destroy (hwnd, wParam, lParam);
  73
  74         default:
  75             ERR("unknown msg %04x wp=%08x lp=%08lx\n",
  76                      uMsg, wParam, lParam);
  77             return DefWindowProcA (hwnd, uMsg, wParam, lParam);
  78     }
  79     return 0;
  80 }
  81
  82
  83 VOID
  84 NATIVEFONT_Register (void)
  85 {
  86     WNDCLASSA wndClass;
  87
  88     if (GlobalFindAtomA (WC_NATIVEFONTCTLA)) return;
  89
  90     ZeroMemory (&wndClass, sizeof(WNDCLASSA));
  91     wndClass.style         = CS_GLOBALCLASS;
  92     wndClass.lpfnWndProc   = (WNDPROC)NATIVEFONT_WindowProc;
  93     wndClass.cbClsExtra    = 0;
  94     wndClass.cbWndExtra    = sizeof(NATIVEFONT_INFO *);
  95     wndClass.hCursor       = LoadCursorA (0, IDC_ARROWA);
  96     wndClass.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1);
  97     wndClass.lpszClassName = WC_NATIVEFONTCTLA;
  98
  99     RegisterClassA (&wndClass);
 100 }
 101
 102
 103 VOID
 104 NATIVEFONT_Unregister (void)
 105 {
 106     if (GlobalFindAtomA (WC_NATIVEFONTCTLA))
 107         UnregisterClassA (WC_NATIVEFONTCTLA, (HINSTANCE)NULL);
 108 }
 109