The MASM Forum Archive 2004 to 2012

Hello,

I have this problem:

Window1Campo12 Proc hWnd:HWND, uMsg:ULONG, wParam:WPARAM, lParam:LPARAM
      Push wParam
      Mov Eax, wParam
      .If (Al >= "a" && Al <= "z")
         Sub Al, 20H    ;convert to Uppercase
                                   Ret
      .EndIf
   Return FALSE
Window1Campo12 EndP

The problem is: How do I print the converted char into the editbox called Campo12? I tried to use the SetText function, but it does not split the chars as well while typing in the edit control. Could anyone help me?
Thank You

Hi Loneguy,

Just set the 'CaseStyle' property of the edit control to 'Upper'.

Ramon

On the other hand, if you want to code it manually, here is the code:

Window1Campo12 Proc hWnd:HWND, uMsg:ULONG, wParam:WPARAM, lParam:LPARAM
    .If uMsg == WM_CHAR
        Mov Eax, wParam
        .If (Al >= "a" && Al <= "z")
            Sub Al, 20H    ;convert to Uppercase
            Invoke CallDefaultProc, hWnd, uMsg, Eax, lParam
            Return TRUE
        .EndIf
    .EndIf
    Return FALSE
Window1Campo12 EndP

But always remember that you first have to filter messages (.If uMsg ==...)

Regards.

Thank You very much indeed

You're welcome!

Thanks for using Easy Code!