Forcing Uppercase in an EditTable Control (Functions/Subroutines/Programs) [Revelation On-Line Wiki]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

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

======   ======

==== Created at 09 JUL 1996 04:51PM ====




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:

[[http://www.revelation.com/o4wtrs/KB_Articles/KB0010_files/Example.txt|{{kb0010_1.html; charset=utf-8}}]]