Setting A TextBox's font

[V(ery) Basic]

I know this is probably not how you should do it, nut why won't this work:

   HWND hWnd;

   hInst = hInstance;

   hWnd = CreateWindow(szWindowClass, szTitle, WS_OVERLAPPEDWINDOW,
      CW_USEDEFAULT, 0, CW_USEDEFAULT, 0, NULL, NULL, hInstance, NULL);

   Text1 = CreateWindowEx(WS_EX_CLIENTEDGE, "Edit", "1", WS_CHILD | ES_NUMBER, 20,20, 80, 25, hWnd,0, hInst, NULL);
   
   HFONT hFont;
   HDC hDC;
   SIZE TxtSize;
   CHAR* Tahoma = "Tahoma";

   ShowWindow(Text1, nCmdShow);

   hDC = GetDC(Text1);

   GetTextExtentPoint32(hDC, "T", 1, &TxtSize);
   
   hFont = (HFONT) CreateFont( TxtSize.cx , 0, 0, 0, FW_NORMAL, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, 0, Tahoma);

   SelectObject(hDC, hFont);
   
   ReleaseDC(Text1, hDC);
   
   if ((!hWnd) && (!Text1))
   {
      return FALSE;
   }

   ShowWindow(hWnd, nCmdShow);
   UpdateWindow(hWnd);

   return TRUE;

Unless you didn't get it, I'm trying to set the TextBox's font to Tahoma. It doesn't raise any errors, but the font is always that boldish systemy font.

Any help?

[parksie]

You have to send it a WM_SETFONT message:

SendMessage(Text1, WM_SETFONT, (WPARAM)Tahoma, TRUE);

[V(ery) Basic]

I knew that all along.

Thanks,

Moi.