Forcing Uppercase in an EditTable Control (Functions/Subroutines/Programs)

subroutine ETSetCase(CtrlEntID, Col, Upper)

* this subroutine can be used to force a specified

* column in an EditTable to be uppercase-only.

*

* Chris Salese

* Revelation Support

* July 9, 1996

declare function Get_Property

declare subroutine SendMessage

$insert Logical

equ WM_USER$ to 1024

equ DTM_SETCOLFORMAT$ to WM_USER$ + 18

if assigned(Col) else Col = 1

if assigned(Upper) else Upper = TRUE$

hWnd = Get_Property(CtrlEntID, "HANDLE")

if hWnd then

Format = str("lu" [not(not(Upper))+1,1], 119): \00\

SendMessage(hWnd, DTM_SETCOLFORMAT$, Col - 1, GetPointer(Format))

end

return

________