Смена шрифта в RichEdit

OpFontDialog proc hWin:DWORD, lf:DWORD, fStyle:DWORD
 
    LOCAL hDC:DWORD
    LOCAL cf:CHOOSEFONT
 
    invoke GetDC,hWin
    push eax
    mov hDC,eax
    mov cf.lStructSize, sizeof CHOOSEFONT
    push hWin
    pop cf.hWndOwner
    pop eax
    mov cf.hDC,eax
    push lf
    pop cf.lpLogFont
    mov cf.iPointSize,NULL
    push fStyle
    pop cf.Flags
    mov cf.hInstance,NULL
    mov cf.lpszStyle,NULL
    mov cf.nFontType,NULL
    mov cf.Alignment,NULL
    mov cf.nSizeMin,NULL
    mov cf.nSizeMax,NULL
    or cf.Flags,CF_INITTOLOGFONTSTRUCT  ; функция взята из пакета masm32, добавлена только эта строка
    mov cf.rgbColors,NULL
    mov cf.lCustData,NULL
    mov cf.lpfnHook,NULL
    mov cf.lpTemplateName,NULL
    invoke ChooseFont,addr cf
    push eax
    invoke ReleaseDC,hWin,hDC
    pop eax
    ret
 
OpFontDialog endp
 
; +-+-+-+-+-+-+-+-+
 
     .elseif wParam == MeID2                    ; [Формат шрифта]
      ; вызавет диалог задания параметров шрифта, исходя из выбранного заполнит структуру lfnt
      invoke OpFontDialog,hWnd,addr lfnt,CF_BOTH or CF_FIXEDPITCHONLY
      test eax,eax
      je @F                     ; если в eax 0 то нажали крестик
      ; по полученным данным из OpenFontDialog создаём шрифт
      movzx eax,lfnt.lfItalic
      invoke CreateFont,lfnt.lfHeight,lfnt.lfWidth,0,0,lfnt.lfWeight,eax,0,0,0,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,\
      PROOF_QUALITY,FIXED_PITCH or FF_MODERN,addr lfnt.lfFaceName
      ; устанавливаем созданный шрифт в РичЭдите
      invoke SendMessage,hwndEdit,WM_SETFONT,eax,NULL
@@: