How to set a font on a control

Here is a rough example of how to set a font for a windows control in this case a label, the equates are a mystery.

Code:

---

Uses "UI"


' -- ID numbers of controls
Begin ControlID
  %bClose 
End ControlID   


Begin Const
  %MAIN_WIDTH  = 320
  %MAIN_HEIGHT  = 240
End Const
'---Controls IDs---
Begin ControlID
  %first = 1000
        %IDC_STATICLABEL_1
        %IDC_STATICLABEL_2
End ControlID


' -- Create dialog here
Function TBMain()
  Local sText As String
        Local hDlg    As Long
        Local hFont1    As Long
        Local hFont2    As Long
        Local lStyle  As Long
        Local lStyleEx As Long
        lStyle = _                         
                %WS_DLGFRAME          | _ 
                %WS_CAPTION          | _ 
                %WS_SYSMENU          | _ 
                %WS_OVERLAPPEDWINDOW  | _ 
                %WS_CLIPCHILDREN      | _ 
                %WS_CLIPSIBLINGS      | _ 
                %DS_CENTER                 
        lStyleEx = 0                       


        Dialog New Pixels, 0, "Form1", -1, -1, 690, 431, lStyle, lStyleEx, To hDlg
 
  ' -- Place controls here
  Control Add Button, hDlg, %bClose, "Click to close", %MAIN_WIDTH-105, %MAIN_HEIGHT-30, 100, 25, Call cbCloseButton


        Control Add Label, hDlg, %IDC_STATICLABEL_1, "FMP firmware tool", 32, 20, 632, 50, %WS_CHILD Or %WS_CLIPSIBLINGS Or %WS_VISIBLE Or %SS_CENTER, %WS_EX_CLIENTEDGE
        Control Set Resize hDlg, %IDC_STATICLABEL_1, 1, 1, 1, 0


        Control Add Label, hDlg, %IDC_STATICLABEL_2, "FMP firmware tool", 32, 100, 632, 50, %WS_CHILD Or %WS_CLIPSIBLINGS Or %WS_VISIBLE Or %SS_CENTER, %WS_EX_CLIENTEDGE
        Control Set Resize hDlg, %IDC_STATICLABEL_2, 1, 1, 1, 0


        hFont1 = Font_Create("MS Sans Serif", 24,%FONT_BOLD)  ' ******************************
        hFont2 = Font_Create("MS Sans Serif", 8,0)            ' ******************************
        Dialog Send (Win_GetDlgItem(hDlg, %IDC_STATICLABEL_1)), %WM_SETFONT, hFont1, 0  ' ******************************
        Dialog Send (Win_GetDlgItem(hDlg, %IDC_STATICLABEL_2)), %WM_SETFONT, hFont2, 0    ' ******************************


 
  Dialog Show Modal hDlg, Call cbDialog
 
  Object_Delete(hFont1)  ' ******************************
  Object_Delete(hFont2)  ' ******************************




End Function


' -- Callback for dialog
CallBack Function cbDialog()


End Function
 
' -- Callback for close button
CallBack Function cbCloseButton()


  If CBMSG = %WM_COMMAND Then
    If CBCTLMSG = %BN_CLICKED Then
      ' -- Closes the dialog
      Dialog End CBHNDL
    End If
  End If


End Function

---