DC's and Fonts

[YoungBuck]

How do you create a font (a simple one like Arial) and select it into a DC using API calls??

[YoungBuck]

I figured it out, here is a little wrapper in case anybody ever runs across the same problem....

Wrapper Function:

Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal H As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, ByVal W As Long, ByVal I As Long, ByVal u As Long, ByVal S As Long, ByVal C As Long, ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, ByVal PAF As Long, ByVal F As String) As Long

Public Const FW_BOLD = 700
Public Const FW_NORMAL = 400


Public Function FontObject(pFontName As String, Optional pHeight As Long = 0, Optional pWidth As Long = 0, Optional pBold As Boolean = False, Optional pItalic As Boolean = False, Optional pUnderline As Boolean = False, Optional pStrikethru As Boolean = False) As Long
    Dim lFontOut As Long
    Dim lWgt As Long
    
    If pBold = True Then lWgt = FW_BOLD Else lWgt = FW_NORMAL
    
    FontObject = CreateFont(pHeight, 8, 0, 0, lWgt, CLng(pItalic), CLng(pUnderline), CLng(pStrikethru), 0, 0, 0, 0, 0, pFontName)

End Function

Implementation:

Public Sub Form_Paint()

   dim lRet as Long
   dim lFont as Long
   dim lTempDC as Long
   dim lBMP as Long

   'Create Font
   lFont = FontObject("Comic Sans MS", 24, 0, True, True, True, True)

   'Create Temporary DC to Draw to
   lTempDC = CreateCompatibleDC(Form1.hDC)
   'Create a Temporary Bitmap 50 pixels high by 50 pixels wide
   lBMP = CreateCompatibleBitmap(Form1.hDC, 50, 50)
   
   'Prepare DC for drawing
   lRet = SelectObject(lTempDC, lBMP)
   lRet = SelectObject(lTempDC, lFont)

   'Draw My Name onto temporary DC
   lRet = TextOut(lTempDC, 0, 0, "Jon", 3)

   'Display the temporary DC on the current form
   lRet = BitBlt(Form1.hDC, 0, 0, 50, 50, lTempDC, 0, 0, SRCCOPY)

   'Take out the trash
   lRet = DeleteObject(lBMP)
   lRet = DeleteObject(lFont)
   lRet = DeleteDC(lTempDC)

End Sub