GET (MEMO, MULTILINE, TEXT) UpperCase
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Hi,
There is no option PICTURE in TMultiGet. How can i simulate it like PICTURE "@!"?
Thanks,
There is no option PICTURE in TMultiGet. How can i simulate it like PICTURE "@!"?
Thanks,
www.FiveTechSoft.com
https://forums.fivetechsupport.com/
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=32324
if Empty( oGet:hWnd )
oGet:nStyle := nOr( oGet:nStyle, ES_UPPERCASE )
else
oGet:WinStyle( ES_UPPERCASE, .t. )
endif
if ! Empty( ::cPicture ) .and. '@!' $ ::cPicture
nKey = Asc(Upper(Chr(nKey)))
endif
local lAccept
if ::WinStyle( ES_UPPERCASE ) // Horizon 24.04.2016 12:53:50
nKey = Asc(Upper(Chr(nKey)))
endif
if bKeyAction != nil .and. lAnd( nFlags, 16777216 ) // function Key
#define ES_UPPERCASE 8