AutoHotkey Community

HE_SetFont(hEdit, pFont="") {
   local height, weight, italic, underline, strikeout , nCharSet
   local hFont
   static WM_SETFONT := 0x30


 ;parse font
   italic      := InStr(pFont, "italic")    ?  1    :  0
   underline   := InStr(pFont, "underline") ?  1    :  0
   strikeout   := InStr(pFont, "strikeout") ?  1    :  0
   weight      := InStr(pFont, "bold")      ? 700   : 400

 ;height
   RegExMatch(pFont, "(?<=[S|s])(\d{1,2})(?=[ ,])", height)
   if (height = "")
      height := 10
   RegRead, LogPixels, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontDPI, LogPixels
   height := -DllCall("MulDiv", "int", Height, "int", LogPixels, "int", 72)

 ;face
   RegExMatch(pFont, "(?<=,).+", fontFace)   
   if (fontFace != "")
       fontFace := RegExReplace( fontFace, "(^\s*)|(\s*$)")      ;trim
   else fontFace := "MS Sans Serif"

 ;create font
   hFont   := DllCall("CreateFont", "int",  height, "int",  0, "int",  0, "int", 0
                      ,"int",  weight,   "Uint", italic,   "Uint", underline
                      ,"uint", strikeOut, "Uint", nCharSet, "Uint", 0, "Uint", 0, "Uint", 0, "Uint", 0, "str", fontFace)

   SendMessage,WM_SETFONT,hFont,TRUE,,ahk_id %hEdit%
   return ErrorLevel
}

   fStyle := "s12 bold" ,   fFace  := "Courier New"
   HE_SetFont( hEdit, fStyle "," fFace)

SendMessage(hwnd, EM_SETCHARFORMAT, SCF_SELECTION, &CHARFORMATstruct)

/*
*****************************************************************************************
Bold - make the current selection Bold or add Bold text from the current location
       - this will act as a toggle if appplied to the same selection again

_action   = Bold
*****************************************************************************************
*/
  Else If _action = Bold
  {
  VarSetCapacity(_tmp1, 60, 0)          ; CHARFORMAT struct
  InsertInteger_cGUI(60, _tmp1, 0)       ; cbSize
  InsertInteger_cGUI(1, _tmp1, 4)       ; dwMask
  InsertInteger_cGUI(1, _tmp1, 8)        ; dwEffects

  ; ** SendMessage(hwnd, EM_GETCHARFORMAT, SCF_SELECTION, &CHARFORMATstruct)
  DllCall("SendMessage", "UInt", _ctrlID, "UInt", 0x43A, "UInt", "1", "UInt", &_tmp1)

  ; ** Check if Bold is applied to the current selection
  VarSetCapacity(_tmp1, -1)
  _tmp2 := !((ExtractInteger_cGUI(_tmp1, 4) & 1) & (ExtractInteger_cGUI(_tmp1, 8) & 1))

  ; ** SendMessage(hwnd, EM_SETCHARFORMAT, SCF_SELECTION, &CHARFORMATstruct) ; reverse the current effect
  VarSetCapacity(_tmp1, 60, Chr(0))         ; CHARFORMAT struct
  InsertInteger_cGUI(60, _tmp1, 0)          ; cbSize
  InsertInteger_cGUI(1, _tmp1, 4)          ; dwMask
  InsertInteger_cGUI(_tmp2, _tmp1, 8)       ; dwEffects
  Return DllCall("SendMessage", "UInt", _ctrlID, "UInt", 0x444, "UInt", "1", "UInt", &_tmp1)
  }