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
________
See also: Convert statement
Source code: